Jump to content

chamada diadoacbr

Assista tectoy.png

Boleto CitiBank


Go to solution Solved by José M. S. Junior,
  • Este tópico foi criado há 1240 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Administradores

Boa tarde.

Favor anexar além da unit, o manual fornecido pelo banco.

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

Fiz as chamadas na unit Boletos:

type
  TACBrTipoCobranca =
   (cobNenhum,
    cobBancoDoBrasil,
    cobSantander,
    cobCaixaEconomica,
    cobCaixaSicob,
    cobBradesco,
    cobItau,
    cobBancoMercantil,
    cobSicred,
    cobBancoob,
    cobBanrisul,
    cobBanestes,
    cobHSBC,
    cobBancoDoNordeste,
    cobBRB,
    cobBicBanco,
    cobBradescoSICOOB,
    cobBancoSafra,
    cobSafraBradesco,
    cobBancoCECRED,
    cobCitiBank
    );

Uses Forms, Math, dateutils, strutils,
     ACBrUtil, ACBrBancoBradesco, ACBrBancoBrasil, ACBrBancoBanestes, ACBrBancoItau,
     ACBrBancoSicredi, ACBrBancoMercantil, ACBrBancoCaixa, ACBrBancoBanrisul,
     ACBrBancoSantander, ACBrBancoBancoob, ACBrBancoCaixaSICOB ,ACBrBancoHSBC,
     ACBrBancoNordeste , ACBrBancoBRB, ACBrBancoBic, ACBrBancoBradescoSICOOB,
     ACBrBancoSafra, ACBrBancoSafraBradesco, ACBrBancoCecred, ACBrBancoCitiBank;
 

procedure TACBrBanco.SetTipoCobranca(const AValue: TACBrTipoCobranca);
begin
   if fTipoCobranca = AValue then
      exit;
 
   fBancoClass.Free;
 
   case AValue of
     cobBancoDoBrasil  : fBancoClass := TACBrBancoBrasil.create(Self);         {001}
     cobBancoDoNordeste:fBancoClass  := TACBrBancoNordeste.create(Self);       {004}
     cobBanestes       : fBancoClass := TACBrBancoBanestes.create(self);       {021}
     cobSantander      : fBancoClass := TACBrBancoSantander.create(Self);      {033,353,008}
     cobBanrisul       : fBancoClass := TACBrBanrisul.create(Self);            {041}
     cobBRB            : fBancoClass := TACBrBancoBRB.create(self);            {070}
     cobBancoCECRED    : fBancoClass := TACBrBancoCecred.Create(Self);         {085}
     cobCaixaEconomica : fBancoClass := TACBrCaixaEconomica.create(Self);      {104}
     cobCaixaSicob     : fBancoClass := TACBrCaixaEconomicaSICOB.create(Self); {104}
     cobBradesco       : fBancoClass := TACBrBancoBradesco.create(Self);       {237}
     cobItau           : fBancoClass := TACBrBancoItau.Create(self);           {341}
     cobBancoMercantil : fBancoClass := TACBrBancoMercantil.create(Self);      {389}
     cobSicred         : fBancoClass := TACBrBancoSicredi.Create(self);        {748}
     cobBancoob        : fBancoClass := TACBrBancoob.create(self);             {756}
     cobHSBC           : fBancoClass := TACBrBancoHSBC.create(self);           {399}
     cobBicBanco       : fBancoClass := TACBrBancoBic.create(self);            {237}
     cobBradescoSICOOB : fBancoClass := TAcbrBancoBradescoSICOOB.create(self); {237}
     cobBancoSafra     : fBancoClass := TACBrBancoSafra.create(Self);          {422}
     cobSafraBradesco  : fBancoClass := TACBrBancoSafraBradesco.Create(Self);  {422 + 237}
     cobCitiBank       : fBancoClass := TACBrBancoCitiBank.Create(Self);       {745}
   else
     fBancoClass := TACBrBancoClass.create(Self);
   end;
 
   fTipoCobranca := AValue;
end;

procedure TACBrBoleto.ChecarDadosObrigatorios;
begin                                                                           // LUIZ
   if (Cedente.Nome= '') or (cedente.Conta = '') or ((Cedente.ContaDigito ='') and (not (Banco.TipoCobranca in [cobBanestes,cobCitiBank]))) or
      (Cedente.Agencia = '') or ((Cedente.AgenciaDigito = '') and (not (Banco.TipoCobranca in [cobBanestes,cobCitiBank]))) then
        raise Exception.Create(ACBrStr('Informações do Cedente incompletas'));
end;

 
 

ACBrBancoCitiBank.pas

Cobranca240CitiBank.pdf

Manual técnico operacional de Cobrança V.6_BoletoCitiBank.pdf

745_Colorido.bmp

745_PretoBranco.bmp

Link to comment
Share on other sites

  • 2 weeks later...
  • Administradores

Boa  noite.

Favor anexar a unit ACBrBoleto.pas também.

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • 2 years later...
  • Administradores

Boa tarde.

Estamos regularizando as contribuições que ainda não subimos, não deve demorar para ser adicionado.

Att.

  • Like 1
Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • 2 weeks later...
  • Este tópico foi criado há 1240 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.