Ir para conteúdo
  • Cadastre-se

dev botao

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


acg.net
Ver Solução Respondido por acg.net,
  • Este tópico foi criado há 3394 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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?

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia,

 

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

 

É exatamente igual.

Consultor SAC ACBr

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

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores

Depois do envio tente:

 

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

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

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
  • Solution

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

Link para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.