Página 1 de 1

Transformar um campo DBF em TXT

Enviado: 02 Dez 2007 20:32
por WCARDOSO
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

Enviado: 02 Dez 2007 20:40
por Grings
Use a função Stuff() para remover a vírgula.

Enviado: 02 Dez 2007 20:49
por WCARDOSO
Como uso esta função?? me passe passo a passo.
Obrigado

Enviado: 02 Dez 2007 21:28
por clodoaldomonteiro
É 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.

Enviado: 02 Dez 2007 21:39
por Maligno
Melhor que isso: está tudo no NG, nos mínimos detalhes.

Transformar um campo DBF em TXT

Enviado: 02 Dez 2007 21:46
por Adalberto
¿Necesitas somente os números inteiros? , então você pode fazer INT(VarQ) e se você quiser: STRZERO (INT(VarQ), 8, 0)

Saludos.

Enviado: 02 Dez 2007 22:26
por WCARDOSO
Obrigado Maligno, funcionou...