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

$PBExportHeader$w_gz_wage_mx0_edit.srw
forward
global type w_gz_wage_mx0_edit from w_publ_base
end type
type em_mth from editmask within w_gz_wage_mx0_edit
end type
type st_421 from statictext within w_gz_wage_mx0_edit
end type
type cb_retrieve from uo_imflatbutton within w_gz_wage_mx0_edit
end type
type cb_wage_edit from uo_imflatbutton within w_gz_wage_mx0_edit
end type
type cb_cancel from uo_imflatbutton within w_gz_wage_mx0_edit
end type
type ddlb_scid from uo_ddlb_scid within w_gz_wage_mx0_edit
end type
type cb_2 from uo_imflatbutton within w_gz_wage_mx0_edit
end type
type tv_1 from uo_tv_deptype within w_gz_wage_mx0_edit
end type
type dw_wage from u_dw_rbtnfilter within w_gz_wage_mx0_edit
end type
type ddlb_wageitem from dropdownlistbox within w_gz_wage_mx0_edit
end type
type rb_1 from radiobutton within w_gz_wage_mx0_edit
end type
type rb_2 from radiobutton within w_gz_wage_mx0_edit
end type
type cb_copybasepay from uo_imflatbutton within w_gz_wage_mx0_edit
end type
type cb_1 from uo_imflatbutton within w_gz_wage_mx0_edit
end type
type gb_1 from groupbox within w_gz_wage_mx0_edit
end type
type ln_bar from line within w_gz_wage_mx0_edit
end type
type ln_bar2 from line within w_gz_wage_mx0_edit
end type
type r_bar from rectangle within w_gz_wage_mx0_edit
end type
end forward

global type w_gz_wage_mx0_edit from w_publ_base
integer x = 59
integer y = 32
integer width = 3611
integer height = 2380
string title = "[每月直接录入]工资项目数据录入"
boolean maxbox = true
windowstate windowstate = maximized!
em_mth em_mth
st_421 st_421
cb_retrieve cb_retrieve
cb_wage_edit cb_wage_edit
cb_cancel cb_cancel
ddlb_scid ddlb_scid
cb_2 cb_2
tv_1 tv_1
dw_wage dw_wage
ddlb_wageitem ddlb_wageitem
rb_1 rb_1
rb_2 rb_2
cb_copybasepay cb_copybasepay
cb_1 cb_1
gb_1 gb_1
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
end type
global w_gz_wage_mx0_edit w_gz_wage_mx0_edit

type variables
Long cur_0_wageid
String ls_handtype = ''
Long cur_scid
Long cur_scid_arr[]
Long cur_wageid[]
Int cur_temp_wagecount
String cur_column_string[]
Int cur_column_style = 0 //0 纵向列表 1 横向列表

end variables

forward prototypes
public function integer wf_retreve ()
public function integer wf_refresh_face ()
public subroutine wf_find_tvchild (long arg_handl, long arg_deptid)
public subroutine wf_find_tvnext (long arg_handl, long arg_deptid)
public subroutine wf_setopen (long arg_deptid, long arg_scid)
public function integer wf_save (ref string arg_msg, boolean ifcommit)
public function integer wf_retrieve_wagemx ()
public function long wf_getwageid (string arg_wagename)
public function integer wf_columnstyle ()
public function integer wf_copybasepay (ref string arg_msg)
public function integer wf_retrieve_wagemx_1 ()
end prototypes

public function integer wf_retreve ();//wf_retreve
Long ll_wagemth
ll_wagemth = Long(em_mth.Text)
IF cur_column_style = 0 THEN
	dw_wage.SetTransObject(sqlca)
	dw_wage.Retrieve(Long(em_mth.Text),wf_getwageid(ddlb_wageitem.Text),cur_scid_arr,ls_handtype)
	dw_wage.Object.u_gz_wagemx_wageamt_t.Text = ddlb_wageitem.Text
