FiveTech Support Forums

***********************************************
*SELECCIONA LA CAJA EN LA CUAL SE VA A TRABAJAR
***********************************************
PROC pSelCaja()

oT1vc1:=space(0)
oT1lc1:={}

vFecCR:=date()

vCoUsu:=alltrim(oLamcla:vCous)
vSCaje:="Usuario: "+alltrim(oLamcla:vCous)+" - "+alltrim(oLamcla:vNous)

oVar:="SELECT * from " + oLamcla:tCaja +" WHERE kk_usuari='"+alltrim(vCoUsu)+"'"
TRY
  oConsCA := CreateObject("ADODB.Recordset")
CATCH oError
  MsgStop(oLamcla:mErnt,oLamcla:mErco)
  RETURN(.F.)
END
oConsCA:CursorLocation  := adUseClient //adUseServer
oConsCA:LockType        := adLockOptimistic
oConsCA:CursorType      := adOpenKeyset
oConsCA:Source          := oVar
oConsCA:ActiveConnection( oLamcla:oServer )
TRY
  oConsCA:Open()
CATCH oError
  MsgStop(oLamcla:mComa,oLamcla:mDato)
END
nRegistros := oConsCA:RecordCount()

IF nRegistros#0
  oConsCA:MoveFirst()
  oT1vc1:=alltrim(oConsCA:Fields( "kk_codigo" ):Value)+"-"+alltrim(oConsCA:Fields( "kk_nombre" ):Value)
  Do While !oConsCA:Eof()
    vCaja:=oConsCA:Fields( "kk_codigo" ):Value
    vNomb:=oConsCA:Fields( "kk_nombre" ):Value
    aadd(oT1lc1,alltrim(vCaja)+"-"+alltrim(vNomb))
    oConsCA:MoveNext()
  EndDo
  oConsCA:close()
ELSE
  oConsCA:close()
ENDIF

DEFINE BRUSH oFondo FILE ".\res\res_403.BMP"
DEFINE DIALOG oCuadrS RESOURCE "orCajare3" ICON "#8001" TRANSPARENT BRUSH oFondo

 REDEFINE BUTTONBMP Btn_Acep ID 11 OF oCuadrS ACTION (oCuadrS:End(),if(nRegistros=0,msginfo("No Hay Cajas Habilitadas",oLamcla:mDato),pValCaja()/*pCapCaja()*/))
 REDEFINE BUTTONBMP Btn_Canc ID 10 OF oCuadrS ACTION oCuadrS:End()

 REDEFINE SAY oSCaje VAR vSCaje ID 4027 OF oCuadrS COLOR oLamcla:cClr5

 REDEFINE LISTBOX oT1oc1 VAR oT1vc1 PROMPTS oT1lc1 ID 4001 OF oCuadrS

 REDEFINE DTPICKER oFecCR VAR vFecCR ID 4033 OF oCuadrS UPDATE

 oCuadrS:cTitle := "Selección Caja"
 Btn_Acep:Settext("Aceptar")
 Btn_Canc:Settext("Cancelar")

ACTIVATE DIALOG oCuadrS CENTERED