Correção da remessa Bradesco e impressão Boleto

[edudsg]

Ao gerar a remessa o suporte do Bradesco me informou que esta errado o a linha header,

estava sendo informado o código do cedente e deveria ser o convênio, apos alteração o arquivo foi validado com sucesso.

deixei assim:

function TACBrBancoBradesco.GerarRegistroHeader400(NumeroRemessa : Integer): String;

begin

with ACBrBanco.ACBrBoleto.Cedente do

begin

Result:= '0' + // ID do Registro

'1' + // ID do Arquivo( 1 - Remessa)

'REMESSA' + // Literal de Remessa

'01' + // Código do Tipo de Serviço

padL( 'COBRANCA', 15 ) + // Descrição do tipo de serviço

// padR( CodigoCedente, 20, '0') + // Codigo da Empresa no Banco

padR( Convenio, 20, '0') + // Codigo da Empresa no Banco

padL( Nome, 30) + // Nome da Empresa

IntToStr( Numero )+ padL('BRADESCO', 15) + // Código e Nome do Banco(237 - Bradesco)

FormatDateTime('ddmmyy',Now) + Space(08)+'MX' + // Data de geração do arquivo + brancos

IntToStrZero(NumeroRemessa,7) + Space(277) + // Nr. Sequencial de Remessa + brancos

IntToStrZero(1,6); // Nr. Sequencial de Remessa + brancos + Contador

Result:= UpperCase(Result);

end;

end;

Quanto a impressão do boleto, nas mensagens aparecia duplicado linhas referente ao juros de mora.

percebi que na unit ACBrBoletoFCFortesFr.pas no evento TACBrBoletoFCFortesFr.RLBand1BeforePrint

estava chamando o: ACBrBoletoFC.ACBrBoleto.AdicionarMensagensPadroes , metodo este que eu já havia chamando ao gerar a remessa , logo não faria sentido ser chamando novamente, então comentei.

Gostaria que outros pudessem verificar se as alterações que fiz procedem.

Obrigando pela atenção.

[Juliana Tamizou]

Bom dia.

Você estava setando a propriedade Convenio e a propriedade Código Cedente, ou apenas uma delas?

Att.

[edudsg]

as duas:

ficou assim:

//Dados do Cedente

RLBTitulo1.DataProcessamento := Date;

RLBTitulo1.Cedente.ContaBancaria.Banco.Codigo := qryCaixa.fieldbyname('BANCO').AsString;

RLBTitulo1.Cedente.ContaBancaria.CodigoAgencia := qryCaixa.fieldbyname('AGENCIA').AsString;

RLBTitulo1.Cedente.ContaBancaria.DigitoAgencia := qryCaixa.fieldbyname('DV_AGENCIA').AsString;

RLBTitulo1.Cedente.ContaBancaria.NumeroConta := ryCaixa.fieldbyname('CONTA_CORRENTE').AsString;

RLBTitulo1.Cedente.ContaBancaria.DigitoConta := qryCaixa.fieldbyname('DV_CONTA').AsString;

RLBTitulo1.Cedente.CodigoCedente := qryCaixa.fieldbyname('COD_CEDENTE').AsString;

RLBTitulo1.Cedente.DigitoCodigoCedente := qryCaixa.fieldbyname('DV_CEDENTE').AsString;

RLBTitulo1.Carteira := qryCaixa.fieldbyname('CARTEIRA').AsString;

RLBTitulo1.Cedente.ContaBancaria.Convenio := qryCaixa.fieldbyname('CONVENIO').AsString;

RLBTitulo1.Cedente.ContaBancaria.NomeCliente := qryCaixa.fieldbyname('EMP_NOME').AsString;

RLBTitulo1.Cedente.TipoInscricao := tiPessoaJuridica;

RLBTitulo1.Cedente.NumeroCPFCGC := qryCaixa.fieldbyname('CNPJ').AsString;

RLBTitulo1.Cedente.Nome := qryCaixa.fieldbyname('EMP_NOME').AsString;

[edudsg]

errei coloquei o codigo antigo do RLBOLETO

o correto é esse:

with Cedente do

begin

// dados da empresa cobradra

nome := qryCaixa.fieldbyname('EMP_NOME').AsString;

TipoInscricao := pJuridica;

CNPJCPF := qryCaixa.fieldbyname('CNPJ').AsString;

Logradouro :=qryCaixa.fieldbyname('EMP_END').AsString;

