Correção Consultaloterps

[Roberto.Godinho]

Boa tarde,

 

Estou anexando os fontes alterados do arquivo "pnfsConsLoteRpsResposta.pas", adicionei algumas correções para o provedor Betha que estavam ficando com status normal quando no arquivo xml retornado estavam cancelados.

 

Já havia feito as correções para outras consultas mas havia de certa forma esquecido esta.

 

Bloco alterado.

          if Leitor.rExtrai(iNivel + 3, 'NfseCancelamento') <> ''
           then begin
            ListaNfse.FCompNfse[i].NFSe.NfseCancelamento.DataHora := Leitor.rCampo(tcDatHor, 'DataHora');
            // provedor Betha sempre retorna a o grupo "NfseCancelamento" mesmo não estando cancelada,
            // o cancelamento deverá ser verificado na TAG especifica
            // Incluido por Roberto Godinho 21/11/2013
            if FProvedor = proBetha
             then begin
              Leitor.rExtrai(4,'InfConfirmacaoCancelamento');
              if StrToBool(Leitor.rCampo(tcStr, 'Sucesso'))
               then begin
                ListaNfse.CompNfse[i].NFSe.Status := srCancelado;
                ListaNfse.CompNfse[i].NFSe.NfseCancelamento.DataHora := Leitor.rCampo(tcDatHor, 'DataHora');
               end;
             end else
              begin
                // Incluido por Mauro Gomes
                // se não encontrou o campo DataHora, deve procurar pelo DataHoraCancelamento
                if (ListaNfse.FCompNfse[i].NFSe.NfseCancelamento.DataHora = 0) then
                   ListaNfse.FCompNfse[i].NFSe.NfseCancelamento.DataHora := Leitor.rCampo(tcDatHor, 'DataHoraCancelamento');
              end;
           end;

Agradeço se alguem puder subir ao SVN estas correções.

 

 

Em anexo esta os fontes juntamento com o arquivo XML de retorno.

 

pnfsConsLoteRpsResposta.rar

[Italo Giurizzato Junior]

Boa tarde Roberto,

 

Já esta disponivel, muito obrigado pela colaboração.

[Roberto.Godinho]

Q nada Italo, a gente que tem que agradecer pelo comprometimento seu.

 

Obrigado.