Clipper/FiveWin - folders

 
Vista:

folders

Publicado por RUBEN MUCINO (1 intervención) el 05/06/2008 22:06:36
AGRDECERE SU AYUDA.

¿COMO USAR REDEFINE PARA CAPTURAR LOS VALORES EN LOS CUADROS DE DIALOGO CORRESPONDIENTES?

AGRADECERE LA RESPUESTA.

function Controles
local oDlg
local oFld
define Dialog oDlg Resource "DIALOGOS_DE_VALES" of oVent Title "Captura de Vales de Gasolina"
redefine Folder oFld id 101 of oDlg;
prompts "Folder1","Folder2","Folder3","Folder4","Folder5";
dialogs "DIALVAL01","DIALVAL02","DIALVAL03","DIALVAL04","DIALVAL05"
/// of oFld:aDialogo[1]
activate Dialog oDlg Center
return
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:folders

Publicado por leandro alfonso (121 intervenciones) el 06/06/2008 04:28:19
Amigo aqui tienes un ejemplo funcionando...

Espero te sirva saludos...

DEFINE DIALOG oCuadr1 RESOURCE "orTerce3" ICON "#8001" TRANSPARENT BRUSH oFondo

REDEFINE BUTTONBMP Btn_Grab ID 4002 OF oCuadr1 BITMAP "Bgrab" ACTION pValiTer()
REDEFINE BUTTONBMP Btn_Canc ID 4001 OF oCuadr1 BITMAP "Bcanc" ACTION oCuadr1:End()

REDEFINE FOLDER oFld2 ID 4008 OF oCuadr1 ;
PROMPT "Datos &Básicos","&Otros Datos";
DIALOGS "orTerce5","orTerce4"

*PRIMERA PESTAÑA

REDEFINE COMBOBOX oT1oc1 VAR oT1vb1 PROMPTS oLamcla:vLDocu ID 4034 OF oFld2:aDialogs[ 1 ] UPDATE
REDEFINE COMBOBOX oT1oc2 VAR oT1vb2 PROMPTS oLamcla:vLClas ID 4036 OF oFld2:aDialogs[ 1 ] UPDATE

REDEFINE GET oT1og1 VAR oT1vg1 ID 4008 OF oFld2:aDialogs[ 1 ] UPDATE PICTURE "999,999,999,999,999,999"
REDEFINE GET oT1og2 VAR oT1vg2 ID 4009 OF oFld2:aDialogs[ 1 ] UPDATE
REDEFINE GET oT1og3 VAR oT1vg3 ID 4023 OF oFld2:aDialogs[ 1 ] UPDATE
REDEFINE GET oT1og4 VAR oT1vg4 ID 4025 OF oFld2:aDialogs[ 1 ] UPDATE
REDEFINE GET oT1og5 VAR oT1vg5 ID 4027 OF oFld2:aDialogs[ 1 ] UPDATE
REDEFINE GET oT1og6 VAR oT1vg6 ID 4010 OF oFld2:aDialogs[ 1 ] UPDATE
REDEFINE GET oT1og7 VAR oT1vg7 ID 4011 OF oFld2:aDialogs[ 1 ] UPDATE
REDEFINE GET oT1og8 VAR oT1vg8 ID 4012 OF oFld2:aDialogs[ 1 ] UPDATE
REDEFINE GET oT1og9 VAR oT1vg9 ID 4021 OF oFld2:aDialogs[ 1 ] UPDATE
REDEFINE GET oT1og10 VAR oT1vg10 ID 4029 OF oFld2:aDialogs[ 1 ] UPDATE

REDEFINE BTNGET oGCiud VAR oLamcla:vGCiud ID 4013 OF oFld2:aDialogs[ 1 ] RESOURCE "Bbusc" UPDATE VALID (oLamcla:valicap(2),oLamcla:vSVCiu) ACTION oLamcla:busqueda(2,,"d_ciudad","d_nombre")

REDEFINE SAY oSCiud VAR oLamcla:vSCiud ID 4014 OF oFld2:aDialogs[ 1 ] COLOR oLamcla:cClr5

REDEFINE GET oT1og19 VAR oT1vg19 ID 4030 OF oFld2:aDialogs[ 1 ] UPDATE
REDEFINE GET oT1og20 VAR oT1vg20 ID 4031 OF oFld2:aDialogs[ 1 ] UPDATE

REDEFINE CHECKBOX oT1oc1 VAR oT1vc1 ID 4018 OF oFld2:aDialogs[ 1 ] UPDATE
REDEFINE CHECKBOX oT1oc2 VAR oT1vc2 ID 4019 OF oFld2:aDialogs[ 1 ] UPDATE
REDEFINE CHECKBOX oT1oc3 VAR oT1vc3 ID 4020 OF oFld2:aDialogs[ 1 ] UPDATE

*SEGUNDA PESTAÑA
REDEFINE GET oT1og12 VAR oT1vg12 ID 4008 OF oFld2:aDialogs[ 2 ] UPDATE
REDEFINE GET oT1og13 VAR oT1vg13 ID 4009 OF oFld2:aDialogs[ 2 ] UPDATE
REDEFINE GET oT1og14 VAR oT1vg14 ID 4010 OF oFld2:aDialogs[ 2 ] UPDATE PICTURE "9999,999,999"
REDEFINE GET oT1og15 VAR oT1vg15 ID 4011 OF oFld2:aDialogs[ 2 ] UPDATE PICTURE "999"
REDEFINE GET oT1og16 VAR oT1vg16 ID 4013 OF oFld2:aDialogs[ 2 ] UPDATE
REDEFINE GET oT1og17 VAR oT1vg17 ID 4014 OF oFld2:aDialogs[ 2 ] UPDATE
REDEFINE GET oT1og18 VAR oT1vg18 ID 4017 OF oFld2:aDialogs[ 2 ] UPDATE

REDEFINE BTNGET oGLipr VAR oLamcla:vGLipr ID 4019 OF oFld2:aDialogs[ 2 ] RESOURCE "Bbusc" UPDATE VALID (oLamcla:valicap(5),oLamcla:vSVLpr) ACTION oLamcla:busqueda(5,,"p_precio","p_nombre")
REDEFINE SAY oSLipr VAR oLamcla:vSLipr ID 4025 OF oFld2:aDialogs[ 2 ] COLOR oLamcla:cClr5

REDEFINE SAY oSMsg1 ID 4023 OF oFld2:aDialogs[ 2 ] COLOR oLamcla:cClr5
REDEFINE SAY oSMsg2 ID 4024 OF oFld2:aDialogs[ 2 ] COLOR oLamcla:cClr5

oCuadr1:cTitle := "Agregar Registro Tercero"
oCuadr1:bStart = { || oT1og1:setfocus() }

ACTIVATE DIALOG oCuadr1 CENTERED
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar