Jesse Nascimento Faria
Membros-
Total de ítens
6 -
Registro em
-
Última visita
Jesse Nascimento Faria's Achievements
-
Mensagem no corpo do boleto
Jesse Nascimento Faria replied to Jesse Nascimento Faria's tópico in ACBrBoleto
Segui em anexo o fonte com a alteração. ACBrBoletoFCFR.zip -
Bom dia, O banco Safra me pediu para adicionar uma mensagem no boleto como visto na imagem, então criei uma campo pro cliente adicionar a mensagem manualmente porem ao emitir o boleto ele corta a mensagem de multa do boleto, gostaria de saber a possibilidade de aumentar o tamanho do campo de mensagem de 300 para 600 na unit ACBrBoletoFCFR FieldDefs.Add('Mensagem', ftString, 300); para FieldDefs.Add('Mensagem', ftString, 600); Grato..
-
Boleto e Remessa do Banco 097 - Credisis
Jesse Nascimento Faria replied to Jesse Nascimento Faria's tópico in ACBrBoleto
Homologado o layout 400 com sucesso. ACBrBancoCredisis.pas -
Boleto e Remessa do Banco 097 - Credisis
Jesse Nascimento Faria replied to Jesse Nascimento Faria's tópico in ACBrBoleto
Boa tarde, Segue em anexo o manual, assim que consegui homologar o layout 400 do Credisis posto a classe com as alterações. 20190415_152726_LAYOUT_CNAB_400.pdf -
Boleto e Remessa do Banco 097 - Credisis
um tópico no fórum postou Jesse Nascimento Faria ACBrBoleto
Bom dia, Estou desenvolvendo o layout 400 do Credisis e me deparei com um problema na geração dos arquivos para este banco, a formação do nosso número está diferente do manual. function TACBrBancoCredisis.MontarCampoNossoNumero (const ACBrTitulo: TACBrTitulo ) : String; var ANossoNumero :string; aAgencia, aConvenio :string; begin ANossoNumero := PadLeft(ACBrTitulo.NossoNumero, 6, '0'); aAgencia := PadLeft(OnlyNumber(ACBrBanco.ACBrBoleto.Cedente.Agencia), 4, '0'); aConvenio := PadLeft(OnlyNumber(ACBrBanco.ACBrBoleto.Cedente.Convenio), 6, '0'); Result := IntToStrZero(ACBrBanco.Numero, 3) + CalcularDigitoVerificador(ACBrTitulo) + aAgencia + aConvenio + ANossoNumero; end; Esta parte da composição está correta. function TACBrBancoCredisis.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo): string; begin Modulo.CalculoPadrao; Modulo.Documento := ACBrTitulo.NossoNumero; // Aqui está diferente do manual pois o manual diz para gera o digito a partir do CNPJ do beneficiário. Modulo.Calcular; if Modulo.ModuloFinal = 0 then Result := '1' else Result := IntToStr(Modulo.DigitoFinal); end; O banco me enviou uma mensagem de rejeição justamente por causa deste digito e minha dúvida e se mais alguém teve problema com isto? -
Pegar linha digitável e/ou código de barras pós inclusão tít
Jesse Nascimento Faria replied to andreiluis's tópico in ACBrBoleto
Boa Tarde. Eu fiz assim Var AcBR:TACBrBoleto; LinhaDigitavel: string; LinhaDigitavel := AcBR.Banco.MontarLinhaDigitavel(AcBR.Banco.MontarCodigoBarras(AcBR.ListadeBoletos.Objects[0]), AcBR.ListadeBoletos.Objects[0]);