cdsLancamentos.Close;
  cdsLancamentos.CommandText := 'Insert into Lancamentos 
(ID,IDContaCorrente,IDCentroDeCusto,IDCliente,Historico,Data,Hora_Lancamento,Vencimento,Valor,Valor_Pago,Diferenca,IDForma_PG 
,Baixa, OBS,Cor,IDUsuarioLancamento,Status) values ' +
                                
'(:ID,:IDContaCorrente,:IDCentroDeCusto,:IDCliente,:Historico, :Vencimento, 
:Data, :Hora_Lancamento, :Valor,:Valor_Pago,:Diferenca, :IDForma_PG,:Baixa, 
:OBS,:Cor,:IDUsuarioLancamento,:Status)';
  cdsLancamentos.Params.ParamByName('ID').AsString := 
dm.NovoCodigo('GERAR_NUMERO_LANCAMENTOS');
  cdsLancamentos.Params.ParamByName('IDContaCorrente').AsString := 
cmbContaCorrente.ValueList.Strings[cmbContaCorrente.itemindex];
  cdsLancamentos.Params.ParamByName('IDCentroDeCusto').AsString := 
cmbCentroDeCusto.ValueList.Strings[cmbCentroDeCusto.itemindex];
  cdsLancamentos.Params.ParamByName('IDCliente').AsInteger := IDCliente;
  cdsLancamentos.Params.ParamByName('Historico').AsString :=  Historico;
  cdsLancamentos.Params.ParamByName('Data').AsDate := now;
  cdsLancamentos.Params.ParamByName('Hora_Lancamento').AsTime := Now;
  cdsLancamentos.Params.ParamByName('Vencimento').AsDate := 
StrToDate(txtVencimento.Text);
  cdsLancamentos.Params.ParamByName('Valor').AsCurrency := 
StrToCurr(txtValor.Text);
  cdsLancamentos.Params.ParamByName('Valor_Pago').AsString := '0.00';
  cdsLancamentos.Params.ParamByName('Diferenca').AsCurrency := 
StrToCurr(txtValor.Text);
  cdsLancamentos.Params.ParamByName('IDForma_PG').AsString := 
cmbPagamentos.ValueList.Strings[cmbPagamentos.itemindex];
  cdsLancamentos.Params.ParamByName('Baixa').AsString := '0';
  cdsLancamentos.Params.ParamByName('OBS').AsString := trim(txtOBS.Text) ;
  cdsLancamentos.Params.ParamByName('Cor').AsString := Cor;
  cdsLancamentos.Params.ParamByName('IDUsuarioLancamento').AsInteger := 
formPrincipal.CodUsuario;
  cdsLancamentos.Params.ParamByName('Status').AsString := '0';
  cdsLancamentos.Execute;