CEP iniciado com 0 no danfe Fortes Report imprimindo errado

[jarsis_informatica]

Boa tarde.

Tem um cliente que fez uma venda para o cep 04822-000. Quando passo para o componente (através de importação de xml), ao imprimir o danfe, ele retira o 0 do começo e coloca no final ficando  com o cep 48220-000, que está errado. Alguém tem uma dica de como resolver?

Grato,

Juliano

[Juliomar Marchetti]

Sim deve de identificar no fonte onde isso ocorre e aplicar as devidas alterações depois testar!

se por acaso for problema anexe aqui que validamos e subimos ao svn

[jarsis_informatica]

obrigado Juliomar.

Encontrei o local do erro e fiz a devida alteração, que resolveu o meu problema:

na unit ACBrValidador, alterei:

function FormatarCEP(const AValue: String): String;
Var S : String ;
begin
  S := PadRight( OnlyNumber(AValue), 8, '0') ; { Prenche zeros a direita }
  Result := copy(S,1,5) + '-' + copy(S,6,3) ;
end;

para:

function FormatarCEP(const AValue: String): String;
Var S : String ;
begin
  S := PadLeft(OnlyNumber(AValue), 8, '0') ; { Prenche zeros a esquerda }
  Result := copy(S,1,5) + '-' + copy(S,6,3) ;
end;

 

att,

 

Juliano

[Juliomar Marchetti]

Anexar fontes pra sugerir correções! acredito que não seja por ai!

[jarsis_informatica]

conforme solicitado, segue os fontes.

att,

Juliano

ACBrValidador.dcu

ACBrValidador.pas

[hleorj]

Façam estudos nos projetos.  Antes de qualquer atualização da função formatacep.

Grande risco de problemas.