Alteração retorno cobrança BANCOOB

[JEAN FABIO FUCHS]

Bom dia.

Fiz uma alteração na rotina LerRetorno240 da cobrança bancária do BANCOOB, para retonar algumas informações do sacado.

if (Copy(Linha,133,1) = '1') then
  Sacado.Pessoa := pFisica
else if (Copy(Linha,133,1) = '2') then
  Sacado.Pessoa := pJuridica
else
  Sacado.Pessoa := pOutras;

if Sacado.Pessoa = pFisica then
  Sacado.CNPJCPF := Copy(Linha,138,11)
else
  Sacado.CNPJCPF := Copy(Linha,135,14);
Sacado.NomeSacado := Trim(Copy(Linha,149,40));

Espero ter ajudado.

Por favor corrijam esse tópico caso tenha inserido na categoria incorreta. Obrigado!

ACBrBancoBancoob.pas

[Juliana Tamizou]

Boa tarde.

Alteração disponível na revisão 16554, obrigada.

Att.