Validação Layout 240 BB

[tuim01]

Fiz a validação do Layout 240 BB e tive os seguintes problemas que já corrigi e estou enviando as modificações.

HEADER DE ARQUIVO e HEADER DE LOTE

033 a 052 PREENCHER O CÓDIGO DE CONVÊNIO, CFE. PADRÃO ABAIXO:

9999999994444CCVVVBB, ONDE

999999999 - CÓDIGO DO CONVÊNIO, NUMÉRICO, ALINHADO À DIREITA, PREENCHIDO COM ZEROS

À ESQUERDA;

4444 - CÓDIGO DO PRODUTO - COBRANÇA CEDENTE 0014;

CC - CARTEIRA DE COBRANÇA

VVV - VARIAÇÃO DA CARTEIRA

BB - DEIXAR AS DUAS ÚLTIMAS POSIÇÕES EM BRANCO

(EX.: "002117588001411019 ")

Problema corrigido assim:

"//Antes padR(CodigoCedente, 9, '0') + '0014' + //33 a 45 - Código do convênio no banco [ Alterado conforme instruções da CSO Brasília ] 27-07-09

//Depois padR(Convenio, 9, '0') + '0014' + //33 a 45 - Código do convênio no banco [ Alterado conforme instruções da CSO Brasília ] 27-07-09 "

DETALHE - SEGMENTO P

009 a 013 DIGITAR 00001

OBS: O SEQUENCIAL DE REGISTRO DEVE INICIAR COM "00001" NO PRIMEIRO

SEGMENTO P, SOMANDO-SE 2 NO CAMPO SEQUENCIAL REGISTRO DOS PRÓXIMOS

SEGMENTOS P.

Problema corrigido assim:

"//Antes IntToStrZero(ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo)+ 1 ,5) + //9 a 13 - Número seqüencial do registro no lote - Cada título tem 2 registros (P e Q)

//Depois IntToStrZero(2 * ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo)+ 1 ,5) + //9 a 13 - Número seqüencial do registro no lote - Cada título tem 2 registros (P e Q)"

038 a 057 PREENCHER COM ZEROS (CPO. COM 20 COLUNAS) // no meu caso tenho que enviar o nossonumero tudo com 0 pq o Banco vai emitir e enviar entao tive que fazer as seguintes mudanças. (Obs. minha carteira é 11/019)

" if (aCarteira = 16) or (aCarteira = 17) or (aCarteira = 18) then

begin

if (ACBrTitulo.Carteira = '18') and (Length(AConvenio) = 6) then

ANossoNumero := padR(ANossoNumero, 17, '0')

else if Length(AConvenio) <= 4 then

ANossoNumero := padR(AConvenio, 4, '0') + padR(ANossoNumero, 7, '0')

else if (Length(AConvenio) > 4) and (Length(AConvenio) <= 6) then

ANossoNumero := padR(AConvenio, 6, '0') + padR(ANossoNumero, 5, '0')

else if Length(AConvenio) = 7 then

ANossoNumero := padR(AConvenio, 7, '0') + padR(ANossoNumero, 10, '0');

end

else

if (aCarteira = 11) then //ACRESCENTADO

ANossoNumero := padR('0', 7, '0')+ padR('0', 13, '0')

else

ANossoNumero := padR(AConvenio, 7, '0')+ padR(ANossoNumero, 11, '0');"

107 a 108 DIGITAR 02 (P/ DUPLICATA MERCANTIL) //aqui o componente esta enviando 'DM' ou oq é digitado tem que ir o codigo entao fiz a formatação

AEspecie //variavel criada na procedure GerarRegistroTransacao240

//Mudei {MUDANDO A ESPECIE DO DOCUMENTO}

case AnsiIndexStr(EspecieDoc, [ 'DM', 'NP','NS', 'RC', 'DS', 'LC', 'ND' ]) of

0 : AEspecie := '02'; //Duplicata Mercantil

1 : AEspecie := '12'; //Nota Promissória

2 : AEspecie := '16'; //Nota de Seguro

3 : AEspecie := '17'; //Recibo

4 : AEspecie := '04'; //Duplicata de Serviço

5 : AEspecie := '07'; //Letra de Câmbio,

6 : AEspecie := '19'; //Nota de Débito

eND;

222 a 223 dias para protesto estava alinhado a esquerda tem que ficar alinhado a direita se nao qd é uma casa so da problema...

// Correto padR(IntToStr(DaysBetween(DataProtesto, Vencimento)), 2, '0'), '00') + //222 a 223 - Prazo para protesto (em dias corridos)

ACBrBancoBrasil.pas

[Juliana Tamizou]

Boa tarde.

Desculpe a demora no retorno, qual o tamanho do convênio foi utilizado? já que para cada um existe um manual diferente fornecido pelo banco.

Att.