ACBrDFeUtil - Unificação de funções de mesma funcionalidade

[filipe_ntv]

A unit AcbrDFeUtil na função  FormatarCEP ainda está colocando o zero na frete do cep

 

  AValue := Poem_Zeros(LimpaNumero(AValue), 8);

  if StrToInt(AValue) = 0
    then Result := Space(9)
    else Result := copy(AValue, 1, 5) + '-' + copy(AValue, 6, 3);

 

o AValue está chegando da seguinte forma '88200-00' e sai assim '08820000'

quando copia vem da seguinte maneira, 0820-000

 

na função Poem_Zeros está assim

Result := PadD(Trim(Texto),Tamanho,'0');

 

seria esse PadD ? que em vez de colocar o zero a direita está colocando a esquerda ?