ELSE
	dw_wage.setredraw(false)
	dw_wage.SetTransObject(sqlca)
	dw_wage.Retrieve(ll_wagemth,cur_scid_arr,ls_handtype)
	
	String ls_wageitem = ''
	Long ls_wageid
	Int ls_j = 1
	
	
	
	DO WHILE ls_j <= 20
		dw_wage.Modify("u_gz_wage_wage"+String(ls_j)+"_t.visible=true")
		dw_wage.Modify("u_gz_wage_wage"+String(ls_j)+".visible=true")
		ls_j++
	LOOP
	DECLARE wageitem_cur CURSOR FOR
		
		SELECT DISTINCT u_gz_wageitem.Wagename, u_gz_wageitem.wageid
		FROM u_gz_wagemx INNER JOIN
		u_gz_wageitem ON u_gz_wagemx.wageid = u_gz_wageitem.wageid
		WHERE (u_gz_wageitem.useflag = 1) AND (u_gz_wageitem.wagemode = 0) &
		AND (u_gz_wagemx.wagemth = :ll_wagemth)
		Order By u_gz_wageitem.wageid;
		
	OPEN wageitem_cur;
	ls_j = 1
	FETCH wageitem_cur INTO :ls_wageitem,:ls_wageid;
	
	DO WHILE sqlca.SQLCode = 0
		cur_wageid[ls_j] = ls_wageid
		cur_column_string[ls_j] = "u_gz_wage_wage"+String(ls_j)
		dw_wage.Modify("u_gz_wage_wage"+String(ls_j)+"_t.Text='"+ls_wageitem+"'")
		
		FETCH wageitem_cur INTO :ls_wageitem,:ls_wageid;
		ls_j++
	LOOP
	CLOSE wageitem_cur;
	cur_temp_wagecount = ls_j - 1
	
	DO WHILE ls_j <= 20
		dw_wage.Modify("u_gz_wage_wage"+String(ls_j)+"_t.visible=false")
		dw_wage.Modify("u_gz_wage_wage"+String(ls_j)+".visible=false")
		ls_j++
	LOOP
	
	
	String arg_msg = ''
	IF wf_retrieve_wagemx() = 0 THEN
		MessageBox('提示',arg_msg, Information!, OK! )
		RETURN 0
	END IF
	
	dw_wage.setredraw(true)
END IF
RETURN 0

end function

public function integer wf_refresh_face ();//wf_refresh_face
Int ls_i
cb_func.Enabled = NOT dw_edit_mode
ddlb_scid.Enabled = NOT dw_edit_mode
rb_1.Enabled = NOT dw_edit_mode
rb_2.Enabled = NOT dw_edit_mode
ddlb_wageitem.Enabled = NOT dw_edit_mode
cb_copybasepay.Enabled = dw_edit_mode

IF dw_edit_mode THEN
	cb_cancel.Enabled = TRUE
	cb_wage_edit.Text = '保存'
	cb_wage_edit.normalpicname = 'Save.bmp'
	
	em_mth.Enabled = FALSE
	cb_retrieve.Enabled = FALSE
	IF cur_column_style = 0 THEN
		dw_wage.SetTabOrder(1,10)
	ELSE
		ls_i = 1
		DO WHILE ls_i <= 20
			dw_wage.SetTabOrder("u_gz_wage_wage"+String(ls_i),10*ls_i)
			ls_i++
		LOOP
	END IF
ELSE
	cb_cancel.Enabled = FALSE
	cb_wage_edit.Text = '修改'
	cb_wage_edit.normalpicname = 'open.bmp'
	
	em_mth.Enabled = TRUE
	cb_retrieve.Enabled = TRUE
	
	IF dw_wage.RowCount() > 0 THEN
		IF dw_wage.Object.u_gz_wage_auditingflag[1] = 0 THEN
			cb_wage_edit.Enabled = TRUE
		ELSE
			cb_wage_edit.Enabled = FALSE
		END IF
	ELSE
		cb_wage_edit.Enabled = TRUE
	END IF
	IF cur_column_style = 0 THEN
		dw_wage.SetTabOrder(1,0)
	ELSE
		ls_i = 1
		DO WHILE ls_i <= 20
			dw_wage.SetTabOrder("u_gz_wage_wage"+String(ls_i),0)
			ls_i++
		LOOP
	END IF
END IF
cb_wage_edit.of_init_draw()
cb_wage_edit.of_paint()

cb_wage_edit.TriggerEvent('ue_textchange')


RETURN 0

end function

public subroutine wf_find_tvchild (long arg_handl, long arg_deptid);Long ll_handl
Long ll_deptid
treeviewitem tvi
ll_handl = arg_handl
ll_handl = tv_1.FindItem(ChildTreeItem!,ll_handl)
DO WHILE ll_handl > 0
	tv_1.GetItem(ll_handl,tvi)
	ll_deptid = tvi.Data
	
	IF ll_deptid = arg_deptid THEN
		tv_1.SelectItem (ll_handl)
		RETURN
	END IF
	
	wf_find_tvnext(ll_handl,arg_deptid)
	ll_handl = tv_1.FindItem(ChildTreeItem!,ll_handl)
LOOP


end subroutine

public subroutine wf_find_tvnext (long arg_handl, long arg_deptid);Long ll_handl
Long ll_deptid
treeviewitem tvi

ll_handl = arg_handl
ll_handl = tv_1.FindItem(NextTreeItem!,ll_handl)
DO WHILE ll_handl > 0
	tv_1.GetItem(ll_handl,tvi)
	ll_deptid = tvi.Data
		
	IF ll_deptid = arg_deptid THEN
		tv_1.SelectItem ( ll_handl )
		RETURN
	END IF
	
	wf_find_tvchild(ll_handl,arg_deptid)
	ll_handl = tv_1.FindItem(NextTreeItem!,ll_handl)
LOOP



end subroutine

