Ir para conteúdo
  • Cadastre-se

Jesse Nascimento Faria

Membros
  • Total de ítens

    6
  • Registro em

  • Última visita

Jesse Nascimento Faria's Achievements

Rookie

Rookie (2/14)

  • First Post
  • Conversation Starter
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

1

Reputação

  1. Segui em anexo o fonte com a alteração. ACBrBoletoFCFR.zip
  2. 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..
  3. Homologado o layout 400 com sucesso. ACBrBancoCredisis.pas
  4. 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
  5. 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?
  6. 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]);
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.