Gravar Nosso Numero

[Juliano Madeira]

olá boa tarde, pesquisei aqui no fórum mas não obtive nenhum resultado, mas bem possuo a geração de boletos, ao mesmo tempo que gera os boletos ele grava no banco de dados, mas não estou conseguindo gravar o nosso numero, por exemplo do banco itau, ele gera 009/0000001-1, mas quando eu vou gravar ele apenas grava o 0000001, alguém saberia me dar uma resposta sobre isso? como eu posso proceder a gravação como ele gera para impressão? aguardo respostas obrigado

[Antonio Gomes]

Para ter uma ideia de como faço:

 

procedure TFRelBoleto.AutomatizarSlipEIncrementar(var ANossoNumero: Int64; AACBrTitulo: TACBrTitulo);
var
  DV_NossoNumero: string;
begin
  ANossoNumero := StrToInt64Def(Trim(CdsReceber.FieldByName('BOLETO_REC').AsString), 0);

  AACBrTitulo.NossoNumero := IntToStr(ANossoNumero);
  DV_NossoNumero          := AACBrTitulo.ACBrBoleto.Banco.CalcularDigitoVerificador(AACBrTitulo);

  AtualizaReceber(ANossoNumero, DV_NossoNumero);
end;

[j2c9m7]

ou pode fazer assim depois de inserir o titulo

    ClientDataSet1.Edit;
    ClientDataSet1NOSSONUMERO.AsString := ACbrUtil.OnlyNumber(ACBrBoleto1.Banco.MontarCampoNossoNumero(Titulo));
    ClientDataSet1.Post;

Abraços