Boleto CitiBank

[Luiz Carlos Rodrigues]

Desenvolvi Emissão de Boleto / Arquivo de Envio do Citibank e já está em Produção, falta ainda o arquivo de retorno (No momento estou sem tempo para devolver o retorno)

Por não ser um conhecedor profundo dos componentes ACBr pode ser que tenha algum ajuste.

Posso enviar a UNIT?

[Juliana Tamizou]

Boa tarde.

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

Att.

[Luiz Carlos Rodrigues]

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

[Juliana Tamizou]

Boa  noite.

Favor anexar a unit ACBrBoleto.pas também.

Att.

[Marcos Schmitz]

Bom dia Pessoal

Verifiquei nos fontes que não foi commitado esse banco. Alguma previsão?

[Juliana Tamizou]

Boa tarde.

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

Att.

[Marcos Schmitz]

Ok, obrigado pela resposta. Ficamos no aguardo.

[José M. S. Junior]

Bom dia

Suas Contribuições foram disponibilizadas nos fontes do Projeto ACBr. 

Obrigado!