Pesquisar na Comunidade

Oi pessoal, estava realizando testes de geração de boletos do "Unicredi ES" e ao mandar para o banco os boletos e o arquivo de remessa para validação, me retornaram que no "segmento P" na posição 221 a 221( Operação de Protesto) não estava habilitada e deveria ser enviado o codigo "3 - Não protestar", entretando nas configurações nao era informada nenhuma informação de protesto (Dias corridos ou uteis). Visualizando o fonte verifiquei que ao não informar um Tipo a funçao abaixo assume que sejam "Dias Corridos", pois nao há outras opções no Type "TipoDiasProtesto". Então adicionei ao Type "diNenhum", para que seja possivel entrar no Result := 3; Desde já agradeço a atenção.. ACBrBoletoConversao.rar

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