Q5/ws_objects/Ew_price.pbl.src/w_cus_price.srw

$PBExportHeader$w_cus_price.srw
forward
global type w_cus_price from w_publ_pageretr
end type
type dw_child from datawindow within w_cus_price
end type
type dw_mtrl_newprice from u_dw_rbtnfilter within w_cus_price
end type
type cb_refresh from uo_imflatbutton within w_cus_price
end type
type dw_mtrl_cus_price from datawindow within w_cus_price
end type
type tv_1 from uo_tv_cusarea within w_cus_price
end type
type cb_help from uo_imflatbutton within w_cus_price
end type
type cb_print from uo_imflatbutton within w_cus_price
end type
type cb_billfunc from uo_imflatbutton within w_cus_price
end type
type r_bar from rectangle within w_cus_price
end type
type ln_bar from line within w_cus_price
end type
type ln_bar2 from line within w_cus_price
end type
type ln_1 from line within w_cus_price
end type
type ln_2 from line within w_cus_price
end type
type ln_5 from line within w_cus_price
end type
type ln_6 from line within w_cus_price
end type
end forward

global type w_cus_price from w_publ_pageretr
integer height = 2371
string title = "客户产品价格"
boolean maxbox = true
windowstate windowstate = maximized!
boolean if_ue_retr = true
boolean if_ue_filter = true
boolean if_ue_sort = true
event ue_select_oldprice ( )
event retr_mx1 ( )
event retr_mx2 ( )
event retr_mx3 ( )
event ue_viewprint ( )
event ue_del_his ( )
event ue_del ( )
event ue_add ( )
dw_child dw_child
dw_mtrl_newprice dw_mtrl_newprice
cb_refresh cb_refresh
dw_mtrl_cus_price dw_mtrl_cus_price
tv_1 tv_1
cb_help cb_help
cb_print cb_print
cb_billfunc cb_billfunc
r_bar r_bar
ln_bar ln_bar
ln_bar2 ln_bar2
ln_1 ln_1
ln_2 ln_2
ln_5 ln_5
ln_6 ln_6
end type
global w_cus_price w_cus_price

type variables
long mtrl_id//物料ID
long cus_id
string cus_name
string mtrl_name
long cur_row
long ll_row
uo_cusprice uo_dell
String ls_areaname = ''


end variables

event retr_mx1();long li_row

li_row=dw_pageretr.getrow()
if li_row=0 then
	dw_mtrl_newprice.reset()
	dw_child.reset()
	dw_mtrl_cus_price.reset()
else
	cus_id=dw_pageretr.object.u_cust_cusid[li_row]
	cus_name=dw_pageretr.object.u_cust_name[li_row]
	if dw_mtrl_newprice.retrieve(cus_id) > 0 then
		dw_mtrl_newprice.selectrow(0,false)
		dw_mtrl_newprice.selectrow(1,true)
	end if
	this.triggerevent('retr_mx2')
end if

end event

event retr_mx2();long li_row,ll_moneyid
string ls_woodcode,ls_status,ls_pcode
long ll_cusid
decimal lde_fprice, lde_zqrate, lde_price

li_row=dw_mtrl_newprice.getrow()


if li_row=0 then
	dw_child.reset()
	dw_mtrl_cus_price.reset()
else
	mtrl_id=dw_mtrl_newprice.object.u_cus_price_mtrlid[li_row]
	mtrl_name=dw_mtrl_newprice.object.u_mtrldef_mtrlname[li_row]
	ls_woodcode=dw_mtrl_newprice.object.u_cus_price_woodcode[li_row]
	ls_status=dw_mtrl_newprice.object.u_cus_price_status[li_row]
	ls_pcode=dw_mtrl_newprice.object.u_cus_price_pcode[li_row]
	ll_moneyid=dw_mtrl_newprice.object.u_cus_price_moneyid[li_row]
	
	ll_cusid = dw_mtrl_newprice.Object.u_cus_price_cusid[li_row]
	lde_fprice = dw_mtrl_newprice.Object.u_cus_price_fprice[li_row]
	lde_zqrate = dw_mtrl_newprice.Object.u_cus_price_zqrate[li_row]
	lde_price = dw_mtrl_newprice.Object.u_cus_price_price[li_row]
	
	if dw_mtrl_cus_price.retrieve(mtrl_id,ls_woodcode,ls_status,ls_pcode,ll_moneyid) > 0 then
		
		li_row = dw_mtrl_cus_price.find("u_cus_price_cusid = "+string(ll_cusid) &
		+ "and u_cus_price_fprice = "+string(lde_fprice) &
		+ "and u_cus_price_zqrate = "+string(lde_zqrate) &
		+ "and u_cus_price_price = "+string(lde_price) , 1, dw_mtrl_cus_price.rowcount())
		
		dw_mtrl_cus_price.selectrow(0,false)
		if li_row > 0 then
			dw_mtrl_cus_price.SetRow(li_row)
			dw_mtrl_cus_price.SelectRow(li_row,TRUE)
		else
			dw_mtrl_cus_price.SetRow(1)
		dw_mtrl_cus_price.selectrow(1,true)
	end if
	end if	
	this.triggerevent('retr_mx3')
