Q5/ws_objects/cw_report.pbl.src/w_rp_zcfzb_create.srw

$PBExportHeader$w_rp_zcfzb_create.srw
forward
global type w_rp_zcfzb_create from w_publ_base
end type
type em_year from editmask within w_rp_zcfzb_create
end type
type gb_1 from groupbox within w_rp_zcfzb_create
end type
type rb_1 from radiobutton within w_rp_zcfzb_create
end type
type rb_2 from radiobutton within w_rp_zcfzb_create
end type
type rb_3 from radiobutton within w_rp_zcfzb_create
end type
type rb_4 from radiobutton within w_rp_zcfzb_create
end type
type rb_5 from radiobutton within w_rp_zcfzb_create
end type
type rb_6 from radiobutton within w_rp_zcfzb_create
end type
type rb_7 from radiobutton within w_rp_zcfzb_create
end type
type rb_8 from radiobutton within w_rp_zcfzb_create
end type
type rb_9 from radiobutton within w_rp_zcfzb_create
end type
type rb_10 from radiobutton within w_rp_zcfzb_create
end type
type rb_11 from radiobutton within w_rp_zcfzb_create
end type
type rb_12 from radiobutton within w_rp_zcfzb_create
end type
type cb_1 from commandbutton within w_rp_zcfzb_create
end type
type st_1 from statictext within w_rp_zcfzb_create
end type
end forward

global type w_rp_zcfzb_create from w_publ_base
integer width = 1655
integer height = 1184
string title = "生成报表"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 80269524
em_year em_year
gb_1 gb_1
rb_1 rb_1
rb_2 rb_2
rb_3 rb_3
rb_4 rb_4
rb_5 rb_5
rb_6 rb_6
rb_7 rb_7
rb_8 rb_8
rb_9 rb_9
rb_10 rb_10
rb_11 rb_11
rb_12 rb_12
cb_1 cb_1
st_1 st_1
end type
global w_rp_zcfzb_create w_rp_zcfzb_create

type variables
s_edit_index_tran s_rst
end variables

on w_rp_zcfzb_create.create
int iCurrent
call super::create
this.em_year=create em_year
this.gb_1=create gb_1
this.rb_1=create rb_1
this.rb_2=create rb_2
this.rb_3=create rb_3
this.rb_4=create rb_4
this.rb_5=create rb_5
this.rb_6=create rb_6
this.rb_7=create rb_7
this.rb_8=create rb_8
this.rb_9=create rb_9
this.rb_10=create rb_10
this.rb_11=create rb_11
this.rb_12=create rb_12
this.cb_1=create cb_1
this.st_1=create st_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.em_year
this.Control[iCurrent+2]=this.gb_1
this.Control[iCurrent+3]=this.rb_1
this.Control[iCurrent+4]=this.rb_2
this.Control[iCurrent+5]=this.rb_3
this.Control[iCurrent+6]=this.rb_4
this.Control[iCurrent+7]=this.rb_5
this.Control[iCurrent+8]=this.rb_6
this.Control[iCurrent+9]=this.rb_7
this.Control[iCurrent+10]=this.rb_8
this.Control[iCurrent+11]=this.rb_9
this.Control[iCurrent+12]=this.rb_10
this.Control[iCurrent+13]=this.rb_11
this.Control[iCurrent+14]=this.rb_12
this.Control[iCurrent+15]=this.cb_1
this.Control[iCurrent+16]=this.st_1
end on

on w_rp_zcfzb_create.destroy
call super::destroy
destroy(this.em_year)
destroy(this.gb_1)
destroy(this.rb_1)
destroy(this.rb_2)
destroy(this.rb_3)
destroy(this.rb_4)
destroy(this.rb_5)
destroy(this.rb_6)
destroy(this.rb_7)
destroy(this.rb_8)
destroy(this.rb_9)
destroy(this.rb_10)
destroy(this.rb_11)
destroy(this.rb_12)
destroy(this.cb_1)
destroy(this.st_1)
end on

