clicked


demopfc.pbl   >   w_resp_employee   >   cb_1   >   clicked   

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

Name Datatype
No Data

Name Datatype
fname string
ll_row long
lname string
ls_result string

event clicked;
long	ll_row
string fname , lname
string ls_result

ll_row = dw_master.GetRow( )

IF ll_row > 0 Then

	fname = dw_master.object.employee_emp_fname [ll_row]
	lname = dw_master.object.employee_emp_lname [ll_row]	
	
	ls_result = sqlca.uf_getfullname( fname, lname)

	MessageBox ("Test", ls_result)

End if
end event

     
Name Owner
No Data

     
Name Owner
datawindow.getrow datawindow
systemfunctions.messagebox systemfunctions
n_tr_demopfc.uf_GetFullname n_tr_demopfc

     
Full name
w_resp_employee
demopfc

     
Name Scope
No Data