public subroutine wf_setopen (long arg_deptid, long arg_scid);//tv
Long ll_handl
ll_handl = tv_1.FindItem(RootTreeItem!,0)
IF ll_handl > 0 THEN wf_find_tvchild(ll_handl,arg_deptid)


//ddlb
String ls_scname
Int li_spacenum
String ls_space
String ls_name
Long ll_finditem

IF arg_scid = -1 THEN
	ls_name = '[全部]'
ELSE
	
	SELECT scname
		INTO :ls_scname
		FROM u_scdef
		Where scid = :arg_scid;
	IF sqlca.SQLCode <> 0 OR IsNull(ls_scname) THEN ls_scname = ''
	
	li_spacenum = 50 - Len(Trim(ls_scname)) - 2 - Len(String(arg_scid))
	ls_space = Fill(' ',li_spacenum)
	
	ls_name = ls_scname+ls_space+'['+String(arg_scid)+']'
END IF



ll_finditem = ddlb_scid.FindItem(ls_name,0)
IF ll_finditem > 0 THEN
	ddlb_scid.SelectItem ( ls_name, ll_finditem )
END IF





end subroutine

public function integer wf_save (ref string arg_msg, boolean ifcommit);int ls_rowcount,ls_j,ls_k,rslt=1
long ll_empid,ll_wagemth,ll_wageid
decimal ld_temp_amt
long ll_flag
dw_wage.accepttext()
ls_rowcount=dw_wage.rowcount()
for ls_j=1 to ls_rowcount
	ll_flag=dw_wage.object.u_gz_wage_auditingflag[ls_j]
	if ll_flag=1 then
		rslt=0
		arg_msg='工资项已经审核，在第'+string(ls_j)+'行'
		goto ext
	end if
	ll_wagemth=dw_wage.object.u_gz_wage_wagemth[ls_j]
	ll_empid=dw_wage.object.u_gz_wage_empid[ls_j]
	for ls_k=1 to cur_temp_wagecount
		ll_wageid= cur_wageid[ls_k]
		choose case ls_k
			case 1
				ld_temp_amt=dw_wage.object.u_gz_wage_wage1[ls_j]
			case 2
				ld_temp_amt=dw_wage.object.u_gz_wage_wage2[ls_j]
			case 3
				ld_temp_amt=dw_wage.object.u_gz_wage_wage3[ls_j]
			case 4
				ld_temp_amt=dw_wage.object.u_gz_wage_wage4[ls_j]
			case 5
				ld_temp_amt=dw_wage.object.u_gz_wage_wage5[ls_j]
			case 6
				ld_temp_amt=dw_wage.object.u_gz_wage_wage6[ls_j]
			case 7
				ld_temp_amt=dw_wage.object.u_gz_wage_wage7[ls_j]
			case 8
				ld_temp_amt=dw_wage.object.u_gz_wage_wage8[ls_j]
			case 9
				ld_temp_amt=dw_wage.object.u_gz_wage_wage9[ls_j]
			case 10
				ld_temp_amt=dw_wage.object.u_gz_wage_wage10[ls_j]
			case 11
				ld_temp_amt=dw_wage.object.u_gz_wage_wage11[ls_j]
			case 12
				ld_temp_amt=dw_wage.object.u_gz_wage_wage12[ls_j]
			case 13
				ld_temp_amt=dw_wage.object.u_gz_wage_wage13[ls_j]
			case 14
				ld_temp_amt=dw_wage.object.u_gz_wage_wage14[ls_j]
			case 15
				ld_temp_amt=dw_wage.object.u_gz_wage_wage15[ls_j]
			case 16
				ld_temp_amt=dw_wage.object.u_gz_wage_wage16[ls_j]
			case 17
				ld_temp_amt=dw_wage.object.u_gz_wage_wage17[ls_j]
			case 18
				ld_temp_amt=dw_wage.object.u_gz_wage_wage18[ls_j]
			case 19
				ld_temp_amt=dw_wage.object.u_gz_wage_wage19[ls_j]
			case 20
				ld_temp_amt=dw_wage.object.u_gz_wage_wage20[ls_j]
		end choose
		update u_gz_wagemx
		set u_gz_wagemx.wageamt=:ld_temp_amt
		where u_gz_wagemx.empid=:ll_empid and u_gz_wagemx.wageid=:ll_wageid &
				and u_gz_wagemx.wagemth=:ll_wagemth;
		if sqlca.sqlcode<>0 then
			rslt=0
			arg_msg='更新工资失败，在第'+string(ls_j)+'行，第'+string(ls_k)+'列工资项目'
			goto ext
		end if
		
	next
		
next
dw_wage.accepttext()
ext:
if rslt=1 and ifcommit then
	commit;
else
	rollback;
end if
return rslt	
end function

public function integer wf_retrieve_wagemx ();Int ls_rowcount,ls_j,ls_k,rslt = 1
Long ll_empid,ll_wagemth,ll_wageid
Decimal ld_temp_amt
ls_rowcount = dw_wage.RowCount()