event open;call super::open;s_rst.b_long = 0
CHOOSE CASE Long(Right(String(sys_curyearmon),2))
	CASE 1
		rb_1.Checked = True
		rb_2.Checked = False
		rb_3.Checked = False
		rb_4.Checked = False
		rb_5.Checked = False
		rb_6.Checked = False
		rb_7.Checked = False
		rb_8.Checked = False
		rb_9.Checked = False
		rb_10.Checked = False
		rb_11.Checked = False
		rb_12.Checked = False
	CASE 2
		rb_1.Checked = False
		rb_2.Checked = True
		rb_3.Checked = False
		rb_4.Checked = False
		rb_5.Checked = False
		rb_6.Checked = False
		rb_7.Checked = False
		rb_8.Checked = False
		rb_9.Checked = False
		rb_10.Checked = False
		rb_11.Checked = False
		rb_12.Checked = False
	CASE 3
		rb_1.Checked = False
		rb_2.Checked = False
		rb_3.Checked = True
		rb_4.Checked = False
		rb_5.Checked = False
		rb_6.Checked = False
		rb_7.Checked = False
		rb_8.Checked = False
		rb_9.Checked = False
		rb_10.Checked = False
		rb_11.Checked = False
		rb_12.Checked = False
	CASE 4
		rb_1.Checked = False
		rb_2.Checked = False
		rb_3.Checked = False
		rb_4.Checked = True
		rb_5.Checked = False
		rb_6.Checked = False
		rb_7.Checked = False
		rb_8.Checked = False
		rb_9.Checked = False
		rb_10.Checked = False
		rb_11.Checked = False
		rb_12.Checked = False
	CASE 5
		rb_1.Checked = False
		rb_2.Checked = False
		rb_3.Checked = False
		rb_4.Checked = False
		rb_5.Checked = True
		rb_6.Checked = False
		rb_7.Checked = False
		rb_8.Checked = False
		rb_9.Checked = False
		rb_10.Checked = False
		rb_11.Checked = False
		rb_12.Checked = False
	CASE 6
		rb_1.Checked = False
		rb_2.Checked = False
		rb_3.Checked = False
		rb_4.Checked = False
		rb_5.Checked = False
		rb_6.Checked = True
		rb_7.Checked = False
		rb_8.Checked = False
		rb_9.Checked = False
		rb_10.Checked = False
		rb_11.Checked = False
		rb_12.Checked = False
	CASE 7
		rb_1.Checked = False
		rb_2.Checked = False
		rb_3.Checked = False
		rb_4.Checked = False
		rb_5.Checked = False
		rb_6.Checked = False
		rb_7.Checked = True
		rb_8.Checked = False
		rb_9.Checked = False
		rb_10.Checked = False
		rb_11.Checked = False
		rb_12.Checked = False
	CASE 8
		rb_1.Checked = False
		rb_2.Checked = False
		rb_3.Checked = False
		rb_4.Checked = False
		rb_5.Checked = False
		rb_6.Checked = False
		rb_7.Checked = False
		rb_8.Checked = True
		rb_9.Checked = False
		rb_10.Checked = False
		rb_11.Checked = False
		rb_12.Checked = False
	CASE 9
		rb_1.Checked = False
		rb_2.Checked = False
		rb_3.Checked = False
		rb_4.Checked = False
		rb_5.Checked = False
		rb_6.Checked = False
		rb_7.Checked = False
		rb_8.Checked = False
		rb_9.Checked = True
		rb_10.Checked = False
		rb_11.Checked = False
		rb_12.Checked = False
	CASE 10
		rb_1.Checked = False
		rb_2.Checked = False
		rb_3.Checked = False
		rb_4.Checked = False
		rb_5.Checked = False
		rb_6.Checked = False
		rb_7.Checked = False
		rb_8.Checked = False
		rb_9.Checked = False
		rb_10.Checked = True
		rb_11.Checked = False
		rb_12.Checked = False
	CASE 11
		rb_1.Checked = False
		rb_2.Checked = False
		rb_3.Checked = False
		rb_4.Checked = False
		rb_5.Checked = False
		rb_6.Checked = False
		rb_7.Checked = False
		rb_8.Checked = False
		rb_9.Checked = False
		rb_10.Checked = False
		rb_11.Checked = True
		rb_12.Checked = False
	CASE 12
		rb_1.Checked = False
		rb_2.Checked = False
		rb_3.Checked = False
		rb_4.Checked = False
		rb_5.Checked = False
		rb_6.Checked = False
		rb_7.Checked = False
		rb_8.Checked = False
		rb_9.Checked = False
		rb_10.Checked = False
		rb_11.Checked = False
		rb_12.Checked = True
	CASE ELSE
		rb_1.Checked = False
		rb_2.Checked = False
		rb_3.Checked = False
		rb_4.Checked = False
		rb_5.Checked = False
		rb_6.Checked = False
		rb_7.Checked = False
		rb_8.Checked = False
		rb_9.Checked = False
		rb_10.Checked = False
		rb_11.Checked = False
		rb_12.Checked = False
