Erro AcbrNfe_demo

[Ronan Amaral]

Estou tentando testar o AcbrNfe_demo no delphi Xe2, mas quando clico na opção Status de Serviço dá um erro de runtime ( ACBrNFe1.WebServices.StatusServico.Executar), e percebi que em todo o comando que possua o componente (ACBrNFe1...) também da erro.

 

Alguém poderia me ajudar?

[Sérgio Assunção]

Ao abrir o projeto você depara com algum erro?

[Ronan Amaral]

Sim, quando passa pelo componente ACBrNFe1.

quando da leitura dos parâmetros de configuração.

Editado 22 Agosto, 2017 por Ronan Amaral

[Sérgio Assunção]

Pode descrever o erro ou anexar uma imagem ?

[Ronan Amaral]

Caro Sérgio o erro é de execução conforme imagem abaixo...

 

Voce está conseguindo ver?

 

procedure TForm1.btnStatusServClick(Sender: TObject);
begin
 ACBrNFe1.WebServices.StatusServico.Executar;   <= logo assim que executo essa linha

 MemoResp.Lines.Text := ACBrNFe1.WebServices.StatusServico.RetWS;
 memoRespWS.Lines.Text := ACBrNFe1.WebServices.StatusServico.RetornoWS;
 LoadXML(ACBrNFe1.WebServices.StatusServico.RetornoWS, WBResposta);

 pgRespostas.ActivePageIndex := 1;

 MemoDados.Lines.Add('');
 MemoDados.Lines.Add('Status Serviço');
 MemoDados.Lines.Add('tpAmb: '    +TpAmbToStr(ACBrNFe1.WebServices.StatusServico.tpAmb));
 MemoDados.Lines.Add('verAplic: ' +ACBrNFe1.WebServices.StatusServico.verAplic);
 MemoDados.Lines.Add('cStat: '    +IntToStr(ACBrNFe1.WebServices.StatusServico.cStat));
 MemoDados.Lines.Add('xMotivo: '  +ACBrNFe1.WebServices.StatusServico.xMotivo);
 MemoDados.Lines.Add('cUF: '      +IntToStr(ACBrNFe1.WebServices.StatusServico.cUF));
 MemoDados.Lines.Add('dhRecbto: ' +DateTimeToStr(ACBrNFe1.WebServices.StatusServico.dhRecbto));
 MemoDados.Lines.Add('tMed: '     +IntToStr(ACBrNFe1.WebServices.StatusServico.TMed));
 MemoDados.Lines.Add('dhRetorno: '+DateTimeToStr(ACBrNFe1.WebServices.StatusServico.dhRetorno));
 MemoDados.Lines.Add('xObs: '     +ACBrNFe1.WebServices.StatusServico.xObs);
end;

 

 

 

 

 

Editado 22 Agosto, 2017 por Ronan Amaral

[BigWings]

25 minutos atrás, Ronan Amaral disse:

Estou tentando testar o AcbrNfe_demo no delphi Xe2, mas quando clico na opção Status de Serviço dá um erro de runtime ( ACBrNFe1.WebServices.StatusServico.Executar), e percebi que em todo o comando que possua o componente (ACBrNFe1...) também da erro.

 

Alguém poderia me ajudar?

Tente acrescentar a unit MidasLib ao uses do dpr.

[Ronan Amaral]

adicionei e continuou o mesmo erro.

[Sérgio Assunção]

Recompile o pacote ACBr_NFe.dpk e tente novamente.

Se não der certo, atualize o seu ACBr e faça novamente a instalação usando o ACBrInstall_Trunk2 marcando a opção para remover os arquivos antigos.

Poste aqui o resultado.

[Ronan Amaral]

Caro Sérgio, fiz tudo como solicitado, porem continua com o mesmo erro.

para tentar ilustrar mais, coloco o tag para parar nessa instrução, e quando teclo F7 para entrar na rotina para debugar , já dá o erro.

 

Editado 22 Agosto, 2017 por Ronan Amaral

[Sérgio Assunção]

6 minutos atrás, Ronan Amaral disse:

Caro Sérgio, fiz tudo como solicitado, porem continua com o mesmo erro.

Registrou as dlls ?

Copie a midas.dll para a pasta do executavel (é só mais uma alternativa)

[Ronan Amaral]

coloquei e também não funcionou. Registrei apenas a midas.dll, tem outras?

Editado 22 Agosto, 2017 por Ronan Amaral

[FlorySoftT]

Pessoal onde posso conseguir o acbrnfe_demo para simular umas operações com a NFE 4.0 

 

[BigWings]

5 horas atrás, FlorySoftT disse:

Pessoal onde posso conseguir o acbrnfe_demo para simular umas operações com a NFE 4.0

Está na pasta Exemplos dos fontes.