Correção da Implementação da operação tpConsultaDetalhe, API V2 do Sicredi

[I3 SISTEMAS]

Olá pessoal!

foi Implementado a operação tpConsultaDetalhe para o Banco Sicredi API V2.

porem tem um erro na classe que impede de retorna algumas informação da liquidação por não cai na condição CodigoEstadoTituloCobranca = 6

são elas:

ARetornoWS.DadosRet.TituloRet.ValorPago      
ARetornoWS.DadosRet.TituloRet.ValorMoraJuros 
ARetornoWS.DadosRet.TituloRet.ValorAbatimento
ARetornoWS.DadosRet.TituloRet.DataBaixa      
ARetornoWS.DadosRet.TituloRet.ValorDesconto  

veja o trecho dos fontes ACBrBoletoRet_Sicredi_APIV2 na linha 166

function TRetornoEnvio_Sicredi_APIV2.LerRetorno(const ARetornoWS: TACBrBoletoRetornoWS): Boolean;
.
.
.
 if UpperCase(ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca) = ('LIQUIDADO') then
                  ARetornoWS.DadosRet.TituloRet.CodigoEstadoTituloCobranca := '6';
                //Multa/Juros
                ARetornoWS.DadosRet.TituloRet.PercentualMulta        := aJson.Values['valorMulta'].AsNumber;
                ARetornoWS.DadosRet.TituloRet.ValorAbatimento        := aJson.Values['abatimento'].AsNumber;
                ARetornoWS.DadosRet.TituloRet.ValorMoraJuros         := aJson.Values['juros'].AsNumber;
                ARetornoWS.DadosRet.TituloRet.DiasDeProtesto         := aJson.Values['diasProtesto'].AsInteger;
                ARetornoWS.DadosRet.TituloRet.TxId                   := aJson.Values['txId'].AsString;
                ARetornoWS.DadosRet.TituloRet.EMV                    := aJson.Values['codigoQrCode'].AsString;
                ARetornoWS.DadosRet.TituloRet.PercentualMulta        := aJson.Values['valorMulta'].AsNumber;
                if ARetornoWS.DadosRet.TituloRet.CodigoEstadoTituloCobranca = '6' then
                begin
                   ARetornoWS.DadosRet.TituloRet.ValorPago              := AJson.Values['dadosLiquidacao'].AsObject.Values['valor'].AsNumber;
                   ARetornoWS.DadosRet.TituloRet.ValorMoraJuros         := AJson.Values['dadosLiquidacao'].AsObject.Values['juros'].AsNumber;
                   ARetornoWS.DadosRet.TituloRet.ValorAbatimento        := AJson.Values['dadosLiquidacao'].AsObject.Values['abatimento'].AsNumber;
                   ARetornoWS.DadosRet.TituloRet.DataBaixa              := DateSicreditoDateTime(AJson.Values['dadosLiquidacao'].AsObject.Values['data'].AsString);
                   ARetornoWS.DadosRet.TituloRet.ValorDesconto          := AJson.Values['dadosLiquidacao'].AsObject.Values['desconto'].AsNumber;
                end;  
  

 

solicito a alteração dos fontes do ACBrBoletoRet_Sicredi_APIV2 na linha 166 

de: if UpperCase(ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca) = ('LIQUIDADO') then

para: if UpperCase(ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca).Contains(UpperCase('LIQUIDADO')) then

para solucionar o caso.

segue arquivo JSON do retorno em anexo.

 

 

 

ARQUIVO JSON RETORNO SICREDI.txt

[Renato Rubinho]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Alexandre de Paula]

Bom dia @I3 SISTEMAS,
Se possível anexe a unit com as alterações que você realizou, isso ajuda bastante na nossa avaliação.
Obrigado

[I3 SISTEMAS]

bom dia!

segue em anexo unit alterada e testada.

na função 

function TRetornoEnvio_Sicredi_APIV2.LerRetorno(const ARetornoWS: TACBrBoletoRetornoWS): Boolean;