END CHOOSE



end event

event close;call super::close;CloseWithReturn(This,s_rst)

end event

type cb_func from w_publ_base`cb_func within w_rp_zcfzb_create
boolean visible = false
integer x = 983
integer y = 104
integer width = 311
integer height = 96
boolean enabled = false
string text = "功能"
string normalpicname = ""
integer picsize = 0
toolbaralignment pic_align = alignatleft!
boolean border = true
end type

type cb_exit from w_publ_base`cb_exit within w_rp_zcfzb_create
integer x = 859
integer y = 920
integer width = 247
string text = "取消"
end type

type em_year from editmask within w_rp_zcfzb_create
integer x = 265
integer y = 52
integer width = 325
integer height = 88
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 = "0000"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
string mask = "####"
boolean spin = true
string minmax = "1900~~"
end type

event constructor;this.text=left(string(sys_curyearmon),4)
end event

type gb_1 from groupbox within w_rp_zcfzb_create
integer x = 96
integer y = 232
integer width = 1440
integer height = 624
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "报表类型"
end type

type rb_1 from radiobutton within w_rp_zcfzb_create
integer x = 187
integer y = 384
integer width = 247
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "一月"
end type

type rb_2 from radiobutton within w_rp_zcfzb_create
integer x = 654
integer y = 384
integer width = 247
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "二月"
end type

type rb_3 from radiobutton within w_rp_zcfzb_create
integer x = 1120
integer y = 384
integer width = 247
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "三月"
end type

type rb_4 from radiobutton within w_rp_zcfzb_create
integer x = 187
integer y = 496
integer width = 247
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "四月"
end type

type rb_5 from radiobutton within w_rp_zcfzb_create
integer x = 654
integer y = 496
integer width = 247
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "五月"
end type

type rb_6 from radiobutton within w_rp_zcfzb_create
integer x = 1120
integer y = 496
integer width = 247
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "六月"
end type

type rb_7 from radiobutton within w_rp_zcfzb_create
integer x = 187
integer y = 608
integer width = 247
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "七月"
end type

type rb_8 from radiobutton within w_rp_zcfzb_create
integer x = 654
integer y = 608
integer width = 247
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "八月"
end type

type rb_9 from radiobutton within w_rp_zcfzb_create
integer x = 1120
integer y = 608
integer width = 247
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "九月"
end type

type rb_10 from radiobutton within w_rp_zcfzb_create
integer x = 187
integer y = 720
integer width = 247
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "十月"
end type

type rb_11 from radiobutton within w_rp_zcfzb_create
integer x = 654
integer y = 720
integer width = 247
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "十一月"
end type

type rb_12 from radiobutton within w_rp_zcfzb_create
integer x = 1120
integer y = 720
integer width = 247
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "十二月"
end type

type cb_1 from commandbutton within w_rp_zcfzb_create
integer x = 466
integer y = 920
integer width = 247
integer height = 96
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

event clicked;Long ls_yearmon
ls_yearmon = Long(em_year.Text)


IF rb_1.Checked THEN
	ls_yearmon = ls_yearmon * 100 + 1
ELSEIF rb_2.Checked THEN
	ls_yearmon = ls_yearmon * 100 + 2
ELSEIF rb_3.Checked THEN
	ls_yearmon = ls_yearmon * 100 + 3
ELSEIF rb_4.Checked THEN
	ls_yearmon = ls_yearmon * 100 + 4
ELSEIF rb_5.Checked THEN
	ls_yearmon = ls_yearmon * 100 + 5
ELSEIF rb_6.Checked THEN
	ls_yearmon = ls_yearmon * 100 + 6
ELSEIF rb_7.Checked THEN
	ls_yearmon = ls_yearmon * 100 + 7
ELSEIF rb_8.Checked THEN
	ls_yearmon = ls_yearmon * 100 + 8
ELSEIF rb_9.Checked THEN
	ls_yearmon = ls_yearmon * 100 + 9
ELSEIF rb_10.Checked THEN
	ls_yearmon = ls_yearmon * 100 + 10
ELSEIF rb_11.Checked THEN
	ls_yearmon = ls_yearmon * 100 + 11
ELSEIF rb_12.Checked THEN
	ls_yearmon = ls_yearmon * 100 + 12
END IF
s_rst.b_long = ls_yearmon

Close(Parent)







end event

type st_1 from statictext within w_rp_zcfzb_create
integer x = 96
integer y = 72
integer width = 169
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "年份："
boolean focusrectangle = false
end type