Boleto Api Sicredi - Posto com Digito Alfanumerico

[Celso B. Queiroz Junior]

Tive que fazer correção em 2 lugares para que o ACBR aceita-se a utilização do campo Posto Alfanumérico... Meu exemplo: A4.

1- Lugar: Ao definir o posto na classe WS da API...

2- Lugar: No calculo do DV do Nosso Número quando o Posto for alfanumérico deve preencher o Posto como '00' para efetuar o calculo.

 

em Anexo as Correções para analise para correção no SVN. Obrigado.

ACBrBancoSicredi.pas ACBrBoletoW_Sicredi_APIV2.pas

[Juliomar Marchetti]

Seus arquivo estão muito , muito desatualizados, acho que pega suas alterações

faça revert no svn e depois um update faça testes e então veja se já não está ok

[Celso B. Queiroz Junior]

Baixei novamente do svn, problema continua... fiz as correcoes nos novos arquivos baixados ... Segue.

ACBrBancoSicredi.pas ACBrBoletoW_Sicredi_APIV2.pas

[Juliomar Marchetti]

No caso estou olhando mas é sua aplicação quem deve limitar a informação ali vinda

mas aguardemos pode ser que seja ou não incorporado

[Celso B. Queiroz Junior]

Como pode ser minha aplicação sendo que no método do ACBR de definir o Posto está limpando o campo AgenciaDigito pegando Somente números. Ou seja quando eu informo A4... fica somente 4.

Neste ponto no Arquivo ACBrBoletoW_Sicredi_APIV2.pas...
 

procedure TBoletoW_Sicredi_APIV2.DefinirPosto;
begin
  FPHeaders.Add( Format('posto: %s', [OnlyNumber(Boleto.Cedente.AgenciaDigito)]) );
end;

 

E no calculo do DV do Sicredi no manual diz: Caso o posto do beneficiário(pp) seja alfanumérico ele deverá ser informado como “00”, possibilitando assim o cálculo do DV do Nosso Número.

Neste ponto no Arquivo ACBrBancoSicredi.pas

function TACBrBancoSicredi.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo ): String;

 nesta função em nenhum momento é alterado o AgenciaDigito caso seja alfanumérico para 00 como diz no manual.

 

Pode ser que a forma que resolvi não seja a melhor, mais por favor considere este problema para correção. Obrigado.