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

$PBExportHeader$w_rp_combine.srw
forward
global type w_rp_combine from w_publ_easyq
end type
type cb_3 from uo_imflatbutton within w_rp_combine
end type
type st_1 from statictext within w_rp_combine
end type
type ddlb_1 from dropdownlistbox within w_rp_combine
end type
end forward

global type w_rp_combine from w_publ_easyq
string title = "资产负债表|损益表"
cb_3 cb_3
st_1 st_1
ddlb_1 ddlb_1
end type
global w_rp_combine w_rp_combine

type variables
Long cur_rpid
Int cur_rptype

end variables

forward prototypes
public subroutine wf_ddlb ()
public subroutine wf_face ()
end prototypes

public subroutine wf_ddlb ();Long ls_rpid
String ls_rpname
Long ll_i
String ls_space
Int li_spacenum

ddlb_1.reset()

DECLARE cur_rp CURSOR FOR
	SELECT cw_rp.rpid,
	cw_rp.rpname
	from cw_rp
	Order By cw_rp.rpcode;
OPEN cur_rp;

FETCH cur_rp Into :ls_rpid,:ls_rpname ;
DO WHILE sqlca.SQLCode = 0
	
	li_spacenum = 50 - Len(Trim(ls_rpname)) - 2 - Len(String(ls_rpid))
	ls_space = Fill(' ',li_spacenum)
	
	ddlb_1.AddItem (ls_rpname+ls_space+'['+String(ls_rpid)+']')
	
	ll_i++
	IF ll_i = 1 THEN
		cur_rpid = ls_rpid
		ddlb_1.Text = ls_rpname+ls_space+'['+String(ls_rpid)+']'
	END IF
	FETCH cur_rp Into :ls_rpid,:ls_rpname ;
LOOP

CLOSE cur_rp;

end subroutine

public subroutine wf_face ();Long ll_row,i,j
Long ll_mth
Long ll_rpid
Int li_rptype
String ls_col1name,ls_col2name,ls_col1name_addname,ls_col2name_addname,ls_rpname

IF cur_rpid <= 0 THEN
	dw_1.Reset()
	RETURN
END IF
ll_rpid = cur_rpid
SELECT rptype,
	rpname,
	col1name,
	col2name,
	col1name_addname,
	col2name_addname
	INTO :li_rptype,
	:ls_rpname,
	:ls_col1name,
	:ls_col2name,
	:ls_col1name_addname,
	:ls_col2name_addname
	From u_rp Where rpid = :ll_rpid;
IF sqlca.SQLCode <> 0 THEN
	dw_1.Reset()
	RETURN
END IF

cur_rptype = li_rptype
dw_1.Retrieve(cur_rpid)
dw_1.Object.rpname.Text = ls_rpname

//改标题及列宽
Long ls_dwidth,ls_dwidth2

IF li_rptype = 0 THEN
	ls_dwidth = 600
	ls_dwidth2 = 1800
ELSE
	ls_dwidth = 430
	ls_dwidth2 = 800
END IF

//1
j = 1
dw_1.Modify("col1_amt"+String(j,'00')+"_t.width='"+String(ls_dwidth)+"'")
dw_1.Modify("col1_amt"+String(j,'00')+".width='"+String(ls_dwidth)+"'")
dw_1.Modify("col1_amt"+String(j,'00')+"_t.text='" + ls_col1name_addname+"'")
//2
dw_1.Modify("col1_amt"+String(j,'00')+"_2_t.width='"+String(ls_dwidth)+"'")
dw_1.Modify("col1_amt"+String(j,'00')+"_2.width='"+String(ls_dwidth)+"'")
dw_1.Modify("col1_amt"+String(j,'00')+"_2_t.text='" + ls_col2name_addname+"'")

dw_1.Object.col1_name_t.Text = ls_col1name
dw_1.Modify("col1_name_t.width='"+String(ls_dwidth2)+"'")
dw_1.Modify("col1_name.width='"+String(ls_dwidth2)+"'")



