Jump to content

dev botao

Xml Carta De Correção


Go to solution Solved by Italo Giurizzato Junior,
  • Este tópico foi criado há 3693 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Olá

 

gostaria de saber como gerar o xml da carta de correção

com a tag <detevento> comforme o anexo 1

 

pois depois que envio e gero o xml retornado gera apenas como o

segundo anexo.

 

o cliente não quer aceitar o segundo anexo, mas na minha opinião é mais valido que

o primeiro pois mostra o vinculo à nfe, mas sabe como é.

 

grato por sua atenção.

 

ps: anexo 1 XMl de uma carta de correção - Exemplo

      anexo 2 CORRECAO1_12184.XML

XML de uma Carta de Correção - Exemplo (1).xml

CORRECAO1_12184.XML

Link to comment
Share on other sites

  • Consultores

Boa tarde jbaneto,

 

O primeiro XML é simplesmente o envio ou seja a solicitação, no caso de uma correção.

 

Por outro lado o segundo trata-se do retorno da SEFAZ acusando o registro do mesmo e a vinculação a NF-e.

 

Se você utiliza o componente ACBrNFe, existe um terceiro arquivo chamado *-procEventoNFe.xml

 

Este XML contem a solicitação e o retorno, ou seja os dois que você postou em um só.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Consultores
  • Solution

jbaneto,

 

O *-procEventoNFe.xml é salvo se:

 

Configuracoes.Geral.Salvar for igual a True

 

ou

 

Configuracoes.Arquivos.Salvar for igual a True

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Membros Pro

Olá

 

eu vou ver então porque salvo o mesmo da seguinte forma:

 

    ACBrNFe1.Configuracoes.Geral.Salvar       := True;
    ACBrNFe1.Configuracoes.Geral.PathSalvar   := ccepasta;    //'c:\nfecorrecao';
  with ACBrNFe1.CartaCorrecao.CCe.Evento.Add do
   begin
     infEvento.chNFe := Chave;
     infEvento.cOrgao := StrToInt(codOrgao);
     infEvento.CNPJ   := CNPJ;
     infEvento.dhEvento := dmDados.cds_P_DataHoraDATA_HORA.AsDateTime;
     infEvento.tpEvento := 110110;
     infEvento.tpAmb := taProducao;
     infEvento.nSeqEvento := StrToInt(nSeqEvento);
     infEvento.versaoEvento := '1.00';
     infEvento.detEvento.versao := '1.00';
     infEvento.detEvento.descEvento := 'Carta de Correcao';
     infEvento.detEvento.xCorrecao := Correcao;
     infEvento.detEvento.xCondUso := memoxcond.Text;
   end;
  ACBrNFe1.EnviarCartaCorrecao(StrToInt(idLote));
  MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.CartaCorrecao.RetWS);
  memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.CartaCorrecao.RetornoWS);
  LoadXML(MemoRespWS, WBResposta);
//
   with _frmPrincipal do
   begin
     if (uppercase(edServidor) = 'LOCALHOST') then
     begin
         Salvar := copy(edPath,1,7)+'\XMLCorrecao\'+'CORRECAO'+trim(edSerieE.Text)+'_'+trim(dmDados.cdsNFiscaisNF1_NFNUMERO.AsString)+'.XML';
         SalvarPasta := copy(edPath,1,7)+'\XMLCorrecao\';
         ccePasta := copy(edPath,1,7)+'\XMLCorrecao';
     end
     else
     begin
       Salvar := '\\'+trim(edServidor)+'\XMLCorrecao\'+'CORRECAO'+trim(edSerieE.Text)+'_'+trim(dmDados.cdsNFiscaisNF1_NFNUMERO.AsString)+'.XML';
       SalvarPasta := '\\'+trim(edServidor)+'\XMLCorrecao\';
       ccePasta := '\\'+trim(edServidor)+'\XMLCorrecao';
     end;
   end;

   SaveDial.FileName := Salvar;
//  if SaveDial.Execute then
//  begin
     AssignFile(Fsaida, SaveDial.Filename);
     Rewrite(Fsaida);
     Write(Fsaida, MemoRespWS.Text);
     CloseFile(Fsaida);
 // end;
    ACBrNFe1.Configuracoes.Geral.Salvar       := False;
    ACBrNFe1.Configuracoes.Geral.PathSalvar   := '';

e o que vem é somente o anexo 2;

 

grato pela atenção

Link to comment
Share on other sites

  • Consultores

Por favor, se é uma dúvida diferente do tópico inicial, queira criar um tópico novo.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
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...
The popup will be closed in 10 seconds...