Correção arq. remessa Caixa SIGCB

[edudsg]

Na linha header o cnpj do cedente está saindo formatado, deve-se retirar a formatação, usando a função OnlyNumber()

Gotaria de saber se poderiam implementar uma propriedade teste quando verdadeiro altere a posição 192 a 211 que está preenchido com 'REMESSA-PRODUCAO' seja 'REMESSA-TESTE'.

facilitando a geração de arquivo para homologação.

[edudsg]

Conforme o layout no header posiçoes 172 a 191 é preenchido com espaços e não zeros.

[edudsg]

aseguinte função sobre a carteira da empresa, se for sem registro porque a linha " Num := ACarteira + '4' + PadR(ANossoNumero, 15, '0'); " está fixo o '4' pois no layout

seguimento P diz o seguinte :

Quando informado pelo Cliente/Cedente, o Nosso Número deverá obedecer o seguinte formato:

CCNNNNNNNNNNNNNNN, onde:

CC = 11 (título Registrado emissão CAIXA)

CC = 14 (título Registrado emissão Cedente)

CC = 21 (título Sem Registro emissão CAIXA)

NNNNNNNNNNNNNNN = Número livre do Cliente/Cedente

nesse caso se vou trab. sem registro a carteira é 21 .

function TACBrCaixaEconomica.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo ): String;

var

Num, ACarteira, ANossoNumero, Res :String;

begin

Result := '0';

if (ACBrTitulo.Carteira = 'RG') then

ACarteira := '1'

else if (ACBrTitulo.Carteira = 'SR')then

ACarteira := '2'

else

raise Exception.Create( ACBrStr('Carteira Inválida.'+sLineBreak+'Utilize "RG" ou "SR"') ) ;

ANossoNumero := OnlyNumber(ACBrTitulo.NossoNumero);

Num := ACarteira + '4' + PadR(ANossoNumero, 15, '0');

Modulo.CalculoPadrao;

Modulo.MultiplicadorFinal := 2;

Modulo.MultiplicadorInicial := 9;

Modulo.Documento := Num;

Modulo.Calcular;

Res:= IntToStr(Modulo.ModuloFinal);

if Length(Res) > 1 then

Result := '0'

else

Result := Res[1];

end;

[edudsg]

outra diferença que existe na geração do arquivo e o layout

no registro header de lote referente a lote

as posiçoes 4 a 7 está fixo 0001

e no trailer de lote posiçoes 4 a 7 esta fixo 9999

e no trailier de arquivo o mesmo 9999

recebi do validador a regeição do trailer nessa posição.

e nas posiçoes 24 a 29 do trailer de lote referente a Qtd de titulos em cobrança está fixo zeros ;

Por favor Vejam

[edudsg]

em anexo as modificaçoes que fiz

olhei atentamente o layout SIGCB SETEMBRO/2007

ACBrCaixaEconomica.pas

CNAB__240__SIGCB.pdf

[Juliana Tamizou]

Boa tarde Eduardo.

Após analisar suas correções cheguei a conclusão de que a seguinte alteração não está correta:

linha 101 - Num := ACarteira + ifthen(ACBrTitulo.Carteira = 'RG','4','1') + PadR(ANossoNumero, 15, '0');

linha 159 - ANossoNumero := '21'+padR(ANossoNumero, 15, '0')

{

Quando informado pelo Cliente/Cedente, o Nosso Número deverá obedecer o seguinte formato:

CCNNNNNNNNNNNNNNN, onde:

CC = 11 (título Registrado emissão CAIXA)

CC = 14 (título Registrado emissão Cedente)

CC = 21 (título Sem Registro emissão CAIXA)

NNNNNNNNNNNNNNN = Número livre do Cliente/Cedente

}

Conforme o trecho inserido por vc, extraído do manual do banco, repara que o '21' se refere a títulos Sem Registro emitidos pela Caixa, então apenas deve ser adotado no caso do banco ser o responsável pela emissão do boleto.

Com relação ao calculo do DV da Conta, qual a necessidade do componente calcular isso? O ideal é que essa informação seja passada a ele.

Att.

[edudsg]

Quanto ao digito concegui um cristao que pudesse me dizer qual é , liguei p/ suporte me informaram, quanto a carteira nao tinha percebido isso, vou averiguar com meu cliente.

Espero q as demais alteraçoes que fiz no codigo possar ser util.

Obrigado pela atenção.

[Juliana Tamizou]

As demais correções não citadas aqui, foram sim adicionadas