Boleto Tipo Carteira - Caixa Economica Federal

[tiautomacao]

Na função GerarRegistroTransacao240 para banco do brasil, é feito um tratamento para ver a característico do título,porém a mesma função da caixa, 
já é colocado "1" direto, ou seja, quando o título vier como descontado, não saberemos 
se o banco for 104 (Caixa Economica Federal)

(Gostaria de saber se é possível implementar esta mesma função para o tratamento e retorno da caixa possa ser igual ao 
Bando do Brasil.)

//UNIT AcbrBancoBrasil
function TACBrBancoBrasil.GerarRegistroTransacao240(ACBrTitulo : TACBrTitulo): String;
 case CaracTitulo of
       tcSimples     : ACaracTitulo  := '1';
       tcVinculada   : ACaracTitulo  := '2';
       tcCaucionada  : ACaracTitulo  := '3';
       tcDescontada  : ACaracTitulo  := '4';
       tcVendor      : ACaracTitulo  := '5';
     end;

     wCarteira:= StrToIntDef(Carteira,0);
     { 1    = Carteira 11/12 na modalidade Simples;
       2, 3 = Carteira 11/17 modalidade Vinculada/Caucionada e carteira 31;
       4    = Carteira 11/17 modalidade Descontada e carteira 51;
       7    = Carteira 17 modalidade Simples. }
     if ((wCarteira = 11) or (wCarteira = 12)) and (ACaracTitulo = '1') then
       wTipoCarteira := '1'
     else if (((wCarteira = 11) or (wCarteira = 17)) and
              ((ACaracTitulo = '2') or (ACaracTitulo = '3'))) or (wCarteira = 31) then
       wTipoCarteira := ACaracTitulo
     else if (((wCarteira = 11) or (wCarteira = 17)) and (ACaracTitulo = '4')) or
             (wCarteira = 51) then
       wTipoCarteira := ACaracTitulo
     else  if (wCarteira = 17) and (ACaracTitulo = '1') then
       wTipoCarteira := '7'
     else
       wTipoCarteira := '7';

      

   // Techo 

Result:= IntToStrZero(ACBrBanco.Numero, 3)                                         + // 1 a 3 - Código do banco
              '0001'                                                                    + // 4 a 7 - Lote de serviço
              '3'                                                                       + // 8 - Tipo do registro: Registro detalhe
              IntToStrZero((3 * 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)
              'P'                                                                       + // 14 - Código do segmento do registro detalhe
              ' '                                                                       + // 15 - Uso exclusivo FEBRABAN/CNAB: Branco
              ATipoOcorrencia                                                           + // 16 a 17 - Código de movimento
              aAgencia                                                                  + // 18 a 22 - Agência mantenedora da conta
              PadRight(ACBrBoleto.Cedente.AgenciaDigito, 1 , '0')                       + // 23 -Dígito verificador da agência
              aConta                                                                    + // 24 a 35 - Número da conta corrente
              PadRight(ACBrBoleto.Cedente.ContaDigito, 1, '0')                          + // 36 - Dígito verificador da conta
              ' '                                                                       + // 37 - Dígito verificador da agência / conta
              PadRight(ANossoNumero+aDV, 20, ' ')                                       + // 38 a 57 - Nosso número - identificação do título no banco
              wTipoCarteira                                                             + // 58 - Cobrança Simples

 

 

//UNIT AcbrBancoCaixa
Porem esta mesma situação nao ocorre na mesma função da caixa.
Veja que para mesma funçao 

function TACBrCaixaEconomica.GerarRegistroTransacao240(ACBrTitulo : TACBrTitulo): String;

Result:= IntToStrZero(ACBrBanco.Numero, 3)                          + //1 a 3 - Código do banco
               '0001'                                                     + //4 a 7 - Lote de serviço
               '3'                                                        + //8 - Tipo do registro: Registro detalhe
               IntToStrZero((3*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)
               'P'                                                        + //14 - Código do segmento do registro detalhe
               ' '                                                        + //15 - Uso exclusivo FEBRABAN/CNAB: Branco
               ATipoOcorrencia                                            + //16 a 17 - Código de movimento
               PadLeft(OnlyNumber(ACBrBoleto.Cedente.Agencia), 5, '0')       + //18 a 22 - Agência mantenedora da conta
               PadRight(ACBrBoleto.Cedente.AgenciaDigito, 1 , '0')            + //23 -Dígito verificador da agência
               PadRight(ACBrBoleto.Cedente.CodigoCedente, 6, '0')             + //24 a 29 - Código do Convênio no Banco (Codigo do cedente)
               PadRight('', 11, '0')                                          + //30 a 40 - Uso Exclusivo da CAIXA
               '14'                                                       + //41 a 42 - Modalidade da Carteira
               PadLeft(Copy(ANossoNumero,3,17), 15, '0')                     + //43 a 57 - Nosso número - identificação do título no banco
               '1'                                                        + //58 - Cobrança Simples 

manual cnab 240 Caixa Economica Federal
Código da Carteira Código adotado pela FEBRABAN, 
para identificar a característica dos títulos dentro das modalidades de cobrança existentes no banco.
‘1’  =  Cobrança Simples
‘3’  =  Cobrança Caucionada 
‘4’  =  Cobrança Descontada

[Juliana Tamizou]

Bom dia.

Se as alterações estão de acordo com o manual, por favor anexe a unit alterada ao tópico.

Att.

[suportezerone]

Gostaria de utilizar o código da carteira com o valor "14" (no arquivo de remessa)

Esse mesmo "14" deverá ser iniciado no  nosso numero do boleto impresso.

[Juliomar Marchetti]

21 minutos atrás, suportezerone disse:

Gostaria de utilizar o código da carteira com o valor "14" (no arquivo de remessa)

Esse mesmo "14" deverá ser iniciado no  nosso numero do boleto impresso.

Está com os fontes atualizados? conseguiu debugar e chegar até esse ponto acima descrito pelo colega?

bom já fazem 2 anos do post então provável já estar ok no svn