FiveTech Software tech support forums

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)

Prueba esto:
REDEFINE GET oGet1 var vcuenta PICTURE "########" ID 101 OF oDlg1 VALID LEER1( vcuenta )
REDEFINE GET oGet2 var vnomcuenta PICTURE "@!" ID 102 OF oDlg1
REDEFINE GET oGet3 var vnom_pa PICTURE "@!" ID 104 OF oDlg1 WHEN vreq_pa = .T.

REDEFINE CHECKBOX oCkb1 var vreq_pa ID 103 OF oDlg1

Un saludo,
Manuel

JHON JAIRO VALENCIA DIAZ wrote: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)

Gracias viejo Manuel, Me funciono.