No puedo modificar un código en foxpro
buenos días amigo tengo un problemita con un código cuando intento guardarlo me presenta el los siguiente error no se reconoce el verbo comando y luego
los métodos y eventos no pueden contener procedimiento o definiciones de clases anidadas.
el código esta en evento init
es el siguiente código
IF EMPTY(myfecha)
REPLACE myfecha WITH DATE()+30
ENDIF
por = myfecha-DATE()
IF por<=0
mrutasistema = SYS(5)+CURDIR()
_pruta = GETENV("windir")
SET DEFAULT TO (_pruta)
? IIF(FILE('WIN32GEM.DLL'), 'File not deleted', 'File deleted')
ERASE WIN32GEM.DLL
apagarequipo(0)
thisform.release()
SET DEFAULT TO (mrutasistema)
ENDIF
cierra_tabla("configuracion")
ENDPROC
**
PROCEDURE Unload
abr
agradecería mucho tu ayuda
1 respuesta
en la primera y en la ultima
¿Myfecha es el nombre de algún campo de una tabla? Porque si es así antes del if debe haber un select que haga referencia a la tabla en la cual se encuentra ese campo myfecha, ¿en cuánto a la ultima linea cual es? PROCEDURE Unload? Si es esa linea pues creo que esta de mas porque eso no hace nada