end if
end event

event retr_mx3();Long li_row,li_cusid,ll_moneyid,ll_mtrlid,mtrl_row
String ls_woodcode,ls_status,ls_pcode
String ls_cusname
string arg_msg

li_row = dw_mtrl_cus_price.GetRow()
mtrl_row = dw_mtrl_newprice.GetRow()
IF li_row = 0 THEN
	dw_child.Reset()
ELSE
	li_cusid = dw_mtrl_cus_price.Object.u_cus_price_cusid[li_row]
	ls_woodcode = dw_mtrl_cus_price.Object.u_cus_price_woodcode[li_row]
	ls_status = dw_mtrl_cus_price.Object.u_cus_price_status[li_row]
	ls_pcode = dw_mtrl_cus_price.Object.u_cus_price_pcode[li_row]
	ll_moneyid = dw_mtrl_cus_price.Object.u_cus_price_moneyid[li_row]
	ll_mtrlid = dw_mtrl_newprice.object.u_cus_price_mtrlid[mtrl_row]
	
	ls_cusname = dw_mtrl_cus_price.Object.u_cust_name[li_row]
	
	dw_child.Title = "["+ls_cusname+"]"+" 客户-产品 历史销售价格列表"
	
	int ifpz = 7
	int ll_status = 0,ll_woodcode = 0,ll_pcode = 0
	//暂时三个配置
//	select price_ifpz into :ifpz from u_mtrldef where mtrlid = :ll_mtrlid;
//	IF sqlca.SQLCode <> 0 THEN
//		arg_msg = '因网络和其他原因查询失败'+sqlca.SQLErrText
//		messagebox('提示',arg_msg)
//	END IF
	
	choose case ifpz
		case 0
			
		case 1
			ll_status = 1
		case 2
			ll_woodcode = 1
		case 3
			ll_pcode = 1		
		case 4
			ll_status = 1
			ll_woodcode = 1
		case 5
			ll_status = 1
			ll_pcode =1			
		case 6
			ll_woodcode = 1
			ll_pcode = 1			
		case else
			ll_status = 1
			ll_woodcode = 1
			ll_pcode = 1
	end choose
	
	IF dw_child.Retrieve(mtrl_id,li_cusid,ls_woodcode,ls_status,ls_pcode,ll_moneyid,ll_status,ll_woodcode,ll_pcode) > 0 THEN
		dw_child.SelectRow(0,FALSE)
		dw_child.SelectRow(1,TRUE)
	END IF
END IF



end event

event ue_viewprint();IF NOT if_power_print THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

Long ls_msgprintid
String ls_newname = ''
ls_msgprintid = Message.LongParm

SELECT dft_new_dwname
	INTO :ls_newname
	FROM sys_dft_dwprint_dynamic
	Where sys_dft_dwprint_dynamic.dwprintid = :ls_msgprintid USING sqlca;
IF sqlca.SQLCode <> 0 THEN
	ls_newname = ''
END IF

LONG LS_ROW
LS_ROW=dw_pageretr.getrow()
IF LS_ROW<=0 THEN 
	MESSAGEBOX('提示','没有打印目标单据!',information!,ok!)
	RETURN
END IF

S_print_MSG LS_PRMSG

IF ls_newname <> '' THEN
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	LS_PRMSG.obj_dwNAME = 'dw_rp_cus_mtrl_newprice'
END IF

