Necesitamos saber como un CHECKBOX que al darle clic, active un GET para introducir informacion; y a la vez la información introducida nos aparezca grabada en el archivo.
STATIC FUNCTION Nuevo()
define DIALOG_3 3
LOCAL oCbx,oCbx1,oBoton1, oBoton2
LOCAL videntif
local oGet1,oGet2,oGet3
local vcuenta:=space(8)
local vnomcuenta:=space(40)
LOCAL VNOM_PA:=space(20)
static vreq_pa:=.F.
static ccampo1
LOCAL lSalir := .F.
LOCAL lSalvar := .F.
use IDENTIFI alias "NOMB" NEW SHARED
DEFINE DIALOG oDlg1 RESOURCE DIALOG_3 of oDlg
REDEFINE GET oGet1 var vcuenta PICTURE "########" ID 101 OF oDlg1 VALID LEER1( vcuenta )
REDEFINE GET oGet2 var vnomcuenta PICTURE "@!" ID 102 OF oDlg1
REDEFINE CHECKBOX oCkb1 var vreq_pa ID 103 OF oDlg1 ON CLICK reg1( vreq_pa )
REDEFINE DBCOMBO oCbx VAR videntif ID 109 OF oDlg1 ;
ALIAS "NOMB" ;
ITEMFIELD "CODIGO" ;
LISTFIELD "NOMB"
REDEFINE BUTTONBMP oBoton1 ID 113 OF oDlg1 ;
ACTION ( lSalvar := .T. , oDlg1:End() )
REDEFINE BUTTONBMP oBoton2 ID 114 OF oDlg1 ;
ACTION ( lSalir := .T. , oDlg1:End() )
ACTIVATE DIALOG oDlg1 CENTER
IF lSalvar
APPEND BLANK
lSalvar := .F.
replace plan->cuenta with vcuenta,plan->nomcuenta with vnomcuenta
replace plan->req_pa with vreq_pa
replace plan->nom_pa with vnom_pa
MsgWait( "Informacion Salvada" )
oTBR2 : Refresh()
ENDIF
IF lSalir
Return Nil
endif
RETURN( NIL )
STATIC FUNCTION reg1(cCampo1)
//VNOM_PA:=space(20)
if cCampo1
REDEFINE GET oGet3 var vnom_pa PICTURE "@!" ID 104 OF oDlg1
else
VNOM_PA:=space(20)
return(.F.)
endif
return(vnom_pa)
