[Como conseguir a chave de acesso? (CONTINGÊNCIA "teOffLine")]

3 horas atrás, Juliomar Marchetti disse:

Certo então não poste em todos e aguarde aqui em um único a resposta pra ti.

Usou o exemplo do svn ? se sim como reproduzir ? os passos as configurações, o SO

Não encontrei o exemplo de NFC-e em contingência...

Configurações passo assim, fui vendo em tópicos.

         if frmmodulo.qrconfigpdv.fieldbyname('CONTINGENCIA').asinteger = 1 then
          begin
               Ide.tpEmis := teOffLine;
             Ide.dhCont := date;
             Ide.xJust  := 'Problemas técnicos no envio da nota fiscal do consumidor eletrônico';

             frmmodulo.ACBRNFCe.Configuracoes.Geral.FormaEmissao :=teOffLine ;
             frmmodulo.ACBRDANFENFCe.ViaConsumidor := false;//imprime uma via pro estabelecimanto
             frmmodulo.ACBRDANFENFCe.NumCopias := 2; //imprime duas vias
           end
          else
          begin
               Ide.tpEmis := teNormal;
           end;

 

O resto de todas as configurações são iguais ao exemplo para poder emitir NFC-e normal, porém quando ele entra em modo "teOffLine" ele não gera um XML

[Como conseguir a chave de acesso? (CONTINGÊNCIA "teOffLine")]

Não consigo gerar o xml, e por fim também não a chave de emissão (vi muitos tópicos, porém os mesmos sem resposta)

Obs.: Sem modo de contingência passa normalmente
 

         ACBRNFCe.NotasFiscais.GerarNFe;
         ACBRNFCe.NotasFiscais.Assinar;
          ACBRNFCe.NotasFiscais.Validar;
          cStatus := 0;
          ChaveNFCE := ACBRNFCe.NotasFiscais.Items[0].NFe.infNFe.Id;
          NumeroNFCe := strtoint(vAux);
 

     ACBRDANFENFCe.FastFile := 'C:\SISTEMA\PDV\Schemas\DANFeNFCe.fr3';
      if FileExists(frmPrincipal.LerINi(sConfiguracoes, 'PDV',
        'CAMINHO_LOGO', '')) then
        ACBRDANFENFCe.Logo := frmPrincipal.LerINi(sConfiguracoes, 'PDV',
          'CAMINHO_LOGO', '');
      ACBRDANFENFCe.Detalhado := true;
      ACBRDANFENFCe.vTroco := ed_troco.value;

      ACBRDANFENFCe.Impressora := edImpressora;
      ACBRDANFENFCe.DescricaoViaEstabelec := edDescEsta;
      ACBRDANFENFCe.EspessuraBorda := edMargem;
      ACBRDANFENFCe.MargemDireita := edMargDir;
      ACBRDANFENFCe.MargemEsquerda := edMargEsq;
      ACBRDANFENFCe.MargemSuperior := edMargSup;
      ACBRDANFENFCe.MargemInferior := edMarginf;
      ACBRDANFENFCe.MostrarPreview := edPreview;
      ACBRNFCe.NotasFiscais.Imprimir;
      ACBRNFCe.NotasFiscais.clear;
 

 

[Nfc-E Em Contingencia]

Em 24/04/2016 at 12:14, Ess disse:

Olá Italo Boa Tarde Muito Obrigado por me ajudar!! Por favor desconsidere o post anterior não sei como edita-lo.

Tinha me esquecido do consumo indevido vou arrumar aqui.

Mas tenho algumas dúvidas:

Sobre a consulta estou fazendo dessa forma:

ACBrNFE1.WebServices.Consulta.NFeChave :=ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe;

Mas acontece que possui outra forma de consultar que seria ACBrNFe1.Consultar(chave), qual o método correto?

Depois de executar o método enviar em caso de retorno de erro e dessa forma que obtenho  a chave ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe ? Ou existe outra forma?

Estou usando fazendo a consulta dessa forma ACBrNFE1.WebServices.Consulta.NFeChave se nota estiver tudo ok na sefaz então terei o retorno do protocolo autorizado dessa forma: ACBrNFe1.WebServices.consulta.Protocolo ?

Caso retorne vazio estou tentando reenviar em caso de negativa novamente então mudo para forma offline:

ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.Configuracoes.Geral.FormaEmissao:= teOffLine;
ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310;
GerarNFCe(vnumnfce,vnumserienfce);
ACBrNFe1.NotasFiscais.GerarNFe;
ACBrNFe1.NotasFiscais.Validar;
ACBrNFe1.NotasFiscais.Imprimir;

Ele gera o xml corretamente e imprimi em modo contingencia tudo certo.

Ae vem 2 dúvidas:

Como faço pra obter a chave quando e gerado na forma de emissão offline?

Estou tentando dessa forma ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe mas me retorna vazio. Qual a forma correta?

Pode ser assim Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44)?

E por fim no caso de gerar um novo xml na forma offline esta ficnado 2 xmls gerados pra um mesmo cupom pois além da forma offline fica na pasta o que gerado na forma normal, será pq estou usando ACBrNFe1.NotasFiscais.Clear? Se eu tirar ele nesse caso do offline ele vai sobrepor o xml gerado na forma normal?

Mais uma vez Muito Obrigado pela Ajuda e Atenção!!!

Também estou com esse problema, conseguiu resolver? Pode dizer como?

[Recuperar Chave Da Nfc-E Em Emitida Em Contingência]

Estou com o mesmo problema, como conseguiu resolver? GERO A NOTA EM CONTIGÊNCIA, MAS NÃO VEM A CHAVE DE ACESSO

[Dúvidas Sobre Acbr Delphi 7 Para Nfce]

alguem pode me passar um exemplo para implantar nfce no meu projeto delphi 7 todos que ja peguei nao funcionam!

procedure TFrmPadraoPafECf.BematechNFCEClick(Sender: TObject);
begin
Application.CreateForm(TUBemaNFCe, UBemaNFCe);
   UBemaNFCe.showmodal;
end;

end.

 

como e que eu declaro aqui pra imprimir nfce??

[Dúvidas Sobre Acbr Delphi 7 Para Nfce]

Pode me mandar o link para o download do ACBR atualizado com NFC-e

 

[Dúvidas Sobre Acbr Delphi 7 Para Nfce]

Alguem pode me ajudar implantar acbr nfce