Erro ao Tentar instalar projeto ACBrInstall_Trunk2 (ACBrNFeDANFEFRDM.pas)

[tdpsistemas]

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.

 

 

 

 

Editado 3 Novembro, 2017 por tdpsistemas

[tdpsistemas]

3 minutos atrás, tdpsistemas disse:

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.

 

 

 

 

Pessoal me desculpe acabei subindo o tópico, mas o mesmo já foi corrigido na Revisão abaixo:

Revision: 14084
Author: hleorj
Date: sexta-feira, 3 de novembro de 2017 10:08:47
Message:
-- ACBrNFeDANFEFRDM --
[*] Ajuste para apresentar data de recebimento em Delphi 7 
        por: BigWings

----
Modified : /trunk2/Fontes/ACBrDFe/ACBrNFe/DANFE/NFe/Fast/ACBrNFeDANFEFR-change-log.txt
Modified : /trunk2/Fontes/ACBrDFe/ACBrNFe/DANFE/NFe/Fast/ACBrNFeDANFEFRDM.pas

Obrigado a todos pela atenção.

 

[Juliomar Marchetti]

Bom dia

 

[tdpsistemas]

3 minutos atrás, Juliomar Marchetti disse:

Bom dia

 

OK

Obrigado!