ACBrBancoCaixaSICOB

[Fabiano Sehn]

Boa tarde pessoal.

Então, estava olhando o arquivo ACBrBancoCaixaSICOB.pas, e para ser exato na função LerRetorno240. Penso que tem um problema ao ler o nosso número do arquivo. 

O problema esta no código abaixo:

      with Titulo do
      begin
         if Copy(Linha,14,1)= 'T' then //segmento T
          begin
            wCarteira := Copy(Linha, 58, 1);

            ACBrBanco.TamanhoMaximoNossoNum :=
             CalcularTamMaximoNossoNumero(Carteira, '', ACBrBanco.ACBrBoleto.Cedente.Convenio);

            SeuNumero        := copy(Linha,59,11);
            NumeroDocumento  := copy(Linha,106,25);

            NossoNumero := Copy(Copy(Linha,47,10), // sem o DV
                                Length(Copy(Linha,47,10))-TamanhoMaximoNossoNum ,
                                TamanhoMaximoNossoNum);
            OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(StrToIntDef(copy(Linha,16,2),0));

Foi adicionado o CalcularTamMaximoNossoNumero e essa função vai retornar nesse caso sempre ZERO, poque tanto a Carteira quanto nosso número esta indo em branco. Sendo assim numca vai pegar o Nosso Numero do Arquivo.

Comei a linha que calcula CalcularTamMaximoNossoNumero e deixei o tamanho 10. E assim leu certinho o Nosso Número.

A questão é saber qual foi a intenção desse ajuste? Alguém poderia esclarecer por favor.?

Att

Fabiano

[DANIEL BORGES DA SILVA]

Olá pessoal,

Estou com dificuldade sobre como deixar o código de barras do boleto Caixa com o tamanho 103 mm, pois à homologadora exige este tamanho com precisão!