Como Recupero Xml De Envio Para Carta De Correção Cce

[acg.net]

Bom dia a todos

 

Antes eu usava o seguinte código para recuperar o XML da carta de correção

 

UTF8Encode(ACBrNFe1.CartaCorrecao.CCe.Evento[x].InfEvento.WebServices.EnvioWebService.XMLEnvio);

 

Observei que foram feitas algumas adequações quanto à padronização do componente e essa forma antiga não funciona mais.

 

Como posso obter o XML de envio da CCe no novo formato do componente?

[Italo Giurizzato Junior]

Bom dia,

 

Como você faz para obter o XML de envio de um Cancelamento?

 

É exatamente igual.

[acg.net]

Bom dia Italo.

 

Obrigado pela resposta.

 

Na obtenção do XML de cancelamento estou tendo o mesmo problema.

 

Não consigo encontrar um método que me retorne o XML enviado.

[Italo Giurizzato Junior]

Depois do envio tente:

 

sXML := UTF8Encode(ACBrNFe1.WebServices.EnvioWebService.XMLEnvio);

[acg.net]

Boa tarde Italo.

 

Obrigado pela ajuda.

 

Com o comando acima ainda não retorna o xml.

 

Só pra entender o que estou fazendo segue o bloco do código do envio da cce:

 

 

[acg.net]

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