Pesquisa de Cheque pendente

[marbio]

Ola,

Estou montando um rotina para consulta de cheque pendente, ( aquele que voltou do banco ) na tela de venda, o funcionario fecha a venda, o func escolhe cheque, vai digitar o cpf/cnpj, a rotina faz a pesquisa. quando nao tiver nada passa, quando tiver mostra na tela os cheques.

desde ja agradeco sua atencao

t+

:%

[vagucs]

Vc está querendo consultar alguma base de dados tipo Serasa ou algo do tipo?

[marbio]

Boa Noite!!

Nao nao e uma consulta externa sim interna, sao aqueles cliente que compra com vc o cheque volta dali uns menes valta a comprar com vc outra vez, e um banco de dados da propria loja eu fiz uma rotina veja abaixo, mas nao esta funcionando correto, com indice temporario, da erro quando volto para consultar outra vez etc...


Desculpe pela PRGs e +- isso

****** Prg incompleto **********

box3dr2(10,17,20,55)
setcolor(cor3)
@10,30 say 'Informacoes do Cheque'
setcolor(cor2)

*@11,25 say 'CPF/CNPJ....: ' get xcpf valid xcpf <> space(14)
*read
@12,23 say 'Cheque.V/P..:' get xtipo pict '@!' valid xtipo $ 'VP'
read
if xtipo='P'
@12,23 say 'Dias........:' get xdias pict '999' valid xdias <=100
read
xchdata=date()+xdias
@12,23 say 'CFP/CNPJ....:' get xcpf valid spccheque(xcpf)
@13,23 say 'Banco.......:' get xchbanco pict '@!' valid xchbanco $ '111 389 104 356 001 341 151 237 748'
@14,23 say 'N§ Cheque...:' get xchcheque pict '@!' valid xchcheque <> space(10)
@15,23 say 'Bom para....:' get xchdata
if xtipo='P'
xchvalor=xtotalp
@16,23 say 'Valo........:' + trans(xchvalor,'@e 99,999.99')
else
xchvalor=xtotalv
@16,23 say 'Valor.......:' get xchvalor pict '@E 99,999.99' valid xchvalor <> 0
endif
read
endif


*********FUNCAO COMPLETA ****************************
function spccheque()
save screen
select 5
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. motivo='D')
select 5
set index to (varusa)

aColunacpf={'bco','Cheque','Valor','Data','Comp','Cliente'}
dbedit(8,8,18,70,aColunacpf)
restore screen
return .t.

[vagucs]

Mas o que está acontecendo? Já tentou fechar o arquivo toda vez que rodar a rotina.

[marbio]

Bom dia!!!!

O Erro esta contecendo na linha com spccheque, na hora que vc digita o cpf/cnpj ex: digitei o cpf e dei enter, mas na era este cpf era outro na hora que eu volta com a seta para cima e digito o cpf certo. Da erro que nao pode criar o indice temporario! Pode ser isso que vc falou, mas nao to tendo geito de fechar o DBF, se eu fechar o DBF, fecha para os outros tambem, como fechar so esse, para criar outra arquivo temporario.

t+

[vagucs]

Vc tem duas opções

Select 5
Use

Só fecha o banco de dados da área 5 ai vc pode reabrí-lo

Ou apenas limpar a lista de indices com

SET INDEX TO

Ai vc poderá reabrir os indices, com este comandos vc fecha todos os indices da área de trabalha em uso.

[marbio]

Boa Noite!!!!!

Vou tentar esse passo que vc me passou e ou outro, se vc tiver outra ideia encia dessa eu agradeco, porque quando vc desenvolve um sistema nos fica com uma ideia e nao consegui enxegar a solucao..

t+

Estou logado a noite inteira ok

t+