acción en la pestaña del folderex.
Posted: Mon May 13, 2019 2:10 pm
Señores, és posible por una acción en la pestaña del folderex para disparar a una función en cada pestaña?
Gracias, saludos.
Gracias, saludos.
Code: Select all
REDEFINE FOLDEREX oFld;
PROMPTS "Productos ","Kárdex ","Inventarios " ;
DIALOGS "PRODUCTOS","MOVIKARDEX","INVENTARIOS" ROUND 5 ; // ANIMATE SPEED 100 ;
ON CHANGE (EVAL( eBtnEnaDis ), ;
nPenEnt := PorEntregar(oMySQL , MyCampo(oProduc, 2)), ;
RRefresh(oDatos), ;
cObser := MyCampo(oProduc, 57), oSay6:Refresh(), ;
If(oFld:nOption=2, ; // folder 2 movimientos
(tActual:DeActivate(), ;
oABoton[5]:Enable(), ;
cCodigo := MyCampo(oProduc, 2), ; //
If(oProduc:FieldGet(2) <> oMovika:FieldGet(2), (oMoviKa := CargaMovis(oMySQL, cCodigo, oMoviKa ), MySetBrowse(oLbxKar, oMoviKa ) ), ), ;
EVAL(eTInEg), ;
If(oMovika:RecCount() > 18, oLbxKar:GoBottom(), ), ;
oLbxKar:Refresh(), ;
oLbxKar:SetFocus()), ;
tActual:Activate() ), ;
If( oFld:nOption=3, ; // folder 3 inventarios
(tActual:DeActivate(), ;
oABoton[5]:Enable(), ;
cCodigo := MyCampo(oProduc, 2), ;
MySetBrowse(oLbxInv, oProduc ), ; // oLbxInv:GoBottom(), ;
oLbxInv:Refresh(), ;
oLbxInv:SetFocus()), ;
tActual:Activate() ), ;
lFiltr1 := .f., oFiltr1:SetText(IF(lFiltr1,"&Quitar Filtro","&Filtrar")), oFiltr1:Refresh(), ;
IF(oFld:nOption = 2, oABoton[13]:Disable(), oABoton[13]:Enable()), ;
IF(oFld:nOption=3, (nContInv := NumDatInventariado(oMySQL),oSay4:Refresh(), oLbxInv:SetFocus()),)) ;
ID 100 OF oDlg
oFld:aEnable = { .t., .t., .t. }
oFld:aDialogs[1]:SetBrush( oBFold )
oFld:aDialogs[2]:SetBrush( oBFold )
oFld:aDialogs[3]:SetBrush( oBFold )