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