Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

acg.net

Membros Pro
 Perfil  Explorar Conteúdo

  • Total de ítens

    39

  • Registro em

  • Última visita

  • Days Won

    2

Community Answers

  1. acg.net
    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
×
×
  • 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.

The popup will be closed in 10 segundos...