NumeroRes :=qryCaixa.fieldbyname('EMP_NUM').AsString;

Complemento := qryCaixa.fieldbyname('EMP_COMPL').AsString;

Bairro := qryCaixa.fieldbyname('EMP_BAIRRO').AsString;

Cidade :=qryCaixa.fieldbyname('MUNI_DESCRICAO').AsString;

UF :=qryCaixa.fieldbyname('EMP_UF').AsString ;

CEP :=qryCaixa.fieldbyname('EMP_CEP').AsString;

// dados bancario da empresa

CodigoCedente := qryCaixa.fieldbyname('CARTEIRA').AsString + qryCaixa.fieldbyname('COD_CEDENTE').AsString + qryCaixa.fieldbyname('DV_CONTA').AsString;

// CodigoTransmissao :=;

Agencia := qryCaixa.fieldbyname('AGENCIA').AsString ;

AgenciaDigito := qryCaixa.fieldbyname('DV_AGENCIA').AsString;

Conta := qryCaixa.fieldbyname('CONTA_CORRENTE').AsString;

ContaDigito := qryCaixa.fieldbyname('DV_CONTA').AsString;

// Modalidade :=;

Convenio := qryCaixa.fieldbyname('CONVENIO').AsString;

case qryCaixa.fieldbyname('TIPO_EMISSAO').Asinteger of

0: ResponEmissao:= tbBancoEmite;

1: ResponEmissao:= tbBancoNaoReemite;

2: ResponEmissao:= tbBancoReemite;

3: ResponEmissao:= tbCliEmite;

end;

end;

[Juliana Tamizou]

Para os clientes que utilizam o Bradesco, o único código fornecido pelo banco era o Código do Cedente.

Os códigos que você está utilizando são diferentes?

Att.

[edudsg]

trecho da conversa que tive com o suporte pedindo as alterações.

"

Registro Header

Posição - 027 a 046 - gravar codigo de convenio 4402672

Registro de Transação

Posição - 022 a 024 - gravar codigo da carteira 009

Posição - 025 a 029 - gravar o codigo da agencia sem o digito 03238

Posição - 030 a 036 - gravar o numero da conta 0114988

Posição - 037 a 037 - gravar o digito da conta 1

Posição - 071 a 081 - gravar nosso numero, não pode ser composto por zeros "

Na Posição - 027 a 046 o acbr informa o codigo de cedente, como pode ver pedem o convenio.

[edudsg]

O arquivo de layout que o banco me enviou, veja anexo.

o suporte me informou via email o seguinte:

O código de convenio deve ser informa do no registro header posição - 027 a 046, alinhado a direita com zeros a esquerda.

O código de cedente e composto pelo numero da carteira + o numero da agencia sem o digito + o numero da conta com digito, e deve ser informado no registro de transação posição 021 a 037.

layout_cobranca_port.pdf

[Juliana Tamizou]

Boa tarde.

O campo Identificação da Empresa Cedente no Banco, posições 21 a 37 do registro transação é montado através do componente ao gerar este registro.

Neste caso basta manter o código original (utilizando a propriedade Código do Cedente) para informar o Código fornecido pelo banco, e informar o Código que vc informou no Convênio na propriedade Código Cedente, como tem sido feito atualmente.

Att.

[edudsg]

OK, mas o problema está no header que deveria ser o convenio e ão o código de cedente.

E quanto a impressão ? vc viu como está duplicando as mensagens?

[Juliana Tamizou]

Bom dia.

Irei observar com relação a observação.

Att.

[Juliana Tamizou]

Bom dia.

Acabei de verificar a questão da mensagem que vc citou nos posts anteriores, e não há nada de errado, no meu teste fiz um boleto com mora e com multa, foi impressa uma mensagem para cada coisa.

Att.

[Ricardo Guimarães]

Boa Tarde, sei que o post é antigo mas agradeço se puderem me ajudar.
Estou gerando Remessa CNAB 400 do Bradesco e ele está imprimindo o Cód Cedente ao invés do Convênio que deveria ser na posição 27 a 46

Já depurei e estou passando o valor correto, porém no arquivo não sai o valor do campo que passei (convênio).
Agradeço se alguém puder ajudar 

[Juliana Tamizou]

Boa tarde.

Note no decorrer do tópico que a orientação é utilizar a propriedade CodigoCedente.

Att.