Eu atualizei os schemas puxando da pasta " Acbr\Exemplos\ACBrDFe\Schemas\ ", mas continua dando erro codigo 493.
Segue abaixo parte da codificação, se poderem me auxiliar.... Obrigado.
numeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW));
// preenchimento dos dados da carta de correção
x.NFe.EventoNFe.Evento.Clear;
x.NFe.EventoNFe.idLote := numeroLote;
with x.NFe.EventoNFe.Evento.Add do
begin
// infEvento.chNFe := ;
// infEvento.CNPJ := x.CNPJ;
infEvento.dhEvento := NOW;
infEvento.tpEvento := teCCe;
infEvento.nSeqEvento := StrToInt(edSequenciaCCe.Text) + 1;
infEvento.detEvento.xCorrecao := memoCCe.Text;
end;
// envio da carta de correção
if x.NFe.EnviarEvento(numeroLote) then
begin
with x.NFe.WebServices.EnvEvento do
begin
if not(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat in [135, 136])
then
begin
raise EDatabaseError.CreateFmt
('Ocorreu o seguinte erro ao enviar a carta de correção:' + sLineBreak
+ 'Código:%d' + sLineBreak + 'Motivo: %s',
[EventoRetorno.retEvento.Items[0].RetInfEvento.cStat,
EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo]);
end;