REGISTRO 8 = Registro Tipo de Pagamento e Dados Qr Code (SANTANDER CNAB400)

CesarArrais · 2 Setembro

Boa tarde,

Prezados Desenvolvedores do ACBr, tomei a liberdade de implementar o registro do tipo 8 para o layout CANB400 para o banco Santander, a qual submeto a vossa apreciação.

Foi uma necessidade minha e acredito que possa ser a de outros da comunidade.

Desde já agradecido por vossa atenção.

Vou colar o código logo abaixo, pois não consegui anexar o arquivo.

Atenciosamente,

César Arrais

{******************************************************************************}
{ Projeto: Componentes ACBr }
{ Biblioteca multiplataforma de componentes Delphi para interação com equipa- }
{ mentos de Automação Comercial utilizados no Brasil }
{ }
{ Direitos Autorais Reservados (c) 2020 Daniel Simoes de Almeida }
{ }
{ Colaboradores nesse arquivo: Juliana Tamizou }
{ }
{ Você pode obter a última versão desse arquivo na pagina do Projeto ACBr }
{ Componentes localizado em http://www.sourceforge.net/projects/acbr }
{ }
{ Esta biblioteca é software livre; você pode redistribuí-la e/ou modificá-la }
{ sob os termos da Licença Pública Geral Menor do GNU conforme publicada pela }
{ Free Software Foundation; tanto a versão 2.1 da Licença, ou (a seu critério) }
{ qualquer versão posterior. }
{ }
{ Esta biblioteca é distribuída na expectativa de que seja útil, porém, SEM }
{ NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU }
{ ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral Menor}
{ do GNU para mais detalhes. (Arquivo LICENÇA.TXT ou LICENSE.TXT) }
{ }
{ Você deve ter recebido uma cópia da Licença Pública Geral Menor do GNU junto}
{ com esta biblioteca; se não, escreva para a Free Software Foundation, Inc., }
{ no endereço 59 Temple Street, Suite 330, Boston, MA 02111-1307 USA. }
{ Você também pode obter uma copia da licença em: }
{ http://www.opensource.org/licenses/lgpl-license.php }
{ }
{ Daniel Simões de Almeida - [email protected] - www.projetoacbr.com.br}
{ Rua Coronel Aureliano de Camargo, 963 - Tatuí - SP - 18270-170 }
{******************************************************************************}

{$I ACBr.inc}

unit ACBrBancoSantander;

interface

uses
Classes, SysUtils, Contnrs,
ACBrBoleto, ACBrBoletoConversao;

type

{ TACBrBancoSantander }

TACBrBancoSantander = class(TACBrBancoClass)
private
FvTotalTitulos : Double;
protected
function DefineNumeroDocumentoModulo(const ACBrTitulo: TACBrTitulo): String; override;
function DefineCampoLivreCodigoBarras(const ACBrTitulo: TACBrTitulo): String; override;
function DefinePosicaoNossoNumeroRetorno: Integer; override;
function DefineCaracTitulo(const ACBrTitulo: TACBrTitulo): String; override;
function DefineEspecieDoc(const ACBrTitulo: TACBrTitulo): String; override;
function DefineTipoDiasProtesto(const ACBrTitulo: TACBrTitulo): String; override;
function InstrucoesProtesto(const ACBrTitulo: TACBrTitulo): String; override;
function DefineTipoCarteira(const ACBrTitulo: TACBrTitulo): String;
function DefineCarteira(const ACBrTitulo: TACBrTitulo): String;
function DefineTipoDocumento(const ACBrTitulo: TACBrTitulo): String; reintroduce;
function MontaInstrucoes1CNAB240(const ACBrTitulo: TACBrTitulo): String;
function MontaInstrucoes2CNAB240(const ACBrTitulo: TACBrTitulo): String;
public
Constructor create(AOwner: TACBrBanco);
function MontarCampoNossoNumero(const ACBrTitulo :TACBrTitulo): String; override;
function MontarCampoCodigoCedente(const ACBrTitulo: TACBrTitulo): String; override;

function GerarRegistroHeader240(NumeroRemessa: Integer): String; override;
function GerarRegistroTransacao240(ACBrTitulo : TACBrTitulo): String; override;
function GerarRegistroTrailler240(ARemessa : TStringList): String; override;
procedure GerarRegistroHeader400(NumeroRemessa : Integer; aRemessa: TStringList); override;
procedure GerarRegistroTransacao400(ACBrTitulo : TACBrTitulo; aRemessa: TStringList); override;
procedure GerarRegistroTrailler400(ARemessa:TStringList); override;
Procedure LerRetorno240(ARetorno:TStringList); override;
Procedure LerRetorno400(ARetorno:TStringList); override;

function TipoOcorrenciaToDescricao(const TipoOcorrencia: TACBrTipoOcorrencia) : String; override;
function CodOcorrenciaToTipo(const CodOcorrencia:Integer): TACBrTipoOcorrencia; override;
function TipoOcorrenciaToCod(const TipoOcorrencia: TACBrTipoOcorrencia):String; override;
function CodMotivoRejeicaoToDescricao(const TipoOcorrencia:TACBrTipoOcorrencia; CodMotivo:Integer): String; override;
function CodOcorrenciaToTipoRemessa(const CodOcorrencia:Integer): TACBrTipoOcorrencia; override;
function TipoOcorrenciaToCodRemessa(const TipoOcorrencia: TACBrTipoOcorrencia): String; override;
function CodEspecieDocToTipo(const EspecieDoc: String): String;
function DefineNossoNumeroRetorno(const Retorno: String): String; override;
end;

implementation

uses
{$IFDEF COMPILER6_UP} dateutils {$ELSE} ACBrD5 {$ENDIF},
StrUtils, math, ACBrUtil.Base, ACBrUtil.FilesIO, ACBrUtil.Strings, ACBrUtil.DateTime,
ACBrUtil.Math, ACBrPIXBase;

{ TACBrBancoSantander }

constructor TACBrBancoSantander.create(AOwner: TACBrBanco);
begin
inherited create(AOwner);
fpDigito := 7;
fpNome := 'BANCO SANTANDER';
fpNumero := 033;
fpTamanhoMaximoNossoNum := 12;
fpTamanhoCarteira := 3;
fpCodigosMoraAceitos := '123456';
fpTamanhoConta := 11;
fpLayoutVersaoArquivo := 40;
fpLayoutVersaoLote := 30;
fpDensidadeGravacao := '0';
fpModuloMultiplicadorInicial:= 0;
fpModuloMultiplicadorFinal:= 9;
fpModuloMultiplicadorAtual:= 0;
end;

function TACBrBancoSantander.DefineNossoNumeroRetorno(const Retorno: String): String;
begin
if ACBrBanco.ACBrBoleto.LerNossoNumeroCompleto then
begin
ACBrBanco.TamanhoMaximoNossoNum := 13;
Result := Copy(Retorno,DefinePosicaoNossoNumeroRetorno,13)
end else
begin
ACBrBanco.TamanhoMaximoNossoNum := 12;
Result := Copy(Retorno,DefinePosicaoNossoNumeroRetorno,12);
end;
end;

function TACBrBancoSantander.DefineNumeroDocumentoModulo(
const ACBrTitulo: TACBrTitulo): String;
begin
case ACBrTitulo.ACBrBoleto.LayoutRemessa of
c240 : Result:= ACBrTitulo.NossoNumero;
c400 : Result:= PadLeft(RightStr(ACBrTitulo.NossoNumero,7),7,'0');
end
end;

function TACBrBancoSantander.DefinePosicaoNossoNumeroRetorno: Integer;
begin
if ACBrBanco.ACBrBoleto.LayoutRemessa = c240 then
Result := 41
else
Result := 63;
end;

function TACBrBancoSantander.DefineCampoLivreCodigoBarras(
const ACBrTitulo: TACBrTitulo): String;
begin
with ACBrTitulo.ACBrBoleto do
begin
Result := '9'
+ PadLeft(trim(Cedente.CodigoCedente),7,'0')
+ PadLeft(OnlyNumber(MontarCampoNossoNumero(ACBrTitulo)), 13,'0')
+ '0'
+ PadLeft(trim(Cedente.Modalidade),3,'0');
end;
end;

function TACBrBancoSantander.DefineCaracTitulo(const ACBrTitulo: TACBrTitulo): String;
begin
with ACBrTitulo do
begin
case CaracTitulo of
tcSimples : Result := '1'; {Cobrança Simples (Sem Registro e Eletrônica com Registro)}
tcCaucionada : Result := '3'; {Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro)}
tcDescontada : Result := '4'; {Cobrança Descontada (Eletrônica com Registro)}
tcVinculada, tcDireta,
tcSimplesRapComReg : Result := '5'; {Cobrança Simples (Rápida com Registro)}
tcCaucionadaRapComReg: Result := '6'; {Cobrança Caucionada (Rápida com Registro)}
{ TODO :
8 = Cobranca Cessao (Eletronica com Registro)
}
else
Result := '1';
end;
end;
end;

function TACBrBancoSantander.DefineEspecieDoc(const ACBrTitulo: TACBrTitulo): String;
begin
Result:= ' ';
with ACBrTitulo do
begin
if ACBrBanco.ACBrBoleto.LayoutRemessa = c240 then
begin
if Trim(EspecieDoc) = 'DM' then {DM - DUPLICATA MERCANTIL}
Result := '02'
else if Trim(EspecieDoc) = 'DS' then {DS - DUPLICATA DE SERVICO}
Result := '04'
else if Trim(EspecieDoc) = 'NP' then {NP - NOTA PROMISSORIA}
Result := '12'
else if Trim(EspecieDoc) = 'NR' then {NR - NOTA PROMISSORIA RURAL}
Result := '13'
else if Trim(EspecieDoc) = 'RC' then {RC - RECIBO}
Result := '17'
else if Trim(EspecieDoc) = 'AP' then {AP – APOLICE DE SEGURO}
Result := '20'
else if Trim(EspecieDoc) = 'CH' then {CH - CHEQUE}
Result := '97'
else if Trim(EspecieDoc) = 'ND' then {ND - NOTA PROMISSORIA DIRETA}
Result := '98'
else
begin
if not MatchText(EspecieDoc, ['02', '04', '12', '13', '17', '20', '97', '98']) then
raise Exception.Create('Espécie de documento informada incorretamente!');

Result := EspecieDoc;
end;
end
else
begin
{Pegando Especie}
if trim(EspecieDoc) = 'DM' then
Result:= '01'
else if trim(EspecieDoc) = 'NP' then
Result:= '02'
else if trim(EspecieDoc) = 'NS' then
Result:= '03'
else if trim(EspecieDoc) = 'RC' then
Result:= '05'
else if trim(EspecieDoc) = 'DS' then
Result:= '06'
else if trim(EspecieDoc) = 'LC' then
Result:= '07'
else if trim(EspecieDoc) = 'BDP' then
Result:= '08'
else if trim(EspecieDoc) = 'BCC' then
Result:= '19'
else
Result:= EspecieDoc;
end;
end;

end;

function TACBrBancoSantander.DefineTipoDiasProtesto(const ACBrTitulo: TACBrTitulo): String;
begin
with ACBrTitulo do
begin
case TipoDiasProtesto of
diCorridos : Result := '1';
diUteis : Result := '2';
else
Result := '0';
end;
end;

end;

function TACBrBancoSantander.InstrucoesProtesto(const ACBrTitulo: TACBrTitulo): String;
var
sDiasProtesto: String;
begin
Result := '';
if ACBrBanco.ACBrBoleto.LayoutRemessa = c240 then
begin
{Intruções}
with ACBrTitulo do
begin
try
{Instruções}
Instrucao1 := Trim(Instrucao1);
Instrucao2 := Trim(Instrucao2);

if ((DataProtesto <> 0) and (DiasDeProtesto > 0)) then
begin
if not MatchText(Instrucao1, ['0', '1', '2', '3', '9']) then
Instrucao1 := DefineTipoDiasProtesto(ACBrTitulo);
// Dias para protesto
sDiasProtesto := PadLeft(IntToStr(DiasDeProtesto), 2, '0');
end
else
begin
Instrucao1 := '0'; // Não protestar
SDiasProtesto := '00';
end;

// Baixa/Devolução
if (Instrucao2 = '') then
Instrucao2 := '2' // NAO BAIXAR / NAO DEVOLVER
else
begin
if not MatchText(Instrucao2, ['1', '2', '3']) then
raise Exception.Create('Código de Baixa/Devolução informado incorretamente!');
end;

finally
Result := Instrucao1 + sDiasProtesto + Instrucao2;
end;
end;

end
else
begin
with ACBrTitulo do
begin
if (DataProtesto > 0) and (DataProtesto > Vencimento) then //and (Instrucao1 = '06') then
begin
Result := IntToStrZero(DaysBetween(DataProtesto,Vencimento),2);
if (trim(Instrucao1) <> '06' ) and (trim(Instrucao2) <> '06' ) then
If Trim(Instrucao1) = '' then
Instrucao1 := '06'
else
Instrucao2 := '06';
end
else
Result := '00';
end;
end;

end;

function TACBrBancoSantander.DefineTipoCarteira(const ACBrTitulo: TACBrTitulo): String;
begin
with ACBrTitulo do
begin
case ACBrBoleto.Cedente.TipoCarteira of
tctSimples: Result := '2';
tctRegistrada: Result := '1';
else
Result := '2';
end;
end;
end;

function TACBrBancoSantander.DefineCarteira(const ACBrTitulo: TACBrTitulo): String;
begin
with ACBrTitulo do
begin
Result := PadLeft(Carteira, 1, '0');

if (ACBrTitulo.ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) and ((Carteira = '101') or (Carteira = '005')) then
Result := '1'
else if ((Carteira = '101') or (Carteira = '005')) then
Result := '5'
else if ((Carteira = '201') or (Carteira = '006')) then
Result := '6'
else if ((Carteira = '102') or (Carteira = '004')) then
Result := '4';
end;
end;

function TACBrBancoSantander.DefineTipoDocumento(const ACBrTitulo: TACBrTitulo): String;
begin
with ACBrTitulo do
begin
case ACBrBoleto.Cedente.TipoDocumento of
Tradicional: Result := '1';
Escritural: Result := '2';
else
Result := '1';
end;
end;

end;

function TACBrBancoSantander.MontaInstrucoes1CNAB240(
const ACBrTitulo: TACBrTitulo): String;
begin
with ACBrTitulo do
begin
if Mensagem.Count = 0 then
begin
Result := PadRight('', 80, ' '); // 2 registros
Exit;
end;

Result := '';
if Mensagem.Count >= 1 then
begin
Result := Result +
Copy(PadRight(Mensagem[0], 40, ' '), 1, 40);
end;

if Mensagem.Count >= 2 then
begin
Result := Result +
Copy(PadRight(Mensagem[1], 40, ' '), 1, 40)
end
else
begin
if (Result <> EmptyStr) then
Result := Result + PadRight('', 40, ' ') // 1 registro
else
Result := Result + PadRight('', 80, ' '); // 2 registros
Exit;
end;
end;

end;

function TACBrBancoSantander.MontaInstrucoes2CNAB240(
const ACBrTitulo: TACBrTitulo): String;
begin
with ACBrTitulo do
begin
if (Mensagem.Count <= 2) then
begin
// Somente duas linhas, foi montado o MonarInstrucoes1
Result := PadRight('', 200, ' ');
Exit;
end;

Result := '';
if Mensagem.Count >= 3 then
begin
Result := Copy(PadRight(Mensagem[2], 40, ' '), 1, 40);
end;

if Mensagem.Count >= 4 then
begin
Result := Result +
Copy(PadRight(Mensagem[3], 40, ' '), 1, 40)
end;

if Mensagem.Count >= 5 then
begin
Result := Result +
Copy(PadRight(Mensagem[4], 40, ' '), 1, 40)
end;

if Mensagem.Count >= 6 then
begin
Result := Result +
Copy(PadRight(Mensagem[5], 40, ' '), 1, 40)
end;

if Mensagem.Count >= 7 then
begin
Result := Result +
Copy(PadRight(Mensagem[6], 40, ' '), 1, 40)
end;

// Acertar a quantidade de caracteres
Result := PadRight(Result, 200);
end;

end;

function TACBrBancoSantander.MontarCampoNossoNumero (
const ACBrTitulo: TACBrTitulo ) : String;
var LDV : String;
begin
with ACBrTitulo do
begin
case StrToIntDef(Carteira,0) of
5: Carteira := '101';
6: Carteira := '201';
4: Carteira := '102';
end;
end;

if not (ACBrTitulo.ACBrBoleto.Configuracoes.WebService.VersaoDF = 'V1') then
LDV := ' ' + CalcularDigitoVerificador(ACBrTitulo);

Result:= PadLeft(ACBrTitulo.NossoNumero,12,'0') + LDV;
end;

function TACBrBancoSantander.MontarCampoCodigoCedente (
const ACBrTitulo: TACBrTitulo ) : String;
begin
Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+
ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+
ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente
end;

function TACBrBancoSantander.GerarRegistroHeader240(NumeroRemessa: Integer): String;
var
ListHeader: TStringList;
begin
Result := '';
ListHeader:= TStringList.Create;
try
with ACBrBanco.ACBrBoleto.Cedente do
begin
{ REGISTRO HEADER DO ARQUIVO REMESSA }
ListHeader.Add(IntToStrZero(fpNumero, 3) + // 001 - 003 / Código do Banco na compensação
'0000' + // 004 - 007 / Lote de serviço
'0' + // 008 - 008 / Tipo de registro
Space(8) + // 009 - 016 / Reservado (uso Banco)
DefineTipoInscricao + // 017 - 017 / Tipo de inscrição da empresa
PadLeft(trim(OnlyNumber(CNPJCPF)),15,'0') + // 018 - 032 / Nº de inscrição da empresa
PadLeft(CodigoTransmissao, 15) + // 033 - 047 / Código de Transmissão
Space(25) + // 048 - 072 / Reservado (uso Banco)
PadRight(Nome, 30) + // 073 - 102 / Nome da Empresa
PadRight(fpNome, 30) + // 103 - 132 / Nome do Banco(BANCO SANTANDER)
Space(10) + // 133 - 142 / Reservado (uso Banco)
'1' + // 143 - 143 / Código remessa = 1
FormatDateTime('ddmmyyyy',Now) + // 144 - 151 / Data de geração do arquivo
Space(6) + // 152 - 157 / Reservado (uso Banco)
PadLeft(IntToStr(NumeroRemessa), 6, '0') + // 158 - 163 / Nº seqüencial do arquivo
PadLeft(IntToStr(fpLayoutVersaoArquivo), 3,'0')+ // 164 - 166 / Nº da versão do layout do arquivo
Space(74) ); // 167 - 240 / Reservado (uso Banco)

{ REGISTRO HEADER DO LOTE REMESSA }
ListHeader.Add(IntToStrZero(fpNumero, 3) + // 001 - 003 / Código do Banco na compensação
'0001' + // 004 - 007 / Numero do lote remessa
'1' + // 008 - 008 / Tipo de registro
'R' + // 009 - 009 / Tipo de operação
'01' + // 010 - 011 / Tipo de serviço
Space(2) + // 012 - 013 / Reservado (uso Banco)
PadLeft(IntToStr(fpLayoutVersaoLote), 3, '0') + // 014 - 016 / Nº da versão do layout do lote
Space(1) + // 017 - 017 / Reservado (uso Banco)
DefineTipoInscricao + // 018 - 018 / Tipo de inscrição da empresa
PadLeft(trim(OnlyNumber(CNPJCPF)),15,'0') + // 019 - 033 / Nº de inscrição da empresa
Space(20) + // 034 - 053 / Reservado (uso Banco)
PadLeft(CodigoTransmissao, 15) + // 054 - 068 / Código de Transmissão
Space(5) + // 069 - 073 / Reservado (uso Banco)
PadRight(Nome, 30) + // 074 - 0103 / Nome do Cedente
Space(40) + // 104 - 143 / Mensagem 1
Space(40) + // 144 - 183 / Mensagem 2
PadLeft(IntToStr(NumeroRemessa), 8, '0') + // 184 - 191 / Nº temessa
FormatDateTime('ddmmyyyy',Now) + // 192 - 199 / Data de geração do arquivo
Space(41) ); // 200 - 240 / Reservado (uso Banco)
end;

Result := RemoverQuebraLinhaFinal(ListHeader.Text);
finally
ListHeader.Free;
end;

end;

procedure TACBrBancoSantander.GerarRegistroHeader400(NumeroRemessa : Integer; aRemessa: TStringList);
var
wLinha: String;
begin
FvTotalTitulos:= 0;
with ACBrBanco.ACBrBoleto.Cedente do
begin
wLinha:= '0' + // ID do Registro
'1' + // ID do Arquivo( 1 - Remessa)
'REMESSA' + // Literal de Remessa
'01' + // Código do Tipo de Serviço
PadRight( 'COBRANCA', 15 ) + // Descrição do tipo de serviço
PadLeft( CodigoTransmissao, 20, '0') + // Codigo da Empresa no Banco
PadRight( Nome, 30) + // Nome da Empresa
IntToStrZero(fpNumero, 3) + // Codigo
PadRight('SANTANDER', 15) + // Nome do Banco(237 - Bradesco)
FormatDateTime('ddmmyy',Now) + // Data de geração do arquivo + brancos
StringOfChar( '0', 16) +
Space(275)+ '000' + // Nr. Sequencial de Remessa + brancos
IntToStrZero(1,6); // Nr. Sequencial de Remessa + brancos + Contador

ARemessa.Add(UpperCase(wLinha));
end;
end;

function TACBrBancoSantander.GerarRegistroTransacao240(ACBrTitulo: TACBrTitulo): String;
var
ISequencia : Integer;
sCodMovimento, sAgencia, sCCorrente: String;
sDigitoNossoNumero, sTipoCobranca, sTipoDocto, sTipoCarteira: String;
sEspecie, sDataMoraJuros, sDataDesconto: String;
STipoJuros, sTipoDesconto, sInstrucoesProtesto, sDiasBaixaDevol: String;
sTipoInscricao, sEndereco : String;
ATipoInscricao: String;
ListTransacao: TStringList;

LTipoChaveDICT : string;

begin
ATipoInscricao := ' ';

with ACBrTitulo do
begin
{Tipo de Ocorrencia}
sCodMovimento := TipoOcorrenciaToCodRemessa(ACBrTitulo.OcorrenciaOriginal.Tipo);

{Define Agência}
sAgencia := PadLeft(OnlyNumber(ACBrTitulo.ACBrBoleto.Cedente.Agencia) +
ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito,5,'0');

// Tamanho da conta corrente definida como padrão de 11 digitos, porém no arquivo
// remessa a conta solicitada é de 8 dígitos.
// Devemos retirar os zeros a esquerda da conta

{Define Conta}
sCCorrente := OnlyNumber(ACBrTitulo.ACBrBoleto.Cedente.Conta);
sCCorrente := Copy(SCCorrente, Length(sCCorrente) - 8, 9) +
OnlyNumber(ACBrTitulo.ACBrBoleto.Cedente.ContaDigito);

sDigitoNossoNumero := CalcularDigitoVerificador(ACBrTitulo);

{Caracteristica Título}
sTipoCobranca := DefineCaracTitulo(ACBrTitulo);

{Tipo Carteira}
sTipoCarteira:= DefineTipoCarteira(ACBrTitulo);

{Tipo Documento}
sTipoDocto:= DefineTipoDocumento(ACBrTitulo);

{Especie Documento}
sEspecie := DefineEspecieDoc(ACBrTitulo);

{Código Mora}
STipoJuros := DefineCodigoMoraJuros(ACBrTitulo);

{Data Mora}
if ( TruncTo( ValorMoraJuros, fpCasasDecimaisMoraJuros ) > 0) then
sDataMoraJuros := DefineDataMoraJuros(ACBrTitulo)
else
begin
sDataMoraJuros := PadLeft('', 8, '0');
STipoJuros := '3'; // Isento
end;

{Código Desconto}
sTipoDesconto := DefineCodigoDesconto(ACBrTitulo);

{Data Desconto}
sDataDesconto := DefineDataDesconto(ACBrTitulo);

{Instruções}
sInstrucoesProtesto := InstrucoesProtesto(ACBrTitulo);

{Dias Baixa/Devolução}
sDiasBaixaDevol:= ifthen(DataBaixa > 0, IntToStrZero(DaysBetween(Vencimento,DataBaixa),2), '00');

{Pegando tipo de pessoa do Sacado}
sTipoInscricao := Copy( DefineTipoSacado(ACBrTitulo), 2, 1);

{Pegando tipo de pessoa do Avalista}
aTipoInscricao:= DefineTipoSacadoAvalista(ACBrTitulo);

{Define campo endereco}
sEndereco := PadRight(Sacado.Logradouro + ' ' + Sacado.Numero + ' ' + Sacado.Complemento , 40, ' ');

fpQtdRegsLote := 1;

if sCodMovimento = '01' then
begin
if (PercentualMulta = 0) then
fpQtdRegsLote := 3
else
fpQtdRegsLote := 4;

if (ACBrTitulo.ACBrBoleto.Cedente.PIX.TipoChavePIX <> tchNenhuma) then
fpQtdRegsLote := fpQtdRegsLote + 1;

end;

ISequencia := (ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo) * fpQtdRegsLote) + 1;