ACBrBoletoRet_Sicredi_APIV2.pas

[Alexandre de Paula]

Obrigado!

Criada a TK-4260 para avaliar a contribuição!

[I3 SISTEMAS]

Opa tem outra correção a fazer quando é um boleto de baixa por solicitação está pegando a campo data da baixa errado.

foi alterado para pega correto 

//alteração
if ARetornoWS.DadosRet.TituloRet.CodigoEstadoTituloCobranca = '7' then
begin
ARetornoWS.DadosRet.TituloRet.DataBaixa              := DateSicreditoDateTime(aJson.Values['dataBaixa'].AsString);
end;

segue fontes alterado e arquivo com Json do retorno

ARQUIVO JSON SICREDI BAIXA.txt ACBrBoletoRet_Sicredi_APIV2.pas

[Alexandre de Paula]

2 horas atrás, I3 SISTEMAS disse:

Opa tem outra correção a fazer quando é um boleto de baixa por solicitação está pegando a campo data da baixa errado.

Obrigado mais uma vez. Quando a contribuição for analisada já vemos todas alterações junto.

 

[Daniel InfoCotidiano]

Primeiramente obrigado pela colaboração.
Subimos uma correção, por favor atualizar os fontes, reinstale o ACBr

[I3 SISTEMAS]

Em 31/07/2023 at 12:01, I3 SISTEMAS disse:

Opa tem outra correção a fazer quando é um boleto de baixa por solicitação está pegando a campo data da baixa errado.

foi alterado para pega correto 

//alteração
if ARetornoWS.DadosRet.TituloRet.CodigoEstadoTituloCobranca = '7' then
begin
ARetornoWS.DadosRet.TituloRet.DataBaixa              := DateSicreditoDateTime(aJson.Values['dataBaixa'].AsString);
end;

segue fontes alterado e arquivo com Json do retorno

ARQUIVO JSON SICREDI BAIXA.txt 1 kB · 3 downloads ACBrBoletoRet_Sicredi_APIV2.pas 20.01 kB · 2 downloads

Pessoal boa tarde! foi solicitado essa altera alteração aqui porem a correção não foi realizada corretamente por parte de vocês.

fiz os testes aqui e a função usada na manutenção não é satisfatória peço a correção, caso queira podem acessa minha maquina e analisa o caso, já tinha feito todos os testes em produção agora vou ter que voltar para meus fontes corrigidos.

minha alteração foi usa:     if UpperCase(ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca).Contains(UpperCase('LIQUIDADO')) then
  foi colocado: if (Pos(UpperCase(ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca),'LIQUIDADO') > 0) then      

mas não funcionar, fico a disposição para qualquer informação.

[Daniel InfoCotidiano]

@I3 SISTEMAS
Vou verificar com o time, pois não temos relatos semelhantes.
Lembrando que precisamos manter a compatibilidade com Lazarus e Delphi antigos como Delphi 7.
Te aviso assim que concluirmos os testes.

 

[C4Dev]

Estamos com a mesma situação aqui @Daniel InfoCotidiano

O que ocorre é que no retorno o campo situacao está vindo como 'LIQUIDADO COMPE'.

                //Situação/Código da situação.
                ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca    := UpperCase(aJson.Values['situacao'].asString);

Assim não entra na validação para atribuir o código 6

                if (Pos(UpperCase(ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca),'LIQUIDADO') > 0) then
                  ARetornoWS.DadosRet.TituloRet.CodigoEstadoTituloCobranca := '6';

 

[Daniel InfoCotidiano]

@C4Dev @I3 SISTEMAS

Estou trabalhando nisso, acabei os testes, realmente nao está validando...
Assim q subir para SVN aviso aqui.

[Daniel InfoCotidiano]

@C4Dev @I3 SISTEMAS
Subimos uma correção, podem atualizar os repositórios e rodar o instalador.
Abr !

[C4Dev]

