Índices

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

PITERGALDIANO
Usuário Nível 2
Usuário Nível 2
Mensagens: 91
Registrado em: 28 Nov 2003 08:48

Índices

Mensagem por PITERGALDIANO »

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
Piter Galdiano
Programador Clipper
Avatar do usuário
marbio
Usuário Nível 3
Usuário Nível 3
Mensagens: 206
Registrado em: 29 Jul 2004 16:26

Mensagem por marbio »

Bom dia!!!

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
Usuário Nível 2
Mensagens: 81
Registrado em: 06 Jul 2004 09:44
Localização: Divinopolis MG

Mensagem por Cleiton Fidelis »

Amigo, pode ser que realmente nao exista a condicao solicitada.

Confira. e Informe.


Cleiton Fidelis
Divinopolis-MG :xau
Responder