Tamanho Maior Que O Máximo Permitido [100] Icms Cst 51

[rafaeldalbosco]

Olá pessoal estou tendo a seguinte mensagem de validação ao enviar uma nota com ICMS CST 51 com os campos pRedBC ou pDif com valor 100.0000

Tamanho maior que o máximo permitido [100] 

 

Verifiquei que no código fonte pcnNFeW.pas aonde monta o CST51 esta utilizando 06 casas conforme abaixo no IIf(Usar_tcDe4,06,05) como o valor 100.0000 que contém quatro casas decimais o valor passe de 06 caracteres sendo utilizado 07;

Gerador.wCampo(IIf(Usar_tcDe4,tcDe4,tcDe2), 'N14', 'pRedBC   ', 01, IIf(Usar_tcDe4,06,05), 0, nfe.Det[i].Imposto.ICMS.pRedBC, DSC_PREDBC);

Gerador.wCampo(IIf(Usar_tcDe4,tcDe4,tcDe2), 'N16b', 'pDif    ', 01, IIf(Usar_tcDe4,06,05), 0, nfe.Det[i].Imposto.ICMS.pDif, DSC_PICMS);

Alterei essas linhas para usar 07 conforme abaixo e resolveu.

Gerador.wCampo(IIf(Usar_tcDe4,tcDe4,tcDe2), 'N14', 'pRedBC   ', 01, IIf(Usar_tcDe4,07,05), 0, nfe.Det[i].Imposto.ICMS.pRedBC, DSC_PREDBC);

...

Gerador.wCampo(IIf(Usar_tcDe4,tcDe4,tcDe2), 'N16b', 'pDif    ', 01, IIf(Usar_tcDe4,07,05), 0, nfe.Det[i].Imposto.ICMS.pDif, DSC_PICMS);

Em anexo o código fonte com a alteração, se for possível commitar no SVN essa alteração.

pcnNFeW.pas