IF li_rptype = 0 THEN
	
	//项目
	dw_1.Modify("col2_name_t.visible=false")
	dw_1.Modify("col2_name.visible=false")
	
	//1
	dw_1.Modify("col2_amt"+String(j,'00')+"_t.visible=false")
	dw_1.Modify("col2_amt"+String(j,'00')+".visible=false")
	
	//2
	dw_1.Modify("col2_amt"+String(j,'00')+"_2_t.visible=false")
	dw_1.Modify("col2_amt"+String(j,'00')+"_2.visible=false")
	
ELSE
	dw_1.Object.col2_name_t.Text = ls_col2name
	dw_1.Modify("col2_name_t.width='"+String(ls_dwidth2)+"'")
	dw_1.Modify("col2_name.width='"+String(ls_dwidth2)+"'")
	
	dw_1.Modify("col2_amt"+String(j,'00')+"_t.width='"+String(ls_dwidth)+"'")
	dw_1.Modify("col2_amt"+String(j,'00')+".width='"+String(ls_dwidth)+"'")
	dw_1.Modify("col2_amt"+String(j,'00')+"_t.text='" + ls_col1name_addname+"'")
	//2
	dw_1.Modify("col2_amt"+String(j,'00')+"_2_t.width='"+String(ls_dwidth)+"'")
	dw_1.Modify("col2_amt"+String(j,'00')+"_2.width='"+String(ls_dwidth)+"'")
	dw_1.Modify("col2_amt"+String(j,'00')+"_2_t.text='" + ls_col2name_addname+"'")
END IF



//











end subroutine

on w_rp_combine.create
int iCurrent
call super::create
this.cb_3=create cb_3
this.st_1=create st_1
this.ddlb_1=create ddlb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_3
this.Control[iCurrent+2]=this.st_1
this.Control[iCurrent+3]=this.ddlb_1
end on

on w_rp_combine.destroy
call super::destroy
destroy(this.cb_3)
destroy(this.st_1)
destroy(this.ddlb_1)
end on

event resize;call super::resize;
//dw_3.Height = dw_2.Y - dw_3.Y - 5

end event

event open;THIS.TriggerEvent('ue_before_open')
wf_movetocenter()
dw_1.SetTransObject (sqlca)

dw_1.RBUTTON_FILTER_USE = TRUE //右键查询功能开关

IF Trim(dw_1.DataObject) <> '' THEN
	dw_1.Object.DataWindow.Print.MARGIN.Top = Integer(ProfileString(sys_inifilename,dw_1.DataObject, "MARGIN_TOP",   "110"))
	dw_1.Object.DataWindow.Print.MARGIN.Left = Integer(ProfileString(sys_inifilename,dw_1.DataObject, "MARGIN_LEFT", "96" ))
	
	dw_1.Object.DataWindow.Print.MARGIN.bottom = Integer(ProfileString(sys_inifilename,dw_1.DataObject, "MARGIN_BOTTOM",   "110"))
	dw_1.Object.DataWindow.Print.MARGIN.Right = Integer(ProfileString(sys_inifilename,dw_1.DataObject, "MARGIN_RIGHT", "96" ))
END IF

wf_ddlb()
wf_face()
end event

type cb_func from w_publ_easyq`cb_func within w_rp_combine
integer x = 549
integer width = 165
string text = "功能"
end type

type cb_exit from w_publ_easyq`cb_exit within w_rp_combine
integer x = 1376
end type

type cb_2 from w_publ_easyq`cb_2 within w_rp_combine
integer x = 969
end type

event cb_2::clicked;call super::clicked;IF NOT (f_power_ind(1999,sys_msg_pow)) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF
end event

type cb_psetup from w_publ_easyq`cb_psetup within w_rp_combine
integer x = 1120
end type

