Sugestão de melhoria - ACBrNFSeDANFSeRLRetrato

[Marcos Gerene]

Boa tarde a todos,

Ao tentar mandar imprimir uma DANFS-e antes de transmitir para o cliente "validar os dados" o sistema apresentava erro (vazio não é um valor inteiro).

Debuguei e notei que existe uma "variável" (atributo) chamado "Numero" que se refere ao número da NFS-e porém este não vem preenchido ainda (está em branco).

A classe ACBrNFSeDANFSeRLRetrato faz 2 vezes este procedimento:

FormatFloat('00000000000'        , StrToFloat(Numero));

em rlbCabecalhoBeforePrint e rlbTomadorBeforePrint, porém como o campo número ainda é vazio o StrToFloat() da erro.

Fiz uma simples alteração nos dois lugares para:

FormatFloat('00000000000'        , StrToFloatDef(Numero, 0));

que soluciona o "problema" sem modificar qualquer estrutura.

Segue o .pas em anexo caso seja realmente aceita a alteração.  ACBrNFSeDANFSeRLRetrato.pas

[Juliomar Marchetti]

No svn!

Obrigado