Retorno Banco Sofisa

[Luiz Carlos Rodrigues]

Quando tento ler o retorno do banco Sofisa está dando um na função GetTipoCobranca em StrToInt(Carteira) no bloco abaixo Devido a Carteira nesse momento estar em branco, ou seja a Carteira que está nos registros Detalhe nem foi lida ainda.

Provisoriamente eu fiz uma alteração no fonte ACBrBoleto.pas assumindo cobBancoSofisaSantander só para não dar erro (Isso porque o meu cliente está usando Sofisa Santander).

637: begin
             if StrToInt(Carteira) = 109 then
               Result := cobBancoSofisaItau
             else
               Result := cobBancoSofisaSantander;
         end;

 

Não sei se vale a pena colocar o que eu fiz nos fontes do ACBrBoleto já que não é 100%

Ficou assim:

    637: begin
           if Carteira = '' then                                             
             Result := cobBancoSofisaSantander
           else
             if StrToInt(Carteira) = 109 then
               Result := cobBancoSofisaItau
             else
               Result := cobBancoSofisaSantander;
         end;
 

[Juliomar Marchetti]

Anexa e se possível repassa como fazer o teste para ocorrer

[Luiz Carlos Rodrigues]

Bom dia

O teste é simples (Arquivo anexo):

ACBrBoleto.NomeArqRetorno  := edArquivo.Text;
ACBrBoleto.LeCedenteRetorno:= True;
ACBrBoleto.LerRetorno;
 

PV820358_812_SEC_101_SOFISA.18O

[Juliomar Marchetti]

16 minutos atrás, Luiz Carlos Rodrigues disse:

Bom dia

O teste é simples (Arquivo anexo):

ACBrBoleto.NomeArqRetorno  := edArquivo.Text;
ACBrBoleto.LeCedenteRetorno:= True;
ACBrBoleto.LerRetorno;
 

PV820358_812_SEC_101_SOFISA.18O 2.36 kB · 0 downloads

desmarca a opção lecedente e veja se resolve

[Luiz Carlos Rodrigues]

Bom dia.

Eu já havia feito isso mais ocorre uma exceção conforme o código abaixo no ACBrBoleto

 if ( IntToStrZero(Banco.Numero, 3) <> BancoRetorno )
        and ( IntToStrZero(Banco.NumeroCorrespondente, 3) <> BancoRetorno )  then
       if LeCedenteRetorno then
         Banco.TipoCobranca := GetTipoCobranca( StrToIntDef(BancoRetorno, 0))
       else
         raise Exception.Create( ACBrStr( 'Arquivo de retorno de banco diferente do Cedente'));

[Juliomar Marchetti]

Hum.

sugere alguma correção baseado no manual enos erros?

[Luiz Carlos Rodrigues]

Não é nem pelo manual, Quando vem no Retorno o Código do Banco 637 (Sofisa)

o Componente ACBrBoleto está Verificando se a Carteira é 109, Executa Banco Itaú, caso Contrário Executa Santander,

só que nesse momento a carteira ainda não foi alimentada pois a mesma fica nos Registros Detalhe e não no Header,

ou seja teria que depois de achar o código do banco, achar a carteira no Detalhe para depois fazer a verificação se executa Itaú ou Santander.

Provavelmente isso vai acontecer também com o Banco 643 (Pine) pois a condição é a mesma do Sofisa só que nesse caso executa BancoPineBradesco ou BancoPine

[Luiz Carlos Rodrigues]

O manual que eu tenho aqui já tem uns quatro anos e por ele não dá para identificar nada no header se é Itaú ou Santander

[Juliomar Marchetti]

36 minutos atrás, Luiz Carlos Rodrigues disse:

Não é nem pelo manual, Quando vem no Retorno o Código do Banco 637 (Sofisa)

o Componente ACBrBoleto está Verificando se a Carteira é 109, Executa Banco Itaú, caso Contrário Executa Santander,

só que nesse momento a carteira ainda não foi alimentada pois a mesma fica nos Registros Detalhe e não no Header,

ou seja teria que depois de achar o código do banco, achar a carteira no Detalhe para depois fazer a verificação se executa Itaú ou Santander.

Provavelmente isso vai acontecer também com o Banco 643 (Pine) pois a condição é a mesma do Sofisa só que nesse caso executa BancoPineBradesco ou BancoPine

sugira então uma possível correção anexando a unit modificada e validaremos

[Luiz Carlos Rodrigues]

Até poderia fazer a mudança o problema é pelo que estou vendo tanto Sofisa Itaú quanto Sofisa Santander a posição da carteira é a mesma e pode vir os mesmos códigos,

ou seja pode vir o número 112 por exemplo que tem no Sofisa Itaú quanto no Sofisa Santander, como saber qual executar ?

Também não dá para pegar pelo Número do Banco na Câmara de Compensação porque vem vários códigos diferentes.