DistribuicaoDfe por Chave de Acesso

[Juliomar Marchetti]

1 hora atrás, SisComp - Proc. de Dados disse:

Após atualizar os fontes do acbr hoje o serviço voltou a funcionar normalmente, o único problema é que está dando muita a mensagem de Inativo ou Inoperante, dai o usuário aguarda cerca de 5 segundos e manifesta novamente, ai dá certo.

Sobre o download, as vezes consegue fazer de imediato após manifestar a nfe, em outros casos tem que esperar 30 segundos.

Pode relatar somente em um local as regras do fórum servem para todos

 

[SisComp - Proc. de Dados]

13 minutos atrás, Juliomar Marchetti disse:

Pode relatar somente em um local as regras do fórum servem para todos

Me desculpe por ter citado o que fiz para resolver o problema, como estava acompanhando problemas parecidos, achei interessante informar o que fiz para resolver.

da próxima vez informo em apenas um lugar.

 

[Renildo Campos]

Em 30/08/2017 at 13:53, Renyldo Campos Pereira disse:

Boa tarde a todos. Estava com meu sistema importando notas normalmente até a presente data. Hoje quando fui efetuar downloads pela chave simplesmente da o erro "ARGUMENT OUT OF RANGE". esse erro é apresentado logo apos pedir o certificado e executar  metodo ACBrNFe1.DistribuicaoDFePorChaveNFe.

Segue código abaixo.

 

with ACBrNFe1.EventoNFe.Evento.Add do
begin
 InfEvento.cOrgao   := 91;
 infEvento.chNFe    := trim(DBEdit26.Text);
 infEvento.CNPJ     := frmmodulo.qrFilialCNPJ.asstring;
 infEvento.dhEvento := now;
 infEvento.tpEvento := teManifDestConfirmacao;
 manifesto := true;
end;
 ACBrNFe1.EnviarEvento(StrToInt(IDLote));
end;
       //Aqui da o erro    ACBrNFe1.DistribuicaoDFePorChaveNFe(N_UF, sCNPJ, dbedit26.Text);
           sXML := ACBrNFe1.NotasFiscais.Items[0].NomeArq;
 

Se alguém poder me dar uma força, agradeço!!!! Vlw!!

 

ACBrNFe1.DistribuicaoDFePorChaveNFe(N_UF, sCNPJ, dbedit26.Text);

Existe algum método pra pegar o retorno da função acima? Caso ocorra algum erro e não baixe a NFe?

[Jose Torres]

uNITS 

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, OleCtrls, SHDocVw,
  ACBrNFe, pcnConversao,pcnConversaoNFe ,ACBrNFeDANFEClass, ACBrUtil,
  Grids, DBGrids, DB, ADODB, ACBrBase, ACBrDFe , ACBrNFeWebServices, pcnDownloadNFe;

 ACBrNFe1.DistribuicaoDFePorChaveNFe(ACBrNFe1.Configuracoes.WebServices.UFCodigo,sonum(dm.TabParamCGC.AsString),vchave);
  with ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt do
  begin
    if cStat = 138 then
    begin
      for i := 0 to docZip.Count - 1 do
      Begin
        if docZip.Items.schema = schprocNFe then //verifica se o arquivo é o XML da NFe (-nfe.xml)  ====> ERRO DOCZIP.ITEMS. ( [Error] Unnfe.pas(436): '[' expected but '.' found
        begin
          XML := docZip.Items.XML;
          ArqXML := TStringStream.Create(XML);
          XMLDocument1.LoadFromStream(ArqXML);
          XMLDocument1.Active;
          XMLDocument1.SaveToFile(ACBrNFe1.Configuracoes.Arquivos.PathSalvar+'AJE'+VCHAVE+'-nfe.xml);
        end;
      end;
    end
  end;

Tudo atuaizado falta alguma coisa que não estou vendo?

[BigWings]

1 hora atrás, Jose Torres disse:

        if docZip.Items.schema = schprocNFe then //verifica se o arquivo é o XML da NFe (-nfe.xml)  ====> ERRO DOCZIP.ITEMS. ( [Error] Unnfe.pas(436): '[' expected but '.' found

Faltou informar o índice para acessar o item:

if docZip.Items[i].schema = schprocNFe then

 

[Jose Torres]

Vlw , obrigado 

13 horas atrás, BigWings disse:

Faltou informar o índice para acessar o item:

if docZip.Items[i].schema = schprocNFe then

 

 

[barrys]

Agora, Jose Torres disse:

uNITS 

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, OleCtrls, SHDocVw,
  ACBrNFe, pcnConversao,pcnConversaoNFe ,ACBrNFeDANFEClass, ACBrUtil,
  Grids, DBGrids, DB, ADODB, ACBrBase, ACBrDFe , ACBrNFeWebServices, pcnDownloadNFe;

 ACBrNFe1.DistribuicaoDFePorChaveNFe(ACBrNFe1.Configuracoes.WebServices.UFCodigo,sonum(dm.TabParamCGC.AsString),vchave);
  with ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt do
  begin
    if cStat = 138 then
    begin
      for i := 0 to docZip.Count - 1 do
      Begin
        if docZip.Items.schema = schprocNFe then //verifica se o arquivo é o XML da NFe (-nfe.xml)  ====> ERRO DOCZIP.ITEMS. ( [Error] Unnfe.pas(436): '[' expected but '.' found
        begin
          XML := docZip.Items.XML;
          ArqXML := TStringStream.Create(XML);
          XMLDocument1.LoadFromStream(ArqXML);
          XMLDocument1.Active;
          XMLDocument1.SaveToFile(ACBrNFe1.Configuracoes.Arquivos.PathSalvar+'AJE'+VCHAVE+'-nfe.xml);
        end;
      end;
    end
  end;

Tudo atuaizado falta alguma coisa que não estou vendo?

 

utilizo o mesmo procedimento..  mas nao me retorna o XML...

as vezes sim... mas na maioria das vezes nao.

O que posso fazer para resolver?

[Renyldo Campos Pereira]

Em 20/04/2018 at 11:06, barrys disse:

 

utilizo o mesmo procedimento..  mas nao me retorna o XML...

as vezes sim... mas na maioria das vezes nao.

O que posso fazer para resolver?

As vezes acontece de não retornar mesmo. Mas no ultimo mes não estou tendo problemas.