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

$PBExportHeader$w_sc_taskwork_p_audit.srw
forward
global type w_sc_taskwork_p_audit from window
end type
type ddlb_wageitem from dropdownlistbox within w_sc_taskwork_p_audit
end type
type st_3 from statictext within w_sc_taskwork_p_audit
end type
type cb_cancel from uo_imflatbutton within w_sc_taskwork_p_audit
end type
type cb_ok from uo_imflatbutton within w_sc_taskwork_p_audit
end type
type em_1 from editmask within w_sc_taskwork_p_audit
end type
type st_1 from statictext within w_sc_taskwork_p_audit
end type
end forward

global type w_sc_taskwork_p_audit from window
integer width = 1477
integer height = 672
boolean titlebar = true
string title = "产品个人工序计件单批审核"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 134217739
string icon = "AppIcon!"
boolean center = true
ddlb_wageitem ddlb_wageitem
st_3 st_3
cb_cancel cb_cancel
cb_ok cb_ok
em_1 em_1
st_1 st_1
end type
global w_sc_taskwork_p_audit w_sc_taskwork_p_audit

type variables
s_taskwork_abnormity_audit s_audit
end variables

on w_sc_taskwork_p_audit.create
this.ddlb_wageitem=create ddlb_wageitem
this.st_3=create st_3
this.cb_cancel=create cb_cancel
this.cb_ok=create cb_ok
this.em_1=create em_1
this.st_1=create st_1
this.Control[]={this.ddlb_wageitem,&
this.st_3,&
this.cb_cancel,&
this.cb_ok,&
this.em_1,&
this.st_1}
end on

on w_sc_taskwork_p_audit.destroy
destroy(this.ddlb_wageitem)
destroy(this.st_3)
destroy(this.cb_cancel)
destroy(this.cb_ok)
destroy(this.em_1)
destroy(this.st_1)
end on

event close;closewithreturn(this,s_audit)
end event

event open;int ls_audittype
//1 审核
//0 撤审
ls_audittype=message.doubleparm

if ls_audittype=1 then
	this.title='计件审核'
else
	this.title='计件撤审'
end if

end event

type ddlb_wageitem from dropdownlistbox within w_sc_taskwork_p_audit
integer x = 475
integer y = 104
integer width = 768
integer height = 412
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

event constructor;string ls_wagename
long ls_wageid
 
 DECLARE cur_wageitem CURSOR FOR  
  SELECT u_gz_wageitem.wageid,   
         u_gz_wageitem.Wagename  
    FROM u_gz_wageitem  
   WHERE ( u_gz_wageitem.wagemode = 15 ) AND  
         ( u_gz_wageitem.useflag = 1 )
ORDER BY u_gz_wageitem.wageid desc;

open cur_wageitem;
fetch cur_wageitem into :ls_wageid,:ls_wagename;
do while sqlca.sqlcode=0
	ddlb_wageitem.additem('['+string(ls_wageid)+']'+ls_wagename)
	fetch cur_wageitem into :ls_wageid,:ls_wagename;
loop
ddlb_wageitem.text='['+string(ls_wageid)+']'+ls_wagename
close cur_wageitem;
			

end event

type st_3 from statictext within w_sc_taskwork_p_audit
integer x = 219
integer y = 104
integer width = 256
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "工资项目"
boolean focusrectangle = false
end type

type cb_cancel from uo_imflatbutton within w_sc_taskwork_p_audit
integer x = 873
integer y = 392
integer width = 311
integer height = 96
integer taborder = 40
string text = "取消"
boolean cancel = true
end type

event clicked;call super::clicked;s_audit.audit_month=0
close(parent)
end event

type cb_ok from uo_imflatbutton within w_sc_taskwork_p_audit
integer x = 293
integer y = 392
integer width = 311
integer height = 96
integer taborder = 30
end type

event clicked;call super::clicked;
s_audit.audit_wageid=long(mid(ddlb_wageitem.text,2,pos(ddlb_wageitem.text,']') - 2 ))
s_audit.audit_month=long(em_1.text)

close(parent)
end event

type em_1 from editmask within w_sc_taskwork_p_audit
integer x = 475
integer y = 204
integer width = 485
integer height = 88
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyymm"
boolean spin = true
end type

event constructor;this.text=string(today(),'yyyymm')
end event

type st_1 from statictext within w_sc_taskwork_p_audit
integer x = 219
integer y = 224
integer width = 256
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "工资月份"
boolean focusrectangle = false
end type