Mas está configurado conforme abaixo:
ACTe.EventoCTe.Evento.Clear;
with ACTe.EventoCTe.Evento.Add do
begin
infEvento.nSeqEvento := 1;
InfEvento.cOrgao := StrToInt(Copy(sChave,1,2));
infEvento.tpAmb := taProducao;
infEvento.chCTe := sChave;
infEvento.CNPJ := TUtils.ValidaCFPCNPJ(sCNPJ);
infEvento.dhEvento := now;
if cbbManifesto.ItemIndex = 0 then
begin
infEvento.tpEvento := tePrestDesacordo;
infEvento.detEvento.xOBS := Trim(edtJustificativa.Text);
sManifestacao := 'SERVICO EM DESACORDO';
end
else
infEvento.tpEvento := teManifDestConfirmacao;
end;
try
ACTe.Configuracoes.Geral.VersaoDF := pcteConversaoCTe.ve400;
ACTe.Configuracoes.Geral.Salvar := True;
ACTe.Configuracoes.Arquivos.Salvar := True;
ACTe.Configuracoes.Arquivos.PathSalvar := sDiretorio;
ACTe.Configuracoes.WebServices.UF := TUtils.UF(StrToInt(Copy(sChave,1,2)));
ACTe.EnviarEvento(iNumeroLote);
except
on E: Exception do
begin
if Pos('CARREGADA', UpperCase(E.Message)) = 0 then
begin
TUtils.ExibeMensagem(btrOk, E.Message, btfOk, Application.Title, tmErro);
Inc(iErros);
Exit;
end;
end;
end;