ADS + ADI - SCOPE - DATA VAZIA

[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.]

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().

[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!!!