FiveTech Support Forums

FUNCTION Ing_correlat2()
     LOCAL oDlg, oDbf, oCbx, oGet, oBtn1, oBtn2, aItems:={ "GRUPOS", "PALLETS", "USUARIOS", "CTRLUSR" }
     Uso( "CORRELAT", .t. ) //USE Correlat New Exclusive
     OrdSetFocus("i_base") //1
     DATABASE oDbf
     oDbf:SetOrder("i_base") //1
     oDbf:Blank()
     DEFINE DIALOG oDlg RESOURCE "DLG_CORREL" TITLE "Ingreso de Correlativo:"
          REDEFINE COMBOBOX oCbx VAR oDbf:Base ID 101 ITEMS aItems OF oDlg UPDATE
          oCbx:bLostFocus() := { || Cargovar2(oDbf:Base, oDbf, oDlg) }             //<strong>esta es la linea problemática</strong>          
          REDEFINE GET  oGet VAR oDbf:Correlat ID 102 OF oDlg PICTURE "999,999,999" UPDATE
          REDEFINE BUTTON oBtn1 ID 201 OF oDlg ACTION  ( oDbf:Save(), MsgInfo( "Correlativo modificado" ) )
          REDEFINE BUTTON oBtn2 ID 202 OF oDlg ACTION  oDlg:End()
     ACTIVATE DIALOG oDlg CENTER 
     CLOSE DATA
RETURN NIL

//
FUNCTION Cargovar2(wbase, oDbf, oDlg)
     oDbf:SetOrder(1)
     oDbf:Seek(wbase, .f.)
     IF oDbf:Found()
          oDbf:Load()
          oDlg:Update()
     ENDIF
RETURN NIL