Indexar com parametros

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
Ricardo Sales Ribeiro
Usuário Nível 3
Usuário Nível 3
Mensagens: 279
Registrado em: 13 Jul 2004 18:06
Localização: Fortaleza-Ceara

Indexar com parametros

Mensagem por Ricardo Sales Ribeiro »

Boa tarde Amigos

Estou eu aqui de novo com duvidas e gostaria de uma ajuda, acho q seja bem simples, vamos lá:

Tenho um sistema de contas a Receber, e tenho um arquivo, logico com todas as duplicatas ou
documentos registrados ok. Nestes registros tem data de vencimento, valor a pagar, valor pago, data
de pagamento e etc.
Eu gostaria q qdo o cliente abrisse a tela de baixar documentos, um browse, so me mostrasse os doc.
q estão em abertos, ou seja, com a data de pagamento em bco ou o valor recebido zerado, ou seja
em aberto para recebimentos ok.

Tentei criar na indexsação o seguinte:

Inde on DatVen To CadDprRc For datpag = CtoD(´ / / ´)
Mas estar dando erro, estar dizendo q ´FOR´ não reconhece

Como posso resolver esse problema.

Meu arquivo estar todos os documentos, os em aberto e os ja quitados, mas na hora de baixar quero q apareça
no browse, apenas os em aberto.

Atenciosamente
Ricardo Sales
Fortaleza-Ce
lodara53@yahoo.com.br
lodara53@hotmail.com
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Indexar com parametros

Mensagem por sygecom »

Tente assim:

Index on DatVen To CadDprRc For(datpag) = CtoD(´ / / ´)
ou
Index on DatVen To CadDprRc For(EMPTY(datpag))
ou
Index on DatVen To CadDprRc For(campo_valor_recebido)=0
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

Indexar com parametros

Mensagem por asimoes »

Ricardo tente isso:

INDEX ON <indexExpr> TO <cIndexFile> FOR <lForCondition>

INDEX ON DatVen To CadDprRc FOR Empty(datpag)
OU
INDEX ON DatVen To CadDprRc FOR Empty(DTOS(datpag))

Observe os exemplos do SYGECOM
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Responder