Como imprimir sem espaço em branco?

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

ERCS123
Usuário Nível 2
Usuário Nível 2
Mensagens: 95
Registrado em: 28 Jul 2007 19:54
Localização: franca

Como imprimir sem espaço em branco?

Mensagem por ERCS123 »

Olá, boa tarde a todos!

Estou precisando gerar um arquivo remessa.

Ref - CH - 10
Qtd - Num - 4
Pre - Num - 6,2
--------------------------------------------------------------------
Exemplo:
Ref: 123123 Qtde=100 Pre:= 1.211,00
Ref: 1231 Qtde=80 Pre:= 11,00
------------------------------------------------------------------------
Relatorio tem que ficar assim:

123123|100|1211,00
1231|80|11,00
----------------------------------------------

@ prow() +1,00 say alltrim(ref)+"|"+alltrim(qtde)+"|"+alltrim(pre)

Alguém poderia me dizer, onde está o erro na linha de comando acima ?



Obrigado !
Rodrigo
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

Re: Como imprimir sem espaço em branco?

Mensagem por alaminojunior »

Ao invéz de:
@ prow() +1,00 say alltrim(ref)+"|"+alltrim(qtde)+"|"+alltrim(pre)
faça:

Código: Selecionar todos

@ prow() +1,00 say alltrim(ref)+"|"+alltrim(str(qtde,4))+"|"+alltrim(str(pre,6,2))
Lembre-se que variáveis númericas não se misturam com strings. Elas não se dão muito bem ! :-´
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
ERCS123
Usuário Nível 2
Usuário Nível 2
Mensagens: 95
Registrado em: 28 Jul 2007 19:54
Localização: franca

Re: Como imprimir sem espaço em branco?

Mensagem por ERCS123 »

Olá alaminojunior, obrigado pela sua ajuda.


Só mais uma dúvida:

O valor esta imprimindo assim: 1000.00

Como faz para imprimir: 1000,00 (com virgula) ?



Rodrigo
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

Re: Como imprimir sem espaço em branco?

Mensagem por alaminojunior »

Código: Selecionar todos

@ prow() +1,00 say alltrim(ref)+"|"+alltrim(str(qtde,4))+"|"+alltrim(transform(pre,"@ZE 999,999.99"))
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
ERCS123
Usuário Nível 2
Usuário Nível 2
Mensagens: 95
Registrado em: 28 Jul 2007 19:54
Localização: franca

Re: Como imprimir sem espaço em branco?

Mensagem por ERCS123 »

Olá alaminojunior, muito obrigado pela sua ajuda novamente.

Agora ficou perfeito....


Rodrigo
Responder