Olá pessoal,
estou filtrando dados para um relatório usando um índice temporário
veja abaixo:
Index On Situacao To Ind01 For trab02->Loja == cCodLoja .And. trab02->Data == dData1
Set Index To Ind01
quando uso os comandos acima o DBF vai para o fim dos registros, e eu preciso dar um go top para ir pra o primeiro registro,
só que não está indo, continua no fim do arquivo.
O que estou fazendo errado?
Obrigado
Piter Galdiano
Índices
Moderador: Moderadores
-
PITERGALDIANO
- Usuário Nível 2

- Mensagens: 91
- Registrado em: 28 Nov 2003 08:48
Bom dia!!!
Eu uso essa funcao em rede funciona certinho
De uma olha e vc se ajuda, existe mais topico sobre isso no forum
t+
:* -:] :xau
Eu uso essa funcao em rede funciona certinho
Código: Selecionar todos
function spccheque()
save screen
select 5
if netuse("banco",.f.,10)
set index to ban002, ban001
else
msgab()
return
endif
xcpf=strtran(xcpf,"-")
xcpf=strtran(xcpf,".")
xcpf=strtran(xcpf,"/")
xcpf=strtran(xcpf,",")
xcpf=strtran(xcpf,";")
xcpf=strtran(xcpf,"\")
xcpf=strtran(xcpf,"*")
xcpf=strtran(xcpf,"+")
set color to W+/r
@ 08, 08 clear to 18, 70
@ 07, 07 to 19, 71
index on cpf to (varusa) for (cpf=xcpf .and. comp='D')
set index to (varusa)
aColunacpf={'bco','Cheque','Valor','Data','Comp','Cliente'}
dbedit(8,8,18,70,aColunacpf)
select 5
if netuse("banco",.f.,10)
set index to ban002, ban001
else
msgab()
return
endif
restore screen
return .t.
De uma olha e vc se ajuda, existe mais topico sobre isso no forum
t+
:* -:] :xau
Sempre há uma solucao para os nossos problema clipper.....
-
Cleiton Fidelis
- Usuário Nível 2

- Mensagens: 81
- Registrado em: 06 Jul 2004 09:44
- Localização: Divinopolis MG
