Q5/ws_objects/Ew_mainface.pbl.src/w_q6_main.srw

$PBExportHeader$w_q6_main.srw
forward
global type w_q6_main from w_publ_base
end type
type p_left from picture within w_q6_main
end type
type p_right from picture within w_q6_main
end type
type p_middle from picture within w_q6_main
end type
type tv_func from treeview within w_q6_main
end type
type tab_1 from tab within w_q6_main
end type
type tabpage_1 from userobject within tab_1
end type
type st_4 from statictext within tabpage_1
end type
type st_retr_msg from statictext within tabpage_1
end type
type p_retr_msg from picture within tabpage_1
end type
type st_msg_mng from statictext within tabpage_1
end type
type p_msg_mng from picture within tabpage_1
end type
type st_msg_new from statictext within tabpage_1
end type
type p_msg_new from picture within tabpage_1
end type
type p_1 from picture within tabpage_1
end type
type st_3 from statictext within tabpage_1
end type
type st_no_mess from statictext within tabpage_1
end type
type dw_2 from datawindow within tabpage_1
end type
type dw_1 from datawindow within tabpage_1
end type
type st_msg_title from statictext within tabpage_1
end type
type st_2 from statictext within tabpage_1
end type
type st_1 from statictext within tabpage_1
end type
type lv_shortcut from listview within tabpage_1
end type
type st_no_mess_warp from statictext within tabpage_1
end type
type tabpage_1 from userobject within tab_1
st_4 st_4
st_retr_msg st_retr_msg
p_retr_msg p_retr_msg
st_msg_mng st_msg_mng
p_msg_mng p_msg_mng
st_msg_new st_msg_new
p_msg_new p_msg_new
p_1 p_1
st_3 st_3
st_no_mess st_no_mess
dw_2 dw_2
dw_1 dw_1
st_msg_title st_msg_title
st_2 st_2
st_1 st_1
lv_shortcut lv_shortcut
st_no_mess_warp st_no_mess_warp
end type
type tabpage_2 from userobject within tab_1
end type
type r_8 from rectangle within tabpage_2
end type
type r_6 from rectangle within tabpage_2
end type
type r_4 from rectangle within tabpage_2
end type
type st_salemsg_retrieve from uo_text_m_main within tabpage_2
end type
type p_salemsg_retrieve from picture within tabpage_2
end type
type st_mng_sale from uo_text_m_main within tabpage_2
end type
type p_mng_sale from picture within tabpage_2
end type
type st_salemsg from uo_text_m_main within tabpage_2
end type
type p_salemsg from picture within tabpage_2
end type
type st_14 from uo_text_m within tabpage_2
end type
type dw_sale_msg from datawindow within tabpage_2
end type
type st_more_sale from uo_text_m_main within tabpage_2
end type
type p_9 from picture within tabpage_2
end type
type st_mtrl_propel from uo_text_m_main within tabpage_2
end type
type p_6 from picture within tabpage_2
end type
type st_retrieve_sale_re from uo_text_m_main within tabpage_2
end type
type p_7 from picture within tabpage_2
end type
type st_15 from uo_text_m within tabpage_2
end type
type dw_sale_rece from u_dw_rbtnfilter within tabpage_2
end type
type st_13 from uo_text_m within tabpage_2
end type
type p_12 from picture within tabpage_2
end type
type st_12 from uo_text_m_main within tabpage_2
end type
type p_13 from picture within tabpage_2
end type
type st_more_sales from uo_text_m_main within tabpage_2
end type
type dw_sale_send from u_dw_rbtnfilter within tabpage_2
end type
type tabpage_2 from userobject within tab_1
r_8 r_8
r_6 r_6
r_4 r_4
st_salemsg_retrieve st_salemsg_retrieve
p_salemsg_retrieve p_salemsg_retrieve
st_mng_sale st_mng_sale
p_mng_sale p_mng_sale
st_salemsg st_salemsg
p_salemsg p_salemsg
st_14 st_14
dw_sale_msg dw_sale_msg
st_more_sale st_more_sale
p_9 p_9
st_mtrl_propel st_mtrl_propel
p_6 p_6
st_retrieve_sale_re st_retrieve_sale_re
p_7 p_7
st_15 st_15
dw_sale_rece dw_sale_rece
st_13 st_13
p_12 p_12
st_12 st_12
p_13 p_13
st_more_sales st_more_sales
dw_sale_send dw_sale_send
end type
type tabpage_3 from userobject within tab_1
end type
type r_7 from rectangle within tabpage_3
end type
type st_buymsg_retrieve from uo_text_m_main within tabpage_3
end type
type p_buymsg_retrieve from picture within tabpage_3
end type
type st_mng_buy from uo_text_m_main within tabpage_3
end type
type p_mng_buy from picture within tabpage_3
end type
type st_buymsg from uo_text_m_main within tabpage_3
end type
type p_buymsg from picture within tabpage_3
end type
type st_17 from uo_text_m within tabpage_3
end type
type st_more_buyfb from uo_text_m_main within tabpage_3
end type
type p_10 from picture within tabpage_3
end type
type st_mtrl_receive from uo_text_m_main within tabpage_3
end type
type p_14 from picture within tabpage_3
end type
type st_retrieve_buy_re from uo_text_m_main within tabpage_3
end type
type p_8 from picture within tabpage_3
end type
type st_18 from uo_text_m within tabpage_3
end type
type dw_buy_msg from datawindow within tabpage_3
end type
type dw_buy_feedback from u_dw_rbtnfilter within tabpage_3
end type
type st_more_buys from uo_text_m_main within tabpage_3
end type
type p_11 from picture within tabpage_3
end type
type st_retrieve_buy from uo_text_m_main within tabpage_3
end type
type p_15 from picture within tabpage_3
end type
type st_16 from uo_text_m within tabpage_3
end type
type dw_buy_send from u_dw_rbtnfilter within tabpage_3
end type
type r_5 from rectangle within tabpage_3
end type
type r_9 from rectangle within tabpage_3
end type
type tabpage_3 from userobject within tab_1
r_7 r_7
st_buymsg_retrieve st_buymsg_retrieve
p_buymsg_retrieve p_buymsg_retrieve
st_mng_buy st_mng_buy
p_mng_buy p_mng_buy
st_buymsg st_buymsg
p_buymsg p_buymsg
st_17 st_17
st_more_buyfb st_more_buyfb
p_10 p_10
st_mtrl_receive st_mtrl_receive
p_14 p_14
st_retrieve_buy_re st_retrieve_buy_re
p_8 p_8
st_18 st_18
dw_buy_msg dw_buy_msg
dw_buy_feedback dw_buy_feedback
st_more_buys st_more_buys
p_11 p_11
st_retrieve_buy st_retrieve_buy
p_15 p_15
st_16 st_16
dw_buy_send dw_buy_send
r_5 r_5
r_9 r_9
end type
type tab_1 from tab within w_q6_main
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
end type
type p_sfqr from picture within w_q6_main
end type
type st_sfqr from statictext within w_q6_main
end type
type p_dysz from picture within w_q6_main
end type
type st_dysz from statictext within w_q6_main
end type
type p_help from picture within w_q6_main
end type
type st_help from statictext within w_q6_main
end type
type p_exit from picture within w_q6_main
end type
type st_exit from statictext within w_q6_main
end type
type p_about from picture within w_q6_main
end type
type st_about from statictext within w_q6_main
end type
type st_new from statictext within w_q6_main
end type
type p_new from picture within w_q6_main
end type
end forward

global type w_q6_main from w_publ_base
integer width = 5152
integer height = 2972
string menuname = "m_x_genapp_frame_sp1"
boolean maxbox = true
boolean resizable = true
windowtype windowtype = main!
windowstate windowstate = maximized!
long backcolor = 16777215
event ue_main_menu_commnd ( long arg_funcid )
event ue_main_meun_plugins ( long arg_mainid )
event ue_del_shortcut ( )
p_left p_left
p_right p_right
p_middle p_middle
tv_func tv_func
tab_1 tab_1
p_sfqr p_sfqr
st_sfqr st_sfqr
p_dysz p_dysz
st_dysz st_dysz
p_help p_help
st_help st_help
p_exit p_exit
st_exit st_exit
p_about p_about
st_about st_about
st_new st_new
p_new p_new
end type
global w_q6_main w_q6_main

type variables
Long deep = 0
Int retrieve_mm = 10

uo_transmsg uo_msg

s_main_menu ins_s_menu_rp[],ins_s_menu_fz[]

m_sale_rp_biz om_biz_rp
m_buy_rp om_buy_rp
m_ware_rp om_ware_rp
m_cw_rp om_cw_rp
m_jg_rp om_jg_rp
m_rsgz_rp om_rsgz_rp
m_sale_rp om_sale_rp


m_buy_fz om_buy_fz
m_ware_fz om_ware_fz
m_cw_fz om_cw_fz
m_jg_fz om_jg_fz
m_sale_fz om_sale_fz

datawindow dw_guide
end variables

forward prototypes
public function integer wf_refresh_shortcut ()
public function integer pf_menutreegrowth_plugins (ref s_sys_func arg_s_func[], long arg_parentid)
public function integer pf_menutreegrowth (long arg_handl, menu arg_prn_menu, long arg_funcid)
public subroutine wf_build_menutree ()
public subroutine wf_init_menu ()
public subroutine wf_handle_click_guide (long arg_mainid, string arg_dwname, long arg_x, long arg_y)
public function string wf_retr_guide (long arg_funcid, long arg_parentid)
public subroutine wf_retr_msg ()
public subroutine wf_retrieve_sale_send ()
public subroutine wf_retrieve_sale_rece ()
public subroutine wf_retrieve_sale_msg ()
public subroutine wf_retrieve_buy_send ()
public subroutine wf_retrieve_buy_feedback ()
public subroutine wf_retrieve_buy_msg ()
end prototypes

event ue_main_menu_commnd(long arg_funcid);arg_funcid = Message.LongParm
IF arg_funcid > 0 THEN
	f_sys_main(arg_funcid)
END IF

end event

event ue_main_meun_plugins(long arg_mainid);arg_mainid = Message.LongParm


String ls_filepath
String ls_psw
Long ll_dftWinState
Long ll_fileid
ll_fileid = arg_mainid - 41000

SELECT filepath,
	psw,
	dftWinState
	INTO :ls_filepath,
	:ls_psw,
	:ll_dftWinState
	FROM u_plugins
	Where fileid = :ll_fileid;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('Error','打开外挂程序失败')
	RETURN
END IF

IF Pos(lower(ls_filepath), '.exe') > 0 THEN
	WindowState lwstmp
	IF ll_dftWinState = -1 THEN
		lwstmp = Minimized!
	ELSEIF ll_dftWinState = 0 THEN
		lwstmp = Normal!
	ELSE
		lwstmp = Maximized!
	END IF
	
	
	String ls_run
	ls_run = ls_psw + '&'
	ls_run += publ_userid + '&' 
	ls_run += sqlca.Database + '&'
	ls_run += sqlca.UserID + '&'
	ls_run += f_psw_bczh(sqlca.DBPass,0,sys_power_key) + '&'
	ls_run += sqlca.LogID + '&'
	ls_run += sqlca.LogPass + '&'
	ls_run += sqlca.ServerName + '&'
	IF Run(sys_cur_path + ls_filepath  + ' - ' +ls_run) = -1 THEN
		MessageBox('错误','运行程序失败！',stopsign!,ok!)
		RETURN
	END IF
ELSE
	window lw_win
	
	s_edit_index_tran s_tran //翻页功能窗口 传递参数使用
	s_tran.if_retrieve_all = True //是否一次RETRIEVE所有行
	s_tran.work_mode = 0 //0-单纯编辑模式, 1-选择模式
	s_tran.arg_pkid = 0 //目标定位PKID (备用)
	s_tran.arg_string_code = '' //查询列部分内容,用于初步筛选 
	s_tran.mainid = arg_mainid
	
	TRY
		
		s_sys_win_open[arg_mainid].Name = ls_filepath
		
		IF IsValid(s_sys_win_open[arg_mainid].win) THEN
			s_sys_win_open[arg_mainid].win.WindowState = Normal!
			s_sys_win_open[arg_mainid].win.BringToTop = True
		ELSE
			IF s_sys_win_open[arg_mainid].ifarg THEN
				s_tran.if_retrieve_all = local_retrieve_all //True
				
				OpenWithParm(lw_win,s_tran,s_sys_win_open[arg_mainid].Name)
			ELSE
				Open(lw_win,s_sys_win_open[arg_mainid].Name)
			END IF
			
			s_sys_win_open[arg_mainid].win = lw_win
			s_sys_win_open[arg_mainid].mainid = arg_mainid
			s_sys_win_open[arg_mainid].Title = lw_win.Title
			s_sys_win_open[arg_mainid].Handle = Handle(lw_win)
			
		END IF
	Catch(runtimeerror e)
		
		//Unknown object type: w_dismantle_install_tl3 at line 64 in ue_main_meun_plugins event of object w_main_scware.
		String ls_msg
		ls_msg = "Unknown object type: "+s_sys_win_open[arg_mainid].Name //+" at line 64 in ue_main_meun_plugins event of object w_main_scware."
		IF Pos(e.Text, ls_msg ) > 0 THEN
			MessageBox('外挂运行错误', '窗口:'+s_sys_win_open[arg_mainid].Title+'不存在')
		ELSE
			MessageBox('', e.Text)
		END IF
	END TRY
END IF

RETURN



end event

event ue_del_shortcut();Long ll_hand,funcid
listviewitem l_lvi
String ls_tv_label,arg_msg
s_sys_func s_lss


IF tab_1.tabpage_1.lv_shortcut.SelectedIndex() <= 0 THEN RETURN

uo_userpwr uo_user
uo_user = CREATE uo_userpwr


tab_1.tabpage_1.lv_shortcut.GetItem(tab_1.tabpage_1.lv_shortcut.SelectedIndex(),l_lvi)
s_lss = l_lvi.Data
funcid = s_lss.funcid
IF funcid > 0 THEN
	IF uo_user.del_shortcut(sys_scid,sys_empid,funcid,arg_msg,TRUE) = 0 THEN
		MessageBox('错误',arg_msg, StopSign!, OK! )
	ELSE
		wf_refresh_shortcut()
	END IF
