clicked


demopfc.pbl   >   w_resp_employee   >   cb_delete   >   clicked   

Full name w_resp_employee.cb_delete.clicked
Access public
Extend of
Return value
Prototype event clicked()

Name Datatype
No Data

Name Datatype
ll_empid long
ll_rowid long

event clicked;//////////////////////////////////////////////////////////////////////////////
//
//	Function		:	clicked
//
//	Arguments	:	
//
//	Returns		:	long [pbm_bnclicked]
//
//	Description	:	Delete the current employee
//
// Subject     :  employee,Version1,Version3
//
//////////////////////////////////////////////////////////////////////////////
long ll_rowid, ll_empid

ll_rowid = dw_master.GetRow ()
IF ll_rowid > 0 THEN
	ll_empid = dw_master.object.employee_emp_id [1]
	DECLARE sp_delete_employee PROCEDURE FOR sp_deleteemployee(ll_empid) ;
  	EXECUTE sp_delete_employee;
	IF SQLCA.SQLCode >= 0 THEN dw_master.DeleteRow (ll_rowid)
END IF
	
	
end event

     
Name Owner
No Data

     
Name Owner
datawindow.deleterow datawindow
datawindow.getrow datawindow

     
Full name
w_resp_employee
demopfc

     
Name Scope
No Data