ListTransacao:= TStringList.Create;
try
{SEGMENTO P}
ListTransacao.Add( IntToStrZero(ACBrBanco.Numero, 3) + // 001 - 003 / Código do Banco na compensação
'0001' + // 004 - 007 / Numero do lote remessa
'3' + // 008 - 008 / Tipo de registro
IntToStrZero(ISequencia ,5) + // 009 - 013 / Número seqüencial do registro no lote
'P' + // 014 - 014 / Cód. Segmento do registro detalhe
Space(1) + // 015 - 015 / Reservado (uso Banco)
sCodMovimento + // 016 - 017 / Código de movimento remessa
Copy(sAgencia, 1, 4) + // 018 – 021 / Agência do Cedente
Copy(sAgencia, 5, 1) + // 022 – 022 / Dígito da Agência do Cedente
Copy(sCCorrente, 1, 9) + // 023 - 031 / da conta corrente
Copy(sCCorrente, 10, 1) + // 032 – 032 / Dígito verificador da conta
Copy(sCCorrente, 1, 9) + // 033 - 041 / Conta cobrança
Copy(sCCorrente, 10, 1) + // 042 - 042 / Dígito da conta cobrança
Space(2) + // 043 - 044 / Reservado (uso Banco)
PadLeft(RemoveZerosEsquerda(NossoNumero + sDigitoNossoNumero) , 13, '0') + // 045 – 057 / Identificação do título no Banco (Nosso Número
sTipoCobranca + // 058 - 058 / Tipo de cobrança
sTipoCarteira + // 059 - 059 / Forma de Cadastramento = 1 Registrada / 2 Sem Registro
sTipoDocto + // 060 - 060 / Tipo de documento
Space(1) + // 061 - 061 / Reservado (uso Banco)
Space(1) + // 062 - 062 / Reservado (uso Banco)
PadRight(Copy(NumeroDocumento, 1, 15), 15, ' ') + // 063 - 077 / Nº do documento
FormatDateTime('ddmmyyyy',Vencimento) + // 078 - 085 / Data de vencimento do título
IntToStrZero(round(ValorDocumento * 100), 15) + // 086 - 100 / Valor nominal do título
PadLeft('0', 4, '0') + // 101 - 104 / Agência encarregada da cobrança
'0' + // 105 - 105 / Dígito da Agência encarregada da cobrança
Space(1) + // 106 - 106 / Reservado (uso Banco)
sEspecie + // 107 – 108 / Espécie do título
ifThen(Aceite = atSim, 'A', 'N') + // 109 - 109 / Identif. de título Aceito/Não Aceito
FormatDateTime('ddmmyyyy',DataDocumento) + // 110 - 117 / Data da emissão do título
STipoJuros + // 118 - 118 / Código do juros de mora
sDataMoraJuros + // 119 - 126 / Data do juros de mora
ifthen((STipoJuros = '2'), FormatarMoraJurosRemessa(15, ACBrTitulo ),
IntToStrZero(round(ValorMoraJuros * 100), 15)) + // 127 - 141 / Valor da mora/dia ou Taxa mensal
sTipoDesconto + // 142 - 142 / Código do desconto 1
sDataDesconto + // 143 - 150 / Data de desconto 1
IntToStrZero(round(ValorDesconto * 100), 15) + // 151 - 165 / Valor ou Percentual do desconto concedido
IntToStrZero(round(ValorIOF * 100), 15) + // 166 - 180 / Valor do IOF a ser recolhido
IntToStrZero(round(ValorAbatimento * 100), 15) + // 181 - 195 / Valor do abatimento
PadRight(SeuNumero, 25) + // 196 - 220 / Identificação do título na empresa
PadRight(sInstrucoesProtesto, 4) + // 221 - 221 / Código para protesto // 222 - 223 / Número de dias para protesto // 224 - 224 / Código para Baixa/Devolução
'0' + // 225 - 225 / Reservado (uso Banco)
sDiasBaixaDevol + // 226 - 227 / Número de dias para Baixa/Devolução
'00' + // 228 - 229 / Código da moeda
Space(11) ); // 230 – 240 / Reservado (uso Banco)
{SEGMENTO P - FIM}