END IF

DESTROY uo_userpwr

end event

public function integer wf_refresh_shortcut ();String str_shortcutstr,str_tmp

Int rslt = 1
s_sys_func ls_s_func[]
Long  count = 0,ls_i
Long handl
String ls_power_str
Long ll_hand,ll_funcid
treeviewitem tvi

SELECT shortcutstr
	INTO :str_shortcutstr
	FROM u_user
	WHERE scid = :sys_scid
	And empid = :sys_empid;
IF sqlca.SQLCode <> 0 THEN
	RETURN 0
END IF

sys_ds_maininfo.SetFilter('')
sys_ds_maininfo.Filter()

Long ll_fileid, ll_parentid
String ls_filename

IF str_shortcutstr <> '' THEN
	DO WHILE Pos(str_shortcutstr,',') <> 0
		str_tmp = Trim(Left(str_shortcutstr,Pos(str_shortcutstr,',') - 1 ))
		str_shortcutstr = Right(str_shortcutstr,Len(str_shortcutstr) - Pos(str_shortcutstr,','))
		
		ll_funcid = Long(str_tmp)
		
		IF ll_funcid < 40000 THEN
			ls_i = sys_ds_maininfo.Find('funcid = ' + String(ll_funcid), 1, sys_ds_maininfo.RowCount())
			
			IF ls_i > 0 THEN
				count++
				ls_s_func[count].funcid = sys_ds_maininfo.Object.funcid[ls_i]
				ls_s_func[count].treename = sys_ds_maininfo.Object.treename[ls_i]
				ls_s_func[count].MenuName = sys_ds_maininfo.Object.MenuName[ls_i]
				ls_s_func[count].parentid = sys_ds_maininfo.Object.parentid[ls_i]
				ls_s_func[count].sortflag = sys_ds_maininfo.Object.sortflag[ls_i]
				ls_s_func[count].functype = sys_ds_maininfo.Object.functype[ls_i]
				ls_s_func[count].mainid = sys_ds_maininfo.Object.mainid[ls_i]
			END IF
		ELSE
			
			ll_fileid = ll_funcid - 41000
			
			SELECT filename, parentid
				INTO :ls_filename, :ll_parentid
				FROM u_plugins
				Where fileid = :ll_fileid;
			IF sqlca.SQLCode <> 0 THEN
				ls_filename = ''
			END IF
			
			IF ls_filename <> '' THEN
				count++
				ls_s_func[count].funcid = ll_funcid
				ls_s_func[count].treename = ls_filename+'(外挂)'
				ls_s_func[count].MenuName = ls_filename+'(外挂)'
				ls_s_func[count].parentid = ll_parentid
				ls_s_func[count].sortflag = count
				ls_s_func[count].functype = 8
				ls_s_func[count].mainid = ll_funcid
				ls_s_func[count].if_use = 1
				
			END IF
		END IF
	LOOP
END IF

tab_1.tabpage_1.lv_shortcut.setredraw(false)
tab_1.tabpage_1.lv_shortcut.DeleteItems()

listviewitem l_lvi
string ls_define_ids = '1599,658,1353,662,660,661'
string ls_sys_ids = '312,972,313,317'

FOR ls_i = 1 To count
	l_lvi.Label = ls_s_func[ls_i].treename
	l_lvi.Data = ls_s_func[ls_i]
	
	IF pos(ls_s_func[ls_i].treename, "(外挂)") > 0 THEN
		l_lvi.PictureIndex = 11
	ELSEIF right(ls_s_func[ls_i].treename,1) = "表" THEN
		l_lvi.PictureIndex = 4
	elseif pos(ls_define_ids,string(ls_s_func[ls_i].parentid)) > 0 then 
		l_lvi.PictureIndex = 3
	elseif pos(ls_sys_ids,string(ls_s_func[ls_i].parentid)) > 0 then 
		l_lvi.PictureIndex = 5
	elseif pos(ls_s_func[ls_i].treename,'表') > 0 then 
		l_lvi.PictureIndex = 4		
	ELSE
		l_lvi.PictureIndex = 1
	END IF
	tab_1.tabpage_1.lv_shortcut.AddItem(l_lvi)
NEXT
tab_1.tabpage_1.lv_shortcut.setredraw(true)
RETURN 1



end function

public function integer pf_menutreegrowth_plugins (ref s_sys_func arg_s_func[], long arg_parentid);String str_shortcutstr,str_tmp

Int rslt = 1
s_sys_func ls_s_func[]
Long  count = 0,ls_i
Long handl
String ls_power_str
Long ll_hand,ll_funcid
String ls_filepath, ls_filename
count = UpperBound(arg_s_func)

//加入插件
Long ll_pluginscnt
datastore ds
ds = Create datastore
ds.DataObject = 'u_plugins_index'
ds.SetTransObject(sqlca)
ll_pluginscnt = ds.Retrieve(sys_user_plugins, arg_parentid)

//if arg_parentid = 0 then arg_parentid = 40000

FOR ls_i = 1 To ll_pluginscnt
	ls_filename = Trim(ds.Object.Filename[ls_i])
	ls_filepath = Trim(ds.Object.FilePath[ls_i])
	ll_funcid = 41000 + ds.Object.fileid[ls_i]
	
	count++
	ls_s_func[count].funcid = ll_funcid
	ls_s_func[count].treename = ls_filename+'(外挂)'
	ls_s_func[count].MenuName = ls_filename+'(外挂)'
	ls_s_func[count].parentid = arg_parentid
	ls_s_func[count].sortflag = ls_i
	ls_s_func[count].functype = 8
	ls_s_func[count].mainid = ll_funcid
	ls_s_func[count].if_use = 1
	
	IF Not Pos(lower(ls_filepath),'.exe') > 0 THEN
		s_sys_win_open[ll_funcid].funcid = String(ll_funcid)
		s_sys_win_open[ll_funcid].Name = ls_filepath
		s_sys_win_open[ll_funcid].Title = ls_filename
		s_sys_win_open[ll_funcid].ifarg = True
		s_sys_win_open[ll_funcid].if_retrieve_all = True
	END IF
NEXT




arg_s_func = ls_s_func
Destroy ds
RETURN 1




end function

public function integer pf_menutreegrowth (long arg_handl, menu arg_prn_menu, long arg_funcid);Int rslt = 1
s_sys_func ls_s_func[]
Long  count = 0,ls_i
Long handl
String ls_power_str
Long ll_hand

String ls_filter

If sys_if_network = 1 Then
	ls_filter = 'parentid='+String(arg_funcid)+ ' and worktype <> 1 and if_use <> 0 and functype < 9 '
Else
	ls_filter = 'parentid='+String(arg_funcid)+ ' and worktype <> 2 and if_use <> 0 and functype < 9 '
End If


If sys_version_type = 0 Then
	ls_filter = ls_filter + 'and ( Versiontype = 0 or Versiontype = -1 )'
ElseIf sys_version_type = 1 Then
	ls_filter = ls_filter + 'and ( Versiontype = 1 or Versiontype = -1 )'
ElseIf sys_version_type = 2 Then
	ls_filter = ls_filter + 'and ( Versiontype = 0 or Versiontype = -1 or Versiontype = 2 )'
End If




sys_ds_maininfo.SetFilter(ls_filter)
sys_ds_maininfo.Filter()

sys_ds_maininfo.SetSort('sortflag')
sys_ds_maininfo.Sort()

deep++
If deep > 3000 Then //防止死递归
	Return 0
End If

For ls_i = 1 To sys_ds_maininfo.RowCount( )
	//		IF sys_ds_maininfo.Object.funcid[ls_i] = 1766 THEN
	//			ls_i = ls_i
	//		END IF
	//	IF sys_ds_maininfo.Object.if_use[ls_i] = 0 THEN CONTINUE
	//	IF sys_ds_maininfo.Object.functype[ls_i] < 9 THEN
	//		IF sys_ds_maininfo.Object.parentid[ls_i] = arg_funcid THEN
	
	If sys_option_hide_cw = 0 Then
		If sys_accsetbegin Then
			//账务初始化
			If sys_ds_maininfo.Object.funcid[ls_i] = 1950 Then Continue
		Else
			//账务
			If sys_ds_maininfo.Object.funcid[ls_i] = 1964 Then Continue
		End If
	Else
		//隐藏总帐菜单
		If sys_ds_maininfo.Object.funcid[ls_i] = 1932 Then Continue
		If sys_ds_maininfo.Object.funcid[ls_i] = 1950 Then Continue
		If sys_ds_maininfo.Object.funcid[ls_i] = 1964 Then Continue
		
	End If
	
	
	If  sys_ds_maininfo.Object.treename[ls_i] <> '系统解决方案' &
		And sys_ds_maininfo.Object.treename[ls_i] <> '解决方案' &
		And sys_ds_maininfo.Object.treename[ls_i] <> '系统' Then
		If Mid(sys_pwrstr,sys_ds_maininfo.Object.funcid[ls_i],1) <> '1' Then Continue
	End If
	If Mid(sys_right,sys_ds_maininfo.Object.funcid[ls_i],1) = '1' Then
		
		If  sys_ds_maininfo.Object.treename[ls_i] = '仓库'  And &
			sys_option_hide_ware = 1 Then
			Continue
		End If
		
		If  sys_ds_maininfo.Object.treename[ls_i] = '生产'  And &
			sys_version = 802001 Then Continue
		
		If  sys_ds_maininfo.Object.treename[ls_i] = '外协'  And &
			sys_version = 802001 Then Continue
		
		If  sys_ds_maininfo.Object.treename[ls_i] = '生产'  And &
			sys_option_hide_sc = 1 Then
			Continue
		End If
		
		If sys_ds_maininfo.Object.treename[ls_i] = '外协'  And &
			sys_option_hide_wfjg = 1 Then
			Continue
		End If
		
		
		If  sys_ds_maininfo.Object.treename[ls_i] = '财务'  And &
			sys_option_hide_money = 1 Then
			Continue
		End If
		
		If  sys_ds_maininfo.Object.treename[ls_i] = '人事工资'  And &
			sys_option_hide_gz = 1 Then
			Continue
		End If
		
		
		
		count++
		ls_s_func[count].funcid = sys_ds_maininfo.Object.funcid[ls_i]
		ls_s_func[count].treename = sys_ds_maininfo.Object.treename[ls_i]
		ls_s_func[count].MenuName = sys_ds_maininfo.Object.MenuName[ls_i]
		ls_s_func[count].parentid = sys_ds_maininfo.Object.parentid[ls_i]
		ls_s_func[count].sortflag = sys_ds_maininfo.Object.sortflag[ls_i]
		ls_s_func[count].functype = sys_ds_maininfo.Object.functype[ls_i]
		ls_s_func[count].mainid = sys_ds_maininfo.Object.mainid[ls_i]
		ls_s_func[count].if_use = sys_ds_maininfo.Object.if_use[ls_i]

	End If
	//		END IF
	//	END IF
Next

//IF arg_funcid = 0 THEN
//	//加入插件
//	Long ll_pluginscnt
//	datastore ds
//	ds = Create datastore
//	ds.DataObject = 'u_plugins_index'
//	ds.SetTransObject(sqlca)
//	ll_pluginscnt = ds.Retrieve(sys_user_plugins, 0)
//	IF ll_pluginscnt > 0 THEN
//		count++
//		ls_s_func[count].funcid = 40000
//		ls_s_func[count].MenuName = "外挂"
//		ls_s_func[count].treename = "外挂"
//		ls_s_func[count].parentid = 0
//		ls_s_func[count].functype = 0
//		ls_s_func[count].sortflag = count
//	END IF
//	Destroy ds
//END IF
//IF arg_funcid = 40000 THEN
//	//pf_menutreegrowth_plugins(ls_s_func)
//	count = UpperBound(ls_s_func)
//END IF

Long ll_parentid_plugins[] = {40000,40001,40002,40003,40004,40005,40006,40007,40008,40009,40010,40011}
Long ll_funcid_plugins[] = {0, 256,258,259,349,1047,260,1541,1542,1543,1046,1557}
Boolean lb_plugins = False
Long ll_plugins_parentid

string ls_define_ids = '1599,658,1353,662,660,661'
string ls_sys_ids = '312,972,313,317'

//检查是否有插件
For ls_i = 1 To UpperBound(ll_funcid_plugins)
	If ll_funcid_plugins[ls_i] = arg_funcid Then
		ll_plugins_parentid = ll_parentid_plugins[ls_i]
		lb_plugins = True
		Exit
	End If
Next
If lb_plugins Then
	//加入插件
	Long ll_pluginscnt
	datastore ds
	ds = Create datastore
	ds.DataObject = 'u_plugins_index'
	ds.SetTransObject(sqlca)
	ll_pluginscnt = ds.Retrieve(sys_user_plugins, ll_plugins_parentid)
	//	if ll_plugins_parentid = 0 then ll_plugins_parentid = 40000
	If ll_pluginscnt > 0 Then
		count++
		ls_s_func[count].funcid = ll_plugins_parentid
		ls_s_func[count].MenuName = "外挂"
		ls_s_func[count].treename = "外挂"
		ls_s_func[count].parentid = arg_funcid
		ls_s_func[count].functype = 0
		ls_s_func[count].sortflag = count
	End If
	Destroy ds
End If

If arg_funcid >= 40000 Then
	pf_menutreegrowth_plugins(ls_s_func, arg_funcid)
	count = UpperBound(ls_s_func)
End If

// //按模块增加插件
//long ll_parentid_plugins
//choose case arg_funcid
//	case 0 //全部
//	case 256 //销售
//	case 258 //仓库
//	case 259 //采购
//	case 349 //外协
//	case 1047 //生产
//	case 260 //人事工资
//	//case 261 //财务
//	case 1541 //应收
//	case 1542 //应付
//	case 1543 //出纳
//	case 1046 //零售
//	case 1557 //电子商务
//end choose



