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. <<