FOR ls_j = 1 TO ls_rowcount
	ll_wagemth = dw_wage.Object.u_gz_wage_wagemth[ls_j]
	ll_empid = dw_wage.Object.u_gz_wage_empid[ls_j]
	FOR ls_k = 1 TO cur_temp_wagecount
		ll_wageid = cur_wageid[ls_k]
		SELECT wageamt
			INTO :ld_temp_amt
			FROM u_gz_wagemx
			WHERE u_gz_wagemx.wageid = :ll_wageid AND &
			u_gz_wagemx.empid = :ll_empid  AND &
			u_gz_wagemx.wagemth = :ll_wagemth ;
		IF sqlca.SQLCode <> 0 THEN
			ld_temp_amt = 0
		END IF
		CHOOSE CASE ls_k
			CASE 1
				dw_wage.Object.u_gz_wage_wage1[ls_j] = ld_temp_amt
			CASE 2
				dw_wage.Object.u_gz_wage_wage2[ls_j] = ld_temp_amt
			CASE 3
				dw_wage.Object.u_gz_wage_wage3[ls_j] = ld_temp_amt
			CASE 4
				dw_wage.Object.u_gz_wage_wage4[ls_j] = ld_temp_amt
			CASE 5
				dw_wage.Object.u_gz_wage_wage5[ls_j] = ld_temp_amt
			CASE 6
				dw_wage.Object.u_gz_wage_wage6[ls_j] = ld_temp_amt
			CASE 7
				dw_wage.Object.u_gz_wage_wage7[ls_j] = ld_temp_amt
			CASE 8
				dw_wage.Object.u_gz_wage_wage8[ls_j] = ld_temp_amt
			CASE 9
				dw_wage.Object.u_gz_wage_wage9[ls_j] = ld_temp_amt
			CASE 10
				dw_wage.Object.u_gz_wage_wage10[ls_j] = ld_temp_amt
			CASE 11
				dw_wage.Object.u_gz_wage_wage11[ls_j] = ld_temp_amt
			CASE 12
				dw_wage.Object.u_gz_wage_wage12[ls_j] = ld_temp_amt
			CASE 13
				dw_wage.Object.u_gz_wage_wage13[ls_j] = ld_temp_amt
			CASE 14
				dw_wage.Object.u_gz_wage_wage14[ls_j] = ld_temp_amt
			CASE 15
				dw_wage.Object.u_gz_wage_wage15[ls_j] = ld_temp_amt
			CASE 16
				dw_wage.Object.u_gz_wage_wage16[ls_j] = ld_temp_amt
			CASE 17
				dw_wage.Object.u_gz_wage_wage17[ls_j] = ld_temp_amt
			CASE 18
				dw_wage.Object.u_gz_wage_wage18[ls_j] = ld_temp_amt
			CASE 19
				dw_wage.Object.u_gz_wage_wage19[ls_j] = ld_temp_amt
			CASE 20
				dw_wage.Object.u_gz_wage_wage20[ls_j] = ld_temp_amt
		END CHOOSE
		
	NEXT
	
NEXT
dw_wage.AcceptText()

RETURN rslt

end function

public function long wf_getwageid (string arg_wagename);//wf_getwageid(arg_wagename)

string ls_name
long ls_wageid=0
ls_name=ddlb_wageitem.text

  SELECT u_gz_wageitem.wageid  
    INTO :ls_wageid  
    FROM u_gz_wageitem  
   WHERE u_gz_wageitem.Wagename =  :ls_name  ;


return ls_wageid
end function

public function integer wf_columnstyle ();

if cur_column_style = 0 then
	ddlb_wageitem.enabled=true
	dw_wage.dataobject='dw_mthwage_mx0_edit'
else		
	ddlb_wageitem.enabled=false
	dw_wage.dataobject='dw_mthwage_mx0_edit_1'
end if

return 0
end function

public function integer wf_copybasepay (ref string arg_msg);Int ls_rowcount,ls_j,ls_k,rslt = 1
Long ll_empid,ll_wagemth,ll_wageid
Decimal ld_temp_amt
ls_rowcount = dw_wage.RowCount()
dw_wage.SetRedraw(FALSE)
IF cur_column_style = 0 THEN
	IF ddlb_wageitem.Text <> "基本工资" THEN
		arg_msg = '工资项目名称不是"基本工资",不能导入基本工资'
		rslt = 0
		GOTO ext
	END IF
	//	ll_wageid = wf_getwageid(ddlb_wageitem.Text)
	FOR ls_j = 1 TO ls_rowcount
		//		ll_wagemth = dw_wage.Object.u_gz_wage_wagemth[ls_j] -1
		ll_empid = dw_wage.Object.u_gz_wage_empid[ls_j]
		SELECT BasePay
			INTO :ld_temp_amt
			FROM U_BasePay
			Where U_BasePay.EmpId = :ll_empid ;
		IF sqlca.SQLCode <> 0 THEN
			ld_temp_amt = 0
		END IF
		dw_wage.Object.u_gz_wagemx_wageamt[ls_j] = ld_temp_amt
	NEXT
