*********************** Sua mensagem foi verificada pelo InterScan MSS. ***********-***********
galera uso esta rotina no botão GRAVAR e funciona perfeitamente. mas o que estou precisando fazer é colocar o código que gera o AUTOINCREMENTO para o campo (CDS_Cad_FuncionarioFUNC_ID) em outro botão chamado NOVO com a rotina abaixo como fasso para qd entrar no form de cadastro de Funcionario o kra precisa clicar no botão NOVO ae vai gerar o CAMPO AUTOINCREMENTO (FUNC_ID) e para o botão gravar eu estou usando outra rotina . . . . será que alguem pode me ajudar ? Estou usando o Delphi 6 Banco de Dados InterBase6 os componentes de acesso ao Banco eu estou usando da paleta dbExpress SQLConnection + SQLClientDataSet + SQLStoredProc procedure TFRM_Cad_Func.SpeedButton2Click(Sender: TObject); var td:TTransactionDesc; begin // incluir na USES dbxpress if not DM_AC.DB_AC.InTransaction then begin TD.TransactionID:=1; TD.IsolationLevel:=xilREADCOMMITTED; DM_AC.DB_AC.StartTransaction(TD); end; if DM_AC.CDS_Cad_Funcionario.State in[dsinsert]then begin DM_AC.SP_Cad_Funcionario.ExecProc; DM_AC.CDS_Cad_FuncionarioFUNC_ID.Value:=DM_AC.SP_Cad_Funcionario.Params[0].value; end; DM_AC.CDS_Cad_Funcionario.Post; Try if (DM_AC.CDS_Cad_Funcionario.ChangeCount>0)then DM_AC.CDS_Cad_Funcionario.ApplyUpdates(-1); DM_AC.DB_AC.Commit(td); except DM_AC.DB_AC.Rollback(td); end; DM_AC.CDS_Cad_Gn.Append; DBEdit2.SetFocus; end; Desde já agradeço pela atenção de todos. Atenciosamente, Vanderlei Help Desk / RS 08007013062 (51) 2102-2008 [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
