ACBrBancoSantander - Carteira 102

[virtualsistemas]

Inclui a carteira 102 no Layout de Cobrança do Banco Santader.... as alterações são feitas em 2 funções:

function TACBrBancoSantander.MontarCampoNossoNumero (

const ACBrTitulo: TACBrTitulo ) : String;

begin

with ACBrTitulo do

begin

case StrToInt(Carteira) of

5: Carteira := '101';

6: Carteira := '201';

4: Carteira := '102';

end;

end;

Result:= padR(ACBrTitulo.NossoNumero,12,'0')+ ' '+ CalcularDigitoVerificador(ACBrTitulo);

end;

-------------------

function TACBrBancoSantander.GerarRegistroTransacao400(ACBrTitulo :TACBrTitulo): String;

var

DigitoNossoNumero,

Ocorrencia,aEspecie,

Protesto, aAgencia,

TipoSacado: String;

TipoBoleto: Char;

MensagemCedente: String;

I: Integer;

aCarteira: Integer;

begin

aCarteira := StrToInt(ACBrTitulo.Carteira );

if aCarteira = 101 then

aCarteira:= 5

else if aCarteira = 201 then

aCarteira:= 6

else if aCarteira = 102 then

aCarteira:= 4;

if aCarteira = 5 then

aAgencia := padR(ACBrTitulo.ACBrBoleto.Cedente.Agencia +

ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito,5,'0')

else

aAgencia:= '00000';

[...Continua...]

[Daniel Simoes]

Por favor anexe as Units modificadas... trataremos suas modificações comparando as Units com um programa de Merge, como por exemplo o WinMerge

[virtualsistemas]

Alteração feita para carteira 102 - Santander.

ACBrBancoSantander.pas

[Juliana Tamizou]

Bom dia.

Suas alterações já estão disponiveis no svn.

Att.