//if arg_funcid = 0 then
//	count++
//	ls_s_func[count].funcid = -1
//	ls_s_func[count].MenuName = "收藏"
//	ls_s_func[count].treename = "收藏"
//	ls_s_func[count].parentid = 0
//	ls_s_func[count].functype = 0
//	ls_s_func[count].sortflag = count
//end if
//
//if arg_funcid = -1 then
//	wf_build_menu_shortcut(ls_s_func)
//	count = UpperBound(ls_s_func)
//end if

String ls_menuname,ls_treename
long ll_lp
treeviewitem tvi
For ls_i = 1 To count
	
	ls_menuname = Trim(ls_s_func[ls_i].MenuName)
	ls_treename = ls_s_func[ls_i].treename
	
	if ls_s_func[ls_i].functype = 0 then 
		ll_lp = 2
	elseif ls_s_func[ls_i].functype = 8 then 
		if pos(ls_define_ids,string(ls_s_func[ls_i].parentid)) > 0 then 
			ll_lp = 7
		elseif pos(ls_sys_ids,string(ls_s_func[ls_i].parentid)) > 0 then 
			ll_lp = 9
		elseif pos(ls_s_func[ls_i].treename,'表') > 0 then 
			ll_lp = 8
		else
			ll_lp  = 5
		end if
	ELSEIF ls_s_func[ls_i].functype = 9 THEN
		ll_lp = 4
	else
		ll_lp = 6
	END IF
		

	handl = tv_func.InsertItemLast(arg_handl,ls_treename,ll_lp) //生成树
	tv_func.GetItem(handl,tvi)
	tvi.Data = ls_s_func[ls_i]
	tv_func.SetItem(handl,tvi)
	

	f_add_menuItem(arg_prn_menu,ls_i,ls_menuname,String(ls_s_func[ls_i].mainid))
	//	if arg_funcid <> -1 then
	pf_menutreegrowth(handl,arg_prn_menu.Item[UpperBound(arg_prn_menu.Item)],ls_s_func[ls_i].funcid)
	//	end if
Next



Return rslt












end function

public subroutine wf_build_menutree ();Long hand,ll_getitem
If sys_if_network = 1 Then
	Long i
	For i = 1 To UpperBound(MenuID.Item[1].Item)
		If MenuID.Item[1].Item[i].Text = '帐套管理' Then
			MenuID.Item[1].Item[i].Visible = False
			Exit
		End If
	Next
	
	//MenuID.Item[1].Item[5].enabled = false //帐套管理
	//This.ChangeMenu(m_x_genapp_frame_sp1_net)
Else
	//This.ChangeMenu(m_x_genapp_frame_sp1)
End If




s_sys_func s_sf_ls
treeviewitem ltvi_item
Long tvi_hdl = 0
Do Until tv_func.FindItem(roottreeitem!, 0) = -1
	tv_func.DeleteItem(tvi_hdl)
Loop


hand = tv_func.InsertItemLast(0,sys_message_title,1)

ll_getitem = tv_func.GetItem(hand, ltvi_item)
If ll_getitem > 0 Then
	ltvi_item.Data = s_sf_ls
	tv_func.SetItem( hand, ltvi_item)
End If

pf_menutreegrowth(hand,This.MenuID,0)

tv_func.ExpandItem(hand)

MenuID.Item[1].Hide() //should be item[1], whatever the base menuitem is.
MenuID.Item[1].Show()
sys_ds_maininfo.RowsMove(1, sys_ds_maininfo.DeletedCount(), Delete!, sys_ds_maininfo, 1, Primary!)



end subroutine

public subroutine wf_init_menu ();om_biz_rp = Create m_sale_rp_biz
om_buy_rp = Create m_buy_rp
om_ware_rp = Create m_ware_rp
om_cw_rp = Create m_cw_rp
om_jg_rp = Create m_jg_rp
om_rsgz_rp = Create m_rsgz_rp
om_sale_rp = Create m_sale_rp

om_buy_fz = create m_buy_fz 
om_ware_fz = create m_ware_fz 
om_cw_fz = create m_cw_fz  
om_jg_fz = create m_jg_fz 
om_sale_fz = create m_sale_fz 

Long i
////更多报表
i++
ins_s_menu_rp[i].dwname = 'dw_main_child_biz'
ins_s_menu_rp[i].menu = om_biz_rp

i++
ins_s_menu_rp[i].dwname = 'dw_main_child_cg'
ins_s_menu_rp[i].menu = om_buy_rp

i++
ins_s_menu_rp[i].dwname = 'dw_main_child_ck'
ins_s_menu_rp[i].menu = om_ware_rp

i++
ins_s_menu_rp[i].dwname = 'dw_main_child_cw'
ins_s_menu_rp[i].menu = om_cw_rp

i++
ins_s_menu_rp[i].dwname = 'dw_main_child_jg'
ins_s_menu_rp[i].menu = om_jg_rp

i++
ins_s_menu_rp[i].dwname = 'dw_main_child_rsgz'
ins_s_menu_rp[i].menu = om_rsgz_rp

i++
ins_s_menu_rp[i].dwname = 'dw_main_child_xs'
ins_s_menu_rp[i].menu = om_sale_rp


long j
////辅助功能
j++
ins_s_menu_fz[j].dwname = 'dw_main_child_cg'
ins_s_menu_fz[j].menu = om_buy_fz

j++
ins_s_menu_fz[j].dwname = 'dw_main_child_ck'
ins_s_menu_fz[j].menu = om_ware_fz

j++
ins_s_menu_fz[j].dwname = 'dw_main_child_cw'
ins_s_menu_fz[j].menu = om_cw_fz

j++
ins_s_menu_fz[j].dwname = 'dw_main_child_jg'
ins_s_menu_fz[j].menu = om_jg_fz

j++
ins_s_menu_fz[j].dwname = 'dw_main_child_xs'
ins_s_menu_fz[j].menu = om_sale_fz

end subroutine

public subroutine wf_handle_click_guide (long arg_mainid, string arg_dwname, long arg_x, long arg_y);menu arg_m
Long i

If arg_mainid = 99999 Then
	For i = 1 To UpperBound(ins_s_menu_rp)
		If arg_dwname = ins_s_menu_rp[i].dwname Then
			ins_s_menu_rp[i].menu.PopMenu(arg_x,arg_y)
			Return
		End If
	Next
ElseIf arg_mainid = 88888 Then
	For i = 1 To UpperBound(ins_s_menu_fz)
		If arg_dwname = ins_s_menu_fz[i].dwname Then
			ins_s_menu_fz[i].menu.PopMenu(arg_x,arg_y)
			Return
		End If
	Next
ElseIf arg_mainid = 77777 and arg_dwname = 'dw_main_child_ck' Then
	m_ware_buy om_ware_buy
	om_ware_buy = CREATE m_ware_buy
	om_ware_buy.PopMenu(arg_x,arg_y)
	DESTROY om_ware_buy
ElseIf arg_mainid = 66666 and arg_dwname = 'dw_main_child_ck' Then
	m_ware_sale om_ware_sale
	om_ware_sale = CREATE m_ware_sale
	om_ware_sale.PopMenu(arg_x,arg_y)
	DESTROY om_ware_sale
End If

end subroutine

public function string wf_retr_guide (long arg_funcid, long arg_parentid);String arg_dwname

If arg_funcid = 1046 Or arg_parentid = 1046 Then
	//零售
	arg_dwname = 'dw_main_child_biz'
ElseIf arg_funcid = 256 Or arg_parentid = 256 Then
	//销售
	arg_dwname = 'dw_main_child_xs'
ElseIf arg_funcid = 258 Or arg_parentid = 258 Then
	//仓库
	arg_dwname = 'dw_main_child_ck'
ElseIf arg_funcid = 259 Or arg_parentid = 259 Then
	//采购
	arg_dwname = 'dw_main_child_cg'
ElseIf arg_funcid = 349 Or arg_parentid = 349 Then
	//外协 
	arg_dwname = 'dw_main_child_jg'
ElseIf arg_funcid = 1047 Or arg_parentid = 1047 Then
	//生产
	arg_dwname = 'dw_main_child_sc'
ElseIf arg_funcid = 260 Or arg_parentid = 260 Then
	//人事工资
	arg_dwname = 'dw_main_child_rsgz'
ElseIf arg_funcid = 261 Or arg_parentid = 261 Then
	//财务
	arg_dwname = 'dw_main_child_cw'
else
	arg_dwname = 'dw_main_child_in'
End If

Return arg_dwname



end function

public subroutine wf_retr_msg ();tab_1.tabpage_1.dw_2.retrieve(sys_empid)

if tab_1.tabpage_1.dw_2.rowcount() > 0 then 
	tab_1.tabpage_1.st_no_mess_warp.visible = false
	tab_1.tabpage_1.st_no_mess.visible = false
else
	tab_1.tabpage_1.st_no_mess_warp.visible = true
	tab_1.tabpage_1.st_no_mess.visible = true
end if
end subroutine

public subroutine wf_retrieve_sale_send ();IF sys_option_if_ljfieb = 0 THEN RETURN
IF sys_email_sqlca.DBHandle() = 0 THEN RETURN



Long ll_i
String ls_cuscode
Long ll_sendcuscommid,ll_cusareaid
String ls_custype,ls_receivesccode,ls_scstr,ls_SendSCcode
String ls_areastr,ls_outrep
Long ll_scid

tab_1.tabpage_2.dw_sale_send.SetRedraw(False)
tab_1.tabpage_2.dw_sale_send.Retrieve()




IF Not sys_power_issuper THEN
	
	tab_1.tabpage_2.dw_sale_send.AcceptText()
	
	FOR ll_i = tab_1.tabpage_2.dw_sale_send.RowCount() To 1 Step -1
		ll_sendcuscommid = tab_1.tabpage_2.dw_sale_send.Object.ljfieb_packet_sendcuscommid[ll_i]
		ls_receivesccode = tab_1.tabpage_2.dw_sale_send.Object.ljfieb_packet_receivesccode[ll_i]
		ls_SendSCcode = tab_1.tabpage_2.dw_sale_send.Object.ljfieb_packet_SendSCcode [ll_i]
		
		IF sys_user_scstr <> '0' THEN
			SELECT scid INTO :ll_scid
				FROM u_scdef
				Where sccode = :ls_receivesccode Using sqlca;
			IF sqlca.SQLCode <> 0 THEN
				ll_scid = 0
			END IF
			
			ls_scstr = ','+String(ll_scid)+','
			
			IF Pos(sys_user_scstr,ls_scstr) = 0 THEN
				tab_1.tabpage_2.dw_sale_send.DeleteRow(ll_i)
				CONTINUE
			END IF
			
		END IF
		
		SELECT CusCode
			INTO :ls_cuscode
			FROM LJFIEB_CusComm
			Where CusCommID = :ll_sendcuscommid Using sys_email_sqlca;
		IF sys_email_sqlca.SQLCode <> 0 THEN
			ls_cuscode = ''
		END IF
		
		IF Trim(ls_cuscode) = '' THEN CONTINUE
		
		SELECT cusareaid,
			custype
			INTO
			:ll_cusareaid,
			:ls_custype
			FROM u_cust
			WHERE commcode = :ls_cuscode
			And commsccode = :ls_SendSCcode Using sqlca;
		IF sqlca.SQLCode <> 0 THEN CONTINUE
		
		IF sys_areastr <> '0' THEN
			ls_areastr = ','+String( ll_cusareaid)+','
			IF Pos(sys_areastr,ls_areastr) = 0 THEN
				tab_1.tabpage_2.dw_sale_send.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
		
		IF sys_user_outrepstr <> '0' THEN
			ls_outrep = ','+String( ls_custype)+','
			IF Pos(sys_user_outrepstr,ls_outrep) = 0 THEN
				tab_1.tabpage_2.dw_sale_send.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
	NEXT
	
END IF
tab_1.tabpage_2.dw_sale_send.SetRedraw(True)




end subroutine

public subroutine wf_retrieve_sale_rece ();IF sys_option_if_ljfieb = 0 THEN RETURN
IF sys_email_sqlca.DBHandle() = 0 THEN RETURN



Long ll_i
String ls_cuscode
Long ll_sendcuscommid,ll_cusareaid
String ls_custype,ls_receivesccode,ls_scstr,ls_SendSCcode
String ls_areastr,ls_outrep
Long ll_scid

tab_1.tabpage_2.dw_sale_rece.SetRedraw(False)
tab_1.tabpage_2.dw_sale_rece.Retrieve()


IF Not sys_power_issuper THEN
	
	tab_1.tabpage_2.dw_sale_rece.AcceptText()
	
	FOR ll_i = tab_1.tabpage_2.dw_sale_rece.RowCount() To 1 Step -1
		ll_sendcuscommid = tab_1.tabpage_2.dw_sale_rece.Object.ljfieb_packet_sendcuscommid[ll_i]
		ls_receivesccode = tab_1.tabpage_2.dw_sale_rece.Object.ljfieb_packet_receivesccode[ll_i]
		ls_SendSCcode = tab_1.tabpage_2.dw_sale_rece.Object.ljfieb_packet_SendSCcode [ll_i]
		
		IF sys_user_scstr <> '0' THEN
			SELECT scid INTO :ll_scid
				FROM u_scdef
				Where sccode = :ls_receivesccode Using sqlca;
			IF sqlca.SQLCode <> 0 THEN
				ll_scid = 0
			END IF
			
			ls_scstr = ','+String(ll_scid)+','
			
			IF Pos(sys_user_scstr,ls_scstr) = 0 THEN
				tab_1.tabpage_2.dw_sale_rece.DeleteRow(ll_i)
				CONTINUE
			END IF
			
		END IF
		
		SELECT CusCode
			INTO :ls_cuscode
			FROM LJFIEB_CusComm
			Where CusCommID = :ll_sendcuscommid Using sys_email_sqlca;
		IF sys_email_sqlca.SQLCode <> 0 THEN
			ls_cuscode = ''
		END IF
		
		IF Trim(ls_cuscode) = '' THEN CONTINUE
		
		SELECT cusareaid,
			custype
			INTO
			:ll_cusareaid,
			:ls_custype
			FROM u_cust
			WHERE commcode = :ls_cuscode
			And commsccode = :ls_SendSCcode Using sqlca;
		IF sqlca.SQLCode <> 0 THEN CONTINUE
		
		IF sys_areastr <> '0' THEN
			ls_areastr = ','+String( ll_cusareaid)+','
			IF Pos(sys_areastr,ls_areastr) = 0 THEN
				tab_1.tabpage_2.dw_sale_rece.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
		
		IF sys_user_outrepstr <> '0' THEN
			ls_outrep = ','+String( ls_custype)+','
			IF Pos(sys_user_outrepstr,ls_outrep) = 0 THEN
				tab_1.tabpage_2.dw_sale_rece.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
	NEXT
	