ELSE
	FOR ls_j = 1 TO ls_rowcount
		ll_wagemth = dw_wage.Object.u_gz_wage_wagemth[ls_j] -1
		ll_empid = dw_wage.Object.u_gz_wage_empid[ls_j]
		FOR ls_k = 1 TO cur_temp_wagecount
			ll_wageid = cur_wageid[ls_k]
			IF ll_wageid <> wf_getwageid("基本工资") THEN CONTINUE
			ll_empid = dw_wage.Object.u_gz_wage_empid[ls_j]
			SELECT BasePay
				INTO :ld_temp_amt
				FROM U_BasePay
				Where U_BasePay.EmpId = :ll_empid ;
			IF sqlca.SQLCode <> 0 THEN
				ld_temp_amt = 0
			END IF
			CHOOSE CASE ls_k
				CASE 1
					dw_wage.Object.u_gz_wage_wage1[ls_j] = ld_temp_amt
				CASE 2
					dw_wage.Object.u_gz_wage_wage2[ls_j] = ld_temp_amt
				CASE 3
					dw_wage.Object.u_gz_wage_wage3[ls_j] = ld_temp_amt
				CASE 4
					dw_wage.Object.u_gz_wage_wage4[ls_j] = ld_temp_amt
				CASE 5
					dw_wage.Object.u_gz_wage_wage5[ls_j] = ld_temp_amt
				CASE 6
					dw_wage.Object.u_gz_wage_wage6[ls_j] = ld_temp_amt
				CASE 7
					dw_wage.Object.u_gz_wage_wage7[ls_j] = ld_temp_amt
				CASE 8
					dw_wage.Object.u_gz_wage_wage8[ls_j] = ld_temp_amt
				CASE 9
					dw_wage.Object.u_gz_wage_wage9[ls_j] = ld_temp_amt
				CASE 10
					dw_wage.Object.u_gz_wage_wage10[ls_j] = ld_temp_amt
				CASE 11
					dw_wage.Object.u_gz_wage_wage11[ls_j] = ld_temp_amt
				CASE 12
					dw_wage.Object.u_gz_wage_wage12[ls_j] = ld_temp_amt
				CASE 13
					dw_wage.Object.u_gz_wage_wage13[ls_j] = ld_temp_amt
				CASE 14
					dw_wage.Object.u_gz_wage_wage14[ls_j] = ld_temp_amt
				CASE 15
					dw_wage.Object.u_gz_wage_wage15[ls_j] = ld_temp_amt
				CASE 16
					dw_wage.Object.u_gz_wage_wage16[ls_j] = ld_temp_amt
				CASE 17
					dw_wage.Object.u_gz_wage_wage17[ls_j] = ld_temp_amt
				CASE 18
					dw_wage.Object.u_gz_wage_wage18[ls_j] = ld_temp_amt
				CASE 19
					dw_wage.Object.u_gz_wage_wage19[ls_j] = ld_temp_amt
				CASE 20
					dw_wage.Object.u_gz_wage_wage20[ls_j] = ld_temp_amt
			END CHOOSE
		NEXT
	NEXT
END IF
ext:
dw_wage.AcceptText()
dw_wage.SetRedraw(TRUE)
RETURN rslt

 
end function

public function integer wf_retrieve_wagemx_1 ();Int ls_rowcount,ls_j,ls_k,rslt = 1
Long ll_empid,ll_wagemth,ll_wagemth1,ll_wageid
Decimal ld_temp_amt
ls_rowcount = dw_wage.RowCount()