LS_PRMSG.TAG_TEXT=this.title
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg=2
LS_PRMSG.PAGECH_FLAG=0
LS_PRMSG.retr_pramnmb=dw_pageretr.object.u_cust_cusid[LS_ROW]

Openwithparm(w_publ_preview,LS_PRMSG)


end event

event ue_del_his();IF NOT f_power_ind(12) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN 
END IF

IF NOT IsValid(w_del_hisprice) THEN
	s_edit_index_tran s_ch_tran //传递参数使用	
	s_ch_tran.work_mode = 0   
	OpenWithParm(w_del_hisprice,s_ch_tran) 
end if
end event

event ue_del();IF NOT f_power_ind(12) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN 
END IF

Dec new_price = 0.0,zqrate
Long mtrlid = 0
Long cusid = 0,moneyid
DateTime opdate
String errmsg = ''
String ls_woodcode,ls_status,ls_pcode,ls_unit
Dec arg_price = 0.0

cur_row = dw_child.GetRow()

IF cur_row <= 0 THEN
	MessageBox('提示','没有可删除的数据',information!,ok!)
	RETURN
END IF

IF dw_child.Object.buildtype[dw_child.GetRow()] = 0 THEN
	MessageBox('提示','您要删除的历史价格不是手动添加的，不能删除',information!,ok!)
	RETURN
END IF

IF cur_row <> 1 THEN
	MessageBox('提示','被删除的产品历史销售价格必须是最后添加记录(第一条)',information!,ok!)
	RETURN
END IF

IF dw_child.RowCount() < 2 THEN
	new_price = 0.0
	zqrate = 1
ELSE
	new_price = dw_child.Object.u_cus_price_mx_fprice[2]
	zqrate = dw_child.Object.u_cus_price_mx_zqrate[2]
END IF

mtrl_id = dw_child.Object.u_cus_price_MX_mtrlid[1]
cus_id = dw_child.Object.u_cus_price_MX_cusid[1]
opdate = dw_child.Object.u_cus_price_MX_opdate[1]
ls_woodcode = dw_child.Object.woodcode[1]
ls_status = dw_child.Object.status[1]
ls_pcode = dw_child.Object.pcode[1]
moneyid=dw_child.object.moneyid[1]
ls_unit=dw_child.object.unit[1]

//确认确实需要删除数据吗？
IF MessageBox('询问','确认产品销售历史价格要删除吗',Question!,OkCancel!) = 1 THEN
	IF uo_dell.uf_del_sdcusprice(cus_id,mtrl_id,ls_unit,ls_woodcode,ls_status,ls_pcode,opdate,new_price,zqrate,moneyid,TRUE,errmsg) = 0 THEN
		MessageBox('错误',errmsg,stopsign!,ok!)
		RETURN
	END IF
END IF
cb_refresh.TriggerEvent(Clicked!)




end event

event ue_add();IF NOT f_power_ind(12) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF

IF dw_pageretr.GetRow() <= 0 THEN
	RETURN
END IF

s_insert_cusprice s_cusprice

s_cusprice.cusid = dw_pageretr.Object.u_cust_cusid[dw_pageretr.GetRow()]

IF dw_mtrl_newprice.RowCount() > 0 THEN
	s_cusprice.mtrlid = dw_mtrl_newprice.Object.u_cus_price_mtrlid[dw_mtrl_newprice.GetRow()]
ELSE
	s_cusprice.mtrlid = 0
END IF

s_cusprice.cusname = dw_pageretr.Object.u_cust_name[dw_pageretr.GetRow()]

IF dw_mtrl_newprice.RowCount() > 0 THEN
	s_cusprice.mtrlname = dw_mtrl_newprice.Object.u_mtrldef_mtrlname[dw_mtrl_newprice.GetRow()]
ELSE
	s_cusprice.mtrlname = ''
END IF

OpenWithParm(w_add_mxnewprice,s_cusprice)
cb_refresh.TriggerEvent(Clicked!)
dw_edit_mode = FALSE


end event