Inc(ISequencia);

if sCodMovimento = '01' then
begin
{SEGMENTO Q}
ListTransacao.Add( IntToStrZero(ACBrBanco.Numero, 3) + // 001 - 003 / Código do Banco na compensação
'0001' + // 004 - 007 / Numero do lote remessa
'3' + // 008 - 008 / Tipo de registro
IntToStrZero(ISequencia ,5) + // 009 - 013 / Número seqüencial do registro no lote
'Q' + // 014 - 014 / Cód. Segmento do registro detalhe
Space(1) + // 015 - 015 / Reservado (uso Banco)
sCodMovimento + // 016 - 017 / Código de movimento remessa
sTipoInscricao + // 018 - 018 / Tipo de inscrição do sacado
PadLeft(trim(OnlyNumber(Sacado.CNPJCPF)),15,'0') + // 019 - 033 / Número de inscrição do sacado
PadRight(Trim(Sacado.NomeSacado), 40) + // 034 - 073 / Nome sacado
sEndereco + // 074 - 113 / Endereço sacado
PadRight(Trim(Sacado.Bairro), 15) + // 114 - 128 / Bairro sacado
PadLeft(Copy(OnlyNumber(Sacado.CEP), 1, 5), 5, '0') + // 129 - 133 / Cep sacado
PadLeft(Copy(OnlyNumber(Sacado.CEP), 6, 3), 3, '0') + // 134 - 136 / Sufixo do Cep do sacado
PadRight(Trim(Sacado.Cidade), 15) + // 137 - 151 / Cidade do sacado
PadRight(Sacado.UF, 2) + // 152 - 153 / Unidade da federação do sacado
aTipoInscricao + // 154 - 154 / Tipo de inscrição sacador/avalista
PadLeft(Sacado.SacadoAvalista.CNPJCPF, 15,'0') + // 155 - 169 / Nº de inscrição sacador/avalista
PadRight(Sacado.SacadoAvalista.NomeAvalista,40,' ') + // 170 - 209 / Nome do sacador/avalista
'000' + // 210 – 212 / Identificador de carne
'000' + // 213 – 215 / Seqüencial da Parcela ou número inicial da parcela
'000' + // 216 – 218 / Quantidade total de parcelas
'000' + // 219 – 221 / Número do plano
Space(19) ); // 230 – 240 / Reservado (uso Banco)
{SEGMENTO Q - FIM}

if (PercentualMulta > 0) then
begin
Inc(ISequencia);

{SEGMENTO R}
ListTransacao.Add( IntToStrZero(ACBrBanco.Numero, 3) + // 001 - 003 / Código do Banco na compensação
'0001' + // 004 - 007 / Numero do lote remessa
'3' + // 008 - 008 / Tipo de registro
IntToStrZero(ISequencia ,5) + // 009 - 013 / Número seqüencial do registro no lote
'R' + // 014 - 014 / Cód. Segmento do registro detalhe
Space(1) + // 015 - 015 / Reservado (uso Banco)
sCodMovimento + // 016 - 017 / Código de movimento remessa
TipoDescontoToString(TipoDesconto2) + // 018 - 018 / Código do desconto 2
PadLeft(IfThen(TipoDesconto2<>tdNaoConcederDesconto,IfThen(DataDesconto2 > 0, FormatDateTime( 'ddmmyyyy', DataDesconto2),''),''),8,'0') + // 019 - 026 / Data do desconto 2
PadLeft(IfThen(TipoDesconto2<>tdNaoConcederDesconto,IfThen(ValorDesconto2 > 0, IntToStrZero(round(ValorDesconto2 * 100), 15),''),''),15,'0') + // 027 - 041 / Valor/Percentual a ser concedido 2
TipoDescontoToString(TipoDesconto3) + // 042 - 042 / Código do desconto 3
PadLeft(IfThen(TipoDesconto3<>tdNaoConcederDesconto,IfThen(DataDesconto3 > 0, FormatDateTime( 'ddmmyyyy', DataDesconto3),''),''),8,'0') + // 043 - 050 / Data do desconto 3
PadLeft(IfThen(TipoDesconto3<>tdNaoConcederDesconto,IfThen(ValorDesconto3 > 0, IntToStrZero(round(ValorDesconto3 * 100), 15),''),''),15,'0') + // 051 - 065 / Valor/Percentual a ser concedido 3
IfThen((PercentualMulta > 0),
IfThen(MultaValorFixo,'1','2'), '2') + // 66 - 66 1-Cobrar Multa Valor Fixo / 2-Percentual / 0-Não cobrar multa
IfThen((PercentualMulta > 0),
FormatDateTime('ddmmyyyy', DataMulta), '00000000') + // 67 - 74 Se cobrar informe a data para iniciar a cobrança ou informe zeros se não cobrar
IfThen((PercentualMulta > 0), IntToStrZero(round(PercentualMulta * 100), 15),
PadRight('', 15, '0')) + // 075 - 089 / Valor/Percentual a ser aplicado
Space(10) + // 090 - 099 / Reservado (uso Banco)
MontaInstrucoes1CNAB240(ACBrTitulo) + // 100 - 139 / Mensagem 3
// 140 - 179 / Mensagem 4
Space(61) ); // 180 - 240 / Reservado (uso Banco)
end;
{SEGMENTO R - FIM}

if (ACBrTitulo.ACBrBoleto.Cedente.PIX.TipoChavePIX <> tchNenhuma) then
begin
Inc(ISequencia);

{SEGMENTO Y03}
case ACBrTitulo.ACBrBoleto.Cedente.PIX.TipoChavePIX of
tchCPF : LTipoChaveDICT := '1';
tchCNPJ : LTipoChaveDICT := '2';
tchCelular : LTipoChaveDICT := '3';
tchEmail : LTipoChaveDICT := '4';
tchAleatoria : LTipoChaveDICT := '5';
end;

ListTransacao.Add( IntToStrZero(ACBrBanco.Numero, 3) + // 001 - 003 Código do Banco na compensação
'0001' + // 004 - 007 Numero do lote remessa
'3' + // 008 - 008 Tipo de Registro
IntToStrZero(ISequencia ,5) + // 009 - 013 N Sequencial do Registro no lote
'Y' + // 014 - 014 Cód. Segmento do registro detalhe
Space(1) + // 015 - 015 Reservado (uso Banco)
sCodMovimento + // 016 - 017 Código de movimento Remessa
'03' + // 018 - 019 Identificação Registro
Space(61) + // 020 - 080 Reservado (uso Banco)
LTipoChaveDICT + // 081 - 081 Tipo de Chave Pix
PadRight(ACBrTitulo.ACBrBoleto.Cedente.PIX.Chave,77,' ') + // 082 - 158 Chave Pix
PadRight(QrCode.txId,35,' ') + // 159 - 193 Código identificação do QR Code
Space(47) ); // 194 - 240 Reservado (uso Banco)

end;
{SEGMENTO Y03 - FIM}

Inc(ISequencia);
{SEGMENTO S}
// Existe um Formulário 1 - Especial, que não será implementado, erá implementado do Formulário 2
ListTransacao.Add( IntToStrZero(ACBrBanco.Numero, 3) + // 001 - 003 / Código do Banco na compensação
'0001' + // 004 - 007 / Numero do lote remessa
'3' + // 008 - 008 / Tipo de registro
IntToStrZero(ISequencia ,5) + // 009 - 013 / Número seqüencial do registro no lote
'S' + // 014 - 014 / Cód. Segmento do registro detalhe
Space(1) + // 015 - 015 / Reservado (uso Banco)
sCodMovimento + // 016 - 017 / Código de movimento remessa
'2' + // 018 - 018 / Identificação da impressão
MontaInstrucoes2CNAB240(ACBrTitulo) + // 019 - 058 / Mensagem 5
// 059 - 098 / Mensagem 6
// 099 - 138 / Mensagem 7
// 139 - 178 / Mensagem 8
// 179 - 218 / Mensagem 9
Space(22) ); // 219 - 240 / Reservado (uso Banco)

end;
{SEGMENTO S - FIM}

Result := RemoverQuebraLinhaFinal(ListTransacao.Text);
finally
ListTransacao.Free;
end;
end;
end;

procedure TACBrBancoSantander.GerarRegistroTransacao400(ACBrTitulo :TACBrTitulo; aRemessa: TStringList);
var
DigitoNossoNumero, Ocorrencia,aEspecie :String;
Protesto, aAgencia, TipoSacado, wLinha :String;
aCarteira, I: Integer;
LMensagem1, LMensagem2, LMensagem3 : String;
LTipoChaveDICT : string;

begin

aCarteira := StrToIntDef( DefineCarteira(ACBrTitulo) , 0);

if aCarteira = 5 then
aAgencia := PadLeft(OnlyNumber(ACBrTitulo.ACBrBoleto.Cedente.Agencia) +
ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito,5,'0')
else
aAgencia:= '00000';

FvTotalTitulos := FvTotalTitulos + ACBrTitulo.ValorDocumento;

with ACBrTitulo do
begin
DigitoNossoNumero := CalcularDigitoVerificador(ACBrTitulo);

{Tipo de Ocorrencia}
ocorrencia := TipoOcorrenciaToCodRemessa(ACBrTitulo.OcorrenciaOriginal.Tipo);

{Especie Documento}
aEspecie := DefineEspecieDoc(ACBrTitulo);

{Instruções}
Protesto := InstrucoesProtesto(ACBrTitulo);

{Pegando Tipo de Sacado}
TipoSacado := DefineTipoSacado(ACBrTitulo);

with ACBrBoleto do
begin
wLinha:= '1' + // 1- ID Registro
IfThen(Cedente.TipoInscricao = pJuridica,'02','01') + // 2 a 3
PadLeft(trim(OnlyNumber(Cedente.CNPJCPF)),14,'0') + // 4 a 17
PadRight(trim(Cedente.CodigoTransmissao),20,'0') + // 18 a 37
PadRight( SeuNumero ,25,' ') + // 38 a 62
PadLeft(RightStr(NossoNumero,7),7,'0') + DigitoNossoNumero + // 63 a 70
IfThen(DataAbatimento < EncodeDate(2000,01,01),
'000000',
FormatDateTime( 'ddmmyy', DataAbatimento)) + // 71 a 76
' '+IfThen(PercentualMulta > 0,'4','0') + // 77 a 78
IntToStrZero( round( PercentualMulta * 100 ), 4) + // 79 a 82
'00'+StringOfChar( '0', 13)+space(4) + // 83 a 101
IfThen((DataMulta <= 0),'000000',
FormatDateTime( 'ddmmyy', DataMulta)) + // 102 a 107
IntToStr(aCarteira) + Ocorrencia + // 108 a 110
PadRight( NumeroDocumento,10,' ') + // 111 a 120
FormatDateTime( 'ddmmyy', Vencimento) + // 121 a 126
IntToStrZero( round( ValorDocumento * 100), 13) + // 127 a 139
'033' + aAgencia + // 140 a 147
PadLeft(aEspecie, 2) + 'N' + // 148 a 150
FormatDateTime( 'ddmmyy', DataDocumento ) + // 151 a 156
PadLeft(trim(Instrucao1),2,'0') + // 157 a 158
PadLeft(trim(Instrucao2),2,'0') + // 159 a 160
IntToStrZero( round(ValorMoraJuros * 100 ), 13) + // 161 a 173
IfThen(DataDesconto < EncodeDate(2000,01,01),
'000000',
FormatDateTime( 'ddmmyy', DataDesconto)) + // 174 a 179
IntToStrZero( round( ValorDesconto * 100), 13) + // 180 a 192
IntToStrZero( round( ValorIOF * 100 ), 13) + // 193 a 205
IntToStrZero( round( ValorAbatimento * 100 ), 13) + // 206 a 218
TipoSacado + PadLeft(OnlyNumber(Sacado.CNPJCPF),14,'0') + // 219 a 234
PadRight( Sacado.NomeSacado, 40, ' ') + // 235 a 274
PadRight( Sacado.Logradouro + ' '+ Sacado.Numero, 40, ' ') + // 275 a 314
PadRight( Sacado.Bairro,12,' ') + // 315 a 326
PadRight( OnlyNumber(Sacado.CEP) , 8, ' ' ) + // 327 a 334
PadRight( Sacado.Cidade, 15, ' ') +
PadRight( Sacado.UF, 2 ) + // 335 a 351
PadRight(Sacado.Avalista, 30, ' ' ) + // 352 a 381
' I' + // 382 a 383
Copy( Cedente.Conta, length( Cedente.Conta ),1 ) + //
PadLeft( Cedente.ContaDigito, 1 ) + // 384 a 385
Space(6) + // 386 a 391
Protesto + ' ' + // 392 a 394
IntToStrZero( aRemessa.Count + 1, 6 ); // 395 a 400