type cb_1 from w_publ_easyq`cb_1 within w_rp_combine
integer width = 274
string text = "统计"
end type

event cb_1::clicked;call super::clicked;//统计
Long ll_rpid,j
Int li_rptype
Long ll_col,ll_col1,ll_col2
Long ll_insert,ll_mth
Decimal ld_amt,ld_amt2
String ls_formula,ls_var,ls_var2
Long l,m
Long ll_array
String ls_subid_array[],ls_subid
Long ll_rowid_array[]
String ls_code_array[],ls_code
Int li_rowcmpltype
Long ll_pos_dot1,ll_pos_dot2

datastore ds_col1,ds_col2,ds_col_cmpl

s_edit_index_tran s_rst

Open(w_rp_zcfzb_create)

s_rst = Message.PowerObjectParm


ll_mth = s_rst.b_long

ll_rpid = cur_rpid
li_rptype = cur_rptype

//1栏
ds_col1 = Create datastore
ds_col1.DataObject = 'ds_rp_combine_row'
ds_col1.SetTransObject(sqlca)
ll_col1 = ds_col1.Retrieve(ll_rpid,0)

//2栏
IF li_rptype = 1 THEN
	ds_col2 = Create datastore
	ds_col2.DataObject = 'ds_rp_combine_row'
	ds_col2.SetTransObject(sqlca)
	ll_col2 = ds_col2.Retrieve(ll_rpid,1)
END IF

ds_col_cmpl = Create datastore
ds_col_cmpl.DataObject = 'ds_rp_combine_row_cmpl'
ds_col_cmpl.SetTransObject(sqlca)

ll_col = Max(ll_col1,ll_col2)

dw_1.reset()

Open(w_sys_wait_jdt) //初始化进度条
w_sys_wait_jdt.Show()
w_sys_wait_jdt.wf_accepttol(ll_col) //初始化进度条1

FOR j = 1 To ll_col
	w_sys_wait_jdt.wf_inc(j) //进度
	ll_insert = dw_1.InsertRow(0)
	
	IF j <= ll_col1 THEN
		dw_1.Object.col1_name[ll_insert] = ds_col1.Object.rowname[j]
		dw_1.Object.col1_rowid01[ll_insert] = ds_col1.Object.rowid[j]
		
		w_sys_wait_jdt.st_msg.Text = "正在读取数据:"+ds_col1.Object.rowname[j]+'...' //进度信息	
		
		ld_amt = 0
		ld_amt2 = 0
		ds_col_cmpl.Retrieve(ds_col1.Object.rowid[j],sys_accsetid)
		
		IF ds_col_cmpl.RowCount() = 0 THEN
			ld_amt = 0
			ld_amt2 = 0
		ELSE
			ls_var = ds_col_cmpl.Object.formulavar[1]
			ls_var2 = ds_col_cmpl.Object.cw_rp_row_formula_formulavar2[1]
			ls_formula = ds_col_cmpl.Object.rowformula[1]
			li_rowcmpltype = ds_col_cmpl.Object.cw_rp_rowdef_rowcmpltype[1]
			
			CHOOSE CASE li_rowcmpltype
				CASE 0
					ld_amt = 0
					ld_amt2 = 0
				CASE 1
					ll_array = 0
					ll_pos_dot1 = 0
					ll_pos_dot2 = 0
					ls_code = '+'
					
					IF ls_formula = '' Or ls_var = '' THEN
						ld_amt = 0
						ld_amt2 = 0
					ELSE
						DO WHILE ls_formula <> ''
							ll_pos_dot1 = Pos(ls_formula,'+')
							ll_pos_dot2 = Pos(ls_formula,'-')
							
							IF ll_pos_dot1 = 0 And ll_pos_dot2 = 0 THEN
								ll_array++
								ls_subid_array[ll_array] = ls_formula
								ls_code_array[ll_array] = ls_code
								ls_formula = ''
							ELSEIF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 Or ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN
								ll_array++
								ls_subid_array[ll_array] = Left(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) - 1)
								ls_formula = Mid(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) + 1)
								ls_code_array[ll_array] = ls_code
								IF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 THEN
									ls_code = '+'
								ELSEIF ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN
									ls_code = '-'
								END IF
							ELSEIF Pos(ls_formula,'+') > 0 And Pos(ls_formula,'-') > 0 THEN
								ll_array++
								ls_subid_array[ll_array] = Left(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) - 1)
								ls_formula = Mid(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) + 1)
								ls_code_array[ll_array] = ls_code
								IF ll_pos_dot1 < ll_pos_dot2 THEN
									ls_code = '+'
								ELSE
									ls_code = '-'
								END IF
							END IF
						LOOP
						
						FOR l = 1 To ll_array
							IF ls_code_array[l] = '+' THEN
								ld_amt += f_amt(sys_accsetid,ls_subid_array[l],ls_var,ll_mth,sqlca)
								ld_amt2 += f_amt(sys_accsetid,ls_subid_array[l],ls_var2,ll_mth,sqlca)
							ELSE
								ld_amt -= f_amt(sys_accsetid,ls_subid_array[l],ls_var,ll_mth,sqlca)
								ld_amt2 -= f_amt(sys_accsetid,ls_subid_array[l],ls_var2,ll_mth,sqlca)
							END IF
						NEXT
					END IF
				CASE 2
					ll_array = 0
					ll_pos_dot1 = 0
					ll_pos_dot2 = 0
					ls_code = '+'
					
					IF ls_formula = '' THEN
						ld_amt = 0
						ld_amt2 = 0
					ELSE
						DO WHILE ls_formula <> ''
							ll_pos_dot1 = Pos(ls_formula,'+')
							ll_pos_dot2 = Pos(ls_formula,'-')
							IF ll_pos_dot1 = 0 And ll_pos_dot2 = 0 THEN
								ll_array++
								ll_rowid_array[ll_array] = Long(ls_formula)
								ls_code_array[ll_array] = ls_code
								ls_formula = ''
							ELSEIF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 Or ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN
								ll_array++
								ll_rowid_array[ll_array] = Long(Left(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) - 1))
								ls_formula = Mid(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) + 1)
								ls_code_array[ll_array] = ls_code
								IF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 THEN
									ls_code = '+'
								ELSEIF ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN
									ls_code = '-'
								END IF
							ELSEIF Pos(ls_formula,'+') > 0 And Pos(ls_formula,'-') > 0 THEN
								ll_array++
								ll_rowid_array[ll_array] = Long(Left(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) - 1))
								ls_formula = Mid(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) + 1)
								ls_code_array[ll_array] = ls_code
								IF ll_pos_dot1 < ll_pos_dot2 THEN
									ls_code = '+'
								ELSE
									ls_code = '-'
								END IF
							END IF
						LOOP
						
						dw_1.AcceptText()
						FOR m = 1 To dw_1.RowCount()
							FOR l = 1 To ll_array
								IF dw_1.Object.col1_rowid01[m] = ll_rowid_array[l] THEN
									IF ls_code_array[l] = '+' THEN
										ld_amt += dw_1.GetItemDecimal(m,"col1_amt01")
										ld_amt2 += dw_1.GetItemDecimal(m,"col1_amt01_2")
									ELSE
										ld_amt -= dw_1.GetItemDecimal(m,"col1_amt01")
										ld_amt2 -= dw_1.GetItemDecimal(m,"col1_amt01_2")
									END IF
								END IF
							NEXT
						NEXT
					END IF
			END CHOOSE
		END IF
		dw_1.SetItem(ll_insert,"col1_amt01",ld_amt)
		dw_1.SetItem(ll_insert,"col1_amt01_2",ld_amt2)
	END IF
	
	
	IF li_rptype = 1 THEN
		IF j <= ll_col2 THEN
			dw_1.Object.col2_name[ll_insert] = ds_col2.Object.rowname[j]
			dw_1.Object.col2_rowid01[ll_insert] = ds_col2.Object.rowid[j]
			
			
			ld_amt = 0
			ld_amt2 = 0
			ll_array = 0
			ds_col_cmpl.Retrieve(ds_col2.Object.rowid[j],sys_accsetid)
			IF ds_col_cmpl.RowCount() = 0 THEN
				ld_amt = 0
				ld_amt2 = 0
			ELSE
				ls_var = ds_col_cmpl.Object.formulavar[1]
				ls_var2 = ds_col_cmpl.Object.cw_rp_row_formula_formulavar2[1]
				ls_formula = ds_col_cmpl.Object.rowformula[1]
				li_rowcmpltype = ds_col_cmpl.Object.cw_rp_rowdef_rowcmpltype[1]
				
				CHOOSE CASE li_rowcmpltype
					CASE 0
						ld_amt = 0
						ld_amt2 = 0
					CASE 1
						ll_array = 0
						ll_pos_dot1 = 0
						ll_pos_dot2 = 0
						ls_code = '+'
						
						IF ls_formula = '' Or ls_var = '' THEN
							ld_amt = 0
							ld_amt2 = 0
						ELSE
							DO WHILE ls_formula <> ''
								ll_pos_dot1 = Pos(ls_formula,'+')
								ll_pos_dot2 = Pos(ls_formula,'-')
								
								IF ll_pos_dot1 = 0 And ll_pos_dot2 = 0 THEN
									ll_array++
									ls_subid_array[ll_array] = ls_formula
									ls_code_array[ll_array] = ls_code
									ls_formula = ''
								ELSEIF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 Or ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN
									ll_array++
									ls_subid_array[ll_array] = Left(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) - 1)
									ls_formula = Mid(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) + 1)
									ls_code_array[ll_array] = ls_code
									IF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 THEN
										ls_code = '+'
									ELSEIF ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN
										ls_code = '-'
									END IF
								ELSEIF Pos(ls_formula,'+') > 0 And Pos(ls_formula,'-') > 0 THEN
									ll_array++
									ls_subid_array[ll_array] = Left(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) - 1)
									ls_formula = Mid(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) + 1)
									ls_code_array[ll_array] = ls_code
									IF ll_pos_dot1 < ll_pos_dot2 THEN
										ls_code = '+'
									ELSE
										ls_code = '-'
									END IF
								END IF
							LOOP
							
							FOR l = 1 To ll_array
								IF ls_code_array[l] = '+' THEN
									ld_amt += f_amt(sys_accsetid,ls_subid_array[l],ls_var,ll_mth,sqlca)
									ld_amt2 += f_amt(sys_accsetid,ls_subid_array[l],ls_var2,ll_mth,sqlca)
								ELSE
									ld_amt -= f_amt(sys_accsetid,ls_subid_array[l],ls_var,ll_mth,sqlca)
									ld_amt2 -= f_amt(sys_accsetid,ls_subid_array[l],ls_var2,ll_mth,sqlca)
								END IF
							NEXT
						END IF
					CASE 2
						ll_array = 0
						ll_pos_dot1 = 0
						ll_pos_dot2 = 0
						ls_code = '+'
						
						IF ls_formula = '' THEN
							ld_amt = 0
							ld_amt2 = 0
						ELSE
							DO WHILE ls_formula <> ''
								ll_pos_dot1 = Pos(ls_formula,'+')
								ll_pos_dot2 = Pos(ls_formula,'-')
								IF ll_pos_dot1 = 0 And ll_pos_dot2 = 0 THEN
									ll_array++
									ll_rowid_array[ll_array] = Long(ls_formula)
									ls_code_array[ll_array] = ls_code
									ls_formula = ''
								ELSEIF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 Or ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN
									ll_array++
									ll_rowid_array[ll_array] = Long(Left(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) - 1))
									ls_formula = Mid(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) + 1)
									ls_code_array[ll_array] = ls_code
									IF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 THEN
										ls_code = '+'
									ELSEIF ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN
										ls_code = '-'
									END IF
								ELSEIF Pos(ls_formula,'+') > 0 And Pos(ls_formula,'-') > 0 THEN
									ll_array++
									ll_rowid_array[ll_array] = Long(Left(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) - 1))
									ls_formula = Mid(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) + 1)
									ls_code_array[ll_array] = ls_code
									IF ll_pos_dot1 < ll_pos_dot2 THEN
										ls_code = '+'
									ELSE
										ls_code = '-'
									END IF
								END IF
							LOOP
							
							dw_1.AcceptText()
							FOR m = 1 To dw_1.RowCount()
								FOR l = 1 To ll_array
									IF dw_1.Object.col2_rowid01[m] = ll_rowid_array[l] THEN
										IF ls_code_array[l] = '+' THEN
											ld_amt += dw_1.GetItemDecimal(m,"col2_amt01")
											ld_amt2 += dw_1.GetItemDecimal(m,"col2_amt01_2")
										ELSE
											ld_amt -= dw_1.GetItemDecimal(m,"col2_amt01")
											ld_amt2 -= dw_1.GetItemDecimal(m,"col2_amt01_2")
										END IF
									END IF
								NEXT
							NEXT
						END IF
				END CHOOSE
			END IF
			dw_1.SetItem(ll_insert,"col2_amt01",ld_amt)
			dw_1.SetItem(ll_insert,"col2_amt01_2",ld_amt2)
			
		END IF
	END IF
NEXT

dw_1.Object.rpmonth.Text = '单位名称:'+trim(s_sys_accset.cropname)+'      月份:'+string(ll_mth)
Close(w_sys_wait_jdt)











end event

type st_3 from w_publ_easyq`st_3 within w_rp_combine
boolean visible = false
integer x = 1874
integer y = 400
integer width = 261
string text = "统计期间:"
end type

