Pesquisar na Comunidade
Showing results for tags 'acbrnfedanfefrdm.pas'.
Encontrado 2 registros
-
Sugestão de alteração na unit ACBrNFeDANFEFRDM.pas - Tamanho do campo SISTEMA
um tópico no fórum postou tdpsistemas ACBrNFe
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! -
Erro ao Tentar instalar projeto ACBrInstall_Trunk2 (ACBrNFeDANFEFRDM.pas)
um tópico no fórum postou tdpsistemas Dúvidas Gerais sobre o ACBr
Bom dia a todos, Baixei essa manhã o fonte do projeto, e ao tentar instalar o mesmo tive um problema no seguinte pas: ACBrNFeDANFEFRDM.pas. Analisando o fonte verifiquei que o problema estava na seguinte procedure: TACBrNFeFRClass.CarregaParametros; Exatamente na seguinte linha: FieldByName('dhRecbto').AsDateTime := StringToDateTimeDef(Trim(Copy(FDANFEClassOwner.ProtocoloNFe, P + 1)), 0, 'dd/mm/yyyy hh:nn:ss'); Fiz o copy da seguinte forma: FieldByName('dhRecbto').AsDateTime := StringToDateTimeDef(Trim(Copy(FDANFEClassOwner.ProtocoloNFe, P + 1,Length(FDANFEClassOwner.ProtocoloNFe)-(P + 1))), 0, 'dd/mm/yyyy hh:nn:ss'); Após a alteração a instalação foi feita com sucesso. Segue o PAS corrigido em anexo. Qualquer coisa estou a disposição. Obrigado a todos pela atenção.