Pesquisar na Comunidade
Showing results for tags 'GerarRegistroTransacao240'.
Encontrado 1 registro
-
Alteração Código Método Gerarregistrotransacao240 Unit Acbrbancoob
um tópico no fórum postou maiconsi ACBrBoleto
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