Banco Bb - Tacbrcaractitulo - Adiconar Tipo.

[Oneide]

no banco BB deve-se adicionar mais um tipo pelo oque o banco me retornou..

 

retorno do banco:

código 7 é para cobrança simples direta com emissão de bloquetos pelo Beneficiário/Cedente.

 

e o ACBRBoleto so tem esses

 TACBrCaracTitulo = (tcSimples, tcVinculada, tcCaucionada, tcDescontada, tcVendor);

 

 

como poderia proceguir ?

 

posso criar o tipo la ?

 

aguardo..

[Juliana Tamizou]

Bom dia.

 

Onde exatamente esse "7" deve ser informado?

 

Observe este trecho para definir o tipo da carteira...

 

if ((wCarteira = 11) or (wCarteira = 12) or (wCarteira = 17)) 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

         wTipoCarteira:= '7';   

 

Att.

[Oneide]

ola...

 

bem nesse codigo fiz uma validacao...

 

o banco me retornou isso:

a) Segmento P, posição 58, informar código = 7.

Esclarecemos:

- código 1 é para cobrança simples com emissão de bloquetos pelo BB (carteira 11).

- código 7 é para cobrança simples direta com emissão de bloquetos pelo Beneficiário/Cedente (carteira 17).

 

criei o um novo tipo = tcSimplesDiretaComEmissao.      

com isso deixei o codigo assim para homologar.. :

 

case ACBrBoleto.Cedente.CaracTitulo of

        tcSimples     : ACaracTitulo  := '1';

        tcVinculada   : ACaracTitulo  := '2';

        tcCaucionada  : ACaracTitulo  := '3';

        tcDescontada  : ACaracTitulo  := '4';

        tcVendor      : ACaracTitulo  := '5';

        tcSimplesDiretaComEmissao      : ACaracTitulo  := '7';

      end;

 

      wCarteira:= StrToIntDef(Carteira,0);

 

      if (ACaracTitulo = '7') and (wCarteira = 17) then

      begin

        wTipoCarteira := '7';

      end

      else

        if ((wCarteira = 11) or (wCarteira = 12) or (wCarteira = 17)) 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

          wTipoCarteira := '7';

 

 

não sei se talvez poderia ter contornado diferente..

mas foi a primeira solucao que me veio a cabeca em termos leigos..

 

att..

[Juliana Tamizou]

Bom dia.

 

Na verdade acredito que não seja necessário criar um novo tipo de carcteristica do titulo, pois conforme as orientações dadas pelo banco o tipo de carteira quando a mesma for 17 será sempre "7", portanto basta alterar o if.

 

 

        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

          wTipoCarteira := '7';

 

Acredito que assim resolva o problema

[Oneide]

certo..

 

mas essa alteracao sera alterada pro vcs ai tb e repassada ou nao ?

[Juliana Tamizou]

Bom dia.

 

Isso mesmo.

 

Att.

[Oneide]

certo..

 

obrigado