FOR ls_j = 1 TO ls_rowcount
	ll_wagemth = dw_wage.Object.u_gz_wage_wagemth[ls_j]
	ll_wagemth1 = f_mth(ll_wagemth)
	ll_empid = dw_wage.Object.u_gz_wage_empid[ls_j]
	FOR ls_k = 1 TO cur_temp_wagecount
		ll_wageid = cur_wageid[ls_k]
		SELECT wageamt
			INTO :ld_temp_amt
			FROM u_gz_wagemx
			WHERE u_gz_wagemx.wageid = :ll_wageid AND &
			u_gz_wagemx.empid = :ll_empid  AND &
			u_gz_wagemx.wagemth = :ll_wagemth1 ;
		IF sqlca.SQLCode <> 0 THEN
			ld_temp_amt = 0
		END IF
		CHOOSE CASE ls_k
			CASE 1
				dw_wage.Object.u_gz_wage_wage1[ls_j] = ld_temp_amt
			CASE 2
				dw_wage.Object.u_gz_wage_wage2[ls_j] = ld_temp_amt
			CASE 3
				dw_wage.Object.u_gz_wage_wage3[ls_j] = ld_temp_amt
			CASE 4
				dw_wage.Object.u_gz_wage_wage4[ls_j] = ld_temp_amt
			CASE 5
				dw_wage.Object.u_gz_wage_wage5[ls_j] = ld_temp_amt
			CASE 6
				dw_wage.Object.u_gz_wage_wage6[ls_j] = ld_temp_amt
			CASE 7
				dw_wage.Object.u_gz_wage_wage7[ls_j] = ld_temp_amt
			CASE 8
				dw_wage.Object.u_gz_wage_wage8[ls_j] = ld_temp_amt
			CASE 9
				dw_wage.Object.u_gz_wage_wage9[ls_j] = ld_temp_amt
			CASE 10
				dw_wage.Object.u_gz_wage_wage10[ls_j] = ld_temp_amt
			CASE 11
				dw_wage.Object.u_gz_wage_wage11[ls_j] = ld_temp_amt
			CASE 12
				dw_wage.Object.u_gz_wage_wage12[ls_j] = ld_temp_amt
			CASE 13
				dw_wage.Object.u_gz_wage_wage13[ls_j] = ld_temp_amt
			CASE 14
				dw_wage.Object.u_gz_wage_wage14[ls_j] = ld_temp_amt
			CASE 15
				dw_wage.Object.u_gz_wage_wage15[ls_j] = ld_temp_amt
			CASE 16
				dw_wage.Object.u_gz_wage_wage16[ls_j] = ld_temp_amt
			CASE 17
				dw_wage.Object.u_gz_wage_wage17[ls_j] = ld_temp_amt
			CASE 18
				dw_wage.Object.u_gz_wage_wage18[ls_j] = ld_temp_amt
			CASE 19
				dw_wage.Object.u_gz_wage_wage19[ls_j] = ld_temp_amt
			CASE 20
				dw_wage.Object.u_gz_wage_wage20[ls_j] = ld_temp_amt
		END CHOOSE
		
	NEXT
	
NEXT
dw_wage.AcceptText()

RETURN rslt

end function

on w_gz_wage_mx0_edit.create
int iCurrent
call super::create
this.em_mth=create em_mth
this.st_421=create st_421
this.cb_retrieve=create cb_retrieve
this.cb_wage_edit=create cb_wage_edit
this.cb_cancel=create cb_cancel
this.ddlb_scid=create ddlb_scid
this.cb_2=create cb_2
this.tv_1=create tv_1
this.dw_wage=create dw_wage
this.ddlb_wageitem=create ddlb_wageitem
this.rb_1=create rb_1
this.rb_2=create rb_2
this.cb_copybasepay=create cb_copybasepay
this.cb_1=create cb_1
this.gb_1=create gb_1
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.em_mth
this.Control[iCurrent+2]=this.st_421
this.Control[iCurrent+3]=this.cb_retrieve
this.Control[iCurrent+4]=this.cb_wage_edit
this.Control[iCurrent+5]=this.cb_cancel
this.Control[iCurrent+6]=this.ddlb_scid
this.Control[iCurrent+7]=this.cb_2
this.Control[iCurrent+8]=this.tv_1
this.Control[iCurrent+9]=this.dw_wage
this.Control[iCurrent+10]=this.ddlb_wageitem
this.Control[iCurrent+11]=this.rb_1
this.Control[iCurrent+12]=this.rb_2
this.Control[iCurrent+13]=this.cb_copybasepay
this.Control[iCurrent+14]=this.cb_1
this.Control[iCurrent+15]=this.gb_1
this.Control[iCurrent+16]=this.ln_bar
this.Control[iCurrent+17]=this.ln_bar2
this.Control[iCurrent+18]=this.r_bar
end on

on w_gz_wage_mx0_edit.destroy
call super::destroy
destroy(this.em_mth)
destroy(this.st_421)
destroy(this.cb_retrieve)
destroy(this.cb_wage_edit)
destroy(this.cb_cancel)
destroy(this.ddlb_scid)
destroy(this.cb_2)
destroy(this.tv_1)
destroy(this.dw_wage)
destroy(this.ddlb_wageitem)
destroy(this.rb_1)
destroy(this.rb_2)
destroy(this.cb_copybasepay)
destroy(this.cb_1)
destroy(this.gb_1)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
end on

event open;call super::open;dw_wage.SetTransObject(sqlca)

s_wageeditw_open s_wageedit_tran
s_wageedit_tran = Message.PowerObjectParm

cur_0_wageid = s_wageedit_tran.wageid
ddlb_wageitem.text=s_wageedit_tran.wagename
em_mth.Text = String(s_wageedit_tran.wagemth)
ls_handtype = s_wageedit_tran.handtype
cur_scid_arr = s_wageedit_tran.scid_arr
cur_scid = s_wageedit_tran.scid

wf_setopen(s_wageedit_tran.deptid,s_wageedit_tran.scid)

wf_columnstyle()

wf_retreve()

