Where

[marcelofazan]

Pessoal to gerando um TXT porem parece brincadeira mais nao é
where o codigo 00221/001 que está na tela = tem que ser = da tabela
where PADL(cadrecmov.rec_parc,9,"9") = PADL(this.Parent.txtrec_parc.value,9,"9") ;

sómente trazer 1 em questao o valor do text
só que está me trazendo 00221/001 00221/002

alguem teria ideia de como gerar somente a parcela a qual se refere o this.parent
isso é estou somente validando 1 informacao da tela com da tabela no where só que nao ta pegando nao sei se é por causa da Barra, mais acho que nao é

fiz esse mesmo processo , pra dinheiro e cheque e deu certo
mais fazer com o mesma tabela ai ta saindo incorreto


********** Gerar TXT

Código:

LOCAL lcFile
lcFile =  PADL(this.parent.txtrec_cliec.value,5,"5")
wait window " Gerando Arquivo TXT " TIMEOUT 1

SELECT '"',cadrecmov.rec_cliec,'","', STRTRAN(DTOC(cadrecmov.rec_dtpgto),"/","/"),'","' ; 
FROM cadrecmov;
where  PADL(cadrecmov.rec_parc,9,"9") = PADL(this.Parent.txtrec_parc.value,9,"9") ;
INTO CURSOR vencimentos ;
ORDER BY rec_cliec

copy to (lcFile) sdf
use in vencimentos

ENDIF

quem poder ajudar
Obrigado !!!!

[Marcos Guedes]

Não conseguir entender o problema...

[marcelofazan]

Código:

where  PADL(cadrecmov.rec_parc,9,"9") = PADL(this.Parent.txtrec_parc.value,9,"9") ;

Não estou conseguindo validar essa linha

Código:

this.Parent.txtrec_parc.value = cadrecmov.rec_parc

para gerar um txt

[Marcos Guedes]

faça o seguinte:

antes da linha onde fazes a comparação, experimente o seguinte teste:

Código:

MESSAGEBOX(THIS.PARENT.txtrec_parc.VALUE)
SELECT cadrecmov
BROWSE

e verifique se a mensagem alertada é a mesma DO registro exibido com o BROWSE.

caso seja, então tente a seguinte comparação:

Código:

IF (UPPER(ALLTRIM(THIS.PARENT.txtrec_parc.VALUE)) == UPPER(ALLTRIM(cadrecmov.rec_parc))) THEN
   MESSAGEBOX('IGUAIS!')
ELSE
   MESSAGEBOX('DIFERENTES!')
ENDIF

Resolve?

[alceu11]

Codigo para achar a parcela 220/005

Código:


CLOSE all
SET SAFETY OFF
CREATE TABLE tabela (valor n(10,2), vcto d(8), parc c(12), iten c(3) , pgto d(8)  )
dData = DATE()
nMeses = 6
nValor = 120
wnota='220'
wparc=1
for i = 1 to nMeses
dVencimento = GOMONTH(dData,i)
insert into tabela (valor,vcto,parc,iten) values (nvalor,dVencimento, wnota+'/'+STRTRAN(STR(wparc,3),' ','0'), STRTRAN( STR(wparc,3),' ','0')  )
wparc=wparc+1
endfor
BROWSE normal
woeste='220/005'
SELECT * FROM tabela WHERE ALLTRIM(parc)=woeste INTO CURSOR tempo
SELECT tempo
browse normal
copy nomearquivo to sdf


[hugo]

boa alceu

boa marcos!

[marcelofazan]

falei que parecia brincadeira mais nao é

fiz os 2 testes um deu a parcela como na tela e o outro deu iguais

como disse, na hora de gerar o txt conforme o codigo acima ate coloquei padl pra ajudar .... em questao que tem uma barra, e sempre uso pra validar porem , qdo gero o txt ,
where PADL(cadrecmov.rec_parc,9,"9") = PADL(this.Parent.txtrec_parc.value,9,"9") ;

ele me gera + registros # this.Parent.txtrec_parc.value que seria somente 1 valor


Só se o problema for indice mais testei , com os q mais uso
nesse caso teria que ter os aliases ambos por parcela será ?
vo ver se no dataenvironment
abs
Marcelo Fazan

[lardecristo]

Poste melhor a informação, o conteudo do campo, o conteudo do text, para facilitar.

Existe no comando SQL o TOP, que pode ser TOP 1, assim sempre trará um registro.

[marcelofazan]

"00221","30/06/2010","
"00221","30/07/2010","

me gera assim queria somente
"00221","30/07/2010",", as vezes sera que preciso adcionar o campo do where no select sera ?

Código:

SELECT '"',cadrecmov.rec_cliec,'","', STRTRAN(DTOC(cadrecmov.rec_dtpgto),"/","/"),'","' , cadrecmov.parc

bom caras, preciso refazer isso do 0 de outras formas
to enroscado com VB entre hj e ontem

sorte que no VB consigo pegar a ultima linha do TXT
entao essas lista no txt pego o preciso q é sempre a data mais atual

[Marcos Guedes]

Marcelo, teria como você isolar este problema num exemplo e disponibilizar para fazermos um teste?