Duvida nas linha de comendo para salvar XML de dacte autorizado e com eventos.
Só que o xml do procEventoCte não esta sendo salvo.
A Variável "aEvento" não visualizei em nenhuma linha anterior ao "while", por isso não entrada no loop para salvar xml de eventos.
"ACBrCTeWebServices"
// Salva o XML de eventos retornados ao consultar um CT-e
while aEvento <> '' do
begin
Inicio := Pos('<procEventoCTe', aEventos);
Fim := Pos('</procEventoCTe', aEventos) -1;
aEvento := Copy(aEventos, Inicio, Fim - Inicio + 1);
aEventos := Copy(aEventos, Fim + 16, Length(aEventos));
aProcEvento := '<procEventoCTe versao="' + FVersao + '" xmlns="' + ACBRCTE_NAMESPACE + '">' +
SeparaDados(aEvento, 'procEventoCTe') +
'</procEventoCTe>';
Inicio := Pos('Id=', aProcEvento) + 6;
Fim := Inicio + 51;
aIDEvento := Copy(aProcEvento, Inicio, Fim);
if (aProcEvento <> '') then
FPDFeOwner.Gravar( aIDEvento + '-procEventoCTe.xml', aProcEvento, sPathCTe);
end;
No código abaixo existe duplicidade de comando.
Apenas informação.
case InfEvento.tpEvento of
teCCe:
begin
SchemaEventoCTe := schevCCeCTe;
infEvento.detEvento.xCondUso := FEvento.Evento.InfEvento.detEvento.xCondUso;
infEvento.detEvento.xCondUso := FEvento.Evento.InfEvento.detEvento.xCondUso;
Caso esteja correto a linha de comando peço que feche o tópico.