type st_4 from w_publ_easyq`st_4 within w_rp_combine
boolean visible = false
integer x = 1463
integer y = 480
end type

type em_1 from w_publ_easyq`em_1 within w_rp_combine
boolean visible = false
integer x = 2149
integer y = 384
integer width = 306
alignment alignment = center!
string mask = "yyyymm"
end type

type em_2 from w_publ_easyq`em_2 within w_rp_combine
boolean visible = false
integer x = 1568
integer y = 460
integer width = 306
alignment alignment = center!
string mask = "yyyy-mm"
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_combine
integer x = 1733
integer y = 36
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_rp_combine
integer x = 1527
integer y = 40
end type

type dw_1 from w_publ_easyq`dw_1 within w_rp_combine
integer y = 304
integer width = 2752
string dataobject = "dw_rp_combine_3"
boolean setcolumn_visible_use = false
boolean autosave_filter_use = false
boolean autosave_sort_use = false
boolean autosave_setlayout_use = false
boolean autosave_columnvisible_use = false
end type

type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_combine
integer x = 1979
integer y = 1216
end type

type sle_cust from w_publ_easyq`sle_cust within w_rp_combine
integer x = 1710
integer y = 1404
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_rp_combine
integer x = 1522
integer y = 1232
end type

type st_cust from w_publ_easyq`st_cust within w_rp_combine
integer x = 1243
integer y = 1416
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_combine
integer x = 2533
integer y = 60
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_rp_combine
boolean visible = false
integer x = 1755
integer y = 1004
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_rp_combine
boolean visible = false
integer x = 2368
integer y = 1004
end type