aRemessa.Add(UpperCase(wLinha));
LMensagem1 := '';
LMensagem2 := '';
LMensagem3 := '';
if Mensagem.Count >= 1 then
LMensagem1 := TiraAcentos(Mensagem[0]);

if Mensagem.Count >= 2 then
LMensagem1 := TiraAcentos(Mensagem[1]);

if Mensagem.Count >= 3 then
LMensagem1 := TiraAcentos(Mensagem[2]);

wLinha:= '2' + // 001-001 "2" - Recibo Pagador
space(16) + // 002-017 Reservado Banco
PadLeft(Cedente.CodigoTransmissao,20,'0') + // 018-037 Agencia / Conta Movimento / Conta Cobranca
Space(10) + // 038-047 Reservado Banco
'01' + // 048-049 SubRegistro "01"
PadRight(LMensagem1, 50) + // 050-099 Mensagem Variavel
'02' + // 100-101 SubSequencia "02"
PadRight(LMensagem2, 50) + // 102-151 Mensagem Variavel
'02' + // 152-153 SubSequencia "02"
PadRight(LMensagem3, 50) + // 154-203 Mensagem Variavel
Space(179) + // 204-382 Reservado Banco
'I' + // 383-383 Identificação do Complemento
PadLeft(Copy( Cedente.Conta, length( Cedente.Conta ),1 ), 1, '0') +
PadLeft( Cedente.ContaDigito, 1, '0' ) + // 384-385 Complemento
Space(9) + // 386-394 Reservado Banco
IntToStrZero( aRemessa.Count + 1 , 6 ); // 395-400 Sequencial de Registro
aRemessa.Add(UpperCase(wLinha));

// Implementei o código abaixo

if (ACBrTitulo.ACBrBoleto.Cedente.PIX.TipoChavePIX <> tchNenhuma) then
begin
case ACBrTitulo.ACBrBoleto.Cedente.PIX.TipoChavePIX of
tchCPF : LTipoChaveDICT := '1';
tchCNPJ : LTipoChaveDICT := '2';
tchCelular : LTipoChaveDICT := '3';
tchEmail : LTipoChaveDICT := '4';
tchAleatoria : LTipoChaveDICT := '5';
end;
wLinha:= '8' + // 001 - 001 "8" - PIX
TipoPagamentoToStr(TipoPagamento) + // 002 - 003 Identificação do tipo de pagamento
IntToStrZero(QtdeParcelas) + // 004 - 005 Quantidade de pagamento possíveis
'2' + // 006 - 006 Tipo de valor informado (1=%, 2=Valor)
IntToStrZero( round( ValorDocumento * 100), 13) + // 007 - 019 Valor Máximo
PadLeft('0',5,'0') + // 020 - 024 % (Percentual) Máximo
IntToStrZero( round( ValorDocumento * 100), 13) + // 025 - 037 Valor Mínimo
PadLeft('0',5,'0') + // 038 - 042 % (Percentual) Mínimo
LTipoChaveDICT + // 043 - 043 Tipo de Chave Pix
PadRight(ACBrTitulo.ACBrBoleto.Cedente.PIX.Chave,77,' ') + // 044 - 120 Chave Pix
PadRight(QrCode.txId,35,' ') + // 121 - 155 Código de identificação do Qr Code (TXID)
Space(239) + // 156 - 394 Reservado (uso Banco)
IntToStrZero( aRemessa.Count + 1 , 6 ); // 395 - 400 Sequencial de Registro
aRemessa.Add(UpperCase(wLinha));

// Fim Implementação

end;
end;
end;
end;

function TACBrBancoSantander.GerarRegistroTrailler240(
ARemessa: TStringList): String;
var
ListTrailler: TStringList;
begin
Result:= '';
ListTrailler:= TStringList.Create;
try
{REGISTRO TRAILER DO LOTE}
ListTrailler.Add(IntToStrZero(fpNumero, 3) + // 001 - 003 / Código do Banco na compensação
'0001' + // 004 - 007 / Numero do lote remessa
'5' + // 008 - 008 / Tipo de registro
Space(9) + // 009 - 017 / Reservado (uso Banco)
IntToStrZero((fpQtdRegsLote * (ARemessa.Count -1)) + 2, 6) + // 018 - 023 / Quantidade de registros do lote
space(217) ); // 024 - 240 / Reservado (uso Banco)

{GERAR REGISTRO TRAILER DO ARQUIVO}
ListTrailler.Add(IntToStrZero(fpNumero, 3) + // 001 - 003 / Código do Banco na compensação
'9999' + // 004 - 007 / Numero do lote remessa
'9' + // 008 - 008 / Tipo de registro
space(9) + // 009 - 017 / Reservado (uso Banco)
'000001' + // 018 - 023 / Quantidade de lotes do arquivo
IntToStrZero((fpQtdRegsLote * (ARemessa.Count -1)) + 4, 6) + // 024 - 029 / Quantidade de registros do arquivo
space(211) ); // 030 - 240 / Reservado (uso Banco)

Result := RemoverQuebraLinhaFinal(ListTrailler.Text);

finally
fpQtdRegsLote := 0;
fpQtdRegsCobranca := 0;
fpVlrRegsCobranca := 0;
ListTrailler.Free;
end;
end;

procedure TACBrBancoSantander.GerarRegistroTrailler400( ARemessa:TStringList );
var
vQtdeLinha : Integer;
wLinha: String;
begin
vQtdeLinha := StrToInt(copy(ARemessa.Text,Length(ARemessa.Text)-7,6));//lê a ultima linha gravada para pergar o codigo seq.

wLinha:= '9' + // ID Registro
IntToStrZero( vQtdeLinha + 1, 6 ) + // Contador de Registros
IntToStrZero( round( FvTotalTitulos* 100), 13) + // Valor Total dos Titulos
StringOfChar( '0', 374) +
IntToStrZero(ARemessa.Count + 1, 6);

ARemessa.Add(UpperCase(wLinha));
end;

procedure TACBrBancoSantander.LerRetorno240(ARetorno: TStringList);
var
Titulo: TACBrTitulo;
Linha, rCodigoCedente, rCedente, rAgencia, rAgenciaDigito, rConta, rContaDigito, rCNPJCPF : String;
iLinha : Integer;

procedure DoVerOcorrencia(AOcorrencia: string);
var
pMotivoRejeicao, CodMotivo, I: Integer;
begin
with Titulo.OcorrenciaOriginal do
begin
if MatchText(AOcorrencia, ['03', '06', '09', '17', '26', '30']) then
begin
if AOcorrencia = '03' then
Tipo:= toRetornoRegistroRecusado
else if AOcorrencia = '26' then
Tipo := toRetornoInstrucaoRejeitada
else if AOcorrencia = '30' then
Tipo := toRetornoAlteracaoDadosRejeitados
else if MatchText(AOcorrencia, ['06', '09']) then
Tipo := CodOcorrenciaToTipo(StrToInt(AOcorrencia))
else if AOcorrencia = '17' then
Tipo := toRetornoLiquidadoAposBaixaOuNaoRegistro;
pMotivoRejeicao:= 209;

for I:= 0 to 4 do
begin
CodMotivo:= StrToIntDef(copy(Linha,pMotivoRejeicao,2),0);
if CodMotivo > 0 then
begin
Titulo.MotivoRejeicaoComando.Add(copy(Linha, pMotivoRejeicao, 2));
Titulo.DescricaoMotivoRejeicaoComando.Add(CodMotivoRejeicaoToDescricao(
Titulo.OcorrenciaOriginal.Tipo,CodMotivo));
end;
Inc(pMotivoRejeicao, 2);
end;
end
else if MatchText(AOcorrencia, ['02', '06', '09', '11', '12', '13', '14']) then
begin
Tipo := CodOcorrenciaToTipo(StrToInt(AOcorrencia));
end
else
begin
if AOcorrencia = '04' then
Tipo := toRetornoTransferenciaCarteiraEntrada
else if AOcorrencia = '05' then
Tipo := toRetornoTransferenciaCarteiraBaixa
else if AOcorrencia = '17' then
Tipo := toRetornoLiquidadoAposBaixaOuNaoRegistro
else if AOcorrencia = '19' then
Tipo := toRetornoRecebimentoInstrucaoProtestar
else if AOcorrencia = '20' then
Tipo := toRetornoRecebimentoInstrucaoSustarProtesto
else if AOcorrencia = '23' then
Tipo := toRetornoEntradaEmCartorio
else if AOcorrencia = '24' then
Tipo := toRetornoRetiradoDeCartorio
else if AOcorrencia = '25' then
Tipo := toRetornoBaixaPorProtesto
else if AOcorrencia = '27' then
Tipo := toRetornoAlteracaoUsoCedente
else if AOcorrencia = '28' then
Tipo := toRetornoDebitoTarifas
else if AOcorrencia = '29' then
Tipo := toRetornoOcorrenciasDoSacado
else if AOcorrencia = '32' then
Tipo := toRetornoIOFInvalido
else if AOcorrencia = '51' then
Tipo := toRetornoTituloDDAReconhecidoPagador
else if AOcorrencia = '52' then
Tipo := toRetornoTituloDDANaoReconhecidoPagador
else if AOcorrencia = '53' then
Tipo := toRetornoTituloDDARecusadoCIP;
end;
end;
end;
begin

// Verificar se o retorno é do banco selecionado
if StrToIntDef(copy(ARetorno.Strings[0], 1, 3),-1) <> Numero then
raise Exception.create(ACBrStr(ACBrBanco.ACBrBoleto.NomeArqRetorno +
'não é um arquivo de retorno do banco' + sLineBreak + Nome));

rCodigoCedente := Copy(ARetorno[0], 53, 9);
rCedente := Copy(ARetorno[0], 73, 30);
rAgencia := Copy(ARetorno[0], 33, 4);
rAgenciaDigito := Copy(ARetorno[0], 37, 1);
rConta := PadLeft(OnlyNumber(Copy(ARetorno[0], 38, 9)), fpTamanhoConta, '0');
rContaDigito := Copy(ARetorno[0], 47, 1);

case StrToIntDef(Copy(ARetorno[0],17,1),0) of
1: rCNPJCPF := Copy(ARetorno[0],22,11);
2: rCNPJCPF := Copy(ARetorno[0],19,14);
else
rCNPJCPF := Copy(ARetorno[0],19,14);
end;

ValidarDadosRetorno(rAgencia, rConta, rCNPJCPF);
with ACBrBanco.ACBrBoleto do
begin
Cedente.Nome := rCedente;
Cedente.CodigoCedente := rCodigoCedente;
Cedente.CNPJCPF := rCnpjCpf;
Cedente.Agencia := rAgencia;
Cedente.AgenciaDigito := rAgenciaDigito;
Cedente.Conta := rConta;
Cedente.ContaDigito := rContaDigito;

if StrToIntDef(copy(ARetorno[0], 17, 1), 0) = 1 then
Cedente.TipoInscricao := pFisica
else
Cedente.TipoInscricao := pJuridica;

ACBrBanco.ACBrBoleto.ListadeBoletos.Clear;
end;

ACBrBanco.ACBrBoleto.DataArquivo := StringToDateTimeDef(Copy(ARetorno[0],144,2)+'/'+
Copy(ARetorno[0],146,2)+'/'+
Copy(ARetorno[0],148,4),0, 'DD/MM/YYYY' );

ACBrBanco.ACBrBoleto.NumeroArquivo := StrToIntDef(Copy(ARetorno[0],158,6),0);

for iLinha := 1 to ARetorno.Count - 2 do
begin
Linha := ARetorno[iLinha];

if copy(Linha, 14, 1) = 'T' then // se for segmento T cria um novo Titulo
Titulo := ACBrBanco.ACBrBoleto.CriarTituloNaLista;

try
with Titulo do
begin
if copy(Linha, 14, 1) = 'T' then
begin
NossoNumero := DefineNossoNumeroRetorno(Linha);
NumeroDocumento := Copy(Linha, 55, 15);
SeuNumero := Copy(Linha, 101, 25);
Carteira := Copy(Linha, 54, 1);
Vencimento := StringToDateTimeDef(Copy(Linha, 70, 2)+'/'+
Copy(Linha, 72, 2)+'/'+
Copy(Linha, 74,4),0, 'DD/MM/YYYY' );
ValorDocumento := StrToFloatDef(copy(Linha, 78, 15), 0) / 100;
ValorDespesaCobranca := StrToFloatDef(copy(Linha, 194, 15), 0) / 100;
// Sacado
if Copy(Linha, 128, 1) = '1' then
begin
Sacado.Pessoa := pFisica;
Sacado.CNPJCPF := Trim(Copy(Linha, 133, 11));
end
else
begin
Sacado.Pessoa := pJuridica;
Sacado.CNPJCPF := Trim(Copy(Linha, 129, 15));
end;
Sacado.NomeSacado := Trim(Copy(Linha, 144, 40));

