Como capturar o TACBrTipoOcorrencia pelo Retorno Web ?

[luciano_f]

Quando executo o comando:

    FiltrosAPI := AcbrCobranca.Configuracoes.WebService.Filtro;
    FiltrosAPI.Clear;
    FiltrosAPI.indicadorSituacao := isbBaixado;
    FiltrosAPI.dataMovimento.DataInicio := Ed_DataBWS1.Date;
    FiltrosAPI.dataMovimento.DataFinal := Ed_DataBWS2.Date;
    FiltrosAPI.indiceContinuidade := 0;
    AcbrCobranca.Configuracoes.WebService.Operacao := tpConsulta;
    AcbrCobranca.Enviar;
    
    Retorno := AcbrCobranca.ListaConsultaRetornoWeb;
    if Retorno.Count > 0 then begin

     for I := 0 to Pred(Retorno.Count) do begin
       SLRetorno.Add('Codigo Estado Titulo Cobranca = ' + Retorno[I].DadosRet.TituloRet.codigoEstadoTituloCobranca);
       SLRetorno.Add('Estado Titulo Cobranca      = ' + Retorno[I].DadosRet.TituloRet.estadoTituloCobranca);
     End;

 Eu não sei como saber:

   OcorrenciaOriginal.Tipo  //  da classe "TACBrTipoOcorrencia"

 

Quando a leitura é por arquivo Remessa o componente faz algo assim:     

procedure TACBrBancoSantander.LerRetorno400(ARetorno: TStringList);
Begin
OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(StrToIntDef(copy(Linha,109,2),0));

 

No aquivo retorno WS tem o codigo:

function TRetornoEnvio_Santander_API.RetornaCodigoOcorrencia(pSituacaoGeralBoleto: string) : String;
var
LSituacao : string;
begin
  LSituacao := AnsiUpperCase(pSituacaoGeralBoleto);
  if (LSituacao  = 'ATIVO') then
    Result := '02'
  else if (LSituacao  = 'LIQUIDADO') then
    Result := '06'
  else if (LSituacao  = 'BAIXADO') then
    Result := '09'
  else
    Result := '99';
end;

porém esse codigo assima não refrete todos os tipos de ocorrencias da classe "TACBrTipoOcorrencia"

Editado 28 Março por luciano_f
descrição errada

[Juliomar Marchetti]

sim porque nem todas tem nesse banco .

poderia verificar junto ao manual