Obrigado pelo retorno @Daniel InfoCotidiano

Para mim está ocorrendo erro nesse bloco, ao passar o valor para o campo ARetornoWS.DadosRet.TituloRet.HoraBaixa

                if ARetornoWS.DadosRet.TituloRet.CodigoEstadoTituloCobranca = '6' then
                begin
                   ARetornoWS.DadosRet.TituloRet.ValorPago              := AJson.Values['dadosLiquidacao'].AsObject.Values['valor'].AsNumber;
                   ARetornoWS.DadosRet.TituloRet.ValorMoraJuros         := AJson.Values['dadosLiquidacao'].AsObject.Values['juros'].AsNumber;
                   ARetornoWS.DadosRet.TituloRet.ValorAbatimento        := AJson.Values['dadosLiquidacao'].AsObject.Values['abatimento'].AsNumber;
                   ARetornoWS.DadosRet.TituloRet.DataBaixa              := DateSicreditoDateTime(AJson.Values['dadosLiquidacao'].AsObject.Values['data'].AsString);
                   ARetornoWS.DadosRet.TituloRet.HoraBaixa              := TimeSicreditoDateTime(aJson.Values['dadosLiquidacao'].AsString);
                   ARetornoWS.DadosRet.TituloRet.ValorDesconto          := AJson.Values['dadosLiquidacao'].AsObject.Values['desconto'].AsNumber;
                end;

Erro:

raised exception class Exception with message '<TJsonValue>"dadosLiquidacao" value type error: jvObject to jvString'.

JSON de como veio o retorno:

{
    "linhaDigitavel": "74891122221013830167507418991076191340000002500",
    "codigoBarras": "74891913400000025001122210138301670741899107",
    "carteira": "SIMPLES",
    "seuNumero": "10138",
    "nossoNumero": "222101383",
    "pagador": {
        "codigo": "081JX",
        "documento": "08203491000180",
        "nome": "ADEMIR HIPPLER"
    },
    "dataEmissao": "2022-10-03",
    "dataVencimento": "2022-10-10",
    "valorNominal": 25,
    "situacao": "LIQUIDADO COMPE",
    "multa": 2,
    "abatimento": 0,
    "tipoJuros": "B - PERCENTUAL",
    "juros": 0.5,
    "diasProtesto": 0,
    "validadeAposVencimento": 180,
    "diasNegativacao": 0,
    "tipoDesconto": "B - PERCENTUAL",
    "descontoAntecipacao": 0,
    "dadosLiquidacao": {
        "data": "2022-10-08T01:45:50-03:00",
        "valor": 25,
        "multa": 0,
        "abatimento": 0,
        "juros": 0,
        "desconto": 0
    },
    "descontos": []
}

 

Editado 18 Outubro, 2023 por C4Dev

[Daniel InfoCotidiano]

@C4Dev
Por favor verifique se seus fontes estão atualizados, observe que testei a função isolada:

Veja se sua unit a função é a mesma:

[Daniel InfoCotidiano]

@C4Dev
Esta faltando a propriedade "Data"
AJson.Values['dadosLiquidacao'].AsObject.Values['data'].AsString
Estou corrigindo !

[Daniel InfoCotidiano]

@C4Dev
Estava falando com o time, como não temos credenciais para testar, vou te mandar a unit vc pode realizar os testes para nós por favor.
ACBrBoletoRet_Sicredi_APIV2.pas
 

Após salvar execute um Build ou rode o instalador.
Aguardo um feedback

[I3 SISTEMAS]

19 horas atrás, Daniel InfoCotidiano disse:

@C4Dev @I3 SISTEMAS
Subimos uma correção, podem atualizar os repositórios e rodar o instalador.
Abr !

Ok tudo testado aqui agora deu certo os retorno de baixa e liquidados.

[Daniel InfoCotidiano]

@I3 SISTEMAS
Muito obrigado pela contribuição e feedback com os testes
isso é muito importante para nós !