Peço a ajuda dos colegas
Usa A NFe a um ano tudo Ok
Estou implementando a CCe fiz o envio, tudo certo.
Não consigo salvar o XML da CCe e não alterou o XML da NFe correspondente
segue o codigo:
DM.ACBrNFe1.EnvEvento.EnvEventoNFe.Evento.Clear;
DM.ACBrNFe1.EnvEvento.EnvEventoNFe.idLote := StrToInt(VirtualQryNFeNRO_NF.AsString);//idLote
with DM.ACBrNFe1.EnvEvento.EnvEventoNFe.Evento.Add do
begin
infEvento.chNFe := Copy(VirtualQryNFeCHAVE_NFE.AsString,4, Length(VirtualQryNFeCHAVE_NFE.AsString));
infEvento.CNPJ := QryLojaCNPJ.AsString;
infEvento.dhEvento := now;
infEvento.tpEvento := teCCe;
infEvento.nSeqEvento := StrToInt(nSeqEvento);
infEvento.detEvento.xCorrecao := Correcao;
end;
DM.ACBrNFe1.EnviarEventoNFe(StrToInt(VirtualQryNFeNRO_NF.AsString));//idLote
MemoResp.Lines.Text := UTF8Encode(DM.ACBrNFe1.WebServices.EnvEvento.RetWS);
memoRespWS.Lines.Text := UTF8Encode(DM.ACBrNFe1.WebServices.EnvEvento.RetornoWS);
//DM.ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.XML;
LoadXML(MemoResp, WBResposta);