Boleto Via Webservice Caixa Federal

[serginhoott]

Boa tarde pessoal !

Hoje fiz vários testes no componente do WS para Caixa Federal, me deparei com alguns problemas na unit ACBrBoletoW_Caixa, fiz uma correção e estou anexando a unit, especificando aqui:

O campo NossoNumero é formatado com 17 dígitos, sempre iniciando por '14', para resolver coloquei assim: '14' + ACBrUtil.PadLeft(NossoNumero, 15, '0') em todos os lugares onde aparece io

Na função GerarAutenticacao, não estava gerando o HASH corretamente por 3 motivos:

Nosso número, corrigido com a solução anterior

O valor estava sem formatação, ocasionado divergencia no hash também, exemplo, boleto de R$ 10,00 estava passando para montagem do hash como 10, correto seria 1000, resolvido assim: FormatFloat('#0.00', Valor)

No Result também estava gerando o HASH errado

antes: Result := AsciiToHex(SHA1(sAutenticacao))

Depois: Result := TNetEncoding.Base64.EncodeBytesToString(GetStrHashSHA256(trim(sAutenticacao)));

Adicionando também a função GetStrHashSHA256 para geração do HASH e depois convertendo para BASE64

função a seguir adicionada:

function TBoletoW_Caixa.GetStrHashSHA256(Str: String): TBytes;
  var
    HashSHA: THashSHA2;
  begin
      HashSHA := THashSHA2.Create;
      result := HashSHA.GetHashBytes(Str,SHA256);
  end;

 

Somente após as alterações consegui gerar boleto em produção, fiz vários testes e gerei 20 boletos e todos registrados.

Espero ter colaborado, em aenxo unit para análise.

 

 

ACBrBoletoW_Caixa.pas

Editado 3 Julho, 2020 por serginhoott

[serginhoott]

Adicionando novamente a Unit correta, pois a que foi anteriormente estava errada, o que vale é essa

ACBrBoletoW_Caixa.pas

[José M. S. Junior]

Boa tarde, Obrigado vamos validar e atualizar os fontes.

[Cleonir]

Boa tarde.

Tive o mesmo problema. 

Com a solução do serginhoott  resolveu a questão do HASH.

 

Tive outro problema com o JUROS_MORA.

Se CodigoMoraJuros = cjIsento não deve ser criado a tag DATA. 

Editado 18 Agosto, 2020 por Cleonir

[Cleonir]

Uma duvida.

Não tem como pegar a data do pagamento na consulta no caso de liquidação ?

[José M. S. Junior]

Boa tarde, sabe dizer se essa informação vem no XML de retorno? Marque a opção para salvar o XML retorno e anexe se possível.

[Cleonir]

No xml de retorno da consulta não vem.

Vem somente a mensagem "(0) OPERACAO EFETUADA - SITUACAO DO TITULO = TITULO JA PAGO NO DIA"

e os dados do Titulo que foi registrado. Mas não vem os dados do pagamento.

Pelo menos neste teste que fiz, foi pago no mesmo dia da emissão.

Mas acredito que se for pago num dia após a emissão irá vir da mesma forma, por que no manual esta assim.

Isso é um problema por que não tem como saber certo que dia foi pago.

 

Em anexo XML da Consulta.

 

165-2-retorno_registro.xml

[José M. S. Junior]

A funcionalidade do WebService dos Bancos está sendo mais para registro apenas, creio que outras funcionalidades precisa continuar através de troca de arquivos... Alguns bancos não disponibilizam nenhum tipo de consulta após o registro on-line.

Quanto ao ajuste acima parece ok, mas não mantem compatibilidade com versões antigas do Delphi e também com Lazarus. Então implementei outra solução em breve será disponibilizado com novos recursos do WebService.

[Cleonir]

Em 18/08/2020 at 15:02, Cleonir disse:

Tive outro problema com o JUROS_MORA.

Se CodigoMoraJuros = cjIsento não deve ser criado a tag DATA. 

Bom dia.

Com a atualização de hoje ficou ok a questão do HASH.

Mas deu problema com o JUROS_MORA CodigoMoraJuros = cjIsento

Foi adicionado dentro do if também o VALOR ou PERCENTUAL, assim da rejeição.

Deve ficar no if (Integer(CodigoMoraJuros) <> 2) then  somente a DATA.

 

Não sei dizer por que da rejeição por que na consulta vem exatamente como esta agora.

Mas se enviar assim da rejeição.

[José M. S. Junior]

Bom dia, ok vou ajustar isso então... Obrigado!

[Juliana Tamizou]

Boa tarde.

Alteração já disponível no svn.

Att.