Q5/ws_objects/Ew_gz.pbl.src/w_rp_dqtaskmx.srw

$PBExportHeader$w_rp_dqtaskmx.srw
forward
global type w_rp_dqtaskmx from w_publ_easyq
end type
type sle_empcode from singlelineedit within w_rp_dqtaskmx
end type
type st_2 from statictext within w_rp_dqtaskmx
end type
type ddlb_1 from dropdownlistbox within w_rp_dqtaskmx
end type
type st_6 from statictext within w_rp_dqtaskmx
end type
type sle_eempcode from singlelineedit within w_rp_dqtaskmx
end type
type cb_3 from uo_imflatbutton within w_rp_dqtaskmx
end type
type cb_4 from uo_imflatbutton within w_rp_dqtaskmx
end type
type ddlb_2 from dropdownlistbox within w_rp_dqtaskmx
end type
end forward

global type w_rp_dqtaskmx from w_publ_easyq
string title = "工资单"
sle_empcode sle_empcode
st_2 st_2
ddlb_1 ddlb_1
st_6 st_6
sle_eempcode sle_eempcode
cb_3 cb_3
cb_4 cb_4
ddlb_2 ddlb_2
end type
global w_rp_dqtaskmx w_rp_dqtaskmx

type variables
string printname1
end variables

on w_rp_dqtaskmx.create
int iCurrent
call super::create
this.sle_empcode=create sle_empcode
this.st_2=create st_2
this.ddlb_1=create ddlb_1
this.st_6=create st_6
this.sle_eempcode=create sle_eempcode
this.cb_3=create cb_3
this.cb_4=create cb_4
this.ddlb_2=create ddlb_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.sle_empcode
this.Control[iCurrent+2]=this.st_2
this.Control[iCurrent+3]=this.ddlb_1
this.Control[iCurrent+4]=this.st_6
this.Control[iCurrent+5]=this.sle_eempcode
this.Control[iCurrent+6]=this.cb_3
this.Control[iCurrent+7]=this.cb_4
this.Control[iCurrent+8]=this.ddlb_2
end on

on w_rp_dqtaskmx.destroy
call super::destroy
destroy(this.sle_empcode)
destroy(this.st_2)
destroy(this.ddlb_1)
destroy(this.st_6)
destroy(this.sle_eempcode)
destroy(this.cb_3)
destroy(this.cb_4)
destroy(this.ddlb_2)
end on

event open;call super::open;//this.triggerevent('ue_before_open')
//wf_movetocenter()
//
//String ls_printname1
//ls_printname1 = 'dw_rp_dqtaskmx_2'
//String ls_windowname
//ls_windowname = THIS.ClassName ()
//
//printname1 = f_get_dwprint_dynamic_chname(ls_printname1,ls_windowname)
//IF printname1 = '' THEN
//	printname1 = ls_printname1
//ELSE
//	dw_1.DataObject = printname1
//END IF
//
////dw_1.DataObject = 'dw_rp_dqtaskmx_2_tx'
//
//
//dw_1.SetTransObject (sqlca)
//if_ue_sentdataout = true
//EM_1.TEXT=STRING(TODAY(),'YYYY-MM-DD')
//EM_2.TEXT=EM_1.TEXT
//
//dw_1.RBUTTON_FILTER_USE=true  //右键查询功能开关
//
//IF TRIM(DW_1.DATAOBJECT)<>'' THEN 
//	DW_1.OBJECT.DataWindow.PRINT.MARGIN.TOP=INTEGER(f_ProfileString (sys_empid,DW_1.DATAOBJECT, "MARGIN_TOP",   "110"))
//	DW_1.OBJECT.DataWindow.PRINT.MARGIN.LEFT=INTEGER(f_ProfileString (sys_empid,DW_1.DATAOBJECT, "MARGIN_LEFT", "96" ))
//
//	DW_1.OBJECT.DataWindow.PRINT.MARGIN.bottom=INTEGER(f_ProfileString (sys_empid,DW_1.DATAOBJECT, "MARGIN_BOTTOM",   "110"))
//	DW_1.OBJECT.DataWindow.PRINT.MARGIN.right=INTEGER(f_ProfileString (sys_empid,DW_1.DATAOBJECT, "MARGIN_RIGHT", "96" ))
//end if
//dw_1.Object.DataWindow.Print.Preview.Rulers = "yes"
//
//long ls_departmentid
//string ls_departmentname
//
// DECLARE dept_cur CURSOR FOR  
//  SELECT cw_department.departmentid,   
//         cw_department.departmentname  
//    FROM cw_department  ;
//
//open dept_cur;
//fetch dept_cur into :ls_departmentid,:ls_departmentname;
//
//do while sqlca.sqlcode=0 
//	ddlb_1.additem(ls_departmentname+'['+string(ls_departmentid)+']')
//	fetch dept_cur into :ls_departmentid,:ls_departmentname;
//loop
//
//ddlb_1.additem('全部[-1]')
//ddlb_1.text='全部[-1]'
//
end event

