Sugestão simples na unit ACBrNFeDanfeFrDm.pas envolvendo a propriedade ImprimirUnQtVlComercial

[Fabiano Ribeiro]

Boa tarde, apenas uma sugestão(ou correção), na unit ACBrNFeDanfeFrDm.pas, quando setamos a propriedade ImprimirUnQtVlComercial = iuComercialETributavel,  é feito uma concatenação dos 2 valores contidos na UnidadeComercial e UnidadeTributada se estas duas forem diferentes, e armazena no campo "unidade" da tabela FNFe, acontece que esse campo foi criado com tamanho 6, então quando utilizamos mais casas (acima de 2) nas unidades, a concatenação ignora o excesso.

Sugestão na criação do campo Unidade aumentar o tamanho, eu coloquei 12 aqui para minha necessidade.

Ex.:

Linha 1550 FieldDefs.Add('Unidade', ftString, 12);  //FieldDefs.Add('Unidade', ftString, 6);

 

 

segue o arquivo em anexo com a sugestão

 

ACBrNFeDANFEFRDM.pas

[hleorj]

Em analise;

 

@Fabiano Ribeiro, Por favor, post pdf ou xml mostrando o resultado da sua sugestão. 

O Mesmo, servirá também como documentação ´de ajuste.

Informar, qual arquivo fr3 foi utilizado no teste e o mesmo sofreu algum ajuste.

 

Grato.

[Fabiano Ribeiro]

Boa tarde,

segue anexo....

[RicardoVoigt]

Não esqueçam de contar os caracteres de quebra de linha... chr(13)+chr(10)

Considerando que o tamanho da unidade pode ser até 6, o novo tamanho deveria ser 14 ao invés de 12...

Na imagem 1 da pra ver que ficaram apenas 6 caracteres: S+T+ #13 + #10 + T+O

Att

Ricardo

[hleorj]

At revision: 12961

Enviei  o ajuste sugerido pelo @RicardoVoigt

Grato