END IF
tab_1.tabpage_2.dw_sale_rece.SetRedraw(True)




end subroutine

public subroutine wf_retrieve_sale_msg ();IF sys_option_if_ljfieb = 0 THEN RETURN
IF sys_email_sqlca.DBHandle() = 0 THEN RETURN



Long ll_i
String ls_cuscode
Long ll_sendcuscommid,ll_cusareaid
String ls_custype,ls_receivesccode,ls_scstr,ls_SendSCcode
String ls_areastr,ls_outrep
Long ll_scid


tab_1.tabpage_2.dw_sale_msg.SetRedraw(False)
tab_1.tabpage_2.dw_sale_msg.Retrieve()

IF Not sys_power_issuper THEN
	
	tab_1.tabpage_2.dw_sale_msg.AcceptText()
	
	FOR ll_i = tab_1.tabpage_2.dw_sale_msg.RowCount() To 1 Step -1
		ll_sendcuscommid = tab_1.tabpage_2.dw_sale_msg.Object.ljfieb_packet_sendcuscommid[ll_i]
		ls_receivesccode = tab_1.tabpage_2.dw_sale_msg.Object.ljfieb_packet_receivesccode[ll_i]
		ls_SendSCcode = tab_1.tabpage_2.dw_sale_msg.Object.ljfieb_packet_SendSCcode [ll_i]
		
		IF sys_user_scstr <> '0' THEN
			SELECT scid INTO :ll_scid
				FROM u_scdef
				Where sccode = :ls_receivesccode Using sqlca;
			IF sqlca.SQLCode <> 0 THEN
				ll_scid = 0
			END IF
			
			ls_scstr = ','+String(ll_scid)+','
			
			IF Pos(sys_user_scstr,ls_scstr) = 0 THEN
				tab_1.tabpage_2.dw_sale_msg.DeleteRow(ll_i)
				CONTINUE
			END IF
			
		END IF
		
		SELECT CusCode
			INTO :ls_cuscode
			FROM LJFIEB_CusComm
			Where CusCommID = :ll_sendcuscommid Using sys_email_sqlca;
		IF sys_email_sqlca.SQLCode <> 0 THEN
			ls_cuscode = ''
		END IF
		
		IF Trim(ls_cuscode) = '' THEN CONTINUE
		
		SELECT cusareaid,
			custype
			INTO
			:ll_cusareaid,
			:ls_custype
			FROM u_cust
			WHERE commcode = :ls_cuscode
			And commsccode = :ls_SendSCcode Using sqlca;
		IF sqlca.SQLCode <> 0 THEN CONTINUE
		
		IF sys_areastr <> '0' THEN
			ls_areastr = ','+String( ll_cusareaid)+','
			IF Pos(sys_areastr,ls_areastr) = 0 THEN
				tab_1.tabpage_2.dw_sale_msg.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
		
		IF sys_user_outrepstr <> '0' THEN
			ls_outrep = ','+String( ls_custype)+','
			IF Pos(sys_user_outrepstr,ls_outrep) = 0 THEN
				tab_1.tabpage_2.dw_sale_msg.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
	NEXT
	
END IF

tab_1.tabpage_2.dw_sale_msg.SetRedraw(true)




end subroutine

public subroutine wf_retrieve_buy_send ();if sys_option_if_ljfieb = 0 then return 
if sys_email_sqlca.DBHandle() = 0 then return 
Long ll_i
String ls_cuscode
Long ll_ReceiveCusCommID,ll_spttypeid
String ls_spttype,ls_receivesccode, ls_SendSCcode,ls_scstr
Long ll_scid

tab_1.tabpage_3.dw_buy_send.SetRedraw(False)
tab_1.tabpage_3.dw_buy_send.retrieve()


IF Not sys_power_issuper THEN
	tab_1.tabpage_3.dw_buy_send.AcceptText()
	
	FOR ll_i = tab_1.tabpage_3.dw_buy_send.RowCount() To 1 Step -1
		ll_ReceiveCusCommID = tab_1.tabpage_3.dw_buy_send.Object.ljfieb_packet_ReceiveCusCommID[ll_i]
		ls_receivesccode = tab_1.tabpage_3.dw_buy_send.Object.ljfieb_packet_receivesccode[ll_i]
		ls_SendSCcode = tab_1.tabpage_3.dw_buy_send.Object.ljfieb_packet_SendSCcode [ll_i]
		
		IF sys_user_scstr <> '0' THEN
			SELECT scid INTO :ll_scid
				FROM u_scdef
				Where sccode = :ls_SendSCcode Using sqlca;
			IF sqlca.SQLCode <> 0 THEN
				ll_scid = 0
			END IF
			
			ls_scstr = ','+String(ll_scid)+','
			
			IF Pos(sys_user_scstr,ls_scstr) = 0 THEN
				tab_1.tabpage_3.dw_buy_send.DeleteRow(ll_i)
				CONTINUE
			END IF
			
		END IF
		
		SELECT CusCode
			INTO :ls_cuscode
			FROM LJFIEB_CusComm
			Where CusCommID = :ll_ReceiveCusCommID Using sys_email_sqlca;
		IF sys_email_sqlca.SQLCode <> 0 THEN
			ls_cuscode = ''
		END IF
		
		IF Trim(ls_cuscode) = '' THEN CONTINUE
		
		SELECT spttypeid
			INTO :ll_spttypeid
			FROM u_spt
			WHERE  commcode = :ls_cuscode
			And commsccode = :ls_receivesccode Using sqlca;
		IF sqlca.SQLCode <> 0 THEN CONTINUE
		
		IF sys_user_spttypestr <> '0' THEN
			ls_spttype = ','+String( ll_spttypeid)+','
			IF Pos(sys_user_spttypestr,ls_spttype) = 0 THEN
				tab_1.tabpage_3.dw_buy_send.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
	NEXT
	
END IF
tab_1.tabpage_3.dw_buy_send.SetRedraw(True)
end subroutine

public subroutine wf_retrieve_buy_feedback ();IF sys_option_if_ljfieb = 0 THEN RETURN
IF sys_email_sqlca.DBHandle() = 0 THEN RETURN

Long ll_i
String ls_cuscode
Long ll_sendcuscommid,ll_spttypeid
String ls_spttype,ls_receivesccode, ls_SendSCcode,ls_scstr
Long ll_scid

tab_1.tabpage_3.dw_buy_feedback.SetRedraw(False)
tab_1.tabpage_3.dw_buy_feedback.Retrieve()

IF Not sys_power_issuper THEN
	tab_1.tabpage_3.dw_buy_feedback.AcceptText()
	
	FOR ll_i = tab_1.tabpage_3.dw_buy_feedback.RowCount() To 1 Step -1
		IF tab_1.tabpage_3.dw_buy_feedback.Object.ljfieb_packet_billtype [ll_i] = 9 THEN CONTINUE
		
		ll_sendcuscommid = tab_1.tabpage_3.dw_buy_feedback.Object.ljfieb_packet_sendcuscommid[ll_i]
		ls_receivesccode = tab_1.tabpage_3.dw_buy_feedback.Object.ljfieb_packet_receivesccode[ll_i]
		ls_SendSCcode = tab_1.tabpage_3.dw_buy_feedback.Object.ljfieb_packet_SendSCcode [ll_i]
		
		IF sys_user_scstr <> '0' THEN
			SELECT scid INTO :ll_scid
				FROM u_scdef
				Where sccode = :ls_receivesccode Using sqlca;
			IF sqlca.SQLCode <> 0 THEN
				ll_scid = 0
			END IF
			
			ls_scstr = ','+String(ll_scid)+','
			
			IF Pos(sys_user_scstr,ls_scstr) = 0 THEN
				tab_1.tabpage_3.dw_buy_feedback.DeleteRow(ll_i)
				CONTINUE
			END IF
			
		END IF
		
		SELECT CusCode
			INTO :ls_cuscode
			FROM LJFIEB_CusComm
			Where CusCommID = :ll_sendcuscommid Using sys_email_sqlca;
		IF sys_email_sqlca.SQLCode <> 0 THEN
			ls_cuscode = ''
		END IF
		
		IF Trim(ls_cuscode) = '' THEN CONTINUE
		
		SELECT spttypeid
			INTO :ll_spttypeid
			FROM u_spt
			WHERE  commcode = :ls_cuscode
			And commsccode = :ls_SendSCcode Using sqlca;
		IF sqlca.SQLCode <> 0 THEN CONTINUE
		
		IF sys_user_spttypestr <> '0' THEN
			ls_spttype = ','+String( ll_spttypeid)+','
			IF Pos(sys_user_spttypestr,ls_spttype) = 0 THEN
				tab_1.tabpage_3.dw_buy_feedback.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
	NEXT
	
END IF
tab_1.tabpage_3.dw_buy_feedback.SetRedraw(True)

//查询待处理资料推送条数
Long cnt

SELECT count(*)
	INTO :cnt
	FROM LJFIEB_packet INNER JOIN
	LJFIEB_CusComm ON
	LJFIEB_packet.ReceiveCusCommID = LJFIEB_CusComm.CusCommID
	WHERE (LJFIEB_packet.BillType = 9)
	AND (LJFIEB_packet.Complete = 0)
	And (LJFIEB_CusComm.CusType = 0) Using sys_email_sqlca;
IF sys_email_sqlca.SQLCode <> 0 THEN cnt = 0

IF cnt > 0 THEN
	tab_1.tabpage_3.st_mtrl_receive.Text = '资料同步(待同步资料共'+String(cnt)+'条)'
ELSE
	tab_1.tabpage_3.st_mtrl_receive.Text = '资料同步(没有可同步的资料)'
END IF



end subroutine

public subroutine wf_retrieve_buy_msg ();IF sys_option_if_ljfieb = 0 THEN RETURN
IF sys_email_sqlca.DBHandle() = 0 THEN RETURN

Long ll_i
String ls_cuscode
Long ll_sendcuscommid,ll_spttypeid
String ls_spttype,ls_receivesccode, ls_SendSCcode,ls_scstr
Long ll_scid

tab_1.tabpage_3.dw_buy_msg.SetRedraw(False)
tab_1.tabpage_3.dw_buy_msg.Retrieve()

IF Not sys_power_issuper THEN
	tab_1.tabpage_3.dw_buy_msg.AcceptText()
	
	FOR ll_i = tab_1.tabpage_3.dw_buy_msg.RowCount() To 1 Step -1
		ll_sendcuscommid = tab_1.tabpage_3.dw_buy_msg.Object.ljfieb_packet_sendcuscommid[ll_i]
		ls_receivesccode = tab_1.tabpage_3.dw_buy_msg.Object.ljfieb_packet_receivesccode[ll_i]
		ls_SendSCcode = tab_1.tabpage_3.dw_buy_msg.Object.ljfieb_packet_SendSCcode [ll_i]
		
		IF sys_user_scstr <> '0' THEN
			SELECT scid INTO :ll_scid
				FROM u_scdef
				Where sccode = :ls_receivesccode Using sqlca;
			IF sqlca.SQLCode <> 0 THEN
				ll_scid = 0
			END IF
			
			ls_scstr = ','+String(ll_scid)+','
			
			IF Pos(sys_user_scstr,ls_scstr) = 0 THEN
				tab_1.tabpage_3.dw_buy_msg.DeleteRow(ll_i)
				CONTINUE
			END IF
			
		END IF
		
		SELECT CusCode
			INTO :ls_cuscode
			FROM LJFIEB_CusComm
			Where CusCommID = :ll_sendcuscommid Using sys_email_sqlca;
		IF sys_email_sqlca.SQLCode <> 0 THEN
			ls_cuscode = ''
		END IF
		
		IF Trim(ls_cuscode) = '' THEN CONTINUE
		
		SELECT spttypeid
			INTO :ll_spttypeid
			FROM u_spt
			WHERE  commcode = :ls_cuscode
			And commsccode = :ls_SendSCcode Using sqlca;
		IF sqlca.SQLCode <> 0 THEN CONTINUE
		
		IF sys_user_spttypestr <> '0' THEN
			ls_spttype = ','+String( ll_spttypeid)+','
			IF Pos(sys_user_spttypestr,ls_spttype) = 0 THEN
				tab_1.tabpage_3.dw_buy_msg.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
	NEXT
	
END IF
tab_1.tabpage_3.dw_buy_msg.SetRedraw(True)

end subroutine

on w_q6_main.create
int iCurrent
call super::create
if this.MenuName = "m_x_genapp_frame_sp1" then this.MenuID = create m_x_genapp_frame_sp1
this.p_left=create p_left
this.p_right=create p_right
this.p_middle=create p_middle
this.tv_func=create tv_func
this.tab_1=create tab_1
this.p_sfqr=create p_sfqr
this.st_sfqr=create st_sfqr
this.p_dysz=create p_dysz
this.st_dysz=create st_dysz
this.p_help=create p_help
this.st_help=create st_help
this.p_exit=create p_exit
this.st_exit=create st_exit
this.p_about=create p_about
this.st_about=create st_about
this.st_new=create st_new
this.p_new=create p_new
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.p_left
this.Control[iCurrent+2]=this.p_right
this.Control[iCurrent+3]=this.p_middle
this.Control[iCurrent+4]=this.tv_func
this.Control[iCurrent+5]=this.tab_1
this.Control[iCurrent+6]=this.p_sfqr
this.Control[iCurrent+7]=this.st_sfqr
this.Control[iCurrent+8]=this.p_dysz
this.Control[iCurrent+9]=this.st_dysz
this.Control[iCurrent+10]=this.p_help
this.Control[iCurrent+11]=this.st_help
this.Control[iCurrent+12]=this.p_exit
this.Control[iCurrent+13]=this.st_exit
this.Control[iCurrent+14]=this.p_about
this.Control[iCurrent+15]=this.st_about
this.Control[iCurrent+16]=this.st_new
this.Control[iCurrent+17]=this.p_new
end on

