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?

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

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.

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;

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;

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.