// Algumas ocorrências estão diferentes do cnab400, farei uma separada aqui
DoVerOcorrencia(Copy(Linha, 16, 2));
end
else if copy(Linha, 14, 1) = 'U' then
begin
ValorMoraJuros := StrToFloatDef(copy(Linha, 18, 15), 0) / 100;
ValorDesconto := StrToFloatDef(copy(Linha, 33, 15), 0) / 100;
ValorAbatimento := StrToFloatDef(copy(Linha, 48, 15), 0) / 100;
ValorIOF := StrToFloatDef(copy(Linha, 63, 15), 0) / 100;
ValorPago := StrToFloatDef(copy(Linha, 78, 15), 0) / 100;
ValorRecebido := StrToFloatDef(copy(Linha, 93, 15), 0) / 100;
ValorOutrasDespesas := StrToFloatDef(copy(Linha, 108, 15), 0) / 100;
ValorOutrosCreditos := StrToFloatDef(copy(Linha, 123, 15), 0) / 100;
DataOcorrencia := StringToDateTimeDef(Copy(Linha, 138, 2)+'/'+
Copy(Linha, 140, 2)+'/'+
Copy(Linha, 142,4),0, 'DD/MM/YYYY' );
DataCredito := StringToDateTimeDef(Copy(Linha, 146, 2)+'/'+
Copy(Linha, 148, 2)+'/'+
Copy(Linha, 150,4),0, 'DD/MM/YYYY' );
end
else if((copy(Linha, 14, 1) = 'Y')
and (copy(Linha, 18, 2) = '03')
and (Trim(Copy(Linha, 82, 77))<>'')
and (Trim(Copy(Linha, 159, 35))<>'')) then
QrCode.PIXQRCodeDinamico(Trim(Copy(Linha, 82, 77)), Trim(Copy(Linha, 159, 35)), Titulo);
end;
finally
ACBrBanco.TamanhoMaximoNossoNum := 12;
end;
end;
end;

procedure TACBrBancoSantander.LerRetorno400(ARetorno: TStringList);
var
Titulo : TACBrTitulo;
ContLinha, CodOcorrencia, CodMotivo : Integer;
Linha, rCedente, rAgencia, rConta, rDigitoConta, rCNPJCPF : String;
wCodBanco: Integer;
begin
wCodBanco := StrToIntDef(copy(ARetorno.Strings[0],77,3),-1);
if (wCodBanco <> Numero) and (wCodBanco <> 353) then
raise Exception.Create(ACBrStr(ACBrBanco.ACBrBoleto.NomeArqRetorno +
'não é um arquivo de retorno do '+ Nome));

rCedente := trim(Copy(ARetorno[0],47,30));
rAgencia := trim(Copy(ARetorno[1],18,4));
rConta := trim(Copy(ARetorno[1],22,8))+ Copy(ARetorno[1],384,1);
rConta := PadLeft( OnlyNumber(rConta),fpTamanhoConta,'0');
rDigitoConta := Copy(ARetorno[1],385,1);

case StrToIntDef(Copy(ARetorno[1],2,2),0) of
01: rCNPJCPF := Copy(ARetorno[1],7,11);
02: rCNPJCPF := Copy(ARetorno[1],4,14);
else
rCNPJCPF := Copy(ARetorno[1],4,14);
end;

ACBrBanco.ACBrBoleto.DataCreditoLanc :=
StringToDateTimeDef(Copy(ARetorno[0], 95, 2) + '/' +
Copy(ARetorno[0], 97, 2) + '/' +
Copy(ARetorno[0], 99, 2), 0, 'DD/MM/YY');

ACBrBanco.ACBrBoleto.NumeroArquivo := StrToIntDef(Copy(ARetorno[0],392,3),0);

ValidarDadosRetorno(rAgencia, rConta, rCNPJCPF);
with ACBrBanco.ACBrBoleto do
begin
Cedente.Nome := rCedente;
Cedente.CNPJCPF := rCNPJCPF;
Cedente.Agencia := rAgencia;
Cedente.AgenciaDigito:= '0';
Cedente.Conta := rConta;
Cedente.ContaDigito:= rDigitoConta;
Cedente.CodigoCedente := Copy(ARetorno[0], 109, 9);

DataArquivo := StringToDateTimeDef(Copy(ARetorno[0],95,2)+'/'+
Copy(ARetorno[0],97,2)+'/'+
Copy(ARetorno[0],99,2),0, 'DD/MM/YY' );

case StrToIntDef(Copy(ARetorno[1],2,2),0) of
01: Cedente.TipoInscricao:= pFisica;
else
Cedente.TipoInscricao:= pJuridica;
end;

ACBrBanco.ACBrBoleto.ListadeBoletos.Clear;
end;

for ContLinha := 1 to ARetorno.Count - 2 do
begin
Linha := ARetorno[ContLinha] ;

if Copy(Linha,1,1)<> '1' then
Continue;

Titulo := ACBrBanco.ACBrBoleto.CriarTituloNaLista;

with Titulo do
begin
SeuNumero := copy(Linha,38,25);
NossoNumero := Copy(Linha,63,07);
Carteira := Copy(Linha,108,1);

OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(StrToIntDef(
copy(Linha,109,2),0));

DataOcorrencia:= StringToDateTimeDef(Copy(Linha,111,2)+'/'+
Copy(Linha,113,2)+'/'+
Copy(Linha,115,2),0, 'DD/MM/YY' );

NumeroDocumento:= Copy(Linha,117,10);

CodOcorrencia := StrToIntDef(copy(Linha,135,2),0);

//-|Se a ocorrencia for igual a > 0 - Houve Erros
if(CodOcorrencia > 0) then
begin
if copy(Linha,137,3) <> ' ' then
begin
CodMotivo:= StrToIntDef(copy(Linha,137,3),0);
MotivoRejeicaoComando.Add(copy(Linha,137,3));
DescricaoMotivoRejeicaoComando.Add(CodMotivoRejeicaoToDescricao(
OcorrenciaOriginal.Tipo,CodMotivo));
end;

if copy(Linha,140,3) <> ' ' then
begin
CodMotivo:= StrToIntDef(copy(Linha,140,3),0);
MotivoRejeicaoComando.Add(copy(Linha,137,3));
DescricaoMotivoRejeicaoComando.Add(CodMotivoRejeicaoToDescricao(
OcorrenciaOriginal.Tipo,CodMotivo));
end;

if copy(Linha,143,3) <> ' ' then
begin
CodMotivo:= StrToIntDef(copy(Linha,143,3),0);
MotivoRejeicaoComando.Add(copy(Linha,137,3));
DescricaoMotivoRejeicaoComando.Add(CodMotivoRejeicaoToDescricao(
OcorrenciaOriginal.Tipo,CodMotivo));
end;
end;

Vencimento := StringToDateTimeDef( Copy(Linha,147,2)+'/'+
Copy(Linha,149,2)+'/'+
Copy(Linha,151,2),0, 'DD/MM/YY' );

ValorDocumento := StrToFloatDef(Copy(Linha,153,13),0)/100;

EspecieDoc := CodEspecieDocToTipo(Copy(Linha,174,2));

ValorDespesaCobranca := StrToFloatDef(Copy(Linha,176,13),0)/100;
ValorOutrasDespesas := StrToFloatDef(Copy(Linha,189,13),0)/100;
ValorMoraJuros := StrToFloatDef(Copy(Linha,202,13),0) +
StrToFloatDef(Copy(Linha,267,13),0)/100;
ValorIOF := StrToFloatDef(Copy(Linha,215,13),0)/100;
ValorAbatimento := StrToFloatDef(Copy(Linha,228,13),0)/100;
ValorDesconto := StrToFloatDef(Copy(Linha,241,13),0)/100;
ValorRecebido := StrToFloatDef(Copy(Linha,254,13),0)/100;
ValorOutrosCreditos := StrToFloatDef(Copy(Linha,280,13),0)/100;

if Copy(Linha,294,1) = 'N' then
Aceite:= atNao
else
Aceite:= atSim;

if StrToIntDef(Copy(Linha,296,6),0) <> 0 then
DataCredito:= StringToDateTimeDef( Copy(Linha,296,2)+'/'+
Copy(Linha,298,2)+'/'+
Copy(Linha,300,2),0, 'DD/MM/YY' );

Sacado.NomeSacado:= Copy(Linha,302,36);
end;
end;
end;

function TACBrBancoSantander.TipoOcorrenciaToDescricao(const TipoOcorrencia: TACBrTipoOcorrencia): String;
var
CodOcorrencia: Integer;
begin
Result := '';
CodOcorrencia := StrToIntDef(TipoOcorrenciaToCod(TipoOcorrencia),0);

{ Atribuindo Ocorrências divergêntes entre CNAB240 e CNAB400 }
if (ACBrBanco.ACBrBoleto.LayoutRemessa = c240) then
begin
case CodOcorrencia of
17: Result := '17-Liq. Após Baixa/Liq.Tít. não Registrado';
24: Result := '24-Retirada de Cartório/Manutenção em Carteira';
25: Result := '25-Protestado e Baixado';
26: Result := '26-Instrução Rejeitada';
51: Result := '51-Título DDA Reconhecido Pelo Sacado';
52: Result := '52-Título DDA Não Reconhecido Pelo Sacado';
53: Result := '53-Título DDA Recusado Pela CIP';
end;
end
else
begin
case CodOcorrencia of
17: Result := '17-Liquidado em Cartório';
24: Result := '24-Custas de Cartório';
25: Result := '25-Protestar Título';
26: Result := '26-Sustar Protesto';
35: Result := '35-Título DDA Reconhecido Pelo Sacado';
36: Result := '36-Título DDA Não Reconhecido Pelo Sacado';
37: Result := '37-Título DDA Recusado Pela CIP';
end;
end;

if (Result <> '') then
begin
Result := ACBrSTr(Result);
Exit;
end;

case CodOcorrencia of
01: Result := '01-Título Não Existe';
02: Result := '02-Entrada Tít.Confirmada';
03: Result := '03-Entrada Tít.Rejeitada';
04: Result := '04-Transf. de Carteira/Entrada';
05: Result := '05-Transf. de Carteira/Baixa';
06: Result := '06-Liquidação';
07: Result := '07-Liquidação por Conta';
08: Result := '08-Liquidação por Saldo';
09: Result := '09-Baixa Automática';
10: Result := '10-Tít.Baix.Conf.Instrução';
11: Result := '11-Em Ser';
12: Result := '12-Abatimento Concedido';
13: Result := '13-Abatimento Cancelado';
14: Result := '14-Prorrogação de Vencimento';
15: Result := '15-Confirmação de Protesto';
16: Result := '16-Tít.Já Baixado/Liquidado';
19: Result := '19-Recebimento da Instrução Protesto';
20: Result := '20-Recebimento da Instrução Não Protestar';
21: Result := '21-Tít. Enviado a Cartório';
22: Result := '22-Tít. Retirado de Cartório';
23: Result := '23-Remessa a Cartório';
27: Result := '27-Confirmação alt.de outros dados';
28: Result := '28-Débito de tarifas e custas';
29: Result := '29-Ocorrência do sacado';
30: Result := '30-Alteração de dados rejeitada';
32: Result := '32-Código IOF Inválido';
38: Result := '38-Recebimento da Instrução Não Protestar'
end;

Result := ACBrSTr(Result);
end;

function TACBrBancoSantander.CodOcorrenciaToTipo(const CodOcorrencia:
Integer ) : TACBrTipoOcorrencia;
begin
Result := toTipoOcorrenciaNenhum;

{ Atribuindo Ocorrências divergêntes entre CNAB240 e CNAB400 }
if (ACBrBanco.ACBrBoleto.LayoutRemessa = c240) then
begin
case CodOcorrencia of
17: Result := toRetornoLiquidadoAposBaixaOuNaoRegistro;
24: Result := toRetornoRetiradoDeCartorio;
25: Result := toRetornoBaixaPorProtesto;
26: Result := toRetornoInstrucaoRejeitada;
35: Result := toRetornoTituloDDAReconhecidoPagador;
36: Result := toRetornoTituloDDANaoReconhecidoPagador;
37: Result := toRetornoTituloDDARecusadoCIP;
91: Result := toRetornoConfirmacaoAlteracaoValorMinimoOuPercentual;
92: Result := toRetornoConfirmacaoAlteracaoValorMaximoOuPercentual;
end;
end
else
begin
case CodOcorrencia of // CNAB 400
17: Result := toRetornoLiquidadoEmCartorio;
24: Result := toRetornoCustasCartorio;
25: Result := toRetornoRecebimentoInstrucaoProtestar;
26: Result := toRetornoRecebimentoInstrucaoSustarProtesto;
51: Result := toRetornoTituloDDAReconhecidoPagador;
52: Result := toRetornoTituloDDANaoReconhecidoPagador;
53: Result := toRetornoTituloDDARecusadoCIP;
62: Result := toRetornoConfirmacaoAlteracaoValorMinimoOuPercentual;
63: Result := toRetornoConfirmacaoAlteracaoValorMaximoOuPercentual;
end;
end;

if (Result <> toTipoOcorrenciaNenhum) then
Exit;

case CodOcorrencia of
01: Result := toRetornoTituloNaoExiste;
02: Result := toRetornoRegistroConfirmado;
03: Result := toRetornoRegistroRecusado;
04: Result := toRetornoTransferenciaCarteiraEntrada;
05: Result := toRetornoTransferenciaCarteiraBaixa;
06: Result := toRetornoLiquidado;
07: Result := toRetornoLiquidadoPorConta;
08: Result := toRetornoLiquidadoSaldoRestante;
09: Result := toRetornoBaixaAutomatica;
10: Result := toRetornoBaixadoInstAgencia;
11: Result := toRetornoTituloEmSer;
12: Result := toRetornoAbatimentoConcedido;
13: Result := toRetornoAbatimentoCancelado;
14: Result := toRetornoVencimentoAlterado;
15: Result := toRetornoProtestado;
16: Result := toRetornoTituloJaBaixado;
19: Result := toRetornoRecebimentoInstrucaoProtestar;
20: Result := toRetornoRecebimentoInstrucaoSustarProtesto;
21: Result := toRetornoEncaminhadoACartorio;
22: Result := toRetornoRetiradoDeCartorio;
23: Result := toRetornoEntradaEmCartorio;
27: Result := toRetornoAlteracaoUsoCedente;
28: Result := toRetornoDebitoTarifas;
29: Result := toRetornoOcorrenciasDoSacado;
30: Result := toRetornoAlteracaoDadosRejeitados;
32: Result := toRetornoIOFInvalido;
38: Result := toRetornoRecebimentoInstrucaoNaoProtestar;
61: Result := toRetornoConfirmacaoAlteracaoValorNominal;

