Jump to content

acg.net

Membros Pro
  • Posts

    38
  • Joined

  • Last visited

  • Days Won

    2

Community Answers

  1. acg.net's post in Como Recupero Xml De Envio Para Carta De Correção Cce was marked as the answer   
    Consegui resolver.
    Vou postar aqui o código para quem possa ter o mesmo problema:
     
            bSalvar                                                   := ACBrNFe1.Configuracoes.Geral.Salvar;
            ACBrNFe1.Configuracoes.Geral.Salvar := True;
            ACBrNFe1.EnviarEventoNFe(ibDm.cdCartaCorrecaoCO_LOTE_CC.AsInteger);
            ACBrNFe1.Configuracoes.Geral.Salvar := bSalvar;

            MemoResp.Lines.Text       := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetWS);
            memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetornoWS);

            if Pos('Evento registrado e vinculado a NF-e',MemoResp.Lines.Text) > 0 then
            begin
              // pegando o xml de envio da carta de correcao
              sNomeArquivo := ACBrNFe1.Configuracoes.Geral.PathSalvar +
              SomenteNumeros(ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.id) + '-procEventoNFe.xml';

              cdCartaCorrecao.Edit;
              cdCartaCorrecaoTX_ARQUIVO_XML.LoadFromFile(sNomeArquivo);

              cdCartaCorrecaoDS_PATH_ARQUIVO_XML.AsString := sNomeArquivo;
              cdCartaCorrecao.Post;

              Application.MessageBox('Carta de correção registrada e vinculada a NF-e!', 'ATENÇÃO',
                MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON2);

            end
×
×
  • 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.