Ir para conteúdo
  • Cadastre-se

dev botao

Erro ao Tentar instalar projeto ACBrInstall_Trunk2 (ACBrNFeDANFEFRDM.pas)


Ver Solução Respondido por Juliomar Marchetti,
  • Este tópico foi criado há 2338 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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 por tdpsistemas

Atenciosamente,

 

 Assinatura.png

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
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.

 

Atenciosamente,

 

 Assinatura.png

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2338 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.