Espero que te sirva:
***********************
Set talk off
Set Century On
Set date to British
DEFINE WINDOW WIN_MANTEN From 0,0 To 24,79 NOCLOSE FLOAT ;
TITLE "[ Datos Generales de la Empresa ]" FOOTER "[ ESC=abandona ]"
ACTIVATE WINDOW WIN_MANTEN
sigue_x = .t.
Do PROTEC
If FILE("PARAM.DBF")
USE PARAM SHARED
Else
Wait "No existe la tabla PARAM.DBF" window
sigue_x = .f.
Endif
LOCATE FOR CODIGO = "EMPRE"
empre1_x = PADR(DECOD(ALLTRIM(DESCRIP1)),40," ")
empre2_x = PADR(DECOD(ALLTRIM(DESCRIP2)),40," ")
If !EMPTY(DESCRIP3)
empre3_x = PADR(DECOD(ALLTRIM(DESCRIP3)),40," ")
Else
empre3_x = space(40)
Endif
LOCATE FOR "FECHA"$CODIGO
date_x = CTOD(CAMPO)
LOCATE FOR CODIGO = "EMPRE"
If sigue_x
=SYS(2002, 1)
@02,02 Say "Nombre de la Empresa: " Get empre1_x VALID !EMPTY(empre1_x) ERROR "No debe estar vac¡o"
@04,02 Say "Rubro de la Empresa : " Get empre2_x VALID !EMPTY(empre2_x) ERROR "No debe estar vac¡o"
@06,02 Say "Datos Generales : " Get empre3_x
@08,02 Say "Fecha Registrada : " Get date_x
Read
Endif
If LastKey()<>27 .and. sigue_x
DESC_1 = CODI(ALLTRIM(empre1_x))
DESC_2 = CODI(ALLTRIM(empre2_x))
If !EMPTY(empre3_x)
DESC_3 = CODI(ALLTRIM(empre3_x))
Else
DESC_3 = space(40)
Endif
=RLOCK()
Replace descrip1 With desc_1
Repla
