Sugestão de alteração na unit ACBrNFeDANFEFRDM.pas - Tamanho do campo SISTEMA

[tdpsistemas]

Foi realizada a seguinte modificação na unit ACBrNFeDANFEFRDM.pas, na construção da classe TACBrNFeFRClass: foi necessário aumentar o tamanho do campo cdsParametros.Sistema, pois a revenda quer que o nome da empresa apareça impresso na NFe e NFC-e, no rodapé. O tamanho do campo está com 150 caracteres, porém, a descrição solicitada pelo cliente ficaria: "Distribuido por Revenda Informática - www.revendainformatica.com.br - [email protected] - Desenvolvido por Empresa de Software - www.empresa.com.br" (conteúdo meramente ilustrativo), totalizando 174 caracteres.

FieldDefs.Add('Sistema', ftString, 300);

Para adaptar aos clientes que utilização este recurso, alterei a quantidade de caracteres para 300. Foram realizados diversos testes e nenhum problema foi encontrado. Estou utilizando a revisão 15372.

Agradeço pela atenção!

 

 

 

[EMBarbosa]

18 horas atrás, tdpsistemas disse:

Estou utilizando a revisão 15372.

Poderia por favor atualizar para uma revisão mais atual e anexar a unit aqui para análise?

[tdpsistemas]

Bom dia

Desculpe pela demora, estivemos envolvidos em outros projetos. Segue em anexo arquivo atualizado com a alteração necessária para nosso projeto.

Linha 1486: 

De -  FieldDefs.Add('Sistema', ftString, 150);  

Para - FieldDefs.Add('Sistema', ftString, 300);

No constructor TACBrNFeFRClass.Create(AOwner: TComponent) da unit ACBrNFeDANFEFRDM.pas

ACBrNFeDANFEFRDM.pas

[Juliomar Marchetti]

22 horas atrás, tdpsistemas disse:

Bom dia

Desculpe pela demora, estivemos envolvidos em outros projetos. Segue em anexo arquivo atualizado com a alteração necessária para nosso projeto.

Linha 1486: 

De -  FieldDefs.Add('Sistema', ftString, 150);  

Para - FieldDefs.Add('Sistema', ftString, 300);

No constructor TACBrNFeFRClass.Create(AOwner: TComponent) da unit ACBrNFeDANFEFRDM.pas

ACBrNFeDANFEFRDM.pas

No svn.