ADS + ADI - SCOPE - DATA VAZIA

Post Reply
luiz53
Posts: 43
Joined: Fri Jun 01, 2007 12:41 pm
Contact:

ADS + ADI - SCOPE - DATA VAZIA

Post by luiz53 »

Alguem poderia me ajudar com ADS e ADT

Tenho um arquivo indexado desta FORMA
//-----------------------------------------------------------------------------------------
IF ! File( DIRDBF + "SLBDPLOJ"+EXT )
IF !myUSE(DIRDBF+"SLBDPLOJ" , "LOJAS" ,.T. ,3,,xRdd )
RETURN .F.
ENDIF
oText:SetText( "Indexando Arquivo " + Alias() )
oMeter2:Setpos( LastRec() * 4)
NREG := 0
index on LOJAS->PRODUTO + LOJAS->LOJA TAG SLBDPLO1
index on LOJAS->LOJA + LOJAS->PRODUTO TAG SLBDPLO2
index on (DToS( LOJAS->DT_ENTRA )) TAG SLBDPLO3
index on (DToS( LOJAS->DT_MOVIM )) TAG SLBDPLO4
ENDIF

//-----------------------------------------------------------------------------------------

e possuo um SCOPO

dbselectarea( "LOJAS" )
dbsetorder(3)
LOJAS->(ordscope(0, SPACE( 8 ) ))
LOJAS->(ordscope(1, SPACE( 8 ) ))
LOJAS->(dbgotop())

EM ADSCDX / funciona perfeitamente mostrando os registro que não possuem DATA

MAS COM ADT ELES NAO APARECEM !!!!
R.F.
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Post by R.F. »

1. Don't use the "alias" into the index

Lojas->producto is not a valid index expresion, use only the field name.

2. Set Order is not a valid command for ADT tables, you need to use the OrdSetfocus() function instead of dbsetorder().
Saludos
R.F.
luiz53
Posts: 43
Joined: Fri Jun 01, 2007 12:41 pm
Contact:

Post by luiz53 »

thanks Rene...

already I made the changes… but exactly thus, it continues not accepting empty date in scope using ADT


USE "LCTO" ALIAS LANC
index on TIPO+DTOS(DATA_PAG) TAG DTPAG

// TIPO = D-debit OR C-Credit

LANC->(ordsetfocus(1))
LANC->(ordscope(0, "C" + SPACE(8) ))
LANC->(ordscope(1, "C" + SPACE(8) ))
LANC->(DBGOTOP())

it makes a test with the ARC!!!
Post Reply