Colaboração - Erro encontrado na pcnSATConsultaRet

dimom · 11 Agosto, 2022

Estou usando a consulta de lote de SAT e quando o XML não tem a Tag QtdeCupoms

acbr\Fontes\ACBrDFe\ACBrSATWS\PCNSATWS\pcnSATConsultaRet.pas

Erro: FLote[i].QtdeCupoms := Leitor.rCampo(tcStr, 'QtdeCupoms');

Correção: FLote[i].QtdeCupoms := StrtoIntDef(Leitor.rCampo(tcStr, 'QtdeCupoms'), 0);

XML exemplo que não contem a Tag QtdeCupoms:

<Lote>
<NRec>350160818000163456600</NRec>
<dhEnvioLote>20160818164209</dhEnvioLote>
<dhProcessamento />
<TipoLote>Movimento</TipoLote>
<Origem>Autom⵩co (Transmitido via WebService)</Origem>
<SituacaoLote>Lote Inv⭩do</SituacaoLote>
<InfCfe />
</Lote>

Segue em anexo a pcnSATConsultaRet.pas completa

pcnSATConsultaRet.pas