else
Result := toRetornoOutrasOcorrencias;
end;
end;

function TACBrBancoSantander.CodOcorrenciaToTipoRemessa(const CodOcorrencia: Integer): TACBrTipoOcorrencia;
begin
case CodOcorrencia of
02 : Result:= toRemessaBaixar; {Pedido de Baixa}
04 : Result:= toRemessaConcederAbatimento; {Concessão de Abatimento}
05 : Result:= toRemessaCancelarAbatimento; {Cancelamento de Abatimento concedido}
06 : Result:= toRemessaAlterarVencimento; {Alteração de vencimento}
07 : Result:= toRemessaAlterarControleParticipante; {Alteração do controle do participante}
08 : Result:= toRemessaAlterarNumeroControle; {Alteração de seu número}
09 : Result:= toRemessaProtestar; {Pedido de protesto}
10 : Result:= toRemessaConcederDesconto; {Concessão de Desconto}
11 : Result:= toRemessaCancelarDesconto; {Cancelamento de desconto}
18 : Result:= toRemessaCancelarInstrucaoProtesto; {Sustar protesto e manter na carteira}
31 : Result:= toRemessaAlterarOutrosDados; {Alteração de outros dados}
47 : Result:= toRemessaAlteracaoValorNominal; {Alteração do valor nominal do boleto}
48 : Result:= toRemessaAlterarValorMinimo; {Alteração do valor mínimo/percentual}
49 : Result:= toRemessaAlterarValorMaximo; {Alteração do valor máximo/percentual}
98 : Result:= toRemessaNaoProtestar; {Sustar protesto antes do início do ciclo de protesto *}
else
Result:= toRemessaRegistrar; {Remessa}
end;
end;

function TACBrBancoSantander.TipoOcorrenciaToCodRemessa(
const TipoOcorrencia: TACBrTipoOcorrencia): String;
begin
if (ACBrBanco.ACBrBoleto.LayoutRemessa = c240) then
begin
case TipoOcorrencia of
toRemessaBaixar : Result := '02'; {Pedido de Baixa}
toRemessaConcederAbatimento : Result := '04'; {Concessão de Abatimento}
toRemessaCancelarAbatimento : Result := '05'; {Cancelamento de Abatimento concedido}
toRemessaAlterarVencimento : Result := '06'; {Alteração de vencimento}
toRemessaAlterarControleParticipante : Result := '07'; {Alteração Número Controle Cedente}
toRemessaAlterarNumeroControle : Result := '08'; {Alteração de seu número}
toRemessaProtestar : Result := '09'; {Pedido de protesto}
toRemessaCancelarInstrucaoProtesto : Result := '18'; {Sustar protesto e manter na carteira}
toRemessaConcederDesconto : Result := '10'; {Concessão de Desconto}
toRemessaCancelarDesconto : Result := '11'; {Cancelamento de Desconto}
toRemessaAlterarOutrosDados : Result := '31'; {Alteração de outros dados}
toRemessaAlteracaoValorNominal : Result := '47'; {Alteração do valor nominal do boleto}
toRemessaAlterarValorMinimo : Result := '48'; {Alteração do valor mínimo/percentual}
toRemessaAlterarValorMaximo : Result := '49'; {Alteração do valor máximo/percentual}
toRemessaNaoProtestar : Result := '98'; {Não Protestar (Antes de iniciar o ciclo de protesto )}
else
Result := '01'; {Remessa}
end;

end
else
begin
case TipoOcorrencia of // 400
toRemessaBaixar : Result := '02'; {Pedido de Baixa}
toRemessaConcederAbatimento : Result := '04'; {Concessão de Abatimento}
toRemessaCancelarAbatimento : Result := '05'; {Cancelamento de Abatimento concedido}
toRemessaAlterarVencimento : Result := '06'; {Alteração de vencimento}
toRemessaAlterarControleParticipante : Result := '07'; {Alteração Número Controle Cedente}
toRemessaAlterarNumeroControle : Result := '08'; {Alteração de seu número}
toRemessaProtestar : Result := '09'; {Pedido de protesto}
toRemessaCancelarInstrucaoProtesto : Result := '18'; {Sustar protesto e manter na carteira}
toRemessaAlteracaoValorNominal : Result := '47'; {Alteração do valor nominal do boleto}
toRemessaAlterarValorMinimo : Result := '48'; {Alteração do valor mínimo/percentual}
toRemessaAlterarValorMaximo : Result := '49'; { Alteração do valor máximo/percentual}
toRemessaNaoProtestar : Result := '98'; {Sustar protesto antes do início do ciclo de protesto}
else
Result := '01'; {Remessa}
end;

end;
end;

function TACBrBancoSantander.CodEspecieDocToTipo(const EspecieDoc: String): String;
begin
case StrToIntDef(EspecieDoc,0) of
01 : Result:= 'DM';
02 : Result:= 'NP';
03 : Result:= 'NS';
05 : Result:= 'RC';
06 : Result:= 'DS';
07 : Result:= 'LS';
08 : Result:= 'BDP';
19 : Result:= 'BCC';
else
Result:= '';
end;
end;

function TACBrBancoSantander.TipoOcorrenciaToCod (
const TipoOcorrencia: TACBrTipoOcorrencia ) : String;
begin
Result := '';

if (ACBrBanco.ACBrBoleto.LayoutRemessa = c240) then
begin
case TipoOcorrencia of
toRetornoLiquidadoAposBaixaOuNaoRegistro : Result := '17';
toRetornoRetiradoDeCartorio : Result := '24';
toRetornoBaixaPorProtesto : Result := '25';
toRetornoInstrucaoRejeitada : Result := '26';
toRetornoTituloDDAReconhecidoPagador : Result := '35';
toRetornoTituloDDANaoReconhecidoPagador : Result := '36';
toRetornoTituloDDARecusadoCIP : Result := '37';
toRetornoConfirmacaoAlteracaoValorNominal : Result := '61';
toRetornoConfirmacaoAlteracaoValorMinimoOuPercentual : Result := '91';
toRetornoConfirmacaoAlteracaoValorMaximoOuPercentual : Result := '92';
end;
end
else
begin
case TipoOcorrencia of
toRetornoLiquidadoEmCartorio : Result := '17';
toRetornoCustasCartorio : Result := '24';
toRetornoRecebimentoInstrucaoProtestar : Result := '25';
toRetornoRecebimentoInstrucaoSustarProtesto : Result := '26';
toRetornoTituloDDAReconhecidoPagador : Result := '51';
toRetornoTituloDDANaoReconhecidoPagador : Result := '52';
toRetornoTituloDDARecusadoCIP : Result := '53';
toRetornoConfirmacaoAlteracaoValorNominal : Result := '61';
toRetornoConfirmacaoAlteracaoValorMinimoOuPercentual : Result := '62';
toRetornoConfirmacaoAlteracaoValorMaximoOuPercentual : Result := '63';
end;
end;

if (Result <> '') then
Exit;

case TipoOcorrencia of
toRetornoTituloNaoExiste : Result := '01';
toRetornoRegistroConfirmado : Result := '02';
toRetornoRegistroRecusado : Result := '03';
toRetornoTransferenciaCarteiraEntrada : Result := '04';
toRetornoTransferenciaCarteiraBaixa : Result := '05';
toRetornoLiquidado : Result := '06';
toRetornoLiquidadoPorConta : Result := '07';
toRetornoLiquidadoSaldoRestante : Result := '08';
toRetornoBaixaAutomatica : Result := '09';
toRetornoBaixadoInstAgencia : Result := '10';
toRetornoTituloEmSer : Result := '11';
toRetornoAbatimentoConcedido : Result := '12';
toRetornoAbatimentoCancelado : Result := '13';
toRetornoVencimentoAlterado : Result := '14';
toRetornoProtestado : Result := '15';
toRetornoTituloJaBaixado : Result := '16';
toRetornoRecebimentoInstrucaoProtestar : Result := '19';
toRetornoRecebimentoInstrucaoSustarProtesto : Result := '20';
toRetornoEncaminhadoACartorio : Result := '21';
toRetornoRetiradoDeCartorio : Result := '22';
toRetornoEntradaEmCartorio : Result := '23';
toRetornoAlteracaoUsoCedente : Result := '27';
toRetornoDebitoTarifas : Result := '28';
toRetornoOcorrenciasDoSacado : Result := '29';
toRetornoAlteracaoDadosRejeitados : Result := '30';
toRetornoIOFInvalido : Result := '32';
toRetornoRecebimentoInstrucaoNaoProtestar : Result := '38';
else
Result := '02';
end;
end;