on w_cus_price.create
int iCurrent
call super::create
this.dw_child=create dw_child
this.dw_mtrl_newprice=create dw_mtrl_newprice
this.cb_refresh=create cb_refresh
this.dw_mtrl_cus_price=create dw_mtrl_cus_price
this.tv_1=create tv_1
this.cb_help=create cb_help
this.cb_print=create cb_print
this.cb_billfunc=create cb_billfunc
this.r_bar=create r_bar
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.ln_1=create ln_1
this.ln_2=create ln_2
this.ln_5=create ln_5
this.ln_6=create ln_6
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_child
this.Control[iCurrent+2]=this.dw_mtrl_newprice
this.Control[iCurrent+3]=this.cb_refresh
this.Control[iCurrent+4]=this.dw_mtrl_cus_price
this.Control[iCurrent+5]=this.tv_1
this.Control[iCurrent+6]=this.cb_help
this.Control[iCurrent+7]=this.cb_print
this.Control[iCurrent+8]=this.cb_billfunc
this.Control[iCurrent+9]=this.r_bar
this.Control[iCurrent+10]=this.ln_bar
this.Control[iCurrent+11]=this.ln_bar2
this.Control[iCurrent+12]=this.ln_1
this.Control[iCurrent+13]=this.ln_2
this.Control[iCurrent+14]=this.ln_5
this.Control[iCurrent+15]=this.ln_6
end on

on w_cus_price.destroy
call super::destroy
destroy(this.dw_child)
destroy(this.dw_mtrl_newprice)
destroy(this.cb_refresh)
destroy(this.dw_mtrl_cus_price)
destroy(this.tv_1)
destroy(this.cb_help)
destroy(this.cb_print)
destroy(this.cb_billfunc)
destroy(this.r_bar)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.ln_1)
destroy(this.ln_2)
destroy(this.ln_5)
destroy(this.ln_6)
end on

event ue_before_open;dw_mtrl_newprice.SetTransObject(sqlca)
dw_child.SetTransObject(sqlca)
dw_mtrl_cus_price.SetTransObject(sqlca)

uo_dell = CREATE uo_cusprice

end event

event ue_usual_query_filt;string obj_expr=''  
if trim(sle_usual_query.text)<>'' then 
	IF POS(trim(sle_usual_query.text),'%')=0 THEN
		obj_expr=obj_expr+'( u_cust_cuscode LIKE "%'+trim(sle_usual_query.text)+'%" )'
	ELSE
		obj_expr=obj_expr+'( u_cust_cuscode LIKE "'+trim(sle_usual_query.text)+'" )'
	END IF 
end if

dw_pageretr.setfilter(obj_expr)

dw_pageretr.SetRedraw(False)
dw_pageretr.filter()
if dw_pageretr.rowcount()>=1 then
	dw_pageretr.selectrow(0,false)
	dw_pageretr.selectrow(1,true)
end if
dw_pageretr.SetRedraw(TRUE)
end event

event ue_usual_query_retr;call super::ue_usual_query_retr;string ls_querystrpart=''
ls_newselect=lower(ori_oldselect)
if trim(sle_usual_query.text)<>'' then
	if pos(trim(sle_usual_query.text),'%')=0 then
		ls_querystrpart="( u_cust.cuscode like '%"+trim(sle_usual_query.text)+"%')"
	else
		ls_querystrpart="(u_cust.cuscode like '"+trim(sle_usual_query.text)+"')"
	end if

	if Pos(ls_newselect," where ") <> 0 then
	   ls_newselect=ls_newselect+" AND ("+ls_querystrpart+')'
	else
		ls_newselect=ls_newselect+" where ("+ls_querystrpart+')'
	end if
end if
wf_retrieveuc(dw_pageretr,ls_newselect,1)    //注意必须有此句

end event

event ue_sort;call super::ue_sort;OPENwithparm(w_sortrow,dw_pageretr)
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_pageretr.setsort(LS_EXPR)

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

event ue_sentdataout;call super::ue_sentdataout;IF NOT if_power_sendout THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

OPENWITHPARM(w_sentdataout,dw_pageretr)
end event

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

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

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

event retrieve_pageretr;Boolean cb_firstpage_enabled,cb_nextpage_enabled,cb_retrieveall_enabled
Boolean cb_priorpage_enabled,cb_func_enabled,cb_retrieve_enabled

