cb_delete
cb_searchevent clicked
General information
Full name w_resp_employee.cb_delete.clicked Access public Overload of commandbutton.clicked Comment Delete the current employee Revision History Author: Novalys Date Version 2001-06-01 1.0 Initial version Return value long [pbm_bnclicked] Prototype event clicked
Source code
//////////////////////////////////////////////////////////////////////////////
//
// Function : clicked
//
// Arguments :
//
// Returns : long [pbm_bnclicked]
//
// Description : Delete the current employee
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History Author: Novalys
//
// Date Version
//
// 2001-06-01 1.0 Initial version
//
//////////////////////////////////////////////////////////////////////////////
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 psd_employee
@emp_id = :ll_empid ;
EXECUTE sp_delete_employee;
IF SQLCA.SQLCode >= 0 THEN dw_master.DeleteRow (ll_rowid)
END IF
Functions and events referenced
Full name Owners .psd_employee
Referenced classes
Full name w_resp_employee.dw_master
Referenced attributes
Full name Scope w_resp_employee.cb_delete.clicked.ll_empid local w_resp_employee.cb_delete.clicked.ll_rowid local
cb_cancelevent clicked
General information
Full name w_resp_employee.cb_search.clicked Access public Overload of commandbutton.clicked Comment Revision History Author: Novalys Date Version 06/07/2000 1.0 Initial version Return value long [pbm_bnclicked] Prototype event clicked
Source code
//////////////////////////////////////////////////////////////////////////////
//
// Function : clicked
//
// Arguments :
//
// Returns : long [pbm_bnclicked]
//
// Description :
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History Author: Novalys
//
// Date Version
//
// 06/07/2000 1.0 Initial version
//
//////////////////////////////////////////////////////////////////////////////
IF this.text = "&Search" then
dw_master.inv_querymode.of_setenabled( true)
dw_master. Object. DataWindow. ReadOnly = "No"
dw_master.inv_querymode.of_read_only( False)
this.text = "&Run"
cb_ok.enabled = false
Else
dw_master.inv_querymode.of_setenabled( False)
dw_master. Object. DataWindow. ReadOnly = "Yes"
dw_master.inv_querymode.of_read_only( true)
this.text = "&Search"
End if
Functions and events referenced
Full name Owners n_cst_dwsrv_querymode.of_read_only n_cst_dwsrv_querymode pfc_n_cst_dwsrv_querymode.of_setenabled pfc_n_cst_dwsrv_querymode
Referenced classes
Full name w_resp_employee.cb_ok w_resp_employee.dw_master
Referenced attributes
Full name Scope pfc_u_dw.inv_querymode attribute
cb_okevent clicked
General information
Full name w_resp_employee.cb_cancel.clicked Access public Overload of commandbutton.clicked Comment Revision History Author: Novalys Date Version 06/07/2000 1.0 Initial version Return value long [pbm_bnclicked] Prototype event clicked
Source code
//////////////////////////////////////////////////////////////////////////////
//
// Function : clicked
//
// Arguments :
//
// Returns : long [pbm_bnclicked]
//
// Description :
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History Author: Novalys
//
// Date Version
//
// 06/07/2000 1.0 Initial version
//
//////////////////////////////////////////////////////////////////////////////
Close ( Parent)
dw_masterevent clicked
General information
Full name w_resp_employee.cb_ok.clicked Access public Overload of commandbutton.clicked Comment Revision History Author: Novalys Date Version 06/07/2000 1.0 Initial version Return value long [pbm_bnclicked] Prototype event clicked
Source code
//////////////////////////////////////////////////////////////////////////////
//
// Function : clicked
//
// Arguments :
//
// Returns : long [pbm_bnclicked]
//
// Description :
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History Author: Novalys
//
// Date Version
//
// 06/07/2000 1.0 Initial version
//
//////////////////////////////////////////////////////////////////////////////
w_sheet_employee lw_sheet []
long ll_row [], ll_rowcount, i
dw_master.inv_rowselect.of_selectedcount ( ll_row )
ll_rowcount = Upperbound (ll_row)
For i = 1 to ll_rowcount
message.of_setdoubleparm ( dw_master. object.employee_emp_id [ll_row[i]])
OpenSheet(lw_sheet [i], gnv_app.of_GetFrame (), 0, Original!)
Next
Close ( Parent)
Functions and events referenced
Full name Owners pfc_n_cst_appmanager.of_getframe pfc_n_cst_appmanager pfc_n_msg.of_setdoubleparm pfc_n_msg pfc_n_cst_dwsrv_rowselection.of_selectedcount pfc_n_cst_dwsrv_rowselection
Referenced classes
Full name w_resp_employee.dw_master w_sheet_employee
Referenced attributes
Full name Scope w_resp_employee.cb_ok.clicked.lw_sheet local w_resp_employee.cb_ok.clicked.i local w_resp_employee.cb_ok.clicked.ll_rowcount local w_resp_employee.cb_ok.clicked.ll_row local pfc_u_dw.inv_rowselect attribute
event pfc_retrieve
General information
Full name w_resp_employee.dw_master.pfc_retrieve Access public Overload of pfc_u_dw.pfc_retrieve
Source code
call super::pfc_retrieve;
return retrieve ()
Functions and events referenced
Full name Owners pfc_u_dw.pfc_retrieve pfc_u_dw
event constructor
General information
Full name w_resp_employee.dw_master.constructor Access public Overload of u_dw.constructor
Source code
call super::constructor; this.of_SetSort( TRUE)
this.inv_sort.of_SetStyle( 2)
this.inv_sort.of_SetColumnNameSource( 2)
this.inv_sort.of_SetColumnHeader( TRUE)
This.of_SetDropDownCalendar( true)
iuo_calendar.of_Register( iuo_calendar.DDLB_WITHARROW)
Functions and events referenced
Full name Owners pfc_u_calendar.of_register pfc_u_calendar pfc_u_dw.of_setdropdowncalendar pfc_u_dw pfc_n_cst_dwsrv_sort.of_setcolumnheader pfc_n_cst_dwsrv_sort pfc_n_cst_dwsrv.of_setcolumnnamesource pfc_n_cst_dwsrv pfc_n_cst_dwsrv_sort.of_setstyle pfc_n_cst_dwsrv_sort pfc_u_dw.of_setsort pfc_u_dw u_dw.constructor u_dw
Referenced attributes
Full name Scope pfc_u_calendar.ddlb_witharrow attribute pfc_u_dw.iuo_calendar attribute pfc_u_dw.inv_sort attribute
event clicked
General information
Full name w_resp_employee.dw_master.clicked Access public Overload of pfc_u_dw.clicked Comment Revision History Author: Novalys Date Version 06/07/2000 1.0 Initial version Parameter integer xpos integer ypos long row dwobject dwo Return value long Prototype event clicked
Source code
call super::clicked; //////////////////////////////////////////////////////////////////////////////
//
// Function : clicked
//
// Arguments : integer xpos
// integer ypos
// long row
// dwobject dwo
//
// Returns : long
//
// Description :
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History Author: Novalys
//
// Date Version
//
// 06/07/2000 1.0 Initial version
//
//////////////////////////////////////////////////////////////////////////////
If not isnull(row) and row > 0 and isselected(row) and Not cb_search.text = "&Run" then
cb_ok.enabled = true
ELSE
cb_ok.enabled = FALSE
end if
Functions and events referenced
Full name Owners pfc_u_dw.clicked pfc_u_dw
Referenced classes
Full name w_resp_employee.cb_ok w_resp_employee.cb_search
Referenced attributes
Full name Scope datawindowcontrol.clicked.row parameter