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
Indexar com parametros
Moderador: Moderadores
- Ricardo Sales Ribeiro
- Usuário Nível 3

- Mensagens: 279
- Registrado em: 13 Jul 2004 18:06
- Localização: Fortaleza-Ceara
- sygecom
- Administrador

- Mensagens: 7131
- Registrado em: 21 Jul 2006 10:12
- Localização: Alvorada-RS
- Contato:
Indexar com parametros
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
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
xHarbour.org + Hwgui + PostgreSql
Indexar com parametros
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
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)
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)