on w_q6_main.destroy
call super::destroy
if IsValid(MenuID) then destroy(MenuID)
destroy(this.p_left)
destroy(this.p_right)
destroy(this.p_middle)
destroy(this.tv_func)
destroy(this.tab_1)
destroy(this.p_sfqr)
destroy(this.st_sfqr)
destroy(this.p_dysz)
destroy(this.st_dysz)
destroy(this.p_help)
destroy(this.st_help)
destroy(this.p_exit)
destroy(this.st_exit)
destroy(this.p_about)
destroy(this.st_about)
destroy(this.st_new)
destroy(this.p_new)
end on

event resize;call super::resize;p_right.x = this.workspacewidth() - p_right.width
p_middle.width = this.width - p_left.width - p_right.width

tv_func.height = this.workspaceheight() - tv_func.y - 10

tab_1.width = this.workspacewidth() - tab_1.x - 10
tab_1.height = this.workspaceheight() - tab_1.y - 10

//快捷方式
tab_1.tabpage_1.lv_shortcut.width = tab_1.tabpage_1.width - 10

//消息
tab_1.tabpage_1.dw_2.x = tab_1.tabpage_1.st_msg_title.x - 50
tab_1.tabpage_1.dw_2.y = tab_1.tabpage_1.st_msg_title.y + 116
tab_1.tabpage_1.dw_2.height = tab_1.tabpage_1.height - tab_1.tabpage_1.dw_2.y - 50
tab_1.tabpage_1.dw_2.width  = tab_1.tabpage_1.width - tab_1.tabpage_1.dw_2.x - 50

tab_1.tabpage_1.dw_2.object.s_msg.width = tab_1.tabpage_1.dw_2.width - 150

tab_1.tabpage_1.st_no_mess_warp.x  = tab_1.tabpage_1.dw_2.x
tab_1.tabpage_1.st_no_mess_warp.y  = tab_1.tabpage_1.dw_2.y
tab_1.tabpage_1.st_no_mess_warp.height = tab_1.tabpage_1.height - tab_1.tabpage_1.dw_2.y - 50
tab_1.tabpage_1.st_no_mess_warp.width  = tab_1.tabpage_1.width - tab_1.tabpage_1.dw_2.x - 50

tab_1.tabpage_1.st_no_mess.x = tab_1.tabpage_1.st_no_mess_warp.x + tab_1.tabpage_1.st_no_mess_warp.width / 2 - tab_1.tabpage_1.st_no_mess.width / 2
tab_1.tabpage_1.st_no_mess.y = tab_1.tabpage_1.st_no_mess_warp.y + tab_1.tabpage_1.st_no_mess_warp.height / 2 - tab_1.tabpage_1.st_no_mess.height / 2


//ico
st_exit.X = THIS.workspacewidth() - st_exit.Width - 100
p_exit.X = st_exit.X - p_exit.Width - 10
 
st_about.X = p_exit.X - st_about.Width - 78
p_about.X = st_about.X - p_about.Width - 10

st_help.X = p_about.X - st_help.Width - 78
p_help.X = st_help.X - p_help.Width - 10


st_dysz.X = p_help.X - st_dysz.Width - 78
p_dysz.X = st_dysz.X - p_dysz.Width - 10

st_sfqr.X = p_dysz.X - st_sfqr.Width - 78
p_sfqr.X = st_sfqr.X - p_sfqr.Width - 10

st_new.X = p_sfqr.X - st_new.Width - 78
p_new.X = st_new.X - p_new.Width - 10


//sale

tab_1.tabpage_2.dw_sale_rece.Height = (tab_1.tabpage_2.Height - 200 - 140) / 2
tab_1.tabpage_2.dw_sale_msg.Height = tab_1.tabpage_2.dw_sale_rece.Height

tab_1.tabpage_2.r_8.Y = tab_1.tabpage_2.dw_sale_rece.Y + tab_1.tabpage_2.dw_sale_rece.Height + 5
tab_1.tabpage_2.st_13.Y = tab_1.tabpage_2.r_8.Y + 16
tab_1.tabpage_2.p_12.Y = tab_1.tabpage_2.r_8.Y + 20
tab_1.tabpage_2.st_12.Y = tab_1.tabpage_2.r_8.Y + 28
tab_1.tabpage_2.p_13.Y = tab_1.tabpage_2.r_8.Y + 20
tab_1.tabpage_2.st_more_sales.Y = tab_1.tabpage_2.r_8.Y + 28

tab_1.tabpage_2.dw_sale_send.Y = tab_1.tabpage_2.r_8.Y + tab_1.tabpage_2.r_8.Height - 4
tab_1.tabpage_2.dw_sale_send.Height = tab_1.tabpage_2.Height - tab_1.tabpage_2.dw_sale_send.Y// - 140


tab_1.tabpage_2.dw_sale_rece.width = tab_1.tabpage_2.width - tab_1.tabpage_2.dw_sale_msg.width - 9
tab_1.tabpage_2.dw_sale_send.width = tab_1.tabpage_2.width //- 10
tab_1.tabpage_2.r_8.width = tab_1.tabpage_2.dw_sale_send.width
tab_1.tabpage_2.r_4.width = tab_1.tabpage_2.dw_sale_rece.width

tab_1.tabpage_2.dw_sale_msg.x = tab_1.tabpage_2.dw_sale_rece.x + tab_1.tabpage_2.dw_sale_rece.width + 9
tab_1.tabpage_2.r_6.x = tab_1.tabpage_2.dw_sale_msg.x 
tab_1.tabpage_2.st_14.X = tab_1.tabpage_2.r_6.X + 23

tab_1.tabpage_2.p_salemsg.x = tab_1.tabpage_2.st_14.X + 329
tab_1.tabpage_2.st_salemsg.x = tab_1.tabpage_2.st_14.X + 410

tab_1.tabpage_2.p_mng_sale.x = tab_1.tabpage_2.st_14.X + 604 //tab_1.tabpage_2.st_salemsg.x + 188
tab_1.tabpage_2.st_mng_sale.x = tab_1.tabpage_2.st_14.X + 677 //tab_1.tabpage_2.st_salemsg.x + 270

tab_1.tabpage_2.p_salemsg_retrieve.x = tab_1.tabpage_2.st_14.X + 937 //tab_1.tabpage_2.st_mng_sale.x + 233
tab_1.tabpage_2.st_salemsg_retrieve.x = tab_1.tabpage_2.st_14.X + 1010 //tab_1.tabpage_2.st_mng_sale.x + 306


//buy
tab_1.tabpage_3.dw_buy_feedback.Height = (tab_1.tabpage_3.Height - 200 - 140) / 2
tab_1.tabpage_3.dw_buy_msg.Height = tab_1.tabpage_3.dw_buy_feedback.Height
tab_1.tabpage_3.dw_buy_feedback.width = tab_1.tabpage_3.width - tab_1.tabpage_3.dw_buy_msg.width - 9 

tab_1.tabpage_3.dw_buy_msg.x = tab_1.tabpage_3.dw_buy_feedback.x + tab_1.tabpage_3.dw_buy_feedback.width + 9


tab_1.tabpage_3.r_5.Y = tab_1.tabpage_3.dw_buy_feedback.Y + tab_1.tabpage_3.dw_buy_feedback.Height + 5
tab_1.tabpage_3.st_16.Y = tab_1.tabpage_3.r_5.Y + 16
tab_1.tabpage_3.p_15.Y = tab_1.tabpage_3.r_5.Y + 20
tab_1.tabpage_3.st_retrieve_buy.Y = tab_1.tabpage_3.r_5.Y + 28
tab_1.tabpage_3.p_11.Y = tab_1.tabpage_3.r_5.Y + 20
tab_1.tabpage_3.st_more_buys.Y = tab_1.tabpage_3.r_5.Y + 28

tab_1.tabpage_3.dw_buy_send.Y = tab_1.tabpage_3.r_5.Y + tab_1.tabpage_3.r_5.Height - 4
tab_1.tabpage_3.dw_buy_send.Height = tab_1.tabpage_3.Height - tab_1.tabpage_3.dw_buy_send.Y// - 140
tab_1.tabpage_3.dw_buy_send.width = tab_1.tabpage_3.width
tab_1.tabpage_3.r_5.width = tab_1.tabpage_3.dw_buy_send.width

tab_1.tabpage_3.r_9.width = tab_1.tabpage_3.dw_buy_feedback.width
tab_1.tabpage_3.r_7.x = tab_1.tabpage_3.dw_buy_msg.x

tab_1.tabpage_3.st_17.X = tab_1.tabpage_3.r_7.X + 10
tab_1.tabpage_3.p_buymsg.x = tab_1.tabpage_3.st_17.X + 374
tab_1.tabpage_3.st_buymsg.x = tab_1.tabpage_3.st_17.X + 457

tab_1.tabpage_3.p_mng_buy.x = tab_1.tabpage_3.st_17.X + 630 //tab_1.tabpage_3.st_buymsg.x + 178
tab_1.tabpage_3.st_mng_buy.x = tab_1.tabpage_3.st_17.X + 705 //tab_1.tabpage_3.st_buymsg.x + 261

tab_1.tabpage_3.p_buymsg_retrieve.x = tab_1.tabpage_3.st_17.X + 950 //tab_1.tabpage_3.st_mng_buy.x + 228
tab_1.tabpage_3.st_buymsg_retrieve.x = tab_1.tabpage_3.st_17.X + 1020 //tab_1.tabpage_3.st_mng_buy.x + 301

end event

event open;call super::open;f_refresh_mainwin_title(w_q6_main)

dw_guide = tab_1.tabpage_1.dw_1
tab_1.tabpage_1.dw_2.settransobject(sqlca)
tab_1.tabpage_1.dw_1.insertrow(0)
wf_refresh_shortcut()
wf_build_menutree()
wf_retr_msg()
//初始化导航图用到的菜单
wf_init_menu()
end event

event close;call super::close;destroy om_biz_rp
destroy om_buy_rp
destroy om_ware_rp
destroy om_cw_rp
destroy om_jg_rp
destroy om_rsgz_rp
destroy om_sale_rp

destroy om_buy_fz
destroy om_ware_fz
destroy om_cw_fz
destroy om_jg_fz
destroy om_sale_fz
end event

event closequery;call super::closequery;IF  MessageBox("提示", "确定要退出本系统吗?", Question!, OKCancel!, 2) = 1 THEN
	f_terminate_l1()
	// 断开设备及清理内存
	uo_cc301_ins.closedevice( ); 
	destroy uo_cc301_ins; 
	
	HALT
	
ELSE
	RETURN 1
END IF
end event