wf_refresh_face()



end event

event ue_filter;call super::ue_filter;OPENWITHPARM(w_filter_query,dw_wage)
STRING LS_EXPR
LS_EXPR=Message.StringParm	

if len(LS_EXPR)>2 and trim(LS_EXPR)='' then return

dw_wage.setfilter(LS_EXPR)
dw_wage.SetRedraw (false)
dw_wage.filter()
dw_wage.SetRedraw (TRUE)
end event

event ue_sort;call super::ue_sort;OPENwithparm(w_sortrow,dw_wage)
STRING LS_EXPR
LS_EXPR=Message.StringParm	
IF ISNULL(LS_EXPR) THEN LS_EXPR='   '
if len(LS_EXPR)>2 and trim(LS_EXPR)='' then return

dw_wage.setsort(LS_EXPR)

dw_wage.SetRedraw (false)
dw_wage.sort()
dw_wage.SetRedraw (true)
end event

event close;call super::close;Int ls_j
FOR ls_j = 1 TO 20
	SetNull(cur_wageid[ls_j])
	SetNull(cur_column_string[ls_j])
NEXT

cur_temp_wagecount = 0

end event

event resize;call super::resize;ln_bar.endx = this.width
ln_bar2.endx = this.width
//ln_1.endx = this.width
//ln_2.endx = this.width
r_bar.width = this.width

long w_width,w_height
w_width = 3600
w_height = 2300


if newwidth < w_width then this.width = w_width
if newheight < w_height then  this.height = w_height


tv_1.height=this.height - tv_1.y - 140

dw_wage.width=this.width - dw_wage.x - 40
dw_wage.height=this.height - dw_wage.y - 140

end event

