Sicoob - Emissão e Distribuição do Boleto

Pegasus Aut e Desenv · 24 Maio, 2023

Bom dia, implantei a emissão de boleto Sicoob via WS, tudo ok, só um detalhe, o comando de emissão e distribuição está fixo para o banco, fiz o teste e paguei quase R$ 4,00 de taxa (e recebi o boleto pelos correios).

O código está assim em ACBrBoletoW_Bancoob

Json.Add('identificacaoEmissaoBoleto').Value.AsInteger := 1;
Json.Add('identificacaoDistribuicaoBoleto').Value.AsInteger := 1;

Segundo o manual do banco:

identificacaoEmissaoBoleto* integer
example: 1
Código de identificação de emissão do boleto. Informar os valores listados abaixo.
- 1 Banco Emite - 2 Cliente Emite

identificacaoDistribuicaoBoleto* integer
example: 1
Código de identificação de distribuição do boleto. Informar os valores listados abaixo.
- 1 Banco Distribui - 2 Cliente Distribui

Deveria ficar algo mais ou menos assim:

if aTitulo.ACBrBoleto.Cedente.ResponEmissao= tbCliEmite then
begin
Json.Add('identificacaoEmissaoBoleto').Value.AsInteger := 2;
Json.Add('identificacaoDistribuicaoBoleto').Value.AsInteger := 2;
end
else
begin
Json.Add('identificacaoEmissaoBoleto').Value.AsInteger := 1;
Json.Add('identificacaoDistribuicaoBoleto').Value.AsInteger := 1;
end;

Estou reportando para se possível fazerem as devidas correções nos fontes.

Obrigado.

Editado 24 Maio, 2023 por Pegasus Aut e Desenv