Carta de correção eletrônica

[diego.dariolli]

Oi galera,

Alterei a seguinte linha do método executar da carta de correção:

// Result := (CCeRetorno.cStat = 128) or (CCeRetorno.cStat = 135) or (CCeRetorno.cStat = 136);

Result := False;

with CCeRetorno.retEvento do

for I := 0 to Count - 1 do

begin

Result := (Items.RetInfEvento.cStat = 128) or (Items.RetInfEvento.cStat = 135) or (Items.RetInfEvento.cStat = 136);

if not Result then

begin

FcStat := Items.RetInfEvento.cStat;

FxMotivo := Items.RetInfEvento.xMotivo;

FMsg := Items.RetInfEvento.xMotivo;

FTpAmb := Items.RetInfEvento.tpAmb;

Break;

end;

end;

O que ocorria é que não retornava erro no evento, pois estava pegando status do cabeçalho e sempre voltava correto. Porém é necessário checar o status de cada evento para saber se há erros.

Segue em anexo o .pas. Se não for persistente o que estou dizendo ou se houver uma outra maneira de fazer isso estou no aguardo.

Valeu.

ACBrNFeWebServices.pas