function TACBrBancoSantander.CodMotivoRejeicaoToDescricao( const TipoOcorrencia:TACBrTipoOcorrencia; CodMotivo: Integer) : String;
begin
if (ACBrBanco.ACBrBoleto.LayoutRemessa = c400) then
begin
case CodMotivo of
001: Result := '001-NOSSO NUMERO NAO NUMERICO';
002: Result := '002-VALOR DO ABATIMENTO NAO NUMERICO';
003: Result := '003-DATA VENCIMENTO NAO NUMERICA';
004: Result := '004-CONTA COBRANCA NAO NUMERICA';
005: Result := '005-CODIGO DA CARTEIRA NAO NUMERICO';
006: Result := '006-CODIGO DA CARTEIRA INVALIDO';
007: Result := '007-ESPECIE DO DOCUMENTO INVALIDA';
008: Result := '008-UNIDADE DE VALOR NAO NUMERICA';
009: Result := '009-UNIDADE DE VALOR INVALIDA';
010: Result := '010-CODIGO PRIMEIRA INSTRUCAO NAO NUMERICA';
011: Result := '011-CODIGO SEGUNDA INSTRUCAO NAO NUMERICA';
012: Result := '012-VALOR DO TITULO EM OUTRA UNIDADE';
013: Result := '013-VALOR DO TITULO NAO NUMERICO';
014: Result := '014-VALOR DE MORA NAO NUMERICO';
015: Result := '015-DATA EMISSAO NÃO NUMERICA';
016: Result := '016-DATA DE VENCIMENTO INVALIDA';
017: Result := '017-CODIGO DA AGENCIA COBRADORA NAO NUMERICA';
018: Result := '018-VALOR DO IOC NAO NUMERICO';
019: Result := '019-NUMERO DO CEP NAO NUMERICO';
020: Result := '020-TIPO INSCRICAO NAO NUMERICO';
021: Result := '021-NUMERO DO CGC OU CPF NAO NUMERICO';
022: Result := '022-CODIGO OCORRENCIA INVALIDO';
024: Result := '024-TOTAL PARCELA NAO NUMERICO';
025: Result := '025-VALOR DESCONTO NAO NUMERICO';
026: Result := '026-CODIGO BANCO COBRADOR INVALIDO';
027: Result := '027-NUMERO PARCELAS CARNE NAO NUMERICO';
028: Result := '028-NUMERO PARCELAS CARNE ZERADO';
029: Result := '029-VALOR DE MORA INVALIDO';
030: Result := '030-DT VENC MENOR DE 15 DIAS DA DT PROCES';
039: Result := '039-PERFIL NAO ACEITA TITULO EM BCO CORRESP';
041: Result := '041-AGENCIA COBRADORA NAO ENCONTRADA';
042: Result := '042-CONTA COBRANCA INVALIDA';
043: Result := '043-NAO BAIXAR, COMPL. INFORMADO INVALIDO';
044: Result := '044-NAO PROTESTAR, COMPL. INFORMADO INVALIDO';
045: Result := '045-QTD DE DIAS DE BAIXA NAO PREENCHIDO';
046: Result := '046-QTD DE DIAS PROTESTO NAO PREENCHIDO';
047: Result := '047-TOT PARC. INF. NAO BATE C/ QTD PARC GER';
048: Result := '048-CARNE COM PARCELAS COM ERRO';
049: Result := '049-SEU NUMERO NAO CONFERE COM O CARNE';
051: Result := '051-TITULO NAO ENCONTRADO';
052: Result := '052-OCOR. NAO ACATADA, TITULO LIQUIDADO';
053: Result := '053-OCOR. NAO ACATADA, TITULO BAIXADO';
054: Result := '054-TITULO COM ORDEM DE PROTESTO JA EMITIDA';
055: Result := '055-OCOR. NAO ACATADA, TITULO JA PROTESTADO';
056: Result := '056-OCOR. NAO ACATADA, TIT. NAO VENCIDO';
057: Result := '057-CEP DO SACADO INCORRETO';
058: Result := '058-CGC/CPF INCORRETO';
059: Result := '059-INSTRUCAO ACEITA SO P/ COBRANCA SIMPLES';
060: Result := '060-ESPECIE DOCUMENTO NAO PROTESTAVEL';
061: Result := '061-CEDENTE SEM CARTA DE PROTESTO';
062: Result := '062-SACADO NAO PROTESTAVEL';
063: Result := '063-CEP NAO ENCONTRADO NA TABELA DE PRACAS';
064: Result := '064-TIPO DE COBRANCA NAO PERMITE PROTESTO';
065: Result := '065-PEDIDO SUSTACAO JA SOLICITADO';
066: Result := '066-SUSTACAO PROTESTO FORA DE PRAZO';
067: Result := '067-CLIENTE NAO TRANSMITE REG. DE OCORRENCIA';
068: Result := '068-TIPO DE VENCIMENTO INVALIDO';
069: Result := '069-PRODUTO DIFERENTE DE COBRANCA SIMPLES';
070: Result := '070-DATA PRORROGACAO MENOR QUE DATA VENCTO';
071: Result := '071-DATA ANTECIPACAO MAIOR QUE DATA VENCTO';
072: Result := '072-DATA DOCUMENTO SUPERIOR A DATA INSTRUCAO';
073: Result := '073-ABATIMENTO MAIOR/IGUAL AO VALOR TITULO';
074: Result := '074-PRIM. DESCONTO MAIOR/IGUAL VALOR TITULO';
075: Result := '075-SEG. DESCONTO MAIOR/IGUAL VALOR TITULO';
076: Result := '076-TERC. DESCONTO MAIOR/IGUAL VALOR TITULO';
077: Result := '077-DESC. POR ANTEC. MAIOR/IGUAL VLR TITULO';
078: Result := '078-NAO EXISTE ABATIMENTO P/ CANCELAR';
079: Result := '079-NAO EXISTE PRIM. DESCONTO P/ CANCELAR';
080: Result := '080-NAO EXISTE SEG. DESCONTO P/ CANCELAR';
081: Result := '081-NAO EXISTE TERC. DESCONTO P/ CANCELAR';
082: Result := '082-NAO EXISTE DESC. POR ANTEC. P/ CANCELAR';
084: Result := '084-JA EXISTE SEGUNDO DESCONTO';
085: Result := '085-JA EXISTE TERCEIRO DESCONTO';
086: Result := '086-DATA SEGUNDO DESCONTO INVALIDA';
087: Result := '087-DATA TERCEIRO DESCONTO INVALIDA';
089: Result := '089-DATA MULTA MENOR/IGUAL QUE VENCIMENTO';
090: Result := '090-JA EXISTE DESCONTO POR DIA ANTECIPACAO';
091: Result := '091-JA EXISTE CONCESSAO DE DESCONTO';
092: Result := '092-NOSSO NUMERO JA CADASTRADO';
093: Result := '093-VALOR DO TITULO NAO INFORMADO';
094: Result := '094-VALOR TIT. EM OUTRA MOEDA NAO INFORMADO';
095: Result := '095-PERFIL NAO ACEITA VALOR TITULO ZERADO';
096: Result := '096-ESPECIE DOCTO NAO PERMITE PROTESTO';
097: Result := '097-ESPECIE DOCTO NAO PERMITE IOC ZERADO';
098: Result := '098-DATA EMISSAO INVALIDA';
099: Result := '099-REGISTRO DUPLICADO NO MOVIMENTO DIÁRIO';
100: Result := '100-DATA EMISSAO MAIOR QUE A DATA VENCIMENTO';
101: Result := '101-NOME DO SACADO NÃO INFORMADO';
102: Result := '102-ENDERECO DO SACADO NÃO INFORMADO';
103: Result := '103-MUNICIPIO DO SACADO NAO INFORMADO';
104: Result := '104-UNIDADE DA FEDERACAO NAO INFORMADA';
105: Result := '105-TIPO INSCRICAO NÃO EXISTE';
106: Result := '106-CGC/CPF NAO INFORMADO';
107: Result := '107-UNIDADE DA FEDERACAO INCORRETA';
108: Result := '108-DIGITO CGC/CPF INCORRETO';
109: Result := '109-VALOR MORA TEM QUE SER ZERO (TIT = ZERO)';
110: Result := '110-DATA PRIMEIRO DESCONTO INVALIDA';
111: Result := '111-DATA DESCONTO NAO NUMERICA';
112: Result := '112-VALOR DESCONTO NAO INFORMADO';
113: Result := '113-VALOR DESCONTO INVALIDO';
114: Result := '114-VALOR ABATIMENTO NAO INFORMADO';
115: Result := '115-VALOR ABATIMENTO MAIOR VALOR TITULO';
116: Result := '116-DATA MULTA NAO NUMERICA';
117: Result := '117-VALOR DESCONTO MAIOR VALOR TITULO';
118: Result := '118-DATA MULTA NAO INFORMADA';
119: Result := '119-DATA MULTA MAIOR QUE DATA DE VENCIMENTO';
120: Result := '120-PERCENTUAL MULTA NAO NUMERICO';
121: Result := '121-PERCENTUAL MULTA NAO INFORMADO';
122: Result := '122-VALOR IOF MAIOR QUE VALOR TITULO';
123: Result := '123-CEP DO SACADO NAO NUMERICO';
124: Result := '124-CEP SACADO NAO ENCONTRADO';
126: Result := '126-CODIGO P. BAIXA / DEVOL. INVALIDO';
127: Result := '127-CODIGO P. BAIXA / DEVOL. NAO NUMERICA';
128: Result := '128-CODIGO PROTESTO INVALIDO';
129: Result := '129-ESPEC DE DOCUMENTO NAO NUMERICA';
130: Result := '130-FORMA DE CADASTRAMENTO NAO NUMERICA';
131: Result := '131-FORMA DE CADASTRAMENTO INVALIDA';
132: Result := '132-FORMA CADAST. 2 INVALIDA PARA CARTEIRA 3';
133: Result := '133-FORMA CADAST. 2 INVALIDA PARA CARTEIRA 4';
134: Result := '134-CODIGO DO MOV. REMESSA NAO NUMERICO';
135: Result := '135-CODIGO DO MOV. REMESSA INVALIDO';
136: Result := '136-CODIGO BCO NA COMPENSACAO NAO NUMERICO';
138: Result := '138-NUM. LOTE REMESSA(DETALHE) NAO NUMERICO';
140: Result := '140-COD. SEQUEC.DO REG. DETALHE INVALIDO';
141: Result := '141-NUM. SEQ. REG. DO LOTE NAO NUMERICO';
142: Result := '142-NUM.AG.CEDENTE/DIG.NAO NUMERICO';
144: Result := '144-TIPO DE DOCUMENTO NAO NUMERICO';
145: Result := '145-TIPO DE DOCUMENTO INVALIDO';
146: Result := '146-CODIGO P. PROTESTO NAO NUMERICO';
147: Result := '147-QTDE DE DIAS P. PROTESTO INVALIDO';
148: Result := '148-QTDE DE DIAS P. PROTESTO NAO NUMERICO';
149: Result := '149-CODIGO DE MORA INVALIDO';
150: Result := '150-CODIGO DE MORA NAO NUMERICO';
151: Result := '151-VL.MORA IGUAL A ZEROS P. COD.MORA 1';
152: Result := '152-VL. TAXA MORA IGUAL A ZEROS P.COD MORA 2';
154: Result := '154-VL. MORA NAO NUMERICO P. COD MORA 2';
155: Result := '155-VL. MORA INVALIDO P. COD.MORA 4';
156: Result := '156-QTDE DIAS P.BAIXA/DEVOL. NAO NUMERICO';
157: Result := '157-QTDE DIAS BAIXA/DEV. INVALIDO P. COD. 1';
158: Result := '158-QTDE DIAS BAIXA/DEV. INVALIDO P.COD. 2';
160: Result := '160-BAIRRO DO SACADO NAO INFORMADO';
161: Result := '161-TIPO INSC.CPF/CGC SACADOR/AVAL.NAO NUM.';
162: Result := '162-INDICADOR DE CARNE NAO NUMERICO';
163: Result := '163-NUM. TOTAL DE PARC.CARNE NAO NUMERICO';
164: Result := '164-NUMERO DO PLANO NAO NUMERICO';
165: Result := '165-INDICADOR DE PARCELAS CARNE INVALIDO';
166: Result := '166-N.SEQ. PARCELA INV.P.INDIC. MAIOR 0';
167: Result := '167-N. SEQ.PARCELA INV.P.INDIC.DIF.ZEROS';
168: Result := '168-N.TOT.PARC.INV.P.INDIC. MAIOR ZEROS';
169: Result := '169-NUM.TOT.PARC.INV.P.INDIC.DIFER.ZEROS';
170: Result := '170-FORMA DE CADASTRAMENTO 2 INV.P.CART.5';
199: Result := '199-TIPO INSC.CGC/CPF SACADOR.AVAL.INVAL.';
200: Result := '200-NUM.INSC.(CGC)SACADOR/AVAL.NAO NUMERICO';
201: Result := '201-ALT. DO CONTR. PARTICIPANTE INVALIDO';
202: Result := '202-ALT. DO SEU NUMERO INVALIDA';
218: Result := '218-BCO COMPENSACAO NAO NUMERICO (D3Q)';
219: Result := '219-BCO COMPENSACAO INVALIDO (D3Q)';
220: Result := '220-NUM. DO LOTE REMESSA NAO NUMERICO(D3Q)';
221: Result := '221-NUM. SEQ. REG. NO LOTE (D3Q)';
222: Result := '222-TIPO INSC.SACADO NAO NUMERICO (D3Q)';
223: Result := '223-TIPO INSC.SACADO INVALIDO (D3Q)';
224: Result := '224-NUM.INSC.SACADO NAO NUMERICO (D3Q)';
225: Result := '225-NUM.INSC.SAC.INV.P.TIPO INSC.0 E 9(D3Q)';
226: Result := '226-NUM.BCO COMPENSACAO NAO NUMERICO (D3R)';
228: Result := '228-NUM. LOTE REMESSA NAO NUMERICO (D3R)';
229: Result := '229-NUM. SEQ. REG. LOTE NAO NUMERICO (D3R)';
246: Result := '246-COD.BCO COMPENSACAO NAO NUMERICO (D3S)';
247: Result := '247-COD. BANCO COMPENSACAO INVALIDO (D3S)';
248: Result := '248-NUM.LOTE REMESSA NAO NUMERICO (D3S)';
249: Result := '249-NUM.SEQ.DO REG.LOTE NAO NUMERICO (D3S)';
250: Result := '250-NUM.IDENT.DE IMPRESSAO NAO NUMERICO(D3S)';
251: Result := '251-NUM.IDENT.DE IMPRESSAO INVALIDO (D3S)';
252: Result := '252-NUM.LINHA IMPRESSA NAO NUMERICO(D3S)';
253: Result := '253-COD.MSG. P.REC. SAC. NAO NUMERICO (D3S)';
254: Result := '254-COD.MSG.P.REC.SACADO INVALIDO(D3S)';
258: Result := '258-VL.MORA NAO NUMERICO P.COD=4(D3P)';
259: Result := '259-CAD.TXPERM.SK.INV.P.COD.MORA=4(D3P)';
260: Result := '260-VL.TIT(REAL).INV.P.COD.MORA = 1(DEP)';
261: Result := '261-VL.OUTROS INV.P.COD.MORA = 1(D3P)';
else
Result := IntToStrZero(CodMotivo, 3) + ' - Outros Motivos';
end;
end
else // 240
begin
case TipoOcorrencia of
toRetornoComandoRecusado, toRetornoRegistroRecusado: //03 (Entrada rejeitada)
case CodMotivo of
01: Result:='Codigo do banco invalido';
02: Result:='Codigo do registro detalhe invalido';
03: Result:='Codigo do segmento invalido';
04: Result:='Codigo do movimento nao permitido para carteira';
05: Result:='Codigo de movimento invalido';
06: Result:='Tipo/numero de inscricao do beneficiário invalidos';
07: Result:='Agencia/Conta/DV invalido';
08: Result:='Nosso numero invalido';
09: Result:='Nosso numero duplicado';
10: Result:='Carteira invalida';
11: Result:='Forma de cadastramento do titulo invalido';
12: Result:='Tipo de documento invalido';
13: Result:='Identificacao da emissao do bloqueto invalida';
14: Result:='Identificacao da distribuicao do bloqueto invalida';
15: Result:='Caracteristicas da cobranca incompativeis';
16: Result:='Data de vencimento invalida';
17: Result:='Data de vencimento anterior a data de emissao';
18: Result:='Vencimento fora do prazo de operacao';
19: Result:='Titulo a cargo de Bancos Correspondentes com vencimento inferior XX dias';
20: Result:='Valor do titulo invalido';
21: Result:='Especie do titulo invalida';
22: Result:='Especie nao permitida para a carteira';
23: Result:='Aceite invalido';
24: Result:='Data da emissao invalida';
25: Result:='Data da emissao posterior a data';
26: Result:='Codigo de juros de mora invalido';
27: Result:='Valor/Taxa de juros de mora invalido';
28: Result:='Codigo do desconto invalido';
29: Result:='Valor do desconto maior ou igual ao valor do titulo ';
30: Result:='Desconto a conceder nao confere';
31: Result:='Concessao de desconto - ja existe desconto anterior';
32: Result:='Valor do IOF invalido';
33: Result:='Valor do abatimento invalido';
34: Result:='Valor do abatimento maior ou igual ao valor do titulo';
35: Result:='Abatimento a conceder nao confere';
36: Result:='Concessao de abatimento - ja existe abatimento anterior';
37: Result:='Codigo para protesto invalido';
38: Result:='Prazo para protesto invalido';
39: Result:='Pedido de protesto nao permitido para o titulo';
40: Result:='Titulo com ordem de protesto emitida';
41: Result:='Pedido de cancelamento/sustacao para titulos sem instrucao de protesto';
42: Result:='Codigo para baixa/devolucao invalido';
43: Result:='Prazo para baixa/devolucao invalido';
44: Result:='Codigo da moeda invalido';
45: Result:='Nome do pagador nao informado';
46: Result:='Tipo/numero de inscricao do pagador invalidos';
47: Result:='Endereco do pagador nao informado';
48: Result:='CEP invalido';
49: Result:='CEP sem praca de cobranca /nao localizado';
50: Result:='CEP referente a um Banco Correspondente';
51: Result:='CEP incompativel com a unidade da federacao';
52: Result:='Unidade da federacao invalida';
53: Result:='Tipo/numero de inscricao do sacador/avalista invalidos';
54: Result:='Sacador/Avalista nao informado';
55: Result:='Nosso numero no Banco Correspondente nao informado';
56: Result:='Codigo do Banco Correspondente nao informado';
57: Result:='Codigo da multa invalido';
58: Result:='Data da multa invalida';
59: Result:='Valor/Percentual da multa invalido';
60: Result:='Movimento para titulo nao cadastrado';
61: Result:='Alteracao da agencia cobradora/dv invalida';
62: Result:='Tipo de impressao invalido';
63: Result:='Entrada para titulo ja cadastrado';
64: Result:='Numero da linha invalido';
65: Result:='A espécie de título não permite a instrução';
72: Result:='Entrada de título Sem Registro';
90: Result:='Identificador/Quantidade de Parcelas de carnê invalido';
92: Result:='Data de Desconto Inválida';
end;
toRetornoLiquidadoSemRegistro, toRetornoLiquidado, toRetornoLiquidadoPorConta,
toRetornoLiquidadoSaldoRestante, toRetornoLiquidadoEmCartorio: // 05, 06, 07, 08 e 15 (Liquidado)
case CodMotivo of
01: Result:='01-Por saldo';
02: Result:='02-Por conta';
03: Result:='03-No próprio banco';
04: Result:='04-Compensação eletrônica';
05: Result:='05-Compensação convencional';
06: Result:='06-Arquivo magnético';
07: Result:='07-Após feriado local';
08: Result:='08-Em cartório';
09: Result:='09-Pagamento Parcial';
end;
else
Result := IntToStrZero(CodMotivo, 2) + ' - Outros Motivos';
end;
end;

