No se si esta sea la forma de contactarte, en tu perfil traté de buscar alguna dirección de correo
[color=#FF0000]Vi en tu post del 24 de julio de 2010 lo siguiente
También puedes utilizar Scopes con indices NTX:
ORDSCOPE(0,Desde) // inicio
ORDSCOPE(1,Hasta) // final
dbgotop() [/color]
Estoy tratando de filtrar registros usando índices en un tbrowse, como podría aplicar los scopes ?
Este es mi código
Puedes ayuarme ?
Saludos
[color=#FF0000]Vi en tu post del 24 de julio de 2010 lo siguiente
También puedes utilizar Scopes con indices NTX:
ORDSCOPE(0,Desde) // inicio
ORDSCOPE(1,Hasta) // final
dbgotop() [/color]
Estoy tratando de filtrar registros usando índices en un tbrowse, como podría aplicar los scopes ?
Este es mi código
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 NILPuedes ayuarme ?
Saludos