Um Pequeno Bug

[Claudemir Lopes]

Ola

Tenho  um  cliente  que  usa  ST  103,32%  ou  120,15%
etc...  são  3  digitos  +  duas  casas  decimais


O  que  acontece  é  que  o  numero  fica  com  4  casas  
decimais  103,3200  ou  120,1500  e  assim  da  erro  de
Tamanho maior que o máximo permitido.


o  campo  é  
Gerador.wCampo(IIf(Usar_tcDe4,tcDe4,tcDe2), 'N19', 'pMVAST  ', 01, IIf(Usar_tcDe4,06,05), 0, nfe.Det.Imposto.ICMS.pMVAST, DSC_PMVAST);


a  rotina
procedure TGerador.wCampo(const Tipo: TpcnTipoCampo; ID, TAG: string; const min, max, ocorrencias: smallint; const valor: variant; const Descricao: string = '');


no  case

      tcDe2,
      tcDe3,
      tcDe4,
      tcDe6,  // Incluido por Italo em 30/09/2010
      tcDe10 : begin


                  ConteudoProcessado := FormatFloat('0.' + StringOfChar('0', NumeroDecimais), valor);

                  // Minha  solução  foi  incluir  essas  linhas  eliminando  os  zeros  sem  valor

                  if length(ConteudoProcessado) > Limite then
                     if pos(DecimalSeparator, ConteudoProcessado) >0 then
                        while ConteudoProcessado[length(ConteudoProcessado)] ='0' do
                              ConteudoProcessado :=Copy(ConteudoProcessado,1,length(ConteudoProcessado)-1);



 

[juaumkiko]

Veja se soluciona: