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