cb_nextpage_enabled = cb_nextpage.Enabled
cb_retrieveall_enabled = cb_retrieveall.Enabled
cb_func_enabled = cb_func.Enabled

cb_nextpage.Enabled = False
cb_retrieveall.Enabled = False
cb_func.Enabled = False


SetPointer(HourGlass!)
dw_pageretr.Retrieve(sys_areaid,ls_areaname,sys_option_outrep,sys_user_outrep)
IF dw_pageretr.RowCount() > 0 And dw_pageretr.GetRow() = 0 THEN dw_pageretr.SetRow(1)
SetPointer(Arrow!)
This.TriggerEvent('retr_mx1')

cb_nextpage.Enabled = cb_nextpage_enabled
cb_retrieveall.Enabled = cb_retrieveall_enabled
cb_func.Enabled = cb_func_enabled


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

dw_child.Width = THIS.Width - (w_width - 1847)
dw_mtrl_newprice.Width = THIS.Width - (w_width - 1847)
dw_mtrl_newprice.Height = THIS.Height - (w_height - 1116)
dw_pageretr.Height = THIS.Height - (w_height - 1116)
tv_1.Height = THIS.Height - (w_height - 1116)

dw_mtrl_cus_price.Y = THIS.Height - (w_height - 1424)
dw_child.Y = THIS.Height - (w_height - 1424)



end event

event key;call super::key;IF KeyDown(KeyF1!) THEN
	cb_help.TriggerEvent(clicked!)
end if
end event

type cb_func from w_publ_pageretr`cb_func within w_cus_price
integer x = 150
integer y = 0
integer width = 150
integer height = 163
end type

type cb_exit from w_publ_pageretr`cb_exit within w_cus_price
integer x = 878
integer y = 0
integer width = 150
integer height = 163
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type sle_usual_query from w_publ_pageretr`sle_usual_query within w_cus_price
integer x = 230
integer y = 192
integer height = 96
boolean bringtotop = true
end type

type cb_retrieveall from w_publ_pageretr`cb_retrieveall within w_cus_price
integer x = 1346
integer width = 150
integer height = 163
integer taborder = 140
string normalpicname = "p1.ico"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type em_pagerowno from w_publ_pageretr`em_pagerowno within w_cus_price
integer x = 1028
integer y = 48
integer width = 315
integer taborder = 70
boolean bringtotop = true
end type

type dw_pageretr from w_publ_pageretr`dw_pageretr within w_cus_price
integer x = 764
integer y = 301
integer width = 918
integer height = 1133
string title = "客户列表"
string dataobject = "dw_cus"
end type

event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;//dw_edit_mode=false
if currentrow>0 then
	this.selectrow(0,false)
	this.selectrow(currentrow,true)
end if
parent.triggerevent('retr_mx1')

end event

type st_1 from w_publ_pageretr`st_1 within w_cus_price
integer x = 37
integer y = 211
integer width = 216
integer height = 58
end type

type cb_nextpage from w_publ_pageretr`cb_nextpage within w_cus_price
integer x = 1496
integer width = 66
integer height = 163
integer taborder = 170
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_child from datawindow within w_cus_price
integer x = 1686
integer y = 1424
integer width = 1847
integer height = 720
integer taborder = 80
boolean bringtotop = true
boolean titlebar = true
string title = "客户-产品 历史销售价格列表"
string dataobject = "dw_cus_mtrl_oldprice"
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean border = false
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event rowfocuschanged;if currentrow>0 then
	this.selectrow(0,false)
	this.selectrow(currentrow,true)
end if
end event

event constructor;f_title_change(this)
end event

type dw_mtrl_newprice from u_dw_rbtnfilter within w_cus_price
integer x = 1686
integer y = 314
integer width = 1847
integer height = 1117
integer taborder = 30
boolean bringtotop = true
boolean titlebar = true
string title = "客户-产品 最新销售价格列表"
string dataobject = "dw_cus_mtrlnewprice"
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean border = false
end type

event rowfocuschanged;if currentrow>0 then
	this.selectrow(0,false)
	this.selectrow(currentrow,true)
end if
parent.triggerevent('retr_mx2')


end event

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

end event

