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

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

global type w_gz_loanwage_audit from window
integer width = 997
integer height = 660
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_2 em_2
em_1 em_1
st_2 st_2
st_1 st_1
end type
global w_gz_loanwage_audit w_gz_loanwage_audit

type variables
s_taskwork_abnormity_audit s_audit
end variables

on w_gz_loanwage_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_2=create em_2
this.em_1=create em_1
this.st_2=create st_2
this.st_1=create st_1
this.Control[]={this.ddlb_wageitem,&
this.st_3,&
this.cb_cancel,&
this.cb_ok,&
this.em_2,&
this.em_1,&
this.st_2,&
this.st_1}
end on

on w_gz_loanwage_audit.destroy
destroy(this.ddlb_wageitem)
destroy(this.st_3)
destroy(this.cb_cancel)
destroy(this.cb_ok)
destroy(this.em_2)
destroy(this.em_1)
destroy(this.st_2)
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='借支审核'
//	em_2.enabled=true
	em_2.enabled=false
else
	this.title='借支撤审'
	em_2.enabled=false
end if

end event

type ddlb_wageitem from dropdownlistbox within w_gz_loanwage_audit
integer x = 375
integer y = 68
integer width = 485
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 = 21 ) 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_gz_loanwage_audit
integer x = 119
integer y = 80
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_gz_loanwage_audit
integer x = 535
integer y = 432
integer width = 311
integer taborder = 40
string text = "取消"
boolean cancel = true
string normalpicname = "exit.bmp"
end type

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

type cb_ok from uo_imflatbutton within w_gz_loanwage_audit
integer x = 151
integer y = 432
integer width = 311
integer taborder = 30
string normalpicname = "ok.bmp"
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)
//s_audit.audit_enddate=datetime(date(em_2.text),time('23:59:59'))

close(parent)
end event

type em_2 from editmask within w_gz_loanwage_audit
integer x = 375
integer y = 276
integer width = 485
integer height = 88
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;this.text=string(today(),'yyyy-mm-dd')
end event

type em_1 from editmask within w_gz_loanwage_audit
integer x = 375
integer y = 168
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_2 from statictext within w_gz_loanwage_audit
integer x = 119
integer y = 296
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 st_1 from statictext within w_gz_loanwage_audit
integer x = 119
integer y = 188
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