for... next

[JuniorVaz]

Ola, criei em meu sistema, um relatorio geral dos cliente, usei o comando for e next, e ele está imprimindo tudo certinho, mas estou criando agora, um filtro, que quando um cliente é impresso, um procedure grava "T" no campo IMP, no caso pra saber que ja foi impresso, e quando um cliente é cadastrado novo, ou é alterado, esse "T" é apagado do cadastro, ficando 0 no campo IMP do cadastro do mesmo, no caso precisaria fazer pra quando eu mandar imprimir novamente, que ele mande imprimir o cliente codigo 50 por exemplo, mas antes de imprimir, que ele analiza o campo IMP, e se for igual a "T", para ele pular pro comando next, pra tentar o proximo cliente, no caso o 51, e assim por diante, testando, e só imprimir os que estiverem em branco o campo IMP.

eu fiz assim

sele cli
seek xcodcli
ximp=imp
if ximp="T"
next
endif

Mas dai da um erro dizendo que não existe o comando For, poque no fim do relatorio ja tem um Next... Queria um opiniaum, uma ideia de como posso fazer isso... Vlw ai a todos que poderem me ajudar...

[ANDRIL]

Ola JuniorVaz,

Pelo que entendi tente fazer assim:

sele cli
seek xcodcli
ximp=imp
if ximp="T"
SKIP +1
endif

**Veja bem seria importante vc ter postado a sua estrutura do comando FOR...NEXT para ver como o loop é executado porém tente fazer desta forma caso não consiga poste a função completa.

Abraços

[Adriano]

Caro colega,

Pelo que entendi basta substituir este Next que está no meio da estrutura for..next por um loop

sele cli
seek xcodcli
ximp=imp
if ximp="T"
loop
endif

Não altere o o Next da sua estrutura, ou seja, o último next, altere somente o intermediario.

Blz!