type cb_func from w_publ_base`cb_func within w_gz_wage_mx0_edit
boolean visible = false
integer x = 2363
integer y = 112
integer width = 274
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_gz_wage_mx0_edit
integer x = 1687
integer width = 165
integer height = 172
integer taborder = 100
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type em_mth from editmask within w_gz_wage_mx0_edit
integer x = 1582
integer y = 212
integer width = 320
integer height = 84
integer taborder = 30
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyymm"
boolean spin = true
end type

type st_421 from statictext within w_gz_wage_mx0_edit
integer x = 1417
integer y = 232
integer width = 160
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 cb_retrieve from uo_imflatbutton within w_gz_wage_mx0_edit
integer x = 261
integer width = 329
integer height = 172
integer taborder = 90
boolean bringtotop = true
string text = "刷新工资表"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;wf_retreve()
end event

type cb_wage_edit from uo_imflatbutton within w_gz_wage_mx0_edit
integer x = 590
integer width = 165
integer height = 172
integer taborder = 40
boolean bringtotop = true
string text = "修改"
string normalpicname = "open.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;string ls_msg=''
if dw_edit_mode then
	dw_wage.setfilter('')
	dw_wage.filter()
	dw_wage.accepttext()
	
	if cur_column_style=0 then
		
		if dw_wage.update()=1 then
			commit;
			messagebox('提示','保存成功!', Information!, OK! )
		else
			rollback;
			messagebox('提示','保存失败!', Information!, OK! )	
		end if
	
	else
		if wf_save(ls_msg,true)=1 then		
			messagebox('提示','保存成功!', Information!, OK! )
		else
			messagebox('提示','保存失败!原因：'+ls_msg, Information!, OK! )	
		end if
	end if
	
end if

dw_edit_mode=not dw_edit_mode

wf_refresh_face()



end event

type cb_cancel from uo_imflatbutton within w_gz_wage_mx0_edit
integer x = 754
integer width = 165
integer height = 172
integer taborder = 60
boolean bringtotop = true
string text = "放弃"
string normalpicname = "undo.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;dw_edit_mode=false

wf_retreve()
wf_refresh_face()

end event

type ddlb_scid from uo_ddlb_scid within w_gz_wage_mx0_edit
integer x = 1915
integer y = 212
integer width = 517
integer height = 676
integer taborder = 50
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_scid_arr = THIS.uo_scid_arr
end event

event selectionchanged;call super::selectionchanged;cur_scid_arr = THIS.uo_scid_arr

cb_retrieve.TriggerEvent(Clicked!)
end event

type cb_2 from uo_imflatbutton within w_gz_wage_mx0_edit
integer width = 261
integer height = 172
integer taborder = 70
boolean bringtotop = true
string text = "刷新部门"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type tv_1 from uo_tv_deptype within w_gz_wage_mx0_edit
integer y = 320
integer width = 814
integer height = 1740
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontfamily fontfamily = anyfont!
string facename = "宋体"
end type

event selectionchanged;call super::selectionchanged;ls_handtype = THIS.uo_cur_info.handtype
ls_handtype = ls_handtype + '%'
cb_retrieve.TriggerEvent(Clicked!)


end event

type dw_wage from u_dw_rbtnfilter within w_gz_wage_mx0_edit
integer x = 818
integer y = 320
integer width = 2720
integer height = 1740
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_mthwage_mx0_edit"
boolean hscrollbar = true
boolean vscrollbar = true
end type

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


end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow >0 THEN
	this.selectrow(0,false)
	this.selectrow(currentrow,true)
end if

end event

event dwnkey;call super::dwnkey;IF Key = KeyEnter!  THEN //
	keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
	keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
	RETURN 1
END IF

end event

type ddlb_wageitem from dropdownlistbox within w_gz_wage_mx0_edit
integer x = 704
integer y = 224
integer width = 667
integer height = 676
integer taborder = 110
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
borderstyle borderstyle = stylelowered!
end type

event constructor;
string ls_wageitem=''
long ls_wageid
DECLARE wageitem_cur CURSOR FOR 

  SELECT u_gz_wageitem.Wagename  ,
  			u_gz_wageitem.wageid
    FROM u_gz_wageitem  
   WHERE ( u_gz_wageitem.useflag = 1 ) AND  
         ( u_gz_wageitem.wagemode = 0 )
	order by u_gz_wageitem.Wagename;

open wageitem_cur;
fetch wageitem_cur into :ls_wageitem,:ls_wageid;

do while sqlca.sqlcode=0
	ddlb_wageitem.ADDItem(ls_wageitem)
   fetch wageitem_cur into :ls_wageitem,:ls_wageid;
loop
close wageitem_cur;

end event

event selectionchanged;wf_retreve()
end event

type rb_1 from radiobutton within w_gz_wage_mx0_edit
integer x = 46
integer y = 232
integer width = 320
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
string text = "整体列表"
end type

event clicked;cur_column_style = 1
wf_columnstyle()
wf_retreve()

end event

type rb_2 from radiobutton within w_gz_wage_mx0_edit
integer x = 366
integer y = 236
integer width = 320
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
string text = "单一列表"
boolean checked = true
end type

event clicked;cur_column_style=0

wf_columnstyle()

wf_retreve()
end event

type cb_copybasepay from uo_imflatbutton within w_gz_wage_mx0_edit
integer x = 919
integer width = 384
integer height = 172
integer taborder = 50
boolean bringtotop = true
boolean enabled = false
string text = "导入基本工资"
string normalpicname = "other.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF MessageBox ("IF","是否确定要导入基本工资吗？一旦导入，你所做的所有修改将会丢失。",Question!,YesNo! ) = 2 THEN RETURN
String arg_msg
IF wf_copybasepay(arg_msg) = 0 THEN
	MessageBox('系统提示',arg_msg)
	RETURN
END IF

end event

type cb_1 from uo_imflatbutton within w_gz_wage_mx0_edit
integer x = 1303
integer width = 384
integer height = 172
integer taborder = 60
boolean bringtotop = true
string text = "复制上月工资"
string normalpicname = "other.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;//  u_gz_wagemx.wagemth,   
//         u_gz_wagemx.empid,     
//         u_gz_wagemx.wageid,  
//u_gz_wagemx_wageamt
//em_mth
Long i,ll_mth,ll_s_mth,ll_wageid,ll_empid
Decimal de_wageamt
string arg_msg
IF cur_column_style = 0 THEN
	FOR i = 1 To dw_wage.RowCount()
		ll_mth = Long(dw_wage.Object.u_gz_wage_wagemth[i])
		ll_s_mth = f_mth(ll_mth)
		ll_wageid = Long(dw_wage.Object.u_gz_wagemx_wageid[i])
		ll_empid = Long(dw_wage.Object.u_gz_wagemx_empid[i])
		SELECT top 1 wageamt INTO :de_wageamt  FROM u_gz_wagemx WHERE wagemth = :ll_s_mth AND
			wageid = :ll_wageid And empid = :ll_empid;
		IF IsNull(de_wageamt) THEN de_wageamt = 0
		dw_wage.Object.u_gz_wagemx_wageamt[i] = de_wageamt
	NEXT
ELSE
		IF wf_retrieve_wagemx_1() = 0 THEN
		MessageBox('提示',arg_msg, Information!, OK! )
		RETURN 0
	END IF
END IF


end event

type gb_1 from groupbox within w_gz_wage_mx0_edit
integer y = 188
integer width = 1408
integer height = 128
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
end type

type ln_bar from line within w_gz_wage_mx0_edit
long linecolor = 268435456
integer linethickness = 4
integer beginy = 176
integer endx = 3429
integer endy = 176
end type

type ln_bar2 from line within w_gz_wage_mx0_edit
long linecolor = 16777215
integer linethickness = 4
integer beginy = 180
integer endx = 3429
integer endy = 180
end type

type r_bar from rectangle within w_gz_wage_mx0_edit
long linecolor = 16777215
long fillcolor = 1073741824
integer x = 3200
integer width = 73
integer height = 172
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar2.beginy - 5

end event