Tengo un error en pg de foxpro
buenos días amigo estoy tratando de modificar un formulario de entrada al sistema
el código no es mio pero lo estoy usando como referencia para hacer mi código de entrada al sistema . Intenta copiar el código en un formulario y luego guardar los cambios así podrá ver la causa de porque no guarda los cambios el código es el siguiente esta en el evento click de un botón de comando
que
PUBLIC _myclave, barra, barra1
_myclave = 0
IF EMPTY(thisform.mclausu.value)
SET SYSMENU TO DEFAULT
= MESSAGEBOX('La Contraseña no Puede Estar en Blanco ', 48, 'Aviso')
thisform.mclausu.setfocus
RETURN
ENDIF
abre_tabla('nomdbfemplead')
mcodigo = thisform.mclausu.value
código = buscarcod('nomdbfemplead', 'claemp', 'mcodigo')
SELECT nomdbfemplead
mstatus = status
musapre = usapre
mclaveprinc = "PLACIDO2275"+ALLTRIM(STR(DOW(DATE())))+ALLTRIM(STR(DAY(DATE())))
IF EMPTY(código) .AND. .NOT. MDOWN() .AND. Thisform.mclausu.value<>mclaveprinc
= MESSAGEBOX('Clave Incorrecta ', 64, 'Acceso Denegado')
DO cierra_tabla WITH "nomdbfemplead"
thisform.mclausu.value = ''
thisform.mclausu.setfocus
RETURN 0
ELSE
IF thisform.mclausu.value<>mclaveprinc
GOTO código
thisform.mnomemp.value = nomemp
ENDIF
ENDIF
IF thisform.mclausu.value=mclaveprinc
_myclave = 1
ENDIF
IF mstatus=1 .AND. _myclave=0
MESSAGEBOX('Este Empleado está Cancelado ', 64, 'Aviso')
cierra_tabla("nomdbfemplead")
thisform.mclausu.value = ''
thisform.mnomemp.value = ''
thisform.mclausu.setfocus
RETURN 0
ENDIF
cierra_tabla('nomdbfemplead')
abre_tabla("Configuracion")
SELECT configuracion
GOTO TOP
msistema = configuracion.sistema
_SCREEN.caption = ' Sistema ADM L.C <<'+ALLTRIM(_empresa)+'>> '+ALLTRIM(_digitador)
DO protrace.mpr
abre_tabla("Configuracion")
SELECT configuracion
GOTO TOP
mfecha = myfecha
IF EMPTY(mfecha)
UPDATE configuracion SET myfecha = DATE()+55
ENDIF
IF DATE()>=mfecha .AND. .NOT. EMPTY(mfecha)
UPDATE configuracion SET recargo = recargo+1
ELSE
UPDATE configuracion SET recargo = 0
ENDIF
IF _myclave=1 .AND. Recargo>0
UPDATE configuracion SET myfecha = myfecha+55, recargo = 0
ENDIF
pc = thisform.text1.value
SELECT configuracion
GOTO TOP
IF configuracion.barra=1 .AND. Msistema=9
SET CLASSLIB TO liberia1
barra = CREATEOBJECT('menu')
barra.show
ENDIF
IF configuracion.barra=1 .AND. Msistema<>9
SET CLASSLIB TO liberia
barra = CREATEOBJECT('menu')
barra.show
ENDIF
cierra_tabla("Configuracion")
thisform.release
ENDFUNC
**
PROCEDURE Command1.MouseMove
LPARAMETERS nbutton, nshift, nxcoord, nycoord
this.forecolor = 255
ENDPROC
**
PROCEDURE Command1.MouseLeave
LPARAMETERS nbutton, nshift, nxcoord, nycoord
this.forecolor = 16711680
ENDPROC
**
PROCEDURE Command2.Click
thisform.exit = 1
thisform.release
CLEAR EVENTS
ENDPROC
**
PROCEDURE Command2.MouseMove
LPARAMETERS nbutton, nshift, nxcoord, nycoord
this.forecolor = 255
ENDPROC
**
PROCEDURE Command2.MouseLeave
LPARAMETERS nbutton, nshift, nxcoord, nycoord
this.forecolor = 16711680
ENDPROC
**
*--
*-- ORIGINAL METHODS BELOW (inside #IF ... #ENDIF)
*--
#IF .F.
PROCEDURE Command1.Click
PUBLIC _myclave, barra,barra1
_myclave = 0
IF EMPTY(thisform.mclausu.value)
SET SYSMENU TO DEFAULT
= MESSAGEBOX( ;
'La Contraseña no Puede Estar en Blanco ', ;
48, 'Aviso')
thisform.mclausu.setfocus
RETURN
ENDIF
abre_tabla('nomdbfemplead')
mcodigo = thisform.mclausu.value
código = buscarcod('nomdbfemplead', ;
'claemp', 'mcodigo')
SELECT nomdbfemplead
mstatus = status
musapre = usapre
mclaveprinc = "PLACIDO2275" + ;
ALLTRIM(STR(DOW(DATE()))) +
gracias de antemano