type cb_func from w_publ_base`cb_func within w_q6_main
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_q6_main
boolean visible = false
end type

type p_left from picture within w_q6_main
integer width = 1111
integer height = 200
boolean bringtotop = true
string picturename = "q6bar_left.bmp"
boolean focusrectangle = false
end type

type p_right from picture within w_q6_main
integer x = 2496
integer width = 2619
integer height = 200
boolean bringtotop = true
string picturename = "q6bar_right.bmp"
boolean focusrectangle = false
end type

type p_middle from picture within w_q6_main
integer x = 1111
integer width = 1385
integer height = 200
boolean bringtotop = true
string picturename = "q6bar_middle.bmp"
boolean focusrectangle = false
end type

type tv_func from treeview within w_q6_main
event ue_add_shortcut ( )
integer x = 9
integer y = 208
integer width = 1106
integer height = 2576
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean border = false
boolean haslines = false
boolean disabledragdrop = false
string picturename[] = {"q6logo.ico","graphics\folder_v3.bmp","graphics\folder_g_v3.bmp","graphics\power_v3.bmp","graphics\icon_00.png","graphics\icon_01.png","graphics\icon_02.png","graphics\icon_03.png","graphics\icon_04.png","graphics\icon_05.png","graphics\icon_06.png","graphics\icon_07.png","graphics\icon_08.png","graphics\icon_09.png","graphics\icon_plug.png"}
integer picturewidth = 16
integer pictureheight = 16
long picturemaskcolor = 536870912
long statepicturemaskcolor = 536870912
end type

event ue_add_shortcut();Long ll_hand,funcid
treeviewitem tvi
String arg_msg
s_sys_func s_lss
listviewitem lv_li
uo_userpwr uo_user
uo_user = Create uo_userpwr

ll_hand = This.FindItem(CurrentTreeItem!,0)

This.GetItem(ll_hand,tvi)
s_lss = tvi.Data
funcid = s_lss.funcid
IF funcid > 0 THEN
	IF s_lss.functype <> 8 THEN RETURN
	IF uo_user.add_shortcut(sys_scid,sys_empid,funcid,arg_msg,True) = 0 THEN
		MessageBox('提示',arg_msg, Information!, OK! )
	ELSE
		wf_refresh_shortcut()
	END IF
END IF
Destroy uo_userpwr

end event

event doubleclicked;Long ll_hand,mainid,wintype,functype
string treename
treeviewitem tvi
s_sys_func s_lss

ll_hand = THIS.FindItem(currenttreeitem!,0)
THIS.GetItem(ll_hand,tvi)
s_lss = tvi.Data
mainid = s_lss.mainid
treename = s_lss.treename
functype = s_lss.functype

IF mainid > 0 AND functype <> 2 and functype <> 3  THEN
	
	IF Pos(treename,'(嵌入式)') > 0 THEN
		PARENT.PostEvent('ue_main_meun_report',0,mainid)
	ELSEIF Pos(treename,'(外挂)') > 0 THEN
		PARENT.PostEvent('ue_main_meun_plugins',0,mainid)
	ELSE
		PARENT.PostEvent('ue_main_menu_commnd',0,mainid)
		RETURN 1
	END IF
END IF
end event

event clicked;treeviewitem tvi
s_sys_func s_lss
Long funcid ,parentid
String arg_dwname

If This.GetItem(Handle,tvi) = -1 Then Return
s_lss = tvi.Data
funcid = s_lss.funcid
parentid = s_lss.parentid

arg_dwname = wf_retr_guide(funcid,parentid)

If dw_guide.DataObject <> arg_dwname and arg_dwname <> '' Then
	dw_guide.DataObject = arg_dwname
	dw_guide.InsertRow(0)
End If

end event

event rightclicked;//IF Handle <= 0 THEN RETURN
//il_handle = Handle
//THIS.SelectItem(il_handle)
//m_popup_shortcut_add om_1
//om_1 = CREATE m_popup_shortcut_add
////把菜单的anyobject指向被右击的对象(dw_1)
//om_1.anyobject = THIS
////om_1.setmenuitem("添加子项|添加兄弟|编辑|-|删除")
////可在此调用om_1.setitemdisable(itemorder)函数disable某菜单项。
//om_1.popupmenu(THIS.X+THIS.PointerX(),THIS.Y+THIS.PointerY())
//
//DESTROY om_1



Long ll_hand,mainid,functype,if_navigation,funcid,parentid
string arg_dwname
treeviewitem tvi
s_sys_func s_lss

IF THIS.GetItem(Handle,tvi) = -1 THEN RETURN
s_lss = tvi.Data
mainid = s_lss.mainid
functype = s_lss.functype
funcid = s_lss.funcid
parentid = s_lss.parentid

arg_dwname = wf_retr_guide(funcid,parentid)

If dw_guide.DataObject <> arg_dwname and arg_dwname <> '' Then
	dw_guide.DataObject = arg_dwname
	dw_guide.InsertRow(0)
End If

IF mainid > 0 AND functype <> 0 and functype <> 2 and functype <> 3   THEN
	IF Handle <= 0 THEN RETURN
	THIS.SelectItem(Handle)
	m_popup_shortcut_add_q6 om_1
	om_1 = CREATE m_popup_shortcut_add_q6
	//把菜单的anyobject指向被右击的对象(dw_1)
	om_1.anyobject = THIS
	//om_1.setmenuitem("添加子项|添加兄弟|编辑|-|删除")
	//可在此调用om_1.setitemdisable(itemorder)函数disable某菜单项。
	om_1.popupmenu(THIS.X+THIS.PointerX(),THIS.Y+THIS.PointerY())
	
	DESTROY om_1
	//	RETURN
ELSE
	THIS.SelectItem(Handle)
END IF







end event

type tab_1 from tab within w_q6_main
integer x = 1125
integer y = 208
integer width = 3963
integer height = 2572
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean raggedright = true
boolean boldselectedtext = true
integer selectedtab = 1
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
end type

on tab_1.create
this.tabpage_1=create tabpage_1
this.tabpage_2=create tabpage_2
this.tabpage_3=create tabpage_3
this.Control[]={this.tabpage_1,&
this.tabpage_2,&
this.tabpage_3}
end on

on tab_1.destroy
destroy(this.tabpage_1)
destroy(this.tabpage_2)
destroy(this.tabpage_3)
end on

event selectionchanged;IF tab_1.SelectedTab = 1 THEN
	tab_1.tabpage_1.TabTextColor = RGB(0, 120, 174)
	tab_1.tabpage_2.TabTextColor = RGB(100,100,100)
	tab_1.tabpage_3.TabTextColor = RGB(100,100,100)
elseif tab_1.SelectedTab = 2 THEN
	

	tab_1.tabpage_1.TabTextColor = RGB(100,100,100)
	tab_1.tabpage_2.TabTextColor =RGB(0, 120, 174) 
	tab_1.tabpage_3.TabTextColor = RGB(100,100,100)


elseif  tab_1.SelectedTab = 3 THEN
	tab_1.tabpage_1.TabTextColor = RGB(100,100,100)
	tab_1.tabpage_2.TabTextColor =RGB(100,100,100)
	tab_1.tabpage_3.TabTextColor = RGB(0, 120, 174) 
	
	
END IF

end event

type tabpage_1 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3927
integer height = 2460
long backcolor = 16777215
string text = "日常办公"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
long picturemaskcolor = 536870912
st_4 st_4
st_retr_msg st_retr_msg
p_retr_msg p_retr_msg
st_msg_mng st_msg_mng
p_msg_mng p_msg_mng
st_msg_new st_msg_new
p_msg_new p_msg_new
p_1 p_1
st_3 st_3
st_no_mess st_no_mess
dw_2 dw_2
dw_1 dw_1
st_msg_title st_msg_title
st_2 st_2
st_1 st_1
lv_shortcut lv_shortcut
st_no_mess_warp st_no_mess_warp
end type

on tabpage_1.create
this.st_4=create st_4
this.st_retr_msg=create st_retr_msg
this.p_retr_msg=create p_retr_msg
this.st_msg_mng=create st_msg_mng
this.p_msg_mng=create p_msg_mng
this.st_msg_new=create st_msg_new
this.p_msg_new=create p_msg_new
this.p_1=create p_1
this.st_3=create st_3
this.st_no_mess=create st_no_mess
this.dw_2=create dw_2
this.dw_1=create dw_1
this.st_msg_title=create st_msg_title
this.st_2=create st_2
this.st_1=create st_1
this.lv_shortcut=create lv_shortcut
this.st_no_mess_warp=create st_no_mess_warp
this.Control[]={this.st_4,&
this.st_retr_msg,&
this.p_retr_msg,&
this.st_msg_mng,&
this.p_msg_mng,&
this.st_msg_new,&
this.p_msg_new,&
this.p_1,&
this.st_3,&
this.st_no_mess,&
this.dw_2,&
this.dw_1,&
this.st_msg_title,&
this.st_2,&
this.st_1,&
this.lv_shortcut,&
this.st_no_mess_warp}
end on

on tabpage_1.destroy
destroy(this.st_4)
destroy(this.st_retr_msg)
destroy(this.p_retr_msg)
destroy(this.st_msg_mng)
destroy(this.p_msg_mng)
destroy(this.st_msg_new)
destroy(this.p_msg_new)
destroy(this.p_1)
destroy(this.st_3)
destroy(this.st_no_mess)
destroy(this.dw_2)
destroy(this.dw_1)
destroy(this.st_msg_title)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.lv_shortcut)
destroy(this.st_no_mess_warp)
end on

type st_4 from statictext within tabpage_1
integer x = 987
integer y = 2204
integer width = 457
integer height = 76
integer textsize = -10
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "微软雅黑"
long textcolor = 8421504
long backcolor = 16777215
string text = "暂时没有资讯"
alignment alignment = center!
boolean focusrectangle = false
end type

type st_retr_msg from statictext within tabpage_1
integer x = 2962
integer y = 440
integer width = 128
integer height = 56
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string pointer = "HyperLink!"
long textcolor = 8421504
long backcolor = 16777215
string text = "刷新"
boolean focusrectangle = false
end type

event clicked;wf_retr_msg()
end event

type p_retr_msg from picture within tabpage_1
integer x = 2880
integer y = 432
integer width = 73
integer height = 64
string pointer = "HyperLink!"
boolean originalsize = true
string picturename = "graphics\retrieve_q6.png"
boolean focusrectangle = false
end type

event clicked;tab_1.tabpage_1.st_retr_msg.triggerevent(clicked!)
end event

type st_msg_mng from statictext within tabpage_1
integer x = 3515
integer y = 440
integer width = 261
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string pointer = "HyperLink!"
long textcolor = 8421504
long backcolor = 16777215
string text = "消息管理"
boolean focusrectangle = false
end type

event clicked;s_edit_index_tran s_msg_tran
openwithparm(w_msg_newstyle,s_msg_tran)
end event

type p_msg_mng from picture within tabpage_1
integer x = 3438
integer y = 432
integer width = 69
integer height = 64
string pointer = "HyperLink!"
string picturename = "graphics\more_v3.png"
boolean focusrectangle = false
end type

event clicked;tab_1.tabpage_1.st_msg_mng.triggerevent(clicked!)
end event

type st_msg_new from statictext within tabpage_1
integer x = 3205
integer y = 440
integer width = 174
integer height = 52
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string pointer = "HyperLink!"
long textcolor = 8421504
long backcolor = 16777215
string text = "发消息"
boolean focusrectangle = false
end type

event clicked;s_admsg s_msg
s_msg.ifback = 0 
//openwithparm(w_msg_send,s_msg)
openwithparm(w_msg_send_normal,s_msg)
end event

type p_msg_new from picture within tabpage_1
integer x = 3122
integer y = 432
integer width = 82
integer height = 60
string pointer = "HyperLink!"
string picturename = "graphics\post_v3.png"
boolean focusrectangle = false
end type

event clicked;tab_1.tabpage_1.st_msg_new.triggerevent(clicked!)
end event

type p_1 from picture within tabpage_1
integer x = 315
integer y = 20
integer width = 69
integer height = 52
string picturename = "kind_2.png"
boolean focusrectangle = false
end type

type st_3 from statictext within tabpage_1
integer x = 384
integer y = 24
integer width = 928
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 8421504
long backcolor = 16777215
string text = "右键点击左边功能树可添加快捷方式"
boolean focusrectangle = false
end type

type st_no_mess from statictext within tabpage_1
boolean visible = false
integer x = 3003
integer y = 776
integer width = 457
integer height = 76
integer textsize = -10
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "微软雅黑"
long textcolor = 8421504
long backcolor = 33093365
string text = "没有待确认消息"
alignment alignment = center!
boolean focusrectangle = false
end type

type dw_2 from datawindow within tabpage_1
integer x = 2651
integer y = 1040
integer width = 1202
integer height = 1376
integer taborder = 40
string title = "none"
string dataobject = "dw_mainface_msg_q6"
boolean vscrollbar = true
boolean border = false
boolean livescroll = true
end type

event clicked;If row <= 0 Then Return

Long ll_scid,ll_msgid
String ls_code
Long rslt = 1,ll_empid,ll_senddtint
String arg_msg
If dwo.Name = 'billcode' Then
	ll_scid = This.Object.scid[row]
	ls_code = This.Object.billcode[row]
	
	If ls_code <> '' Then
		f_open_win(ll_scid,ls_code)
	End If
ElseIf dwo.Name = 't_deal' Then
	ll_msgid = This.Object.msgid[row]
	ll_empid = This.Object.empid[row]
	ll_senddtint = This.Object.senddtint[row]
	
	rslt = uo_msg.f_redeal_admsg(ll_msgid,ll_senddtint,ll_empid,arg_msg,True)
	If rslt = 0 Then
		MessageBox('系统提示',arg_msg)
	Else
		This.Object.dealflag[row] = 1
	End If
elseif dwo.name = 'fjstr' or dwo.name = 'p_fj' then 
		s_edit_index_tran s_fj_open
		s_fj_open.b_long = this.object.msgid[row]
		
		openwithparm(w_msg_fj_view_newstyle,s_fj_open)
	
Else
	ll_msgid = This.Object.msgid[row]
	
	s_edit_index_tran s_msg_tran
	s_msg_tran.b_string = This.Object.sendemp[row]
	s_msg_tran.b_long = ll_msgid
	
	OpenWithParm(w_msg_newstyle,s_msg_tran)
	
End If



end event

type dw_1 from datawindow within tabpage_1
integer x = 9
integer y = 420
integer width = 2633
integer height = 1544
integer taborder = 30
string title = "none"
string dataobject = "dw_main_child_in"
boolean border = false
boolean livescroll = true
end type

event clicked;string ls_name
ls_name = dwo.Name
string ls_tag,ll_x,ll_y
long ll_mainid

ls_tag = this.Describe(ls_name+".Tag")
ll_x = this.Describe(ls_name+".x")
ll_y = this.Describe(ls_name+".y")

if trim(ls_tag) <> '' then 
	ll_mainid = long(ls_tag)
end if

if ll_mainid > 0 then 
//	if ll_mainid = 99999 then 
//		//更多报表
//		m_sale_rp om_1
//		om_1 = CREATE m_sale_rp
//		om_1.PopMenu(tab_1.X+this.x + long(ll_x),tab_1.Y+this.y+long(ll_y) + 150)
//		DESTROY om_1
//	elseif ll_mainid = 88888 then 
//		//辅助功能
//		choose case this.dataobject 
//			case 'dw_main_child_jg'
//				m_jg_fz om_jg_fz
//				om_jg_fz = CREATE m_jg_fz
//				om_jg_fz.PopMenu(tab_1.X+this.x + long(ll_x),tab_1.Y+this.y+long(ll_y) + 150)
//				DESTROY om_jg_fz
//		end choose

	if ll_mainid > 10000 then 
		wf_handle_click_guide(ll_mainid,this.dataobject ,tab_1.X+this.x + long(ll_x),tab_1.Y+this.y+long(ll_y) + 150)
	
	else
		f_sys_main(ll_mainid)
	end if
end if
end event

type st_msg_title from statictext within tabpage_1
integer x = 2702
integer y = 424
integer width = 155
integer height = 64
integer textsize = -10
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "微软雅黑"
long textcolor = 33554432
long backcolor = 16777215
string text = "消息"
boolean focusrectangle = false
end type

type st_2 from statictext within tabpage_1
integer x = 46
integer y = 1984
integer width = 251
integer height = 64
integer textsize = -10
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "微软雅黑"
long textcolor = 33554432
long backcolor = 16777215
string text = "龙嘉资讯"
boolean focusrectangle = false
end type

type st_1 from statictext within tabpage_1
integer x = 46
integer y = 8
integer width = 261
integer height = 80
integer textsize = -10
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "微软雅黑"
long textcolor = 33554432
long backcolor = 16777215
string text = "快捷方式"
boolean focusrectangle = false
end type

type lv_shortcut from listview within tabpage_1
integer y = 120
integer width = 3639
integer height = 312
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean border = false
boolean autoarrange = true
boolean extendedselect = true
boolean showheader = false
boolean trackselect = true
boolean oneclickactivate = true
boolean twoclickactivate = true
boolean headerdragdrop = true
string largepicturename[] = {"graphics\icon_big_00.png","graphics\icon_big_01.png","graphics\icon_big_02.png","graphics\icon_big_03.png","graphics\icon_big_04.png","graphics\icon_big_05.png","graphics\icon_big_06.png","graphics\icon_big_07.png","graphics\icon_big_08.png","graphics\icon_big_09.png","graphics\icon_big_plug.png"}
long largepicturemaskcolor = 536870912
long smallpicturemaskcolor = 536870912
long statepicturemaskcolor = 536870912
end type

event doubleclicked;Long mainid
listviewitem l_lvi
s_sys_func s_lss
string ls_text, dsEventName

IF THIS.SelectedIndex() > 0 THEN
	THIS.GetItem(THIS.SelectedIndex(),l_lvi)
	s_lss = l_lvi.Data
	mainid = s_lss.mainid
	
	ls_text = l_lvi.label
	
	IF Pos(ls_text,'(嵌入式)') > 0 THEN
		dsEventName = 'ue_main_meun_report'
	ELSEIF Pos(ls_text,'(外挂)') > 0 THEN
		dsEventName = 'ue_main_meun_plugins'
	ELSE
		dsEventName = 'ue_main_menu_commnd'
	END IF
	
	PARENT.getparent().getparent().postEvent(dsEventName,mainid,mainid)
	
END IF


end event

event rightclicked;
m_Dfc_Control_PopupMenu dmPopupMenu
String menustr


menustr = "Text=删除快捷方式~tEvent=ue_del_shortcut"

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 st_no_mess_warp from statictext within tabpage_1
boolean visible = false
integer x = 2848
integer y = 872
integer width = 978
integer height = 308
integer textsize = -10
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "微软雅黑"
long textcolor = 33554432
long backcolor = 33093365
boolean focusrectangle = false
end type

type tabpage_2 from userobject within tab_1
event create ( )
event destroy ( )
integer x = 18
integer y = 96
integer width = 3927
integer height = 2460
long backcolor = 16777215
string text = "销售供应链"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
long picturemaskcolor = 536870912
r_8 r_8
r_6 r_6
r_4 r_4
st_salemsg_retrieve st_salemsg_retrieve
p_salemsg_retrieve p_salemsg_retrieve
st_mng_sale st_mng_sale
p_mng_sale p_mng_sale
st_salemsg st_salemsg
p_salemsg p_salemsg
st_14 st_14
dw_sale_msg dw_sale_msg
st_more_sale st_more_sale
p_9 p_9
st_mtrl_propel st_mtrl_propel
p_6 p_6
st_retrieve_sale_re st_retrieve_sale_re
p_7 p_7
st_15 st_15
dw_sale_rece dw_sale_rece
st_13 st_13
p_12 p_12
st_12 st_12
p_13 p_13
st_more_sales st_more_sales
dw_sale_send dw_sale_send
end type

on tabpage_2.create
this.r_8=create r_8
this.r_6=create r_6
this.r_4=create r_4
this.st_salemsg_retrieve=create st_salemsg_retrieve
this.p_salemsg_retrieve=create p_salemsg_retrieve
this.st_mng_sale=create st_mng_sale
this.p_mng_sale=create p_mng_sale
this.st_salemsg=create st_salemsg
this.p_salemsg=create p_salemsg
this.st_14=create st_14
this.dw_sale_msg=create dw_sale_msg
this.st_more_sale=create st_more_sale
this.p_9=create p_9
this.st_mtrl_propel=create st_mtrl_propel
this.p_6=create p_6
this.st_retrieve_sale_re=create st_retrieve_sale_re
this.p_7=create p_7
this.st_15=create st_15
this.dw_sale_rece=create dw_sale_rece
this.st_13=create st_13
this.p_12=create p_12
this.st_12=create st_12
this.p_13=create p_13
this.st_more_sales=create st_more_sales
this.dw_sale_send=create dw_sale_send
this.Control[]={this.r_8,&
this.r_6,&
this.r_4,&
this.st_salemsg_retrieve,&
this.p_salemsg_retrieve,&
this.st_mng_sale,&
this.p_mng_sale,&
this.st_salemsg,&
this.p_salemsg,&
this.st_14,&
this.dw_sale_msg,&
this.st_more_sale,&
this.p_9,&
this.st_mtrl_propel,&
this.p_6,&
this.st_retrieve_sale_re,&
this.p_7,&
this.st_15,&
this.dw_sale_rece,&
this.st_13,&
this.p_12,&
this.st_12,&
this.p_13,&
this.st_more_sales,&
this.dw_sale_send}
end on

on tabpage_2.destroy
destroy(this.r_8)
destroy(this.r_6)
destroy(this.r_4)
destroy(this.st_salemsg_retrieve)
destroy(this.p_salemsg_retrieve)
destroy(this.st_mng_sale)
destroy(this.p_mng_sale)
destroy(this.st_salemsg)
destroy(this.p_salemsg)
destroy(this.st_14)
destroy(this.dw_sale_msg)
destroy(this.st_more_sale)
destroy(this.p_9)
destroy(this.st_mtrl_propel)
destroy(this.p_6)
destroy(this.st_retrieve_sale_re)
destroy(this.p_7)
destroy(this.st_15)
destroy(this.dw_sale_rece)
destroy(this.st_13)
destroy(this.p_12)
destroy(this.st_12)
destroy(this.p_13)
destroy(this.st_more_sales)
destroy(this.dw_sale_send)
end on

event constructor;//if sys_option_if_ljfieb = 0 then this.visible = false
end event

type r_8 from rectangle within tabpage_2
long linecolor = 134217734
integer linethickness = 4
long fillcolor = 16777215
integer y = 948
integer width = 3319
integer height = 100
end type

event constructor;this.fillcolor = rgb(184,202,238)
end event

type r_6 from rectangle within tabpage_2
long linecolor = 8421504
integer linethickness = 4
long fillcolor = 16777215
integer x = 2299
integer y = 8
integer width = 1230
integer height = 100
end type

event constructor;this.fillcolor = rgb(184,202,238)
end event

type r_4 from rectangle within tabpage_2
long linecolor = 8421504
integer linethickness = 4
long fillcolor = 16777215
integer y = 8
integer width = 2290
integer height = 100
end type

event constructor;this.fillcolor = rgb(184,202,238)
end event

type st_salemsg_retrieve from uo_text_m_main within tabpage_2
integer x = 3360
integer y = 36
integer width = 137
integer height = 48
integer textsize = -9
string text = "刷新"
end type

event clicked;call super::clicked;wf_retrieve_sale_msg()
end event

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_salemsg_retrieve from picture within tabpage_2
integer x = 3282
integer y = 28
integer width = 73
integer height = 64
boolean originalsize = true
string picturename = "graphics/refresh_m.BMP"
boolean focusrectangle = false
end type

type st_mng_sale from uo_text_m_main within tabpage_2
integer x = 3040
integer y = 36
integer width = 242
integer height = 48
integer textsize = -9
string text = "消息管理"
end type

event clicked;call super::clicked;openwithparm(w_message_mng_ljfieb,2)

wf_retrieve_sale_msg()
end event

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_mng_sale from picture within tabpage_2
integer x = 2962
integer y = 28
integer width = 73
integer height = 64
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics/open_m.bmp"
boolean focusrectangle = false
end type

event clicked;st_mng_sale.triggerevent(clicked!)
end event

type st_salemsg from uo_text_m_main within tabpage_2
integer x = 2784
integer y = 36
integer width = 174
integer height = 48
integer textsize = -9
string text = "发消息"
end type

event clicked;call super::clicked;IF Not f_power_ind(1595) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF


s_edit_index_tran s_buy_msg

s_buy_msg.b_long = 2
s_buy_msg.c_long = 0

openwithparm(w_msg_send_ljfieb,s_buy_msg)
end event

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_salemsg from picture within tabpage_2
integer x = 2702
integer y = 28
integer width = 73
integer height = 64
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics/new_m.BMP"
boolean focusrectangle = false
end type

event clicked;st_salemsg.triggerevent(clicked!)
end event

type st_14 from uo_text_m within tabpage_2
integer x = 2345
integer y = 32
integer width = 329
integer weight = 700
long textcolor = 0
string text = "客户消息"
end type

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type dw_sale_msg from datawindow within tabpage_2
integer x = 2299
integer y = 104
integer width = 1230
integer height = 828
integer taborder = 70
string title = "none"
string dataobject = "dw_ljfieb_sale_msg_mainface"
boolean vscrollbar = true
boolean livescroll = true
end type

event doubleclicked;parent.getparent().getparent().triggerevent('ue_sale_msg_view_ljfieb')
end event

event rowfocuschanged;IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

end event

type st_more_sale from uo_text_m_main within tabpage_2
integer x = 1125
integer y = 36
integer width = 370
integer height = 48
integer textsize = -9
long textcolor = 0
string text = "查看全部记录"
end type

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

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_9 from picture within tabpage_2
integer x = 1047
integer y = 28
integer width = 73
integer height = 64
boolean originalsize = true
string picturename = "graphics/open_m.bmp"
boolean focusrectangle = false
end type

event clicked;st_more_sale.triggerevent(clicked!)
end event

type st_mtrl_propel from uo_text_m_main within tabpage_2
integer x = 782
integer y = 36
integer width = 251
integer height = 48
integer textsize = -9
string text = "资料推送"
end type

event clicked;call super::clicked;IF Not f_power_ind(1575) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

open(w_mtrl_propel_ljfieb)
end event

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_6 from picture within tabpage_2
integer x = 704
integer y = 28
integer width = 73
integer height = 64
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics/update_m.BMP"
boolean focusrectangle = false
end type

event clicked;st_mtrl_propel.triggerevent(clicked!)
end event

type st_retrieve_sale_re from uo_text_m_main within tabpage_2
integer x = 553
integer y = 36
integer width = 155
integer height = 48
integer textsize = -9
string text = "刷新"
end type

event clicked;call super::clicked;wf_retrieve_sale_rece()
end event

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_7 from picture within tabpage_2
integer x = 475
integer y = 28
integer width = 73
integer height = 64
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics/refresh_m.BMP"
boolean focusrectangle = false
end type

event clicked;st_retrieve_sale_re.triggerevent(clicked!)
end event

type st_15 from uo_text_m within tabpage_2
integer x = 41
integer y = 24
integer width = 251
integer weight = 700
long textcolor = 0
string text = "待处理"
end type

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type dw_sale_rece from u_dw_rbtnfilter within tabpage_2
integer y = 104
integer width = 2290
integer height = 828
integer taborder = 40
string dataobject = "dw_ljfieb_sale_rece_mainface"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
borderstyle borderstyle = stylebox!
end type

event doubleclicked;call super::doubleclicked;parent.getparent().getparent().triggerevent('ue_buytask_rece_ljfieb')
end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

end event

type st_13 from uo_text_m within tabpage_2
integer x = 37
integer y = 964
integer width = 384
integer weight = 700
long textcolor = 0
string text = "待客户处理"
end type

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_12 from picture within tabpage_2
integer x = 475
integer y = 968
integer width = 73
integer height = 64
boolean originalsize = true
string picturename = "graphics/refresh_m.BMP"
boolean focusrectangle = false
end type

type st_12 from uo_text_m_main within tabpage_2
integer x = 553
integer y = 976
integer width = 123
integer height = 48
integer textsize = -9
string text = "刷新"
end type

event clicked;call super::clicked;wf_retrieve_sale_send()
end event

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_13 from picture within tabpage_2
integer x = 704
integer y = 968
integer width = 73
integer height = 64
boolean originalsize = true
string picturename = "graphics/open_m.bmp"
boolean focusrectangle = false
end type

type st_more_sales from uo_text_m_main within tabpage_2
integer x = 782
integer y = 976
integer width = 347
integer height = 48
integer textsize = -9
string text = "查看全部记录"
end type

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

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type dw_sale_send from u_dw_rbtnfilter within tabpage_2
integer y = 1044
integer width = 3493
integer height = 868
integer taborder = 40
string dataobject = "dw_ljfieb_sale_send_mainface"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
borderstyle borderstyle = stylebox!
end type

event doubleclicked;call super::doubleclicked;IF row <= 0 THEN RETURN

if this.object.ljfieb_packet_billtype[row] = 3 then return 

String ls_code,ls_sccode
Long ll_scid

ls_sccode = This.Object.ljfieb_packet_receivesccode[row]

SELECT scid
	INTO :ll_scid
	FROM u_scdef
	Where sccode = :ls_sccode;
IF sqlca.SQLCode <> 0 THEN ll_scid = 0

ls_code = This.Object.ljfieb_packet_relatedcode[row]

f_open_win(ll_scid,ls_code)

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

end event

type tabpage_3 from userobject within tab_1
event create ( )
event destroy ( )
integer x = 18
integer y = 96
integer width = 3927
integer height = 2460
long backcolor = 16777215
string text = "采购供应链"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
long picturemaskcolor = 536870912
r_7 r_7
st_buymsg_retrieve st_buymsg_retrieve
p_buymsg_retrieve p_buymsg_retrieve
st_mng_buy st_mng_buy
p_mng_buy p_mng_buy
st_buymsg st_buymsg
p_buymsg p_buymsg
st_17 st_17
st_more_buyfb st_more_buyfb
p_10 p_10
st_mtrl_receive st_mtrl_receive
p_14 p_14
st_retrieve_buy_re st_retrieve_buy_re
p_8 p_8
st_18 st_18
dw_buy_msg dw_buy_msg
dw_buy_feedback dw_buy_feedback
st_more_buys st_more_buys
p_11 p_11
st_retrieve_buy st_retrieve_buy
p_15 p_15
st_16 st_16
dw_buy_send dw_buy_send
r_5 r_5
r_9 r_9
end type

on tabpage_3.create
this.r_7=create r_7
this.st_buymsg_retrieve=create st_buymsg_retrieve
this.p_buymsg_retrieve=create p_buymsg_retrieve
this.st_mng_buy=create st_mng_buy
this.p_mng_buy=create p_mng_buy
this.st_buymsg=create st_buymsg
this.p_buymsg=create p_buymsg
this.st_17=create st_17
this.st_more_buyfb=create st_more_buyfb
this.p_10=create p_10
this.st_mtrl_receive=create st_mtrl_receive
this.p_14=create p_14
this.st_retrieve_buy_re=create st_retrieve_buy_re
this.p_8=create p_8
this.st_18=create st_18
this.dw_buy_msg=create dw_buy_msg
this.dw_buy_feedback=create dw_buy_feedback
this.st_more_buys=create st_more_buys
this.p_11=create p_11
this.st_retrieve_buy=create st_retrieve_buy
this.p_15=create p_15
this.st_16=create st_16
this.dw_buy_send=create dw_buy_send
this.r_5=create r_5
this.r_9=create r_9
this.Control[]={this.r_7,&
this.st_buymsg_retrieve,&
this.p_buymsg_retrieve,&
this.st_mng_buy,&
this.p_mng_buy,&
this.st_buymsg,&
this.p_buymsg,&
this.st_17,&
this.st_more_buyfb,&
this.p_10,&
this.st_mtrl_receive,&
this.p_14,&
this.st_retrieve_buy_re,&
this.p_8,&
this.st_18,&
this.dw_buy_msg,&
this.dw_buy_feedback,&
this.st_more_buys,&
this.p_11,&
this.st_retrieve_buy,&
this.p_15,&
this.st_16,&
this.dw_buy_send,&
this.r_5,&
this.r_9}
end on

on tabpage_3.destroy
destroy(this.r_7)
destroy(this.st_buymsg_retrieve)
destroy(this.p_buymsg_retrieve)
destroy(this.st_mng_buy)
destroy(this.p_mng_buy)
destroy(this.st_buymsg)
destroy(this.p_buymsg)
destroy(this.st_17)
destroy(this.st_more_buyfb)
destroy(this.p_10)
destroy(this.st_mtrl_receive)
destroy(this.p_14)
destroy(this.st_retrieve_buy_re)
destroy(this.p_8)
destroy(this.st_18)
destroy(this.dw_buy_msg)
destroy(this.dw_buy_feedback)
destroy(this.st_more_buys)
destroy(this.p_11)
destroy(this.st_retrieve_buy)
destroy(this.p_15)
destroy(this.st_16)
destroy(this.dw_buy_send)
destroy(this.r_5)
destroy(this.r_9)
end on

event constructor;//if sys_option_if_ljfieb = 0 then this.visible = false
end event

type r_7 from rectangle within tabpage_3
long linecolor = 134217734
integer linethickness = 4
long fillcolor = 12632256
integer x = 2299
integer y = 8
integer width = 1198
integer height = 100
end type

event constructor;this.fillcolor = rgb(184,202,238)
end event

type st_buymsg_retrieve from uo_text_m_main within tabpage_3
integer x = 3360
integer y = 36
integer width = 133
integer height = 48
integer textsize = -9
long backcolor = 12632256
string text = "刷新"
end type

event clicked;call super::clicked;wf_retrieve_buy_msg()
end event

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_buymsg_retrieve from picture within tabpage_3
integer x = 3282
integer y = 28
integer width = 73
integer height = 64
boolean originalsize = true
string picturename = "graphics/refresh_m.BMP"
boolean focusrectangle = false
end type

event clicked;st_buymsg_retrieve.triggerevent(clicked!)
end event

type st_mng_buy from uo_text_m_main within tabpage_3
integer x = 3040
integer y = 36
integer width = 238
integer height = 48
integer textsize = -9
long backcolor = 12632256
string text = "消息管理"
end type

event clicked;call super::clicked;openwithparm(w_message_mng_ljfieb,1)

wf_retrieve_buy_msg()
end event

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_mng_buy from picture within tabpage_3
integer x = 2962
integer y = 28
integer width = 73
integer height = 64
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics/open_m.bmp"
boolean focusrectangle = false
end type

event clicked;st_mng_buy.triggerevent(clicked!)
end event

type st_buymsg from uo_text_m_main within tabpage_3
integer x = 2784
integer y = 36
integer width = 174
integer height = 48
integer textsize = -9
long backcolor = 12632256
string text = "发消息"
end type

event clicked;call super::clicked;IF Not f_power_ind(1595) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF


s_edit_index_tran s_buy_msg

s_buy_msg.b_long = 1
s_buy_msg.c_long = 0

openwithparm(w_msg_send_ljfieb,s_buy_msg)
end event

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_buymsg from picture within tabpage_3
integer x = 2702
integer y = 28
integer width = 73
integer height = 64
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics/new_m.BMP"
boolean focusrectangle = false
end type

event clicked;st_buymsg.triggerevent(clicked!)
end event

type st_17 from uo_text_m within tabpage_3
integer x = 2318
integer y = 24
integer width = 375
integer weight = 700
long textcolor = 0
long backcolor = 12632256
string text = "供应商消息"
end type

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type st_more_buyfb from uo_text_m_main within tabpage_3
integer x = 1787
integer y = 36
integer width = 343
integer height = 48
integer textsize = -9
long backcolor = 12632256
string text = "查看全部记录"
end type

event clicked;call super::clicked;//open(w_ljfieb_buy_feedback_his)
end event

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_10 from picture within tabpage_3
integer x = 1710
integer y = 28
integer width = 73
integer height = 64
boolean originalsize = true
string picturename = "graphics/open_m.bmp"
boolean focusrectangle = false
end type

event clicked;st_more_buyfb.triggerevent(clicked!)
end event

type st_mtrl_receive from uo_text_m_main within tabpage_3
integer x = 782
integer y = 36
integer width = 923
integer height = 48
integer textsize = -9
long backcolor = 12632256
string text = "资料同步(没有可同步的资料)"
end type

event clicked;call super::clicked;IF Not f_power_ind(1586) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

open(w_mtrl_receive_ljfieb)

wf_retrieve_buy_feedback()
end event

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_14 from picture within tabpage_3
integer x = 704
integer y = 28
integer width = 73
integer height = 64
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics/update2_m.BMP"
boolean focusrectangle = false
end type

event clicked;st_mtrl_receive.triggerevent(clicked!)
end event

type st_retrieve_buy_re from uo_text_m_main within tabpage_3
integer x = 553
integer y = 36
integer width = 137
integer height = 48
integer textsize = -9
long backcolor = 12632256
string text = "刷新"
end type

event clicked;call super::clicked;wf_retrieve_buy_feedback()
end event

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_8 from picture within tabpage_3
integer x = 475
integer y = 28
integer width = 73
integer height = 64
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics/refresh_m.BMP"
boolean focusrectangle = false
end type

event clicked;st_retrieve_buy_re.triggerevent(clicked!)
end event

type st_18 from uo_text_m within tabpage_3
integer x = 41
integer y = 24
integer width = 251
integer weight = 700
long textcolor = 0
long backcolor = 12632256
string text = "待处理"
end type

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type dw_buy_msg from datawindow within tabpage_3
integer x = 2299
integer y = 104
integer width = 1198
integer height = 828
integer taborder = 80
string title = "none"
string dataobject = "dw_ljfieb_buy_msg_mainface"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean livescroll = true
end type

event doubleclicked;parent.getparent().getparent().triggerevent('ue_buy_msg_view_ljfieb')
end event

event rowfocuschanged;IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

end event

type dw_buy_feedback from u_dw_rbtnfilter within tabpage_3
integer y = 104
integer width = 2290
integer height = 828
integer taborder = 80
string dataobject = "dw_ljfieb_buy_feedback_mainface"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
borderstyle borderstyle = stylebox!
end type

event doubleclicked;call super::doubleclicked;parent.getparent().getparent().triggerevent('ue_buytask_feedback_ljfieb')
end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

end event

type st_more_buys from uo_text_m_main within tabpage_3
integer x = 782
integer y = 972
integer width = 361
integer height = 48
integer textsize = -9
long backcolor = 12632256
string text = "查看全部记录"
end type

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

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_11 from picture within tabpage_3
integer x = 704
integer y = 964
integer width = 73
integer height = 64
boolean originalsize = true
string picturename = "graphics/open_m.bmp"
boolean focusrectangle = false
end type

event clicked;st_more_buys.triggerevent(clicked!)
end event

type st_retrieve_buy from uo_text_m_main within tabpage_3
integer x = 553
integer y = 972
integer width = 146
integer height = 48
integer textsize = -9
long backcolor = 12632256
string text = "刷新"
end type

event clicked;call super::clicked;wf_retrieve_buy_send()
end event

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type p_15 from picture within tabpage_3
integer x = 475
integer y = 964
integer width = 73
integer height = 64
boolean originalsize = true
string picturename = "graphics/refresh_m.BMP"
boolean focusrectangle = false
end type

event clicked;st_retrieve_buy.triggerevent(clicked!)
end event

type st_16 from uo_text_m within tabpage_3
integer x = 27
integer y = 964
integer width = 448
integer weight = 700
long textcolor = 0
long backcolor = 12632256
string text = "待供应商处理"
end type

event constructor;call super::constructor;this.backcolor = rgb(184,202,238)
end event

type dw_buy_send from u_dw_rbtnfilter within tabpage_3
integer y = 1044
integer width = 3493
integer height = 868
integer taborder = 50
string dataobject = "dw_ljfieb_buy_send_mainface"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
borderstyle borderstyle = stylebox!
end type

event doubleclicked;call super::doubleclicked;IF row <= 0 THEN RETURN

String ls_code,ls_sccode
Long ll_scid

ls_sccode = This.Object.ljfieb_packet_receivesccode[row]

SELECT scid
	INTO :ll_scid
	FROM u_scdef
	Where sccode = :ls_sccode;
IF sqlca.SQLCode <> 0 THEN ll_scid = 0

ls_code = This.Object.ljfieb_packet_relatedcode[row]

f_open_win(ll_scid,ls_code)

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

end event

type r_5 from rectangle within tabpage_3
long linecolor = 134217734
integer linethickness = 4
long fillcolor = 12632256
integer y = 948
integer width = 3493
integer height = 100
end type

event constructor;this.fillcolor = rgb(184,202,238)
end event

type r_9 from rectangle within tabpage_3
long linecolor = 134217734
integer linethickness = 4
long fillcolor = 12632256
integer y = 8
integer width = 2290
integer height = 100
end type

event constructor;this.fillcolor = rgb(184,202,238)
end event

type p_sfqr from picture within w_q6_main
integer x = 3355
integer y = 220
integer width = 73
integer height = 64
boolean bringtotop = true
string pointer = "HyperLink!"
boolean originalsize = true
string picturename = "graphics\ic_user_q6.bmp"
boolean focusrectangle = false
end type

type st_sfqr from statictext within w_q6_main
integer x = 3438
integer y = 228
integer width = 443
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string pointer = "HyperLink!"
long textcolor = 33554432
long backcolor = 16777215
string text = "切换用户或帐套"
boolean focusrectangle = false
end type

event clicked;f_open(1)
end event

type p_dysz from picture within w_q6_main
integer x = 3922
integer y = 220
integer width = 73
integer height = 64
boolean bringtotop = true
string pointer = "HyperLink!"
boolean originalsize = true
string picturename = "graphics\ic_ie_q6.bmp"
boolean focusrectangle = false
end type

type st_dysz from statictext within w_q6_main
integer x = 4009
integer y = 228
integer width = 142
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string pointer = "HyperLink!"
long textcolor = 33554432
long backcolor = 16777215
string text = "官网"
boolean focusrectangle = false
end type

event clicked;If sys_ifoem = 0 Then
	run('explorer http://www.longjoe.com/')
else
	string ls_run
	ls_run = 'explorer '+ProfileString (sys_inioem, "oem", "website",'')
	run(ls_run)
end if
end event

type p_help from picture within w_q6_main
integer x = 4174
integer y = 220
integer width = 73
integer height = 64
boolean bringtotop = true
string pointer = "HyperLink!"
boolean originalsize = true
string picturename = "graphics\ic_help_q6.bmp"
boolean focusrectangle = false
end type

type st_help from statictext within w_q6_main
integer x = 4261
integer y = 228
integer width = 142
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string pointer = "HyperLink!"
long textcolor = 33554432
long backcolor = 16777215
string text = "帮助"
boolean focusrectangle = false
end type

event clicked;Int i
i = htmlhelpA(Handle(THIS), sys_help_chm, 0, "欢迎.htm")

end event

type p_exit from picture within w_q6_main
integer x = 4750
integer y = 224
integer width = 73
integer height = 64
boolean bringtotop = true
string pointer = "HyperLink!"
boolean originalsize = true
string picturename = "graphics\ic_exit_q6.bmp"
boolean focusrectangle = false
end type

type st_exit from statictext within w_q6_main
integer x = 4837
integer y = 228
integer width = 142
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string pointer = "HyperLink!"
long textcolor = 33554432
long backcolor = 16777215
string text = "退出"
boolean focusrectangle = false
end type

event clicked;close(parent)
end event

type p_about from picture within w_q6_main
integer x = 4448
integer y = 220
integer width = 73
integer height = 64
boolean bringtotop = true
string pointer = "HyperLink!"
boolean originalsize = true
string picturename = "graphics\ic_about_q6.bmp"
boolean focusrectangle = false
end type

type st_about from statictext within w_q6_main
integer x = 4535
integer y = 228
integer width = 142
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string pointer = "HyperLink!"
long textcolor = 33554432
long backcolor = 16777215
string text = "关于"
boolean focusrectangle = false
end type

event clicked;f_sys_main(805)
end event

type st_new from statictext within w_q6_main
integer x = 3095
integer y = 228
integer width = 192
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string pointer = "HyperLink!"
long textcolor = 33554432
long backcolor = 16777215
string text = "新特性"
boolean focusrectangle = false
end type

event clicked;open(w_whatsnew_q6)
end event

type p_new from picture within w_q6_main
integer x = 2999
integer y = 220
integer width = 73
integer height = 64
boolean bringtotop = true
string pointer = "HyperLink!"
boolean originalsize = true
string picturename = "graphics\ic_new_q6.bmp"
boolean focusrectangle = false
end type