type pb_2 from w_publ_easyq`pb_2 within w_rp_combine
boolean visible = false
integer x = 2478
integer y = 1004
end type

type cb_help from w_publ_easyq`cb_help within w_rp_combine
boolean visible = false
integer x = 2327
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_rp_combine
integer x = 713
end type

type gb_1 from w_publ_easyq`gb_1 within w_rp_combine
end type

type ln_bar from w_publ_easyq`ln_bar within w_rp_combine
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_combine
end type

type r_bar from w_publ_easyq`r_bar within w_rp_combine
end type

type ln_1 from w_publ_easyq`ln_1 within w_rp_combine
end type

type ln_2 from w_publ_easyq`ln_2 within w_rp_combine
end type

type ln_3 from w_publ_easyq`ln_3 within w_rp_combine
end type

type ln_4 from w_publ_easyq`ln_4 within w_rp_combine
end type

type cb_3 from uo_imflatbutton within w_rp_combine
integer x = 274
integer width = 274
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "报表设置"
string normalpicname = "update.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;open(w_rp_combine_setting)
end event

type st_1 from statictext within w_rp_combine
integer x = 32
integer y = 204
integer width = 146
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 = 134217739
string text = "报表"
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_1 from dropdownlistbox within w_rp_combine
integer x = 197
integer y = 188
integer width = 690
integer height = 680
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;cur_rpid = Long(Mid ( THIS.Text,Pos(THIS.Text,'[') + 1,Len(THIS.Text) - Pos(THIS.Text,'[') - 1 ))
wf_face()

end event