• Viernes 8 de Noviembre de 2024, 17:56

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - jimmyc

Páginas: [1]
1
Visual FoxPro / Problemas Al Untilizar #include En Vfp
« en: Viernes 23 de Marzo de 2007, 19:50 »
me marca error al crear el .exe
no se si se tenga que aser algo para que el vfp lo reconosca al crear el egecutable .
me podian desir que hacer

2
Visual FoxPro / """por Que Me Maraca Error"""
« en: Lunes 26 de Febrero de 2007, 17:17 »
los eerores son "function name is missing" y "command contains unrecognized phrase/keyword"

-me podrian  decir por que salen estos errores "por fabor"


#INCLUDE consts.h

SET PROCEDURE TO util.prg

* Identification score
LOCAL idscore AS INTEGER
* Identification result
LOCAL ret AS INTEGER
LOCAL ded as Character
idscore = 0
ret = Identify(@idscore)
IF ret = 0 THEN
   WriteLog("Error: Fingerprint not found")
   RETURN
ENDIF
IF ret > 0 THEN
   WriteLog("CLIENTE AGENDADO EN BISICLETAS . ID = " + ALLTRIM(STR(ret)))
   PrintBiometricDisplay(.T., GR_DEFAULT_CONTEXT)

   
   ded=right('0000000'+alltrim(str(ret)),7)

   

 USE f:\gimnasio\tablas\GymHrs02
   LOCATE  FOR EMPTY(&cCliente) AND Fecha = DATE()
   IF FOUND()
      IF !EMPTY(&cField)
         Replace &cField WITH ded
      ENDIF
      Replace &cCliente   WITH ded
      Replace &cLlego      WITH Thisform.Text1.Value
      = MESSAGEBOX("Cliente Agendado", 64, "Aviso")   
   ELSE
      COUNT TO Y FOR    Fecha = DATE()
      IF Y < Datopvar.NoCamas
         APPEND Blank
         Replace Fecha       WITH DATE()
         Replace &cField    WITH ded
         Replace &cCliente   WITH ded
         Replace &cLlego      WITH Thisform.Text1.Value   
         TABLEUPDATE(.T.)
         *browse
         = MESSAGEBOX("Cliente Agendado", 64, "Aviso")   
      ELSE
         = MESSAGEBOX("Todas las camas estan ocupadas", 16, "Aviso")      
      ENDIF
   Endif
   
ELSE
   WriteError(ret)
ENDIF

3
Visual FoxPro / Un Codigo Pasar De Fox8 A Fox7
« en: Lunes 8 de Enero de 2007, 17:53 »
este codigo es un progrma para ler buella digital de gerfinger para unlector de microsoft y no puedo pedo adaptarlo si algien me puede a yudar o que a ya hecho
algo paresido podria ayudarme

4
Visual FoxPro / Aplicacion Para Capturar Una Foto
« en: Jueves 4 de Enero de 2007, 00:22 »
LA APLICACION UTILISA A  Image Viewer CP Pro ActiveX Control PERO SOLO QUIERE FUNCIONAR EN 98 QUE FUE DONE LO ISE PERO AL PASARLO A XP NO FUNCIONA

5
Visual FoxPro / Problema Con Unos Filtros En Un Formulario
« en: Sábado 30 de Diciembre de 2006, 21:31 »
****Este codigo cuando manda llamar al reporte no hace todas las restriciones ***
*** ustedes cren que sea***

PUBLIC Filtro, cPeriodo

Filtro = ''
cPeriodo = ''
STORE .F. to FilFef, FilFeD,FilFeP
select gyma_a01
SET ORDER TO NOCXP

STORE SPACE(1) TO FiltroF, FiltroD, FiltroP

IF !EMPTY(Thisform.Text2.Value) .and. !EMPTY(Thisform.Text3.Value)
   FiltroF = "BETWEEN(gyma_a01.nocar, allt(Thisform.Text2.Value), allt(Thisform.Text3.Value))"
   FilFeF = .T.
ENDIF

IF !EMPTY(Thisform.Text4.Value) .and. !EMPTY(Thisform.Text8.Value)
   FiltroD = "BETWEEN(gyma_a01.fecha, Thisform.Text4.Value, Thisform.Text8.Value)"
   FilFeD = .T.
   cPeriodo = "Del: " + DTOC(Thisform.Text4.Value) + " al: " + DTOC(Thisform.Text8.Value)
ENDIF


IF !EMPTY(Thisform.Text1.Value) .and. !EMPTY(Thisform.Text5.Value)
   FiltroP = "BETWEEN(gyma_a01.Nocxp, allt(Thisform.Text1.Value),allt(Thisform.Text5.Value))"
   FilFeP= .T.
ENDIF

IF FilFeF
   Filtro = ALLTRIM(FILTROF)
ENDIF

IF FilFeD AND !EMPTY(Filtro)
    Filtro = Filtro + " .and. " + ALLTRIM(FILTROD)
ELSE
   Filtro = ALLTRIM(FiltroD)
ENDIF

IF FilFeP AND !EMPTY(Filtro)      
   Filtro = Filtro  + " .and. " + ALLTRIM(FILTROP)
ELSE
   Filtro = ALLTRIM(FiltroD)
Endif            
      
SET FILTER TO &FILTRO   

GO top

do case
   case thisform.optiongroup1.value=1
      report form f:\gimnasio\informes\gyminfabo preview
   case thisform.optiongroup1.value=2
      report form f:\gimnasio\informes\gyminfabo to print prompt noconsole
   case thisform.optiongroup1.value=3   
      delete file c:\Abonos.xls
      copy to c:\Abonos.xls TYPE XL5
      =Messagebox('Archivo c:\Abonos.xls Creado',48,'Información')      
endcase
thisformset.limpia()

Páginas: [1]