Alteração Código Método Gerarregistrotransacao240 Unit Acbrbancoob

[maiconsi]

Boa tarde Precisei fazer alguns ajustes no Método GerarRegistroTransacao240, na geração do "SEGMENTO P".

Conforme manual o campo "Nosso Número:

- Se emissão a cargo do Sicoob (vide planilha ""Capa"" deste arquivo):      

NumTitulo - 10 posições (1 a 10) = Zeros      

Parcela - 02 posições (11 a 12) - ""01"" se parcela única      

Modalidade - 02 posições (13 a 14) - vide planilha ""Capa"" deste arquivo      

  Tipo Formulário - 01 posição  (15 a 15):          

       ""1"" -auto-copiativo          

       ""3""-auto-envelopável          

       ""4""-A4 sem envelopamento          

       ""6""-A4 sem envelopamento 3 vias     

   Em branco - 05 posições (16 a 20)

- Se emissão a cargo do Cedente (vide planilha ""Capa"" deste arquivo):

     NumTitulo - 10 posições (1 a 10): Vide planilha ""02.Especificações do Boleto"" deste arquivo item 3.13

     Parcela - 02 posições (11 a 12) - ""01"" se parcela única

     Modalidade - 02 posições (13 a 14) - vide planilha ""Capa"" deste arquivo

     Tipo Formulário - 01 posição  (15 a 15):

         ""1"" -auto-copiativo          

         ""3""-auto-envelopável

         ""4""-A4 sem envelopamento

         ""6""-A4 sem envelopamento 3 vias

     Em branco - 05 posições (16 a 20)"

 

Por conta disso precisei fazer um ajuste na função segue o código a baixo com o que foi alterado: Linha: 604

if (ACBrBoleto.Cedente.ResponEmissao = tbCliEmite) then
begin
   Result := Result+padR(NossoNum, 10, '0')+ 
             padR(IntToStr(ACBrTitulo.Parcela), 02, '0')+ //--Alterado
             padR(ACBrBoleto.Cedente.Modalidade, 02, '0')+ //--Alterado
             '4'+
             Space(5);
end
else
   Result := Result+Space(20);

Espero que o código seja incorporado ao projeto.

 

Att,

Maicon da Silva Evangelista

 

[Juliana Tamizou]

Bom dia.

 

Por favor anexe aqui a unit alterada para facilitar o merge.

 

Att.

[maiconsi]

Bom dia, desculpe a demora é que esta em viagem e só voltei hoje.

Segue em anexo a Unit solicitada.

ACBrBancoob.pas