Result := ACBrSTr(Result);
end;

end.

CesarArrais · 2 Setembro

Linha 941 corrigida abaixo:

IntToStrZero(QtdeParcelas,2) + // 004 - 005 Quantidade de pagamento possíveis

Juliomar Marchetti · 2 Setembro

Fui conferir aqui e a menos que eu esteja errado sua unit está muito antiga

faça um update no acbr e deixe baixar tudo e depois sim teste com a do svn então veja se ainda precisa de seu código

CesarArrais · 2 Setembro

Boa tarde Juliomar.

Fiz o que recomendou, apesar de ter feito uma atualização hoje pela manhã.

Sim, não existe o Registro do Tipo 8 no Layout CNAB400 para o Banco SANTANDER.

Juliomar Marchetti · 2 Setembro

34 minutos atrás, CesarArrais disse:

Boa tarde Juliomar.

Fiz o que recomendou, apesar de ter feito uma atualização hoje pela manhã.

Sim, não existe o Registro do Tipo 8 no Layout CNAB400 para o Banco SANTANDER.

hum desculpe mas não entendi a última frase?

CesarArrais · 2 Setembro

Vamos lá,

Na procedure GerarRegistroTransacao400 do Banco Santander, não existe a geração do registro tipo 8 (que é o Registro Tipo de Pagamento e Dados Qr Code).

Tal informação está contida na página 11 do Manual do Santander V 2.33 Junho/2024.

Fiz a alteração na referida procedure conforme abaixo:

procedure TACBrBancoSantander.GerarRegistroTransacao400(ACBrTitulo :TACBrTitulo; aRemessa: TStringList);
var
DigitoNossoNumero, Ocorrencia,aEspecie :String;
Protesto, aAgencia, TipoSacado, wLinha :String;
aCarteira, I: Integer;
LMensagem1, LMensagem2, LMensagem3 : String;
LTipoChaveDICT, Ltipopagamento : string;

begin

aCarteira := StrToIntDef( DefineCarteira(ACBrTitulo) , 0);

if aCarteira = 5 then
aAgencia := PadLeft(OnlyNumber(ACBrTitulo.ACBrBoleto.Cedente.Agencia) +
ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito,5,'0')
else
aAgencia:= '00000';

FvTotalTitulos := FvTotalTitulos + ACBrTitulo.ValorDocumento;

with ACBrTitulo do
begin
DigitoNossoNumero := CalcularDigitoVerificador(ACBrTitulo);

{Tipo de Ocorrencia}
ocorrencia := TipoOcorrenciaToCodRemessa(ACBrTitulo.OcorrenciaOriginal.Tipo);

{Especie Documento}
aEspecie := DefineEspecieDoc(ACBrTitulo);

{Instruções}
Protesto := InstrucoesProtesto(ACBrTitulo);

{Pegando Tipo de Sacado}
TipoSacado := DefineTipoSacado(ACBrTitulo);

with ACBrBoleto do
begin
wLinha:= '1' + // 1- ID Registro
IfThen(Cedente.TipoInscricao = pJuridica,'02','01') + // 2 a 3
PadLeft(trim(OnlyNumber(Cedente.CNPJCPF)),14,'0') + // 4 a 17
PadRight(trim(Cedente.CodigoTransmissao),20,'0') + // 18 a 37
PadRight( SeuNumero ,25,' ') + // 38 a 62
PadLeft(RightStr(NossoNumero,7),7,'0') + DigitoNossoNumero + // 63 a 70
IfThen(DataAbatimento < EncodeDate(2000,01,01),
'000000',
FormatDateTime( 'ddmmyy', DataAbatimento)) + // 71 a 76
' '+IfThen(PercentualMulta > 0,'4','0') + // 77 a 78
IntToStrZero( round( PercentualMulta * 100 ), 4) + // 79 a 82
'00'+StringOfChar( '0', 13)+space(4) + // 83 a 101
IfThen((DataMulta <= 0),'000000',
FormatDateTime( 'ddmmyy', DataMulta)) + // 102 a 107
IntToStr(aCarteira) + Ocorrencia + // 108 a 110
PadRight( NumeroDocumento,10,' ') + // 111 a 120
FormatDateTime( 'ddmmyy', Vencimento) + // 121 a 126
IntToStrZero( round( ValorDocumento * 100), 13) + // 127 a 139
'033' + aAgencia + // 140 a 147
PadLeft(aEspecie, 2) + 'N' + // 148 a 150
FormatDateTime( 'ddmmyy', DataDocumento ) + // 151 a 156
PadLeft(trim(Instrucao1),2,'0') + // 157 a 158
PadLeft(trim(Instrucao2),2,'0') + // 159 a 160
IntToStrZero( round(ValorMoraJuros * 100 ), 13) + // 161 a 173
IfThen(DataDesconto < EncodeDate(2000,01,01),
'000000',
FormatDateTime( 'ddmmyy', DataDesconto)) + // 174 a 179
IntToStrZero( round( ValorDesconto * 100), 13) + // 180 a 192
IntToStrZero( round( ValorIOF * 100 ), 13) + // 193 a 205
IntToStrZero( round( ValorAbatimento * 100 ), 13) + // 206 a 218
TipoSacado + PadLeft(OnlyNumber(Sacado.CNPJCPF),14,'0') + // 219 a 234
PadRight( Sacado.NomeSacado, 40, ' ') + // 235 a 274
PadRight( Sacado.Logradouro + ' '+ Sacado.Numero, 40, ' ') + // 275 a 314
PadRight( Sacado.Bairro,12,' ') + // 315 a 326
PadRight( OnlyNumber(Sacado.CEP) , 8, ' ' ) + // 327 a 334
PadRight( Sacado.Cidade, 15, ' ') +
PadRight( Sacado.UF, 2 ) + // 335 a 351
PadRight(Sacado.Avalista, 30, ' ' ) + // 352 a 381
' I' + // 382 a 383
Copy( Cedente.Conta, length( Cedente.Conta ),1 ) + //
PadLeft( Cedente.ContaDigito, 1 ) + // 384 a 385
Space(6) + // 386 a 391
Protesto + ' ' + // 392 a 394
IntToStrZero( aRemessa.Count + 1, 6 ); // 395 a 400

aRemessa.Add(UpperCase(wLinha));
LMensagem1 := '';
LMensagem2 := '';
LMensagem3 := '';
if Mensagem.Count >= 1 then
LMensagem1 := TiraAcentos(Mensagem[0]);

if Mensagem.Count >= 2 then
LMensagem1 := TiraAcentos(Mensagem[1]);

if Mensagem.Count >= 3 then
LMensagem1 := TiraAcentos(Mensagem[2]);

wLinha:= '2' + // 001-001 "2" - Recibo Pagador
space(16) + // 002-017 Reservado Banco
PadLeft(Cedente.CodigoTransmissao,20,'0') + // 018-037 Agencia / Conta Movimento / Conta Cobranca
Space(10) + // 038-047 Reservado Banco
'01' + // 048-049 SubRegistro "01"
PadRight(LMensagem1, 50) + // 050-099 Mensagem Variavel
'02' + // 100-101 SubSequencia "02"
PadRight(LMensagem2, 50) + // 102-151 Mensagem Variavel
'02' + // 152-153 SubSequencia "02"
PadRight(LMensagem3, 50) + // 154-203 Mensagem Variavel
Space(179) + // 204-382 Reservado Banco
'I' + // 383-383 Identificação do Complemento
PadLeft(Copy( Cedente.Conta, length( Cedente.Conta ),1 ), 1, '0') +
PadLeft( Cedente.ContaDigito, 1, '0' ) + // 384-385 Complemento
Space(9) + // 386-394 Reservado Banco
IntToStrZero( aRemessa.Count + 1 , 6 ); // 395-400 Sequencial de Registro
aRemessa.Add(UpperCase(wLinha));

// Implementei o código abaixo

if (ACBrTitulo.ACBrBoleto.Cedente.PIX.TipoChavePIX <> tchNenhuma) then
begin
case ACBrTitulo.ACBrBoleto.Cedente.PIX.TipoChavePIX of
tchCPF : LTipoChaveDICT := '1';
tchCNPJ : LTipoChaveDICT := '2';
tchCelular : LTipoChaveDICT := '3';
tchEmail : LTipoChaveDICT := '4';
tchAleatoria : LTipoChaveDICT := '5';
end;
case tipopagamento of
tpAceita_Qualquer_Valor : Ltipopagamento := '01';
tpAceita_Valores_entre_Minimo_Maximo: Ltipopagamento := '02';
tpNao_Aceita_Valor_Divergente: Ltipopagamento := '03';
end;
wLinha:= '8' + // 001 - 001 PIX
Ltipopagamento + // 002 - 003 Identificação do tipo de pagamento
IntToStrZero(QtdeParcelas,2) + // 004 - 005 Quantidade de pagamento possíveis
'2' + // 006 - 006 Tipo de valor informado (1=%, 2=Valor)
IntToStrZero( round( ValorDocumento * 100), 13) + // 007 - 019 Valor Máximo
PadLeft('0',5,'0') + // 020 - 024 % (Percentual) Máximo
IntToStrZero( round( ValorDocumento * 100), 13) + // 025 - 037 Valor Mínimo
PadLeft('0',5,'0') + // 038 - 042 % (Percentual) Mínimo
LTipoChaveDICT + // 043 - 043 Tipo de Chave Pix
PadRight(ACBrTitulo.ACBrBoleto.Cedente.PIX.Chave,77,' ') + // 044 - 120 Chave Pix
PadRight(QrCode.txId,35,' ') + // 121 - 155 Código de identificação do Qr Code (TXID)
Space(239) + // 156 - 394 Reservado (uso Banco)
IntToStrZero( aRemessa.Count + 1 , 6 ); // 395 - 400 Sequencial de Registro
aRemessa.Add(UpperCase(wLinha));

// Fim Implementação

end;
end;
end;
end;

Juliomar Marchetti · 3 Setembro

anexe am algum local gdrive ou webtransfer e cole o link

CesarArrais · 3 Setembro

Segue link da Unit Modificada.

https://drive.google.com/file/d/1sq_YmAVeA7NZ3vMpi7ZwI81tc6In8wbY/view?usp=drive_link

Outra Implementação que ainda farei será a da Nota 37 do manual : Código de Identificação do QR Code (TXID)
Identificação adotada e controlado pelo Beneficiário se preenchido, se não for informado no momento do
registro do boleto, o Banco atribui essa identificação automaticamente, conforme regra abaixo.
Essa identificação deve ser única para cada boleto com o mínimo de 26 caracteres e no máximo 35
caracteres alfanuméricos. Os caracteres aceitos neste contexto são: A-Z, a-z, 0-9, não pode conter
brancos e nulos.

Juliomar Marchetti · 3 Setembro

ao que parece não tá funcionando link para baixar

CesarArrais · 3 Setembro

ACBrBancoSantander.pas - Google Drive

Será que agora vai?

Aqui vai de boa.

Opa, hoje consegui anexar.

ACBrBancoSantander.pas

Editado 3 Setembro por CesarArrais

Juliomar Marchetti · 3 Setembro

agora que voltou poderia postar o trecho do manual da remoção do nome do Avalista ?

CesarArrais · 3 Setembro

Página 10 do Manual.

Vou anexar o Manual que recebi do banco.

H7800 Layout de Cobrança 353_400 posições V. 2.33 Junho 2024 (Português).pdf

Juliomar Marchetti · 3 Setembro

No svn

favor testar

CesarArrais · 3 Setembro

OK. Obrigado por vossa atenção.

4 horas atrás, CesarArrais disse:

Segue link da Unit Modificada.

https://drive.google.com/file/d/1sq_YmAVeA7NZ3vMpi7ZwI81tc6In8wbY/view?usp=drive_link

Outra Implementação que ainda farei será a da Nota 37 do manual : Código de Identificação do QR Code (TXID)
Identificação adotada e controlado pelo Beneficiário se preenchido, se não for informado no momento do
registro do boleto, o Banco atribui essa identificação automaticamente, conforme regra abaixo.
Essa identificação deve ser única para cada boleto com o mínimo de 26 caracteres e no máximo 35
caracteres alfanuméricos. Os caracteres aceitos neste contexto são: A-Z, a-z, 0-9, não pode conter
brancos e nulos.

Vou implementar essa função e assim que terminar submeto para apreciação.

Juliomar Marchetti · 3 Setembro

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

Entrar

Sobre nós...

REGISTRO 8 = Registro Tipo de Pagamento e Dados Qr Code (SANTANDER CNAB400)

Recommended Posts

CesarArrais

CesarArrais

Juliomar Marchetti

CesarArrais

Juliomar Marchetti

CesarArrais

Juliomar Marchetti

CesarArrais

Juliomar Marchetti

CesarArrais

Juliomar Marchetti

CesarArrais

Juliomar Marchetti

CesarArrais

Juliomar Marchetti

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante

	Juliomar Marchetti	skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br