acción en la pestaña del folderex.

[karinha]

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.

[Willi Quintana]

Revisa éste código

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 )

 

[karinha]

Gracias Willi Quintana. Lo intento y te comento. Saludos.