Estoy tratando de filtrar registros en un tbrowse usando índices por ahí encontre una instrucción
oLbx:SetFilter( cField, uValu1,uValu2 )
Pero no consigo implementarla para que funcione correctamente
Este es mi código
Code: Select all
STATIC FUNCTION BrwFac()
LOCAL oDlg, oLbx, oSay, cSay, nPece, nIva
LOCAL nOrder, cVar
IF LEFT(cSel,1) == "F"
cSay := "Consulta por número de factura"
nOrder := 1
ENDIF
IF LEFT(cSel,1) == "C"
cVar := cCliNum
cSay := "Cliente ---> " + cCliNum + " " + cCliNom
nOrder := 2
ENDIF
IF LEFT(cSel,1) == "V"
cVar := cAgente
cSay := "Vendedor ---> " + cAgente + " " + cAgeNom
nOrder := 3
ENDIF
cfac->(DBSETORDER(nOrder))
cfac->(DBSEEK(cVar))
DEFINE DIALOG oDlg RESOURCE "BrwFac3" TITLE "Consulta de facturas"
oDlg:lHelpIcon := .F.
REDEFINE SAY oSay VAR cSay ID 101 OF oDlg ;
COLOR RGB(255,0,0)
REDEFINE LISTBOX oLbx ;
FIELDS cfac->facnum, DTOC(cfac->fechafac), DTOC(cfac->vencfac), cfac->tip_fac, ;
cfac->agente, cfac->clinum, TRANSFORM(cfac->impfac,"999,999,999.99"), ;
IIF(cfac->pagototal=0," ",TRANSFORM(cfac->pagototal,"999,999,999.99")), ;
IIF(cfac->impfac-cfac->pagototal= 0," ", ;
TRANSFORM(cfac->impfac-cfac->pagototal,"999,999,999.99")), ;
cFac->estado ;
HEAD "FACTURA","FECHA","FECVEN","TIPO","VEND","CLIENTE","IMPORTE","A CUENTA", ;
"SALDO", "STATUS" ;
FIELDSIZES 73, 73, 73, 73, 73, 73, 94, 94, 94, 30 ;
ALIAS "cfac" ;
ID 102 OF oDlg ;
ON LEFT DBLCLICK( cFacNum := cfac->facnum, nPece := cfac->descu_2, ;
nIva := cfac->iva, MosFac(nPece, nIva))
oLbx:aJustify := {.f.,.f.,.f.,.f.,.f.,.f.,.t.,.t.,.t.,.f.}
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
Por favor si alguien me puede ayudar
Saludos