Atualização TACBrBancoSantander e TACBrCaixa

[dtybel]

Olá Juliana Tamizou,

Fiz uma pequena alteração na classe TACBrBancoSantander, pois estava emitindo um erro, apenas coloquei a variável:

fpTamanhoConta := 11;

no constructor.

Segue anexo:

ACBrBancoSantander.rar

Na Classe TACBrCaixaEconomica emitia a seguinte mensagem ao realizar retorno:

Agencia\Conta do arquivo inválido

Mesmo com as informações passadas corretamente

A correção foi:

fpTamanhoAgencia := 5; no construtor e

Em TACBrCaixaEconomica.LerRetorno240, alterei o trecho:

DE:

if (not LeCedenteRetorno) and ((rAgencia <> OnlyNumber(Cedente.Agencia)) or

(rConta <> OnlyNumber(Cedente.Conta))) then

raise Exception.Create(ACBrStr('Agencia\Conta do arquivo inválido'));

PARA

if (not LeCedenteRetorno) and ((rAgencia <> OnlyNumber(Cedente.Agencia)) or

(rConta+rDigitoConta <> OnlyNumber(Cedente.CodigoCedente))) then

raise Exception.Create(ACBrStr('Agencia\Conta do arquivo inválido'));

Seria até mais apropriado colocar em rConta sendo rCodCedente, mas não alterei, deixei por sua decisão alterar o nome da variável.

Segue classe:

ACBrCaixaEconomica.rar

Agora o retorno está funcionando certinho, segue código do meu retorno:

      // DADOS DO BANCO 

      with ACBrBoleto1.Banco do

      begin

         Digito       := 0;//StrtoIntDef(0, 0);

         Nome         := DMEmpresa.ClientDataSet2NOME_CONTA.AsString;

         Numero       := DMEmpresa.ClientDataSet2NUM_BANCO.AsInteger;


         case DMEmpresa.ClientDataSet2NUM_BANCO.AsInteger of

            237           : TipoCobranca := cobBradesco;

            1             : TipoCobranca := cobBancoDoBrasil;

            341           : TipoCobranca := cobItau;

            748           : TipoCobranca := cobSicred;

            104           : TipoCobranca := cobCaixaEconomica;

            756           : TipoCobranca := cobBancoob;

            33,53,008     : TipoCobranca := cobSantander;

         else

            TipoCobranca := cobNenhum;

         end;

      end;



     with ACBrBoleto1.Cedente do

       begin

         Nome                 := DMEmpresa.ClientDataSet1EMPRESA.AsString;

         Agencia              := DMEmpresa.ClientDataSet2AGENC_BANCO.AsString;

         AgenciaDigito        := DMEmpresa.ClientDataSet2DIGITO_AGENC_BANCO.AsString;

         CodigoCedente        := DMEmpresa.ClientDataSet2COD_CEDENTE.AsString;

         Conta                := DMEmpresa.ClientDataSet2NUM_CONTA_BANCO.AsString;

         ContaDigito          := DMEmpresa.ClientDataSet2DIGITO_CONTA_BANCO.AsString;

         CNPJCPF              := tiraMask(DMEmpresa.ClientDataSet1CNPJ.AsString);



         if ( Length(DMEmpresa.ClientDataSet2MODALIDADE.AsString) > 0) then

         Modalidade           := DMEmpresa.ClientDataSet2MODALIDADE.AsString;


         if ( Length(DMEmpresa.ClientDataSet2CONVENIO.AsString) > 0) then

         Convenio             := DMEmpresa.ClientDataSet2CONVENIO.AsString;


       end;

      ACBrBoleto1.NomeArqRetorno := txtNomeArquivoRetorno.Text;

      ACBrBoleto1.LerRetorno;

[Juliana Tamizou]

Boa tarde Douglas.

Me desculpe pela demora no retorno, em breve sua contribuição estará disponivel no svn.

Att.

[Juliana Tamizou]

Boa tarde.

Já estão disponíveis no svn as correções anexadas neste tópico.

Att.