Jump to content

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

Recommended Posts

  • Membros Pro

certo blz, mais uma

 

estou usando assim para off

 

 

 

  ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
  GerarNFCeOFF(vAux);

  ACBrNFe1.NotasFiscais.Assinar;

  ACBrNFe1.NotasFiscais.Valida;

 

 

ate ai blz

 

quando envio

 

    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

  vNumLote:= '1';

ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
  ACBrNFe1.Enviar(vNumLote,True,True);

 

 

 

DA ESSE ERRO

 

Ambiente : 2
Versão Aplicativo : 3.00
Status Código : 716
Status Descrição : Rejeicao: NFC-e em operacao nao destinada a consumidor final
UF : MT
dhRecbto : 06/11/2013 12:35:41
chNFe : 51131103953552000102650010000000089000000083

 

 

 

vi que tem as opcoes

     Ide.indFinal  := cfConsumidorFinal;
     Ide.indPres   := pcPresencial;

 

tenho que muda quando for OFF ?

Edited by hetoandrade
Link to comment
Share on other sites

  • Membros Pro

Usei esses mesmo dados na nota 7

no nodo normal  que envia direto,

e deu certo.

 

----depois----

 

verdade fiz a nota 9 com

Prod.CFOP     := '5102'; //'5101';

 

e deu certo, so na hora de  IMPRIMIR DANFE da erro

Sabendo que nem vou usar o danfe que vem pos é A4,

mais so pra saber porque da erro quando é tipo teOffLine;

 

 

 

  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*-nfe.XML';
  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
    if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then
     begin
       ACBrNFe1.WebServices.ConsultaDPEC.NFeChave := ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID;
       ACBrNFe1.WebServices.ConsultaDPEC.Executar;
       ACBrNFe1.DANFE.ProtocoloNFe := ACBrNFe1.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(ACBrNFe1.WebServices.ConsultaDPEC.dhRegDPEC);
     end;
    ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
    ACBrNFe1.NotasFiscais.Imprimir;
  end;

 

 

pos a nfc-e 7 que foi feito normal sem off

a funcao imprimir danfe funciona

erro

51131103953552000102650010000000089000000083-nfe.xml

Edited by hetoandrade
Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...