Transformar um campo DBF em TXT

WCARDOSO · Mensagem por **WCARDOSO** » 02 Dez 2007 20:32

Tenho um campo de Preço, numerico, tamanho 8, 02 decimais, preciso passar esse preço para um arquivo TXT com campo de 8, só quando passo ele não pega o valor todo.
Exemplo tenho uma mercadoria de R$7,20, masquando faço a transferencia ele fica assim : 00000007, ele naum pega os decimais.
Tenho a função :
FWRITE(VARQ,STRZERO(VALORVEN,8))
Agora se eu escrever assim:
FWRITE(VARQ,STRZERO(VALORVEN,8,2)) ela fica 00007,20
Só que preciso que fique assim na hora de transformar 00000720
Se puderem me ajudar e passar uma função neste sentido agradeceria.

Obrigado,
Wagner

Grings · Mensagem por **Grings** » 02 Dez 2007 20:40

Use a função Stuff() para remover a vírgula.

WCARDOSO · Mensagem por **WCARDOSO** » 02 Dez 2007 20:49

Como uso esta função?? me passe passo a passo.
Obrigado

clodoaldomonteiro · Mensagem por **clodoaldomonteiro** » 02 Dez 2007 21:28

É simples:
strzero(valorven*100,8)

Você passa para a função strzero() o valor da sua variável vezes 100, assim os 20 centavos passam a serem inteiros.

Mensagem por **Maligno** » 02 Dez 2007 21:39

Melhor que isso: está tudo no NG, nos mínimos detalhes.

Adalberto · Mensagem por **Adalberto** » 02 Dez 2007 21:46

¿Necesitas somente os números inteiros? , então você pode fazer INT(VarQ) e se você quiser: STRZERO (INT(VarQ), 8, 0)

Saludos.

WCARDOSO · Mensagem por **WCARDOSO** » 02 Dez 2007 22:26

Obrigado Maligno, funcionou...