Nosso Número Banco Do Brasil

[Rafael Machado]

Boa Tarde, Já realizei os teste com o componente AcbrBoleto, e agora vou entrar em contato com o banco a para realizar a homologação. Bem, aqui no sistema foi gerado o beleto como teste, passo o nosso numero incrementando uma variavel.

Mas agora como vou fazer para informar o nosso número, sei que o componente realiza o calculo do nosso numero. 

Minha dúvida é.  O banco me passa o número e a partir deste numero faço o incremento dele e passo para nosso número do componente.

Neste Código, na primeira linha o nosso número e incrementado, e na ultima linha é passado para o componente.

Referente ao Boleto do Banco do Brasil.

Ex:

   XNossoNumero:= IBQueryAux6.fieldByName('Cod').AsInteger +1; // Incrementando nosso numero.

 

 

    //############################################

   // ### -> Inicio Configuração do Componente ###

   ACBrBoleto1.ACBrBoletoFC.DirLogo  := IBQueryConfig2PATH_LOGOTIPO.AsString; //CdsConfigPATH_LOGOTIPO.AsString;

   ACBrBoleto1.DirArqRemessa:= IBQueryConfig2PATH_REMESSA.AsString;

   ACBrBoleto1.ACBrBoletoFC.Filtro   := fiNenhum;

   ACBrBoleto1.ACBrBoletoFC.LayOut   := lPadrao;

   ACBrBoleto1.Banco.TipoCobranca:= cobBancoDoBrasil; // Escolha do Banco.

   ACBrBoleto1.Cedente.Nome          := IBQueryCedenteCEDENTE.AsString; //CdsBancosCEDENTE.AsString;

   ACBrBoleto1.Cedente.CodigoCedente := IBQueryCedenteCOD_CEDENTE.AsString;//CdsBancosCOD_CEDENTE.AsString;

   ACBrBoleto1.Cedente.Agencia       := IBQueryCedenteNUMERO_AGENCIA.AsString; //CdsBancosNUMERO_AGENCIA.AsString;

   ACBrBoleto1.Cedente.AgenciaDigito := IBQueryCedenteDIGITO_AGENCIA.AsString; //CdsBancosDIGITO_AGENCIA.AsString;

   ACBrBoleto1.Cedente.Conta         := IBQueryCedenteNUMERO_CONTA.AsString; //CdsBancosNUMERO_CONTA.AsString;

   ACBrBoleto1.Cedente.ContaDigito   := IBQueryCedenteDIGITO_CONTA.AsString; //CdsBancosDIGITO_CONTA.AsString;

   ACBrBoleto1.Cedente.UF            := IBQueryCedenteUF_AGENCIA.AsString; //CdsBancosUF_AGENCIA.AsString;

   AcbrBoleto1.Cedente.Convenio:='0000001'; //Para quando for Banco do Brasil.

   Titulo := ACBrBoleto1.CriarTituloNaLista;

   with Titulo do

     begin

        Vencimento        := IBQuery1VECTO.AsDateTime;  //CdsContasDATA_VENC.AsDateTime;

        DataDocumento     := IBQuery1DATA.AsDateTime;  //CdsContasDATA_CONTA.AsDateTime;

        NumeroDocumento   := IBQuery1NUMCONTA.AsString; //CdsContasNUMCONTA.AsString;

        EspecieDoc        := IBQueryConfig2ESPECIE.AsString; //CdsConfigESPECIE.AsString;

 

        if IBQueryConfig2ACEITE.AsString = 'SIM' then

          Aceite := atSim

        else

         Aceite := atNao;

 

        DataProcessamento := Now;

        Carteira          := IBQueryConfig2CARTEIRA.AsString; //CdsConfigCARTEIRA.AsString; // Colocar a Carteira aqui quando for Banco do Brasil.

        NossoNumero       := IntToStrZero(xNossoNumero,10); // Passando Nosso Numero.  <<