event ue_before_open;call super::ue_before_open;long ls_departmentid
string ls_departmentname

 DECLARE dept_cur CURSOR FOR  
  SELECT cw_department.departmentid,   
         cw_department.departmentname  
    FROM cw_department  ;

open dept_cur;
fetch dept_cur into :ls_departmentid,:ls_departmentname;

do while sqlca.sqlcode=0 
	ddlb_1.additem(ls_departmentname+'['+string(ls_departmentid)+']')
	fetch dept_cur into :ls_departmentid,:ls_departmentname;
loop

ddlb_1.additem('全部[-1]')
ddlb_1.text='全部[-1]'
wf_replacedw()
dw_1.Object.DataWindow.Print.Preview.Rulers = "yes"
end event

type cb_func from w_publ_easyq`cb_func within w_rp_dqtaskmx
integer x = 178
integer width = 169
end type

type cb_exit from w_publ_easyq`cb_exit within w_rp_dqtaskmx
integer x = 1042
end type

type cb_2 from w_publ_easyq`cb_2 within w_rp_dqtaskmx
integer x = 859
integer width = 183
integer taborder = 120
boolean bringtotop = true
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_rp_dqtaskmx
integer x = 603
boolean bringtotop = true
end type

type cb_1 from w_publ_easyq`cb_1 within w_rp_dqtaskmx
integer width = 178
boolean bringtotop = true
end type

event cb_1::clicked;call super::clicked;string ls_empcode
long ls_deptid
if trim(sle_empcode.text)='' then 
	dw_1.reset()
	return
end if

if sle_empcode.text='' then
	ls_empcode='%%'
else
	ls_empcode=sle_empcode.text
end if
ls_deptid=long(mid(ddlb_1.text,pos(ddlb_1.text,'[') + 1,pos(ddlb_1.text,']') - pos(ddlb_1.text,'[') - 1))

dw_1.retrieve(long(em_1.text),ls_empcode,trim(sle_eempcode.text),ls_deptid)

dw_1.object.title.text = em_1.text +'计件、异常工资明细表'

end event

type st_3 from w_publ_easyq`st_3 within w_rp_dqtaskmx
integer x = 9
integer width = 142
string text = "月份"
end type

type st_4 from w_publ_easyq`st_4 within w_rp_dqtaskmx
integer x = 1230
integer y = 516
end type

type em_1 from w_publ_easyq`em_1 within w_rp_dqtaskmx
integer x = 165
integer width = 283
integer height = 92
integer taborder = 130
string mask = "yyyymm"
end type

type em_2 from w_publ_easyq`em_2 within w_rp_dqtaskmx
integer x = 1349
integer y = 508
integer taborder = 140
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_dqtaskmx
boolean visible = false
integer x = 1033
integer y = 332
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_rp_dqtaskmx
boolean visible = false
integer x = 818
integer y = 336
boolean enabled = false
end type

type dw_1 from w_publ_easyq`dw_1 within w_rp_dqtaskmx
integer y = 304
integer width = 3483
integer height = 1656
string dataobject = "dw_rp_dqtaskmx_2"
end type

event dw_1::constructor; titleclick_sort_use=true  //单击标题排序功能开关
 RBUTTON_FILTER_USE=true  //右键查询功能开关
end event

event dw_1::destructor;int i = 0 
end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_dqtaskmx
end type

type sle_cust from w_publ_easyq`sle_cust within w_rp_dqtaskmx
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_rp_dqtaskmx
end type

