SoloCodigo

El error que me narca es :


  "library file F:\gimnasio\const.h is invalid"


ese error me marca al genera el ejecutable del sistema

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

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

****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()