type cb_refresh from uo_imflatbutton within w_cus_price
integer width = 165
integer height = 163
integer taborder = 160
string text = "刷新"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('retr_mx1')
parent.triggerevent('retr_mx2')
parent.triggerevent('retr_mx3')
end event

type dw_mtrl_cus_price from datawindow within w_cus_price
integer y = 1424
integer width = 1690
integer height = 720
integer taborder = 90
boolean bringtotop = true
boolean titlebar = true
string title = "产品-客户 最新销售价格列表"
string dataobject = "dw_mtrl_cus_price"
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean border = false
boolean livescroll = true
end type

event rowfocuschanged;if currentrow>0 then
	this.selectrow(0,false)
	this.selectrow(currentrow,true)
end if

parent.triggerevent('retr_mx3')

end event

event constructor;f_title_change(this)
end event

type tv_1 from uo_tv_cusarea within w_cus_price
integer y = 314
integer width = 761
integer height = 1117
integer taborder = 60
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontfamily fontfamily = anyfont!
string facename = "宋体"
end type

event selectionchanged;call super::selectionchanged;
ls_areaname = THIS.uo_cur_info.areaname
ls_areaname = ls_areaname + '%'
PARENT.TriggerEvent('retrieve_pageretr')


end event

type cb_help from uo_imflatbutton within w_cus_price
string tag = "帮助[F1]"
integer x = 728
integer width = 150
integer height = 163
integer taborder = 40
boolean bringtotop = true
string text = "帮助"
string normalpicname = "help.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type cb_print from uo_imflatbutton within w_cus_price
integer x = 578
integer width = 150
integer height = 163
integer taborder = 50
boolean bringtotop = true
string text = "打印"
string normalpicname = "print.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;String ls_dft_old_dwname, ls_dft_new_dwname,ls_chnname,ls_dwtype
Long ls_dwprintid
string ls_windowname
Int ls_i


w_curwin = PARENT
ls_windowname = parent.Classname ( )

DECLARE dft_dwprint CURSOR FOR
	SELECT dwprintid,dft_old_dwname, dft_new_dwname, chnname, dwtype
	FROM sys_dft_dwprint_dynamic
	Where dwtype = :ls_windowname;
	
OPEN dft_dwprint;
FETCH dft_dwprint INTO  :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype;
IF sqlca.SQLCode <> 0 THEN
	PARENT.TriggerEvent('ue_viewprint',0,0)
ELSE
	m_dft_dwprint_item m_1
	m_1 = CREATE m_dft_dwprint_item
	ls_i = 1
	DO WHILE sqlca.SQLCode = 0
		f_add_menuItem_dft(m_1,ls_i,ls_chnname,String(ls_dwprintid))
		FETCH dft_dwprint INTO  :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype;
		ls_i++
	LOOP
	CLOSE dft_dwprint;
	m_1.PopMenu(THIS.X+50,THIS.Y+50)
END IF



end event

type cb_billfunc from uo_imflatbutton within w_cus_price
integer x = 304
integer width = 274
integer height = 163
integer taborder = 150
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;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr


menustr = "Text=添加~tEvent=ue_add"
menustr = menustr + "|" + "Text=删除~tEvent=ue_del"
menustr = menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=按月删除~tEvent=ue_del_his"
//menustr = menustr + "|" + "Text=超级删除~tEvent=ue_del_super"


IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = CREATE m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(THIS, menustr)
	dmPopupMenu.mf_PopMenu()
	DESTROY dmPopupMenu
END IF

end event

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

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

end event

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

type ln_bar2 from line within w_cus_price
long linecolor = 16777215
integer linethickness = 4
integer beginy = 179
integer endx = 3430
integer endy = 179
end type

type ln_1 from line within w_cus_price
long linecolor = 268435456
integer linethickness = 4
integer beginy = 301
integer endx = 3430
integer endy = 301
end type

type ln_2 from line within w_cus_price
long linecolor = 16777215
integer linethickness = 4
integer beginy = 304
integer endx = 3430
integer endy = 304
end type

type ln_5 from line within w_cus_price
boolean visible = false
long linecolor = 268435456
integer beginx = 1477
integer endx = 1477
integer endy = 176
end type

type ln_6 from line within w_cus_price
boolean visible = false
long linecolor = 16777215
integer beginx = 1481
integer endx = 1481
integer endy = 179
end type