type st_cust from w_publ_easyq`st_cust within w_rp_dqtaskmx
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_dqtaskmx
boolean visible = true
boolean checked = false
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_rp_dqtaskmx
boolean visible = false
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_rp_dqtaskmx
boolean visible = false
end type

type pb_2 from w_publ_easyq`pb_2 within w_rp_dqtaskmx
boolean visible = false
end type

type cb_help from w_publ_easyq`cb_help within w_rp_dqtaskmx
integer x = 347
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_rp_dqtaskmx
integer x = 347
end type

type gb_1 from w_publ_easyq`gb_1 within w_rp_dqtaskmx
end type

type ln_bar from w_publ_easyq`ln_bar within w_rp_dqtaskmx
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_dqtaskmx
end type

type r_bar from w_publ_easyq`r_bar within w_rp_dqtaskmx
end type

type ln_1 from w_publ_easyq`ln_1 within w_rp_dqtaskmx
end type

type ln_2 from w_publ_easyq`ln_2 within w_rp_dqtaskmx
end type

type ln_3 from w_publ_easyq`ln_3 within w_rp_dqtaskmx
end type

type ln_4 from w_publ_easyq`ln_4 within w_rp_dqtaskmx
end type

type sle_empcode from singlelineedit within w_rp_dqtaskmx
integer x = 1353
integer y = 188
integer width = 430
integer height = 92
integer taborder = 150
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_2 from statictext within w_rp_dqtaskmx
integer x = 462
integer y = 204
integer width = 137
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "部门"
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_1 from dropdownlistbox within w_rp_dqtaskmx
integer x = 613
integer y = 192
integer width = 736
integer height = 888
integer taborder = 90
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

type st_6 from statictext within w_rp_dqtaskmx
integer x = 1925
integer y = 204
integer width = 64
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "至"
boolean focusrectangle = false
end type

type sle_eempcode from singlelineedit within w_rp_dqtaskmx
integer x = 1998
integer y = 188
integer width = 430
integer height = 92
integer taborder = 160
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type cb_3 from uo_imflatbutton within w_rp_dqtaskmx
integer x = 1787
integer y = 192
integer width = 119
integer height = 88
integer taborder = 20
boolean bringtotop = true
string text = "..."
end type

event clicked;call super::clicked;s_empselect s_select

if not isvalid(w_empinfo_choice) then
	openwithparm(w_empinfo_choice,'')
			
	s_select = message.powerobjectparm //接受返回结构
	if s_select.empid > 0 then
		sle_empcode.text = s_select.empcode
	end if
end if
	



      
end event

type cb_4 from uo_imflatbutton within w_rp_dqtaskmx
integer x = 2437
integer y = 192
integer width = 119
integer height = 88
integer taborder = 30
boolean bringtotop = true
string text = "..."
end type

event clicked;call super::clicked;s_empselect s_select

if not isvalid(w_empinfo_choice) then
	openwithparm(w_empinfo_choice,'')
			
	s_select = message.powerobjectparm //接受返回结构
	if s_select.empid > 0 then
		sle_eempcode.text = s_select.empcode
	end if
end if
end event

type ddlb_2 from dropdownlistbox within w_rp_dqtaskmx
integer x = 1879
integer y = 88
integer width = 480
integer height = 300
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "格式一"
string item[] = {"格式一","格式二"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;If This.Text = '格式一' Then
	dw_1.DataObject = 'dw_rp_dqtaskmx_2'
Else
	If This.Text = '格式二' Then
		dw_1.DataObject = 'dw_rp_dqtaskmx_3'
	End If
End If

cb_1.triggerevent(clicked!)
end event

event constructor;If This.Text = '格式一' Then
	dw_1.DataObject = 'dw_rp_dqtaskmx_2'
Else
	If This.Text = '格式二' Then
		dw_1.DataObject = 'dw_rp_dqtaskmx_3'
	End If
End If

end event