Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

  • Moderadores
Postado
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

 

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

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

 

  • Curtir 1
  • 2 meses depois ...
Postado
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?

  • 2 meses depois ...
Postado

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?

  • Moderadores
Postado
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

 

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

  • 2 semanas depois ...
Postado
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?

  • 2 semanas depois ...
Postado
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.

  • Este tópico foi criado há 2403 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.