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

$PBExportHeader$w_main_scware.srw
forward
global type w_main_scware from w_mface_base
end type
type mdi_1 from mdiclient within w_main_scware
end type
type cb_1 from commandbutton within w_main_scware
end type
type lb_1 from uo_ljnc_listbox within w_main_scware
end type
type p_lsgl from uo_picture_m within w_main_scware
end type
type tab_ljfieb from tab within w_main_scware
end type
type tabpage_msg from userobject within tab_ljfieb
end type
type r_2 from rectangle within tabpage_msg
end type
type dw_msg from datawindow within tabpage_msg
end type
type st_mana_msg from uo_text_m within tabpage_msg
end type
type p_mana_msg from picture within tabpage_msg
end type
type st_msg_new from uo_text_m within tabpage_msg
end type
type p_msg_new from picture within tabpage_msg
end type
type st_7 from uo_text_m within tabpage_msg
end type
type tabpage_msg from userobject within tab_ljfieb
r_2 r_2
dw_msg dw_msg
st_mana_msg st_mana_msg
p_mana_msg p_mana_msg
st_msg_new st_msg_new
p_msg_new p_msg_new
st_7 st_7
end type
type tabpage_sale from userobject within tab_ljfieb
end type
type r_6 from rectangle within tabpage_sale
end type
type r_8 from rectangle within tabpage_sale
end type
type r_4 from rectangle within tabpage_sale
end type
type dw_sale_rece from u_dw_rbtnfilter within tabpage_sale
end type
type st_15 from uo_text_m within tabpage_sale
end type
type st_retrieve_sale_re from uo_text_m_main within tabpage_sale
end type
type p_7 from picture within tabpage_sale
end type
type st_mtrl_propel from uo_text_m_main within tabpage_sale
end type
type p_6 from picture within tabpage_sale
end type
type st_more_sale from uo_text_m_main within tabpage_sale
end type
type p_9 from picture within tabpage_sale
end type
type st_14 from uo_text_m within tabpage_sale
end type
type dw_sale_msg from datawindow within tabpage_sale
end type
type st_salemsg from uo_text_m_main within tabpage_sale
end type
type p_salemsg from picture within tabpage_sale
end type
type st_mng_sale from uo_text_m_main within tabpage_sale
end type
type p_mng_sale from picture within tabpage_sale
end type
type st_salemsg_retrieve from uo_text_m_main within tabpage_sale
end type
type p_salemsg_retrieve from picture within tabpage_sale
end type
type dw_sale_send from u_dw_rbtnfilter within tabpage_sale
end type
type st_13 from uo_text_m within tabpage_sale
end type
type st_12 from uo_text_m_main within tabpage_sale
end type
type p_12 from picture within tabpage_sale
end type
type st_more_sales from uo_text_m_main within tabpage_sale
end type
type p_13 from picture within tabpage_sale
end type
type tabpage_sale from userobject within tab_ljfieb
r_6 r_6
r_8 r_8
r_4 r_4
dw_sale_rece dw_sale_rece
st_15 st_15
st_retrieve_sale_re st_retrieve_sale_re
p_7 p_7
st_mtrl_propel st_mtrl_propel
p_6 p_6
st_more_sale st_more_sale
p_9 p_9
st_14 st_14
dw_sale_msg dw_sale_msg
st_salemsg st_salemsg
p_salemsg p_salemsg
st_mng_sale st_mng_sale
p_mng_sale p_mng_sale
st_salemsg_retrieve st_salemsg_retrieve
p_salemsg_retrieve p_salemsg_retrieve
dw_sale_send dw_sale_send
st_13 st_13
st_12 st_12
p_12 p_12
st_more_sales st_more_sales
p_13 p_13
end type
type tabpage_buy from userobject within tab_ljfieb
end type
type r_5 from rectangle within tabpage_buy
end type
type r_7 from rectangle within tabpage_buy
end type
type r_9 from rectangle within tabpage_buy
end type
type dw_buy_msg from datawindow within tabpage_buy
end type
type dw_buy_send from u_dw_rbtnfilter within tabpage_buy
end type
type st_16 from uo_text_m within tabpage_buy
end type
type st_retrieve_buy from uo_text_m_main within tabpage_buy
end type
type p_15 from picture within tabpage_buy
end type
type st_mtrl_receive from uo_text_m_main within tabpage_buy
end type
type p_14 from picture within tabpage_buy
end type
type dw_buy_feedback from u_dw_rbtnfilter within tabpage_buy
end type
type st_18 from uo_text_m within tabpage_buy
end type
type st_retrieve_buy_re from uo_text_m_main within tabpage_buy
end type
type p_8 from picture within tabpage_buy
end type
type st_more_buyfb from uo_text_m_main within tabpage_buy
end type
type p_10 from picture within tabpage_buy
end type
type st_more_buys from uo_text_m_main within tabpage_buy
end type
type p_11 from picture within tabpage_buy
end type
type st_17 from uo_text_m within tabpage_buy
end type
type st_buymsg from uo_text_m_main within tabpage_buy
end type
type p_buymsg from picture within tabpage_buy
end type
type st_mng_buy from uo_text_m_main within tabpage_buy
end type
type p_mng_buy from picture within tabpage_buy
end type
type st_buymsg_retrieve from uo_text_m_main within tabpage_buy
end type
type p_buymsg_retrieve from picture within tabpage_buy
end type
type tabpage_buy from userobject within tab_ljfieb
r_5 r_5
r_7 r_7
r_9 r_9
dw_buy_msg dw_buy_msg
dw_buy_send dw_buy_send
st_16 st_16
st_retrieve_buy st_retrieve_buy
p_15 p_15
st_mtrl_receive st_mtrl_receive
p_14 p_14
dw_buy_feedback dw_buy_feedback
st_18 st_18
st_retrieve_buy_re st_retrieve_buy_re
p_8 p_8
st_more_buyfb st_more_buyfb
p_10 p_10
st_more_buys st_more_buys
p_11 p_11
st_17 st_17
st_buymsg st_buymsg
p_buymsg p_buymsg
st_mng_buy st_mng_buy
p_mng_buy p_mng_buy
st_buymsg_retrieve st_buymsg_retrieve
p_buymsg_retrieve p_buymsg_retrieve
end type
type tab_ljfieb from tab within w_main_scware
tabpage_msg tabpage_msg
tabpage_sale tabpage_sale
tabpage_buy tabpage_buy
end type
type st_9 from uo_text_m within w_main_scware
end type
type p_shortcut from picture within w_main_scware
end type
type st_shortcut from uo_text_m within w_main_scware
end type
type sp_v1 from u_lbs_stsplitbar within w_main_scware
end type
type st_about from uo_text_m within w_main_scware
end type
type st_upload from uo_text_m within w_main_scware
end type
type st_user from uo_text_m within w_main_scware
end type
type st_longjoe from uo_text_m within w_main_scware
end type
type p_bar from picture within w_main_scware
end type
type p_scgl from uo_picture_m within w_main_scware
end type
type p_zlgl from uo_picture_m within w_main_scware
end type
type p_xtwh from uo_picture_m within w_main_scware
end type
type p_ckgl from uo_picture_m within w_main_scware
end type
type p_cggl from uo_picture_m within w_main_scware
end type
type p_xsgl from uo_picture_m within w_main_scware
end type
type p_rsgz from uo_picture_m within w_main_scware
end type
type p_wxgl from uo_picture_m within w_main_scware
end type
type p_cwgl from uo_picture_m within w_main_scware
end type
type p_bom from picture within w_main_scware
end type
type p_left from picture within w_main_scware
end type
type r_shortcut from rectangle within w_main_scware
end type
type lv_shortcut from listview within w_main_scware
end type
type cb_2 from uo_imflatbutton within w_main_scware
end type
end forward

global type w_main_scware from w_mface_base
integer x = 0
integer y = 4
integer width = 4635
integer height = 3360
string title = "龙嘉企精灵V5.0"
string menuname = "m_x_genapp_frame_sp1"
windowtype windowtype = mdihelp!
windowstate windowstate = maximized!
boolean center = true
event ue_main_menu_commnd ( long arg_funcid )
event ue_add_shortcut ( )
event ue_del_shortcut ( )
event ue_set_small ( )
event ue_set_large ( )
event ue_buytask_feedback_ljfieb ( )
event ue_buy_msg_view_ljfieb ( )
event ue_buytask_rece_ljfieb ( )
event ue_sale_msg_view_ljfieb ( )
event ue_main_meun_plugins ( long arg_mainid )
mdi_1 mdi_1
cb_1 cb_1
lb_1 lb_1
p_lsgl p_lsgl
tab_ljfieb tab_ljfieb
st_9 st_9
p_shortcut p_shortcut
st_shortcut st_shortcut
sp_v1 sp_v1
st_about st_about
st_upload st_upload
st_user st_user
st_longjoe st_longjoe
p_bar p_bar
p_scgl p_scgl
p_zlgl p_zlgl
p_xtwh p_xtwh
p_ckgl p_ckgl
p_cggl p_cggl
p_xsgl p_xsgl
p_rsgz p_rsgz
p_wxgl p_wxgl
p_cwgl p_cwgl
p_bom p_bom
p_left p_left
r_shortcut r_shortcut
lv_shortcut lv_shortcut
cb_2 cb_2
end type
global w_main_scware w_main_scware

type variables
Int cur_group = 1 //当前的功能组ID
Long deep = 0

//Long ins_x,ins_y

Int retrieve_mm = 10
String Is_Show
Boolean viewhis = TRUE
Boolean ShowTab = False

Int lv_shortcut_type
long lv_Shortcut_funcid_arr[]
long lv_Shortcut_funcid_cnt
long lv_Shortcut_oldindex

long sp_v1_x
uo_transmsg uo_msg
Int ls_dealflag


string cur_ActiveWin = "OP"

//tabpage_1
datawindow dw_sale_rece, dw_sale_msg, dw_sale_send

//tabpage_2
datawindow dw_buy_feedback, dw_buy_msg, dw_buy_send

// tabpage_msg
datawindow dw_msg

end variables

forward prototypes
public function integer wf_mbtface (integer arg_btno)
public function integer wf_resetelsebtface ()
public function integer wf_build_menutree ()
public function integer pf_menutreegrowth (long arg_handl, menu arg_prn_menu, long arg_funcid)
public function integer wf_refresh_shortcut ()
public subroutine wf_ware_alter ()
public subroutine wf_refresh_msg ()
public function integer wf_retrieve (integer arg_page)
public function integer days_in_month (integer month, integer year)
public subroutine wf_resizetablepage ()
public subroutine wf_init_sp_v ()
public function integer wf_set_shortcut ()
public function integer wf_build_menu_shortcut (ref s_sys_func arg_s_func[])
public subroutine wf_retrieve_buy_feedback ()
public subroutine wf_retrieve_buy_msg ()
public subroutine wf_retrieve_buy_send ()
public subroutine wf_retrieve_sale_msg ()
public subroutine wf_retrieve_sale_rece ()
public subroutine wf_retrieve_sale_send ()
public subroutine wf_resizetab ()
public function integer wf_mbtface ()
public subroutine wf_init_dw ()
public subroutine wf_showtab ()
public subroutine wf_init_pic ()
public subroutine wf_init ()
public function integer pf_menutreegrowth_plugins (ref s_sys_func arg_s_func[], long arg_parentid)
public function integer wf_set_shortcut (integer oldindex, integer newindex)
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_add_shortcut();IF NOT IsValid(w_shortcut_add) THEN
	Open(w_shortcut_add)
END IF



wf_refresh_shortcut()

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 lv_shortcut.SelectedIndex() <= 0 THEN RETURN

uo_userpwr uo_user
uo_user = CREATE uo_userpwr


lv_shortcut.GetItem(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

event ue_set_small();f_setProfileString(sys_empid, "lv_shortcut", "type", '0')
lv_shortcut_type = 0 
lv_shortcut.View = ListViewsmallIcon!
end event

event ue_set_large();f_setProfileString(sys_empid, "lv_shortcut", "type", '1')
lv_shortcut_type = 1
lv_shortcut.View = ListViewlargeIcon!
end event

event ue_buytask_feedback_ljfieb();Long ll_row
String ls_sn

String ls_sccode
Long ll_scid
String ls_returncode

ll_row = tab_ljfieb.tabpage_buy.dw_buy_feedback.GetRow()

If ll_row <= 0 Then Return

s_packet_ljfieb s_inscust

s_inscust.sendcuscommid = tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_sendcuscommid[ll_row]
s_inscust.receivecuscommid = tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_receivecuscommid[ll_row]
s_inscust.sendsccode = tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_sendsccode[ll_row]
s_inscust.receivesccode = tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_receivesccode[ll_row]
s_inscust.RelatedCode = tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_relatedcode[ll_row]
s_inscust.remark = tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_remark[ll_row]
s_inscust.postscript = tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_postscript[ll_row]
s_inscust.serialnum = tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_serialnum[ll_row]


ls_sccode = s_inscust.receivesccode

Select scid
	Into  :ll_scid
	From u_scdef
	Where sccode = :ls_sccode;
If sqlca.SQLCode <> 0 Then
	ll_scid = 0
End If

If tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_billtype[ll_row] = 3 Then
	OpenWithParm(w_buytask_feedback_ljfieb,s_inscust)
ElseIf tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_billtype[ll_row] = 12 Then
	OpenWithParm(w_buytask_redate_ljfieb,s_inscust)
ElseIf tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_billtype[ll_row] = 4 Then
	OpenWithParm(w_outware_receive_ljfieb,s_inscust)
ElseIf tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_billtype[ll_row] = 1 Then
	OpenWithParm(w_quote_receive_ljfieb,s_inscust)
ElseIf tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_billtype[ll_row] = 9 Then
	Select top 1 SerialNum
		Into :ls_sn
		From LJFIEB_packet
		Where BillType = 9
		And status = 5
		And Complete = 0
		And sendcuscommid = :s_inscust.sendcuscommid
		Order By AddTime Using sys_email_sqlca;
	If sys_email_sqlca.SQLCode <> 0 Then
		MessageBox('Error','查询最早待处理的同步数据失败,'+sys_email_sqlca.SQLErrText)
		Return
	End If
	
	If ls_sn <> s_inscust.serialnum Then
		MessageBox('系统提示','同一供应商资料同步严格按照推送时间顺序,当前选中的资料不是最早,将自动转到最早的资料作同步')
	Else
		ls_sn = s_inscust.serialnum
	End If
	
	OpenWithParm(w_mtrl_receive_ljfieb,ls_sn)
ElseIf tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_billtype[ll_row] = 18 Then
//	OpenWithParm(w_mtrlware_download_ljfieb,s_inscust)
ElseIf tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_billtype[ll_row] = 16 Then
//	OpenWithParm(w_reissue_spt_ljfieb,s_inscust)
ElseIf tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_billtype[ll_row] = 23 Then
	If MessageBox('询问','订单:'+s_inscust.RelatedCode+'有新进度,是否获取?',question!,yesno!) = 2 Then Return
	
	If  sys_email_sqlca.DBHandle() = 0  Then
		MessageBox('Error','电子商务数据库连接失败,请检查')
		Return
	End If
	
	uo_ljfieb uo_fieb
	uo_fieb = Create uo_ljfieb
	uo_fieb.commit_transaction = sys_email_sqlca
	
	String arg_msg
	If uo_fieb.update_buytask_jd(s_inscust.RelatedCode,arg_msg,True) = 0 Then
		MessageBox('Erorr',arg_msg)
		Return
	End If
	
	Destroy uo_fieb
	
	MessageBox('系统提示','获取最新进度成功!')
	wf_retrieve_buy_feedback()
	Return
	
	
End If

ls_returncode = Message.StringParm

f_open_win(ll_scid,ls_returncode)


wf_retrieve_buy_feedback()




end event

event ue_buy_msg_view_ljfieb();Long ll_row

ll_row = tab_ljfieb.tabpage_buy.dw_buy_msg.GetRow()

IF ll_row <= 0 THEN RETURN

s_packet_ljfieb s_inscust

s_inscust.serialnum = tab_ljfieb.tabpage_buy.dw_buy_msg.Object.ljfieb_packet_serialnum[ll_row]
s_inscust.sendcuscommid = tab_ljfieb.tabpage_buy.dw_buy_msg.Object.ljfieb_packet_sendcuscommid[ll_row]
s_inscust.receivecuscommid = tab_ljfieb.tabpage_buy.dw_buy_msg.Object.ljfieb_packet_receivecuscommid[ll_row]
s_inscust.sendsccode = tab_ljfieb.tabpage_buy.dw_buy_msg.Object.ljfieb_packet_sendsccode[ll_row]
s_inscust.receivesccode = tab_ljfieb.tabpage_buy.dw_buy_msg.Object.ljfieb_packet_receivesccode[ll_row]
s_inscust.billtype = 1

OpenWithParm(w_sale_msg_view_ljfieb,s_inscust)
	

wf_retrieve_buy_msg()
end event

event ue_buytask_rece_ljfieb();Long ll_row

ll_row = tab_ljfieb.tabpage_sale.dw_sale_rece.GetRow()

If ll_row <= 0 Then Return

s_packet_ljfieb s_inscust

s_inscust.sendcuscommid = tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_sendcuscommid[ll_row]
s_inscust.receivecuscommid = tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_receivecuscommid[ll_row]
s_inscust.sendsccode = tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_sendsccode[ll_row]
s_inscust.receivesccode = tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_receivesccode[ll_row]
s_inscust.RelatedCode = tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_relatedcode[ll_row]
s_inscust.remark = tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_remark[ll_row]
s_inscust.postscript = tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_postscript[ll_row]
s_inscust.serialnum = tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_serialnum[ll_row]
s_inscust.adduser = tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_adduser[ll_row]
s_inscust.addtime = tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_addtime[ll_row]

String ls_sccode
Long ll_scid
String ls_returncode

ls_sccode = s_inscust.receivesccode

Select scid
	Into  :ll_scid
	From u_scdef
	Where sccode = :ls_sccode;
If sqlca.SQLCode <> 0 Then
	ll_scid = 0
End If

If tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_billtype[ll_row] = 0 Then
	
	OpenWithParm(w_spt_price_receive_ljfieb,s_inscust)
	
ElseIf tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_billtype[ll_row] = 2 Then
	OpenWithParm(w_buytask_receive_ljfieb,s_inscust)
ElseIf tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_billtype[ll_row] = 19 Then
	OpenWithParm(w_mtrl_match_ljfieb,s_inscust)	
ElseIf tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_billtype[ll_row] = 21 Then
//	OpenWithParm(w_reissue_cus_ljfieb,s_inscust)	
End If

ls_returncode = Message.StringParm

f_open_win(ll_scid,ls_returncode)

wf_retrieve_sale_rece()

end event

event ue_sale_msg_view_ljfieb();Long ll_row

ll_row = tab_ljfieb.tabpage_sale.dw_sale_msg.GetRow()

IF ll_row <= 0 THEN RETURN

s_packet_ljfieb s_inscust

s_inscust.serialnum = tab_ljfieb.tabpage_sale.dw_sale_msg.Object.ljfieb_packet_serialnum[ll_row]
s_inscust.sendcuscommid = tab_ljfieb.tabpage_sale.dw_sale_msg.Object.ljfieb_packet_sendcuscommid[ll_row]
s_inscust.receivecuscommid = tab_ljfieb.tabpage_sale.dw_sale_msg.Object.ljfieb_packet_receivecuscommid[ll_row]
s_inscust.sendsccode = tab_ljfieb.tabpage_sale.dw_sale_msg.Object.ljfieb_packet_sendsccode[ll_row]
s_inscust.receivesccode = tab_ljfieb.tabpage_sale.dw_sale_msg.Object.ljfieb_packet_receivesccode[ll_row]
s_inscust.billtype = 2

OpenWithParm(w_sale_msg_view_ljfieb,s_inscust)
	

wf_retrieve_sale_msg()
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

public function integer wf_mbtface (integer arg_btno);// //wf_mbtface
//cur_group=arg_btno

p_lsgl.is_picture = p_lsgl.b_is_picture
p_lsgl.on_picture = p_lsgl.b_on_picture

p_cwgl.is_picture = p_cwgl.b_is_picture
p_cwgl.on_picture = p_cwgl.b_on_picture

p_xsgl.is_picture = p_xsgl.b_is_picture
p_xsgl.on_picture = p_xsgl.b_on_picture

p_ckgl.is_picture = p_ckgl.b_is_picture
p_ckgl.on_picture = p_ckgl.b_on_picture

p_cggl.is_picture = p_cggl.b_is_picture
p_cggl.on_picture = p_cggl.b_on_picture

p_rsgz.is_picture = p_rsgz.b_is_picture
p_rsgz.on_picture = p_rsgz.b_on_picture

p_wxgl.is_picture = p_wxgl.b_is_picture
p_wxgl.on_picture = p_wxgl.b_on_picture

p_xtwh.is_picture = p_xtwh.b_is_picture
p_xtwh.on_picture = p_xtwh.b_on_picture


p_zlgl.is_picture = p_zlgl.b_is_picture
p_zlgl.on_picture = p_zlgl.b_on_picture

p_scgl.is_picture = p_scgl.b_is_picture
p_scgl.on_picture = p_scgl.b_on_picture


//this.setredraw( false)
CHOOSE CASE arg_btno

	CASE 0 //介绍页
		//Open(w_main_child_in)
		IF IsValid(w_main_child_in) THEN
			w_main_child_in.BringToTop = True
		ELSE
			Open(w_main_child_in)
		END IF
		
	CASE 1 //销售
		p_xsgl.is_picture = p_xsgl.cl_picture
		p_xsgl.on_picture = p_xsgl.cl_picture
		IF IsValid(w_main_child_xs) THEN
			w_main_child_xs.BringToTop = True
		ELSE
			Open(w_main_child_xs)
		END IF
		
		tab_ljfieb.SelectedTab = 1
		
	CASE 3 //仓库
		p_ckgl.is_picture = p_ckgl.cl_picture
		p_ckgl.on_picture = p_ckgl.cl_picture
		IF sys_version = 802001  THEN
			IF IsValid(w_main_child_ck_biz) THEN
				w_main_child_ck_biz.BringToTop = True
			ELSE
				Open(w_main_child_ck_biz)
			END IF
		ELSE
			IF IsValid(w_main_child_ck) THEN
				w_main_child_ck.BringToTop = True
			ELSE
				Open(w_main_child_ck)
			END IF
		END IF
		
	CASE 4 //采购
		p_cggl.is_picture = p_cggl.cl_picture
		p_cggl.on_picture = p_cggl.cl_picture
		IF IsValid(w_main_child_cg) THEN
			w_main_child_cg.BringToTop = True
		ELSE
			Open(w_main_child_cg)
		END IF
		tab_ljfieb.SelectedTab = 2
	CASE 5 //财务
		p_cwgl.is_picture = p_cwgl.cl_picture
		p_cwgl.on_picture = p_cwgl.cl_picture
		IF IsValid(w_main_child_cw) THEN
			w_main_child_cw.BringToTop = True
		ELSE
			Open(w_main_child_cw)
		END IF
		
	CASE 7 //系统维护
		p_xtwh.is_picture = p_xtwh.cl_picture
		p_xtwh.on_picture = p_xtwh.cl_picture
		IF sys_if_network = 1 THEN
			IF IsValid(w_main_child_xtwh_net) THEN
				w_main_child_xtwh_net.BringToTop = True
			ELSE
				Open(w_main_child_xtwh_net)
			END IF
		ELSE
			IF IsValid(w_main_child_xtwh) THEN
				w_main_child_xtwh.BringToTop = True
			ELSE
				Open(w_main_child_xtwh)
			END IF
		END IF
	CASE 8 //人事管理
		p_rsgz.is_picture = p_rsgz.cl_picture
		p_rsgz.on_picture = p_rsgz.cl_picture
		IF IsValid(w_main_child_rsgz) THEN
			w_main_child_rsgz.BringToTop = True
		ELSE
			Open(w_main_child_rsgz)
		END IF
		
	CASE 9 //外协
		p_wxgl.is_picture = p_wxgl.cl_picture
		p_wxgl.on_picture = p_wxgl.cl_picture
		IF IsValid(w_main_child_jg) THEN
			w_main_child_jg.BringToTop = True
		ELSE
			Open(w_main_child_jg)
		END IF
		//		Open(w_main_child_jg)
		//		w_main_child_jg.wf_kk()
	CASE 10 //资料
		p_zlgl.is_picture = p_zlgl.cl_picture
		p_zlgl.on_picture = p_zlgl.cl_picture
		IF sys_version = 802001  THEN
			IF IsValid(w_main_child_define_biz) THEN
				w_main_child_define_biz.BringToTop = True
			ELSE
				Open(w_main_child_define_biz)
			END IF
		ELSE
			IF IsValid(w_main_child_define) THEN
				w_main_child_define.BringToTop = True
			ELSE
				Open(w_main_child_define)
			END IF
		END IF
		
	CASE 11 //生产管理
		p_scgl.is_picture = p_scgl.cl_picture
		p_scgl.on_picture = p_scgl.cl_picture
		IF IsValid(w_main_child_sc) THEN
			w_main_child_sc.BringToTop = True
		ELSE
			Open(w_main_child_sc)
		END IF
		
	CASE 12 //零售管理
		p_lsgl.is_picture = p_lsgl.cl_picture
		p_lsgl.on_picture = p_lsgl.cl_picture
		IF IsValid(w_main_child_biz) THEN
			w_main_child_biz.BringToTop = True
		ELSE
			Open(w_main_child_biz)
		END IF
		
END CHOOSE
//this.triggerevent("mousemove")
//this.setredraw( true)
wf_resetelsebtface()
RETURN 0






end function

public function integer wf_resetelsebtface ();//wf_resetelsebtface
IF IsNull(io_cont) THEN RETURN 1
String cur_pbt_name
cur_pbt_name = io_cont.ClassName()

CHOOSE CASE cur_pbt_name
	CASE "p_lsgl"
		//if p_lsgl.picturename<>p_lsgl.is_picture then p_lsgl.picturename=p_lsgl.is_picture
		IF p_xsgl.PictureName <> p_xsgl.is_picture THEN p_xsgl.PictureName = p_xsgl.is_picture
		IF p_ckgl.PictureName <> p_ckgl.is_picture THEN p_ckgl.PictureName = p_ckgl.is_picture
		IF p_cggl.PictureName <> p_cggl.is_picture THEN p_cggl.PictureName = p_cggl.is_picture
		IF p_cwgl.PictureName <> p_cwgl.is_picture THEN p_cwgl.PictureName = p_cwgl.is_picture
		IF p_rsgz.PictureName <> p_rsgz.is_picture THEN p_rsgz.PictureName = p_rsgz.is_picture
		IF p_xtwh.PictureName <> p_xtwh.is_picture THEN p_xtwh.PictureName = p_xtwh.is_picture
		IF p_wxgl.PictureName <> p_wxgl.is_picture THEN p_wxgl.PictureName = p_wxgl.is_picture
		IF p_zlgl.PictureName <> p_zlgl.is_picture THEN p_zlgl.PictureName = p_zlgl.is_picture
		IF p_scgl.PictureName <> p_scgl.is_picture THEN p_scgl.PictureName = p_scgl.is_picture
	CASE "p_xsgl"
		IF p_lsgl.PictureName <> p_lsgl.is_picture THEN p_lsgl.PictureName = p_lsgl.is_picture
		//if p_xsgl.picturename<>p_xsgl.is_picture then p_xsgl.picturename=p_xsgl.is_picture
		IF p_ckgl.PictureName <> p_ckgl.is_picture THEN p_ckgl.PictureName = p_ckgl.is_picture
		IF p_cggl.PictureName <> p_cggl.is_picture THEN p_cggl.PictureName = p_cggl.is_picture
		IF p_cwgl.PictureName <> p_cwgl.is_picture THEN p_cwgl.PictureName = p_cwgl.is_picture
		IF p_rsgz.PictureName <> p_rsgz.is_picture THEN p_rsgz.PictureName = p_rsgz.is_picture
		IF p_xtwh.PictureName <> p_xtwh.is_picture THEN p_xtwh.PictureName = p_xtwh.is_picture
		IF p_wxgl.PictureName <> p_wxgl.is_picture THEN p_wxgl.PictureName = p_wxgl.is_picture
		IF p_zlgl.PictureName <> p_zlgl.is_picture THEN p_zlgl.PictureName = p_zlgl.is_picture
		IF p_scgl.PictureName <> p_scgl.is_picture THEN p_scgl.PictureName = p_scgl.is_picture
		
	CASE "p_ckgl"
		IF p_lsgl.PictureName <> p_lsgl.is_picture THEN p_lsgl.PictureName = p_lsgl.is_picture
		IF p_xsgl.PictureName <> p_xsgl.is_picture THEN p_xsgl.PictureName = p_xsgl.is_picture
		//if p_ckgl.picturename<>p_ckgl.is_picture then p_ckgl.picturename=p_ckgl.is_picture
		IF p_cggl.PictureName <> p_cggl.is_picture THEN p_cggl.PictureName = p_cggl.is_picture
		IF p_cwgl.PictureName <> p_cwgl.is_picture THEN p_cwgl.PictureName = p_cwgl.is_picture
		IF p_rsgz.PictureName <> p_rsgz.is_picture THEN p_rsgz.PictureName = p_rsgz.is_picture
		IF p_xtwh.PictureName <> p_xtwh.is_picture THEN p_xtwh.PictureName = p_xtwh.is_picture
		IF p_wxgl.PictureName <> p_wxgl.is_picture THEN p_wxgl.PictureName = p_wxgl.is_picture
		IF p_zlgl.PictureName <> p_zlgl.is_picture THEN p_zlgl.PictureName = p_zlgl.is_picture
		IF p_scgl.PictureName <> p_scgl.is_picture THEN p_scgl.PictureName = p_scgl.is_picture
		
	CASE "p_cggl"
		IF p_lsgl.PictureName <> p_lsgl.is_picture THEN p_lsgl.PictureName = p_lsgl.is_picture
		IF p_xsgl.PictureName <> p_xsgl.is_picture THEN p_xsgl.PictureName = p_xsgl.is_picture
		IF p_ckgl.PictureName <> p_ckgl.is_picture THEN p_ckgl.PictureName = p_ckgl.is_picture
		//if p_cggl.picturename<>p_cggl.is_picture then p_cggl.picturename=p_cggl.is_picture
		IF p_cwgl.PictureName <> p_cwgl.is_picture THEN p_cwgl.PictureName = p_cwgl.is_picture
		IF p_rsgz.PictureName <> p_rsgz.is_picture THEN p_rsgz.PictureName = p_rsgz.is_picture
		IF p_xtwh.PictureName <> p_xtwh.is_picture THEN p_xtwh.PictureName = p_xtwh.is_picture
		IF p_wxgl.PictureName <> p_wxgl.is_picture THEN p_wxgl.PictureName = p_wxgl.is_picture
		IF p_zlgl.PictureName <> p_zlgl.is_picture THEN p_zlgl.PictureName = p_zlgl.is_picture
		IF p_scgl.PictureName <> p_scgl.is_picture THEN p_scgl.PictureName = p_scgl.is_picture
		
	CASE "p_cwgl"
		IF p_lsgl.PictureName <> p_lsgl.is_picture THEN p_lsgl.PictureName = p_lsgl.is_picture
		IF p_xsgl.PictureName <> p_xsgl.is_picture THEN p_xsgl.PictureName = p_xsgl.is_picture
		IF p_ckgl.PictureName <> p_ckgl.is_picture THEN p_ckgl.PictureName = p_ckgl.is_picture
		IF p_cggl.PictureName <> p_cggl.is_picture THEN p_cggl.PictureName = p_cggl.is_picture
		//if p_cwgl.picturename<>p_cwgl.is_picture then p_cwgl.picturename=p_cwgl.is_picture
		IF p_rsgz.PictureName <> p_rsgz.is_picture THEN p_rsgz.PictureName = p_rsgz.is_picture
		IF p_xtwh.PictureName <> p_xtwh.is_picture THEN p_xtwh.PictureName = p_xtwh.is_picture
		IF p_wxgl.PictureName <> p_wxgl.is_picture THEN p_wxgl.PictureName = p_wxgl.is_picture
		IF p_zlgl.PictureName <> p_zlgl.is_picture THEN p_zlgl.PictureName = p_zlgl.is_picture
		IF p_scgl.PictureName <> p_scgl.is_picture THEN p_scgl.PictureName = p_scgl.is_picture
		
	CASE "p_rsgz"
		IF p_lsgl.PictureName <> p_lsgl.is_picture THEN p_lsgl.PictureName = p_lsgl.is_picture
		IF p_xsgl.PictureName <> p_xsgl.is_picture THEN p_xsgl.PictureName = p_xsgl.is_picture
		IF p_ckgl.PictureName <> p_ckgl.is_picture THEN p_ckgl.PictureName = p_ckgl.is_picture
		IF p_cggl.PictureName <> p_cggl.is_picture THEN p_cggl.PictureName = p_cggl.is_picture
		IF p_cwgl.PictureName <> p_cwgl.is_picture THEN p_cwgl.PictureName = p_cwgl.is_picture
		//		if p_rsgz.picturename<>p_rsgz.is_picture then p_rsgz.picturename=p_rsgz.is_picture
		IF p_xtwh.PictureName <> p_xtwh.is_picture THEN p_xtwh.PictureName = p_xtwh.is_picture
		IF p_wxgl.PictureName <> p_wxgl.is_picture THEN p_wxgl.PictureName = p_wxgl.is_picture
		IF p_zlgl.PictureName <> p_zlgl.is_picture THEN p_zlgl.PictureName = p_zlgl.is_picture
		IF p_scgl.PictureName <> p_scgl.is_picture THEN p_scgl.PictureName = p_scgl.is_picture
		
	CASE "p_xtwh"
		IF p_lsgl.PictureName <> p_lsgl.is_picture THEN p_lsgl.PictureName = p_lsgl.is_picture
		IF p_xsgl.PictureName <> p_xsgl.is_picture THEN p_xsgl.PictureName = p_xsgl.is_picture
		IF p_ckgl.PictureName <> p_ckgl.is_picture THEN p_ckgl.PictureName = p_ckgl.is_picture
		IF p_cggl.PictureName <> p_cggl.is_picture THEN p_cggl.PictureName = p_cggl.is_picture
		IF p_cwgl.PictureName <> p_cwgl.is_picture THEN p_cwgl.PictureName = p_cwgl.is_picture
		IF p_rsgz.PictureName <> p_rsgz.is_picture THEN p_rsgz.PictureName = p_rsgz.is_picture
		//		if p_xtwh.picturename<>p_xtwh.is_picture then p_xtwh.picturename=p_xtwh.is_picture
		IF p_wxgl.PictureName <> p_wxgl.is_picture THEN p_wxgl.PictureName = p_wxgl.is_picture
		IF p_zlgl.PictureName <> p_zlgl.is_picture THEN p_zlgl.PictureName = p_zlgl.is_picture
		IF p_scgl.PictureName <> p_scgl.is_picture THEN p_scgl.PictureName = p_scgl.is_picture
		
	CASE "p_wxgl"
		IF p_lsgl.PictureName <> p_lsgl.is_picture THEN p_lsgl.PictureName = p_lsgl.is_picture
		IF p_xsgl.PictureName <> p_xsgl.is_picture THEN p_xsgl.PictureName = p_xsgl.is_picture
		IF p_ckgl.PictureName <> p_ckgl.is_picture THEN p_ckgl.PictureName = p_ckgl.is_picture
		IF p_cggl.PictureName <> p_cggl.is_picture THEN p_cggl.PictureName = p_cggl.is_picture
		IF p_cwgl.PictureName <> p_cwgl.is_picture THEN p_cwgl.PictureName = p_cwgl.is_picture
		IF p_rsgz.PictureName <> p_rsgz.is_picture THEN p_rsgz.PictureName = p_rsgz.is_picture
		IF p_xtwh.PictureName <> p_xtwh.is_picture THEN p_xtwh.PictureName = p_xtwh.is_picture
		//		if p_wxgl.picturename<>p_wxgl.is_picture then p_wxgl.picturename=p_wxgl.is_picture
		IF p_zlgl.PictureName <> p_zlgl.is_picture THEN p_zlgl.PictureName = p_zlgl.is_picture
		IF p_scgl.PictureName <> p_scgl.is_picture THEN p_scgl.PictureName = p_scgl.is_picture
		
	CASE "p_zlgl"
		IF p_lsgl.PictureName <> p_lsgl.is_picture THEN p_lsgl.PictureName = p_lsgl.is_picture
		IF p_xsgl.PictureName <> p_xsgl.is_picture THEN p_xsgl.PictureName = p_xsgl.is_picture
		IF p_ckgl.PictureName <> p_ckgl.is_picture THEN p_ckgl.PictureName = p_ckgl.is_picture
		IF p_cggl.PictureName <> p_cggl.is_picture THEN p_cggl.PictureName = p_cggl.is_picture
		IF p_cwgl.PictureName <> p_cwgl.is_picture THEN p_cwgl.PictureName = p_cwgl.is_picture
		IF p_rsgz.PictureName <> p_rsgz.is_picture THEN p_rsgz.PictureName = p_rsgz.is_picture
		IF p_xtwh.PictureName <> p_xtwh.is_picture THEN p_xtwh.PictureName = p_xtwh.is_picture
		IF p_wxgl.PictureName <> p_wxgl.is_picture THEN p_wxgl.PictureName = p_wxgl.is_picture
		IF p_scgl.PictureName <> p_scgl.is_picture THEN p_scgl.PictureName = p_scgl.is_picture
		
		
		
	CASE "p_scgl"
		IF p_lsgl.PictureName <> p_lsgl.is_picture THEN p_lsgl.PictureName = p_lsgl.is_picture
		IF p_xsgl.PictureName <> p_xsgl.is_picture THEN p_xsgl.PictureName = p_xsgl.is_picture
		IF p_ckgl.PictureName <> p_ckgl.is_picture THEN p_ckgl.PictureName = p_ckgl.is_picture
		IF p_cggl.PictureName <> p_cggl.is_picture THEN p_cggl.PictureName = p_cggl.is_picture
		IF p_cwgl.PictureName <> p_cwgl.is_picture THEN p_cwgl.PictureName = p_cwgl.is_picture
		IF p_rsgz.PictureName <> p_rsgz.is_picture THEN p_rsgz.PictureName = p_rsgz.is_picture
		IF p_xtwh.PictureName <> p_xtwh.is_picture THEN p_xtwh.PictureName = p_xtwh.is_picture
		IF p_wxgl.PictureName <> p_wxgl.is_picture THEN p_wxgl.PictureName = p_wxgl.is_picture
		IF p_zlgl.PictureName <> p_zlgl.is_picture THEN p_zlgl.PictureName = p_zlgl.is_picture
	CASE ELSE
		IF p_lsgl.PictureName <> p_lsgl.is_picture THEN p_lsgl.PictureName = p_lsgl.is_picture
		IF p_xsgl.PictureName <> p_xsgl.is_picture THEN p_xsgl.PictureName = p_xsgl.is_picture
		IF p_ckgl.PictureName <> p_ckgl.is_picture THEN p_ckgl.PictureName = p_ckgl.is_picture
		IF p_cggl.PictureName <> p_cggl.is_picture THEN p_cggl.PictureName = p_cggl.is_picture
		IF p_cwgl.PictureName <> p_cwgl.is_picture THEN p_cwgl.PictureName = p_cwgl.is_picture
		IF p_rsgz.PictureName <> p_rsgz.is_picture THEN p_rsgz.PictureName = p_rsgz.is_picture
		IF p_xtwh.PictureName <> p_xtwh.is_picture THEN p_xtwh.PictureName = p_xtwh.is_picture
		IF p_wxgl.PictureName <> p_wxgl.is_picture THEN p_wxgl.PictureName = p_wxgl.is_picture
		IF p_zlgl.PictureName <> p_zlgl.is_picture THEN p_zlgl.PictureName = p_zlgl.is_picture
		IF p_scgl.PictureName <> p_scgl.is_picture THEN p_scgl.PictureName = p_scgl.is_picture
		
END CHOOSE

RETURN 0


end function

public function integer wf_build_menutree ();Long hand
deep = 1
wf_init_sp_v()
//wf_retrieve(-1)
wf_refresh_shortcut()

This.ChangeMenu(m_x_genapp_frame_sp1) //初始化菜单

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
pf_menutreegrowth(hand,This.MenuID,0)

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!)
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

//检查是否有插件
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
For ls_i = 1 To count
	
	ls_menuname = Trim(ls_s_func[ls_i].MenuName)
	
	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 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

lv_shortcut.setredraw(false)
lv_shortcut.DeleteItems()

listviewitem l_lvi

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 = 2
	ELSEIF right(ls_s_func[ls_i].treename,1) = "表" THEN
		l_lvi.PictureIndex = 3
	ELSEIF pos(ls_s_func[ls_i].treename,"销售") > 0 THEN
		l_lvi.PictureIndex = 4
	ELSEIF pos(ls_s_func[ls_i].treename,"采购") > 0 THEN
		l_lvi.PictureIndex = 5
	ELSE
		l_lvi.PictureIndex = 1
	END IF
	lv_shortcut.AddItem(l_lvi)
NEXT
lv_shortcut.setredraw(true)
RETURN 1



end function

public subroutine wf_ware_alter ();Long ll_cnt1,ll_cnt2

IF f_power_ind(858) THEN
	SELECT COUNT(*)
		INTO :ll_cnt1
		FROM (SELECT u_mtrlware.mtrlid, SUM(u_mtrlware.noallocqty) AS noallocqty,
		u_mtrldef.mtrlcode, u_mtrldef.mtrlname, u_mtrldef.mtrlmode, u_mtrldef.unit,
		u_mtrldef_maxminqty.maxqty, SUM(u_mtrlware.noallocqty)
		- u_mtrldef_maxminqty.maxqty AS upqty, u_mtrldef_maxminqty.minqty,
		u_mtrldef.mtrlsectype, u_mtrldef.zxmtrlmode, u_mtrldef_maxminqty.status,
		u_mtrldef_maxminqty.woodcode, u_mtrldef_maxminqty.pcode
		FROM u_mtrlware INNER JOIN
		u_mtrldef_maxminqty ON
		u_mtrlware.mtrlid = u_mtrldef_maxminqty.mtrlid AND
		u_mtrlware.Status = u_mtrldef_maxminqty.status AND
		u_mtrlware.woodcode = u_mtrldef_maxminqty.woodcode AND
		u_mtrlware.pcode = u_mtrldef_maxminqty.pcode INNER JOIN
		u_mtrldef ON u_mtrldef_maxminqty.mtrlid = u_mtrldef.mtrlid
		WHERE (u_mtrlware.noallocqty <> 0)
		GROUP BY u_mtrlware.mtrlid, u_mtrldef.unit, u_mtrldef.mtrlcode,
		u_mtrldef.mtrlmode, u_mtrldef.mtrlname, u_mtrldef_maxminqty.maxqty,
		u_mtrldef_maxminqty.minqty, u_mtrldef.mtrlsectype, u_mtrldef.zxmtrlmode,
		u_mtrldef_maxminqty.status, u_mtrldef_maxminqty.woodcode,
		u_mtrldef_maxminqty.pcode
		Having (SUM(u_mtrlware.noallocqty) > u_mtrldef_maxminqty.maxqty)) DERIVEDTBL;
		
	SELECT COUNT(*)
		INTO  :ll_cnt2
		FROM (SELECT u_mtrlware.mtrlid, SUM(u_mtrlware.noallocqty) AS noallocqty,
		u_mtrldef.mtrlcode, u_mtrldef.mtrlname, u_mtrldef.mtrlmode, u_mtrldef.unit,
		u_mtrldef_maxminqty.minqty - SUM(u_mtrlware.noallocqty) AS downqty,
		u_mtrldef_maxminqty.maxqty, u_mtrldef_maxminqty.minqty,
		u_mtrldef.mtrlsectype, u_mtrldef.zxmtrlmode, u_mtrldef_maxminqty.status,
		u_mtrldef_maxminqty.woodcode, u_mtrldef_maxminqty.pcode
		FROM u_mtrlware INNER JOIN
		u_mtrldef_maxminqty ON
		u_mtrlware.mtrlid = u_mtrldef_maxminqty.mtrlid AND
		u_mtrlware.Status = u_mtrldef_maxminqty.status AND
		u_mtrlware.woodcode = u_mtrldef_maxminqty.woodcode AND
		u_mtrlware.pcode = u_mtrldef_maxminqty.pcode INNER JOIN
		u_mtrldef ON u_mtrldef_maxminqty.mtrlid = u_mtrldef.mtrlid
		WHERE (u_mtrlware.noallocqty <> 0)
		GROUP BY u_mtrlware.mtrlid, u_mtrldef.unit, u_mtrldef.mtrlcode,
		u_mtrldef.mtrlname, u_mtrldef.mtrlmode, u_mtrldef_maxminqty.maxqty,
		u_mtrldef_maxminqty.minqty, u_mtrldef.mtrlsectype, u_mtrldef.zxmtrlmode,
		u_mtrldef_maxminqty.status, u_mtrldef_maxminqty.woodcode,
		u_mtrldef_maxminqty.pcode
		Having (SUM(u_mtrlware.noallocqty) < u_mtrldef_maxminqty.minqty)) DERIVEDTBL;
		
	IF ll_cnt1 + ll_cnt2 > 0 THEN
		s_edit_index_tran s_tran
		OpenWithParm(w_rp_mtrlware_alter_ts,s_tran)
	END IF
END IF

end subroutine

public subroutine wf_refresh_msg ();
Long ll_cnt

//ls_dealflag = Long(f_ProfileString(sys_empid, "dw_revmsg", "dealflag", '0'))
//
//
//ll_cnt = tab_msg.tabpage_3.dw_revmsg.Retrieve(sys_empid,ls_dealflag)
//
//IF ll_cnt > 0 THEN
//	tab_msg.tabpage_3.Text = '收件箱('+String(ll_cnt)+')'
//ELSE
//	tab_msg.tabpage_3.Text = '收件箱   '
//END IF
//
//IF ll_cnt = -1 THEN
//	MessageBox('系统提示','因网络原因导致与服务器断开,系统即将关闭!')
//	HALT
//END IF

dw_msg.Retrieve(sys_empid)


/////打开浮动窗口
//ll_cnt = 0
//SELECT count(*)
//	INTO :ll_cnt
//	FROM sys_admsgmx
//	WHERE ( sys_admsgmx.dealflag = 0 )  AND
//	sys_admsgmx.empid = :sys_empid ;
//IF sqlca.SQLCode <> 0 THEN
//	ll_cnt = 0
//END IF
//
//IF ll_cnt > 0 THEN
//	Open(w_newmsg)
//END IF
//


end subroutine

public function integer wf_retrieve (integer arg_page);
CHOOSE CASE arg_page
	CASE 1
		//收件箱
		wf_refresh_msg()
	CASE 2
		//销售
		wf_retrieve_sale_rece()
		wf_retrieve_sale_send()
		wf_retrieve_sale_msg()
	CASE 3
		//采购
		wf_retrieve_buy_send()
		wf_retrieve_buy_feedback()
		wf_retrieve_buy_msg()
END CHOOSE

RETURN 1




end function

public function integer days_in_month (integer month, integer year);//Most cases are straight forward in that there are a fixed number of 
//days in 11 of the 12 months.  February is, of course, the problem.
//In a leap year February has 29 days, otherwise 28.

Integer		li_DaysInMonth, li_Days[12] = {31,28,31,30,31,30,31,31,30,31,30,31}
 
// Get the number of days per month for a non leap year.
li_DaysInMonth = li_Days[Month]

// Check for a leap year.
If Month = 2 Then
	// If the year is a leap year, change the number of days.
	// Leap Year Calculation:
	//	Year divisible by 4, but not by 100, unless it is also divisible by 400
	If ( (Mod(Year,4) = 0 And Mod(Year,100) <> 0) Or (Mod(Year,400) = 0) ) Then
		li_DaysInMonth = 29
	End If
End If

//Return the number of days in the relevant month
Return li_DaysInMonth
end function

public subroutine wf_resizetablepage ();


tab_ljfieb.Width = THIS.Width - dw_msg.Width - 50
//r_2.width = dw_msg.Width

wf_resizetab()

//tab_msg.tabpage_3.dw_revmsg.Height  = tab_msg.Height - 120
//tab_msg.tabpage_3.tab_revmsg.Height = tab_msg.Height - 130
//tab_msg.tabpage_3.tab_revmsg.tabpage_4.mle_revmsg.Height = tab_msg.tabpage_3.tab_revmsg.Height - 110
//tab_msg.tabpage_3.tab_revmsg.tabpage_5.lv_revfj.Height = tab_msg.tabpage_3.tab_revmsg.Height - 110
//
//
//tab_msg.tabpage_2.dw_draft.Height = tab_msg.Height - 220
//
//
//tab_msg.tabpage_1.dw_msg_his.Height = tab_msg.Height - 220
//tab_msg.tabpage_1.tab_hismsg.Height = tab_msg.Height - 220
//
//tab_msg.tabpage_1.tab_hismsg.tabpage_6.mle_hismsg.Height = tab_msg.tabpage_1.tab_hismsg.Height - 110
//tab_msg.tabpage_1.tab_hismsg.tabpage_7.lv_hisfj.Height = tab_msg.tabpage_1.tab_hismsg.Height - 110
//tab_msg.tabpage_1.tab_hismsg.tabpage_8.dw_user.Height = tab_msg.tabpage_1.tab_hismsg.Height - 110
//
//
//
//tab_msg.tabpage_3.dw_revmsg.Width = (tab_msg.Width - 40) / 2 + 605
//tab_msg.tabpage_3.tab_revmsg.x = tab_msg.tabpage_3.dw_revmsg.x + tab_msg.tabpage_3.dw_revmsg.Width + 10
//tab_msg.tabpage_3.tab_revmsg.Width = (tab_msg.Width - 40) / 2 - 610
//tab_msg.tabpage_3.tab_revmsg.tabpage_4.mle_revmsg.Width = tab_msg.tabpage_3.tab_revmsg.Width - 30
//tab_msg.tabpage_3.tab_revmsg.tabpage_5.lv_revfj.Width = tab_msg.tabpage_3.tab_revmsg.Width - 30
//
//
//
//tab_msg.tabpage_1.dw_msg_his.Width = (tab_msg.Width - 40) / 2 + 605
//tab_msg.tabpage_1.tab_hismsg.x = tab_msg.tabpage_1.dw_msg_his.x + tab_msg.tabpage_1.dw_msg_his.Width + 10
//tab_msg.tabpage_1.tab_hismsg.Width = (tab_msg.Width - 40) / 2 - 610
//tab_msg.tabpage_1.tab_hismsg.tabpage_6.mle_hismsg.Width = tab_msg.tabpage_1.tab_hismsg.Width - 30
//tab_msg.tabpage_1.tab_hismsg.tabpage_7.lv_hisfj.Width = tab_msg.tabpage_1.tab_hismsg.Width - 30
//tab_msg.tabpage_1.tab_hismsg.tabpage_8.dw_user.Width = tab_msg.tabpage_1.tab_hismsg.Width - 30
//
//
//p_2.x = tab_msg.x  + 810
//st_2.x = p_2.x + p_2.Width + 10
end subroutine

public subroutine wf_init_sp_v ();//将所有该分割条的左右的object都进行注册
sp_v1.of_Reset() 
sp_v1.of_Register(tab_ljfieb, sp_v1.RIGHT)
sp_v1.of_Register(lb_1, sp_v1.left)
//定位拖动条--以dw_1为位移基准
sp_v1.uf_possplitbar(lb_1)

end subroutine

public function integer wf_set_shortcut ();Long i, j, k,  ll_itemcnt
Long ll_funcid[]
Long ls_x[],ls_y[], ls_index[]
Long tmp
String str_shortcutstr

listviewitem l_lvi
s_sys_func s_lss


ll_itemcnt = lv_shortcut.TotalItems()
FOR i = 1 TO ll_itemcnt
	lv_shortcut.GetItem(i,l_lvi)
	s_lss = l_lvi.Data
	
	ll_funcid[i] = s_lss.funcid
	
	ls_x[i] = l_lvi.ItemX
	ls_y[i] = l_lvi.ItemY
NEXT

IF ll_itemcnt > 1 THEN
	//先按y排序
	FOR i = 1 TO ll_itemcnt
		FOR j = i + 1 TO ll_itemcnt
			IF ls_y[i] > ls_y[j] THEN
				tmp = ls_x[i]
				ls_x[i] = ls_x[j]
				ls_x[j] = tmp
				
				tmp = ls_y[i]
				ls_y[i] = ls_y[j]
				ls_y[j] = tmp
				
				tmp = ll_funcid[i]
				ll_funcid[i] = ll_funcid[j]
				ll_funcid[j] = tmp
			END IF
		NEXT
	NEXT
	//再按x排序
	FOR i = 1 TO ll_itemcnt
		FOR j = i + 1 TO ll_itemcnt
			IF ls_y[i] = ls_y[j] THEN
				
				IF ls_x[i] > ls_x[j] THEN
					tmp = ls_x[i]
					ls_x[i] = ls_x[j]
					ls_x[j] = tmp
					
					tmp = ls_y[i]
					ls_y[i] = ls_y[j]
					ls_y[j] = tmp
					
					tmp = ll_funcid[i]
					ll_funcid[i] = ll_funcid[j]
					ll_funcid[j] = tmp
				END IF
				
			END IF
		NEXT
	NEXT
END IF

FOR i = 1 TO ll_itemcnt
	str_shortcutstr += String(ll_funcid[i])+","
NEXT


UPDATE u_user
	SET shortcutstr = :str_shortcutstr
	WHERE scid = :sys_scid
	AND empid = :sys_empid;
IF sqlca.SQLCode <> 0 THEN
	rollback;
	RETURN 0
END IF

commit;
RETURN 1


end function

public function integer wf_build_menu_shortcut (ref s_sys_func arg_s_func[]);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

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

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)
		
		FOR ls_i = 1 TO sys_ds_shortcutinfo.RowCount( )
			IF sys_ds_shortcutinfo.Object.if_use[ls_i] = 0 THEN CONTINUE
			IF sys_ds_shortcutinfo.Object.functype[ls_i] < 9 THEN
				IF sys_ds_shortcutinfo.Object.funcid[ls_i] = ll_funcid THEN
					count++
					ls_s_func[count].funcid = sys_ds_shortcutinfo.Object.funcid[ls_i]
					ls_s_func[count].treename = sys_ds_shortcutinfo.Object.treename[ls_i]
					ls_s_func[count].MenuName = sys_ds_shortcutinfo.Object.MenuName[ls_i]
					ls_s_func[count].parentid = sys_ds_shortcutinfo.Object.parentid[ls_i]
					ls_s_func[count].sortflag = sys_ds_shortcutinfo.Object.sortflag[ls_i]
					ls_s_func[count].functype = sys_ds_shortcutinfo.Object.functype[ls_i]
					ls_s_func[count].mainid = sys_ds_shortcutinfo.Object.mainid[ls_i]
					ls_s_func[count].if_use = sys_ds_shortcutinfo.Object.if_use[ls_i]
				END IF
			END IF
		NEXT
	LOOP
END IF


arg_s_func = ls_s_func

RETURN 1


end function

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_ljfieb.tabpage_buy.dw_buy_feedback.SetRedraw(False)
tab_ljfieb.tabpage_buy.dw_buy_feedback.Retrieve()

IF Not sys_power_issuper THEN
	tab_ljfieb.tabpage_buy.dw_buy_feedback.AcceptText()
	
	FOR ll_i = tab_ljfieb.tabpage_buy.dw_buy_feedback.RowCount() To 1 Step -1
		IF tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_billtype [ll_i] = 9 THEN CONTINUE
		
		ll_sendcuscommid = tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_sendcuscommid[ll_i]
		ls_receivesccode = tab_ljfieb.tabpage_buy.dw_buy_feedback.Object.ljfieb_packet_receivesccode[ll_i]
		ls_SendSCcode = tab_ljfieb.tabpage_buy.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_ljfieb.tabpage_buy.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_ljfieb.tabpage_buy.dw_buy_feedback.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
	NEXT
	
END IF
tab_ljfieb.tabpage_buy.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_ljfieb.tabpage_buy.st_mtrl_receive.Text = '资料同步(待同步资料共'+String(cnt)+'条)'
ELSE
	tab_ljfieb.tabpage_buy.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_ljfieb.tabpage_buy.dw_buy_msg.SetRedraw(False)
tab_ljfieb.tabpage_buy.dw_buy_msg.Retrieve()

IF Not sys_power_issuper THEN
	tab_ljfieb.tabpage_buy.dw_buy_msg.AcceptText()
	
	FOR ll_i = tab_ljfieb.tabpage_buy.dw_buy_msg.RowCount() To 1 Step -1
		ll_sendcuscommid = tab_ljfieb.tabpage_buy.dw_buy_msg.Object.ljfieb_packet_sendcuscommid[ll_i]
		ls_receivesccode = tab_ljfieb.tabpage_buy.dw_buy_msg.Object.ljfieb_packet_receivesccode[ll_i]
		ls_SendSCcode = tab_ljfieb.tabpage_buy.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_ljfieb.tabpage_buy.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_ljfieb.tabpage_buy.dw_buy_msg.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
	NEXT
	
END IF
tab_ljfieb.tabpage_buy.dw_buy_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_ljfieb.tabpage_buy.dw_buy_send.SetRedraw(False)
tab_ljfieb.tabpage_buy.dw_buy_send.retrieve()


IF Not sys_power_issuper THEN
	tab_ljfieb.tabpage_buy.dw_buy_send.AcceptText()
	
	FOR ll_i = tab_ljfieb.tabpage_buy.dw_buy_send.RowCount() To 1 Step -1
		ll_ReceiveCusCommID = tab_ljfieb.tabpage_buy.dw_buy_send.Object.ljfieb_packet_ReceiveCusCommID[ll_i]
		ls_receivesccode = tab_ljfieb.tabpage_buy.dw_buy_send.Object.ljfieb_packet_receivesccode[ll_i]
		ls_SendSCcode = tab_ljfieb.tabpage_buy.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_ljfieb.tabpage_buy.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_ljfieb.tabpage_buy.dw_buy_send.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
	NEXT
	
END IF
tab_ljfieb.tabpage_buy.dw_buy_send.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_ljfieb.tabpage_sale.dw_sale_msg.SetRedraw(False)
tab_ljfieb.tabpage_sale.dw_sale_msg.Retrieve()

IF Not sys_power_issuper THEN
	
	tab_ljfieb.tabpage_sale.dw_sale_msg.AcceptText()
	
	FOR ll_i = tab_ljfieb.tabpage_sale.dw_sale_msg.RowCount() To 1 Step -1
		ll_sendcuscommid = tab_ljfieb.tabpage_sale.dw_sale_msg.Object.ljfieb_packet_sendcuscommid[ll_i]
		ls_receivesccode = tab_ljfieb.tabpage_sale.dw_sale_msg.Object.ljfieb_packet_receivesccode[ll_i]
		ls_SendSCcode = tab_ljfieb.tabpage_sale.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_ljfieb.tabpage_sale.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_ljfieb.tabpage_sale.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_ljfieb.tabpage_sale.dw_sale_msg.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
	NEXT
	
END IF

tab_ljfieb.tabpage_sale.dw_sale_msg.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_ljfieb.tabpage_sale.dw_sale_rece.SetRedraw(False)
tab_ljfieb.tabpage_sale.dw_sale_rece.Retrieve()


IF Not sys_power_issuper THEN
	
	tab_ljfieb.tabpage_sale.dw_sale_rece.AcceptText()
	
	FOR ll_i = tab_ljfieb.tabpage_sale.dw_sale_rece.RowCount() To 1 Step -1
		ll_sendcuscommid = tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_sendcuscommid[ll_i]
		ls_receivesccode = tab_ljfieb.tabpage_sale.dw_sale_rece.Object.ljfieb_packet_receivesccode[ll_i]
		ls_SendSCcode = tab_ljfieb.tabpage_sale.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_ljfieb.tabpage_sale.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_ljfieb.tabpage_sale.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_ljfieb.tabpage_sale.dw_sale_rece.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
	NEXT
	
END IF
tab_ljfieb.tabpage_sale.dw_sale_rece.SetRedraw(True)




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_ljfieb.tabpage_sale.dw_sale_send.SetRedraw(False)
tab_ljfieb.tabpage_sale.dw_sale_send.Retrieve()


IF Not sys_power_issuper THEN
	
	tab_ljfieb.tabpage_sale.dw_sale_send.AcceptText()
	
	FOR ll_i = tab_ljfieb.tabpage_sale.dw_sale_send.RowCount() To 1 Step -1
		ll_sendcuscommid = tab_ljfieb.tabpage_sale.dw_sale_send.Object.ljfieb_packet_sendcuscommid[ll_i]
		ls_receivesccode = tab_ljfieb.tabpage_sale.dw_sale_send.Object.ljfieb_packet_receivesccode[ll_i]
		ls_SendSCcode = tab_ljfieb.tabpage_sale.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_ljfieb.tabpage_sale.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_ljfieb.tabpage_sale.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_ljfieb.tabpage_sale.dw_sale_send.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
	NEXT
	
END IF
tab_ljfieb.tabpage_sale.dw_sale_send.SetRedraw(True)




end subroutine

public subroutine wf_resizetab ();This.SetRedraw(True)
//sale
tab_ljfieb.tabpage_sale.dw_sale_msg.width = tab_ljfieb.tabpage_sale.width - tab_ljfieb.tabpage_sale.dw_sale_msg.x //- 40
tab_ljfieb.tabpage_sale.r_6.width = tab_ljfieb.tabpage_sale.dw_sale_msg.width

tab_ljfieb.tabpage_sale.dw_sale_send.width = tab_ljfieb.tabpage_sale.width - tab_ljfieb.tabpage_sale.dw_sale_send.x //- 40
tab_ljfieb.tabpage_sale.r_8.width = tab_ljfieb.tabpage_sale.dw_sale_send.width

//buy
tab_ljfieb.tabpage_buy.dw_buy_msg.width = tab_ljfieb.tabpage_buy.width - tab_ljfieb.tabpage_buy.dw_buy_msg.x //- 40
tab_ljfieb.tabpage_buy.r_7.width = tab_ljfieb.tabpage_buy.dw_buy_msg.width

tab_ljfieb.tabpage_buy.dw_buy_send.width = tab_ljfieb.tabpage_buy.width - tab_ljfieb.tabpage_buy.dw_buy_send.x //- 40
tab_ljfieb.tabpage_buy.r_5.width = tab_ljfieb.tabpage_buy.dw_buy_send.width

// msg
tab_ljfieb.tabpage_msg.dw_msg.width = tab_ljfieb.tabpage_msg.width - tab_ljfieb.tabpage_msg.dw_msg.x //- 40
tab_ljfieb.tabpage_msg.r_2.width = tab_ljfieb.tabpage_msg.dw_msg.width

return 
end subroutine

public function integer wf_mbtface ();// //wf_mbtface
//cur_group=arg_btno

p_lsgl.is_picture = p_lsgl.b_is_picture
p_lsgl.on_picture = p_lsgl.b_on_picture

p_cwgl.is_picture = p_cwgl.b_is_picture
p_cwgl.on_picture = p_cwgl.b_on_picture

p_xsgl.is_picture = p_xsgl.b_is_picture
p_xsgl.on_picture = p_xsgl.b_on_picture

p_ckgl.is_picture = p_ckgl.b_is_picture
p_ckgl.on_picture = p_ckgl.b_on_picture

p_cggl.is_picture = p_cggl.b_is_picture
p_cggl.on_picture = p_cggl.b_on_picture

p_rsgz.is_picture = p_rsgz.b_is_picture
p_rsgz.on_picture = p_rsgz.b_on_picture

p_wxgl.is_picture = p_wxgl.b_is_picture
p_wxgl.on_picture = p_wxgl.b_on_picture

p_xtwh.is_picture = p_xtwh.b_is_picture
p_xtwh.on_picture = p_xtwh.b_on_picture


p_zlgl.is_picture = p_zlgl.b_is_picture
p_zlgl.on_picture = p_zlgl.b_on_picture

p_scgl.is_picture = p_scgl.b_is_picture
p_scgl.on_picture = p_scgl.b_on_picture

IF ShowTab THEN
	CHOOSE CASE cur_ActiveWin
		CASE 'XS' //销售
			tab_ljfieb.SelectedTab = 1
			return 0
		CASE 'CG' //采购
			tab_ljfieb.SelectedTab = 2
			return 0
		CASE ELSE
			ShowTab = Not ShowTab
			wf_ShowTab()
	END CHOOSE
ELSE
	
END IF


//this.setredraw( false)
CHOOSE CASE cur_ActiveWin

	CASE 'OP' //介绍页
		//Open(w_main_child_in)
		IF IsValid(w_main_child_in) THEN
			w_main_child_in.BringToTop = True
		ELSE
			Open(w_main_child_in)
		END IF
		
	CASE 'XS' //销售
		p_xsgl.is_picture = p_xsgl.cl_picture
		p_xsgl.on_picture = p_xsgl.cl_picture
		IF IsValid(w_main_child_xs) THEN
			w_main_child_xs.BringToTop = True
		ELSE
			Open(w_main_child_xs)
		END IF
		
		tab_ljfieb.SelectedTab = 1
		
	CASE 'CK' //仓库
		p_ckgl.is_picture = p_ckgl.cl_picture
		p_ckgl.on_picture = p_ckgl.cl_picture
		IF sys_version = 802001  THEN
			IF IsValid(w_main_child_ck_biz) THEN
				w_main_child_ck_biz.BringToTop = True
			ELSE
				Open(w_main_child_ck_biz)
			END IF
		ELSE
			IF IsValid(w_main_child_ck) THEN
				w_main_child_ck.BringToTop = True
			ELSE
				Open(w_main_child_ck)
			END IF
		END IF
		
	CASE 'CG' //采购
		p_cggl.is_picture = p_cggl.cl_picture
		p_cggl.on_picture = p_cggl.cl_picture
		IF IsValid(w_main_child_cg) THEN
			w_main_child_cg.BringToTop = True
		ELSE
			Open(w_main_child_cg)
		END IF
		tab_ljfieb.SelectedTab = 2
	CASE 'CW' //财务
		p_cwgl.is_picture = p_cwgl.cl_picture
		p_cwgl.on_picture = p_cwgl.cl_picture
		IF IsValid(w_main_child_cw) THEN
			w_main_child_cw.BringToTop = True
		ELSE
			Open(w_main_child_cw)
		END IF
		
	CASE 'XT' //系统维护
		p_xtwh.is_picture = p_xtwh.cl_picture
		p_xtwh.on_picture = p_xtwh.cl_picture
		IF sys_if_network = 1 THEN
			IF IsValid(w_main_child_xtwh_net) THEN
				w_main_child_xtwh_net.BringToTop = True
			ELSE
				Open(w_main_child_xtwh_net)
			END IF
		ELSE
			IF IsValid(w_main_child_xtwh) THEN
				w_main_child_xtwh.BringToTop = True
			ELSE
				Open(w_main_child_xtwh)
			END IF
		END IF
	CASE 'RS' //人事管理
		p_rsgz.is_picture = p_rsgz.cl_picture
		p_rsgz.on_picture = p_rsgz.cl_picture
		IF IsValid(w_main_child_rsgz) THEN
			w_main_child_rsgz.BringToTop = True
		ELSE
			Open(w_main_child_rsgz)
		END IF
		
	CASE 'WX' //外协
		p_wxgl.is_picture = p_wxgl.cl_picture
		p_wxgl.on_picture = p_wxgl.cl_picture
		IF IsValid(w_main_child_jg) THEN
			w_main_child_jg.BringToTop = True
		ELSE
			Open(w_main_child_jg)
		END IF
		//		Open(w_main_child_jg)
		//		w_main_child_jg.wf_kk()
	CASE 'ZL' //资料
		p_zlgl.is_picture = p_zlgl.cl_picture
		p_zlgl.on_picture = p_zlgl.cl_picture
		IF sys_version = 802001  THEN
			IF IsValid(w_main_child_define_biz) THEN
				w_main_child_define_biz.BringToTop = True
			ELSE
				Open(w_main_child_define_biz)
			END IF
		ELSE
			IF IsValid(w_main_child_define) THEN
				w_main_child_define.BringToTop = True
			ELSE
				Open(w_main_child_define)
			END IF
		END IF
		
	CASE 'SC' //生产管理
		p_scgl.is_picture = p_scgl.cl_picture
		p_scgl.on_picture = p_scgl.cl_picture
		IF IsValid(w_main_child_sc) THEN
			w_main_child_sc.BringToTop = True
		ELSE
			Open(w_main_child_sc)
		END IF
		
	CASE 'LS' //零售管理
		p_lsgl.is_picture = p_lsgl.cl_picture
		p_lsgl.on_picture = p_lsgl.cl_picture
		IF IsValid(w_main_child_biz) THEN
			w_main_child_biz.BringToTop = True
		ELSE
			Open(w_main_child_biz)
		END IF
		
END CHOOSE
//this.triggerevent("mousemove")
//this.setredraw( true)
wf_resetelsebtface()
RETURN 0







end function

public subroutine wf_init_dw ();dw_msg.SetTransObject(sqlca)
dw_sale_rece.SetTransObject(sys_email_sqlca)
dw_sale_msg.SetTransObject(sys_email_sqlca)
dw_sale_send.SetTransObject(sys_email_sqlca)
dw_buy_feedback.SetTransObject(sys_email_sqlca)
dw_buy_msg.SetTransObject(sys_email_sqlca)
dw_buy_send.SetTransObject(sys_email_sqlca)

//return 1
end subroutine

public subroutine wf_showtab ();IF ShowTab THEN
	cb_2.Text = "︾"
	tab_ljfieb.BringToTop = True
	
	cb_2.Y = p_bar.Y + p_bar.Height
	tab_ljfieb.Y = cb_2.Y //+ This.Height 
	
	//ShowTab = True
ELSE
	cb_2.Text = '︽'
	cb_2.Y = p_bom.Y
	tab_ljfieb.Y = cb_2.Y //+ This.Height
	
	//ShowTab = False
END IF
cb_2.TriggerEvent('ue_textchange')

This.TriggerEvent("resize")


end subroutine

public subroutine wf_init_pic ();//隐藏模块
picture lp_pic[]
Long ll_funcid[] //权限数组,没有的对应模块不显示
Long ll_max = 10,i,j

lp_pic[1] = p_lsgl //零售
lp_pic[2] = p_xsgl //销售
lp_pic[3] = p_ckgl //仓库
lp_pic[4] = p_cggl //采购
lp_pic[5] = p_wxgl //外协
lp_pic[6] = p_scgl //生产
lp_pic[7] = p_rsgz //人事工资
lp_pic[8] = p_cwgl //财务
lp_pic[9] = p_zlgl //资料
lp_pic[10] = p_xtwh //系统维护

ll_funcid[1] = 1046
ll_funcid[2] = 256
ll_funcid[3] = 258
ll_funcid[4] = 259
ll_funcid[5] = 349
ll_funcid[6] = 1047
ll_funcid[7] = 260
ll_funcid[8] = 261
ll_funcid[9] = 0
ll_funcid[10] = 0



//sys_version = 802001

If sys_version = 802001  Then
	lp_pic[1].X = p_xsgl.X
	
	lp_pic[5].Visible = False //隐藏外协
	
	lp_pic[6].Visible = False //隐藏生产
	
	If sys_option_hide_money = 1 Then //隐藏财务
		lp_pic[8].Visible = False
	End If
	
	If sys_option_hide_ware = 1 Then //隐藏仓库
		lp_pic[3].Visible = False
	End If
	
	If sys_option_hide_gz = 1 Then //隐藏工资
		lp_pic[7].Visible = False
	End If
	
Else
	
	lp_pic[1].Visible = False //隐藏零售
	
	If sys_option_hide_wfjg = 1 Then //隐藏外协
		lp_pic[5].Visible = False
	End If
	
	If sys_option_hide_sc = 1 Then //隐藏生产
		lp_pic[6].Visible = False
	End If
	
	If sys_option_hide_gz = 1 Then //隐藏工资
		lp_pic[7].Visible = False
	End If
	
	If sys_option_hide_money = 1 Then //隐藏财务
		lp_pic[8].Visible = False
	End If
End If

//没有权限的,不显示
For i = 1 To ll_max
	If lp_pic[i].Visible Then
		If ll_funcid[i] <> 0 Then
			If Not f_power_ind(ll_funcid[i]) Then
				lp_pic[i].Visible = False
			End If
		End If
	End If
Next


Long ll_y
ll_y = 88
For i = 1 To ll_max
	If lp_pic[i].Visible Then
		lp_pic[i].Y =  ll_y
		ll_y += 148
	End If
Next

//return 1

end subroutine

public subroutine wf_init ();//窗口初始化

//This.SetRedraw(False)
This.wf_init_pic() //隐藏模块
This.wf_init_dw()
This.wf_mbtface(0)
This.wf_build_menutree()
This.wf_ware_alter()
This.wf_retrieve(1)
This.wf_retrieve(2)
This.wf_retrieve(3)
f_refresh_mainwin_title(w_main_scware)

//设置快捷方式图标
lv_shortcut_type = Long(f_ProfileString(sys_empid, "lv_shortcut", "type", '1'))
IF lv_shortcut_type = 1 THEN
	lv_shortcut.View = ListViewlargeIcon!
ELSE
	lv_shortcut.View = ListViewSmallIcon!
END IF

sp_v1_x = Long(f_ProfileString(sys_empid, "sp_v1", "x", '978'))
sp_v1.X = sp_v1_x
sp_v1.Width = 5
lb_1.Width = sp_v1_x - 10
//r_2.Width = sp_v1_x - 5
tab_ljfieb.X = sp_v1.X  + 8
tab_ljfieb.Y = p_bom.Y

//This.SetRedraw(True)

end subroutine

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 wf_set_shortcut (integer oldindex, integer newindex);//st_1.text = "[o]:"+string(oldindex)+"[N]:"+string(newindex)
//
//IF oldindex = newindex THEN RETURN 1
//IF oldindex <= 0 THEN RETURN 1
//IF newindex <= 0 THEN RETURN 1
//IF oldindex > lv_Shortcut_funcid_cnt THEN RETURN 1
//IF newindex > lv_Shortcut_funcid_cnt THEN RETURN 1
//
//Long i
//Long ll_funcid[]
//String str_shortcutstr
//
//IF oldindex > newindex THEN // 往前拉
//	FOR i = 1 To newindex - 1
//		ll_funcid[i] = lv_Shortcut_funcid_arr[i]
//	NEXT
//	ll_funcid[newindex] = lv_Shortcut_funcid_arr[oldindex]
//	FOR i = newindex + 1 To oldindex
//		ll_funcid[i] = lv_Shortcut_funcid_arr[i - 1]
//	NEXT
//	FOR i = oldindex + 1 To lv_Shortcut_funcid_cnt
//		ll_funcid[i] = lv_Shortcut_funcid_arr[i]
//	NEXT
//ELSE //往后拉
//	FOR i = 1 To oldindex - 1
//		ll_funcid[i] = lv_Shortcut_funcid_arr[i]
//	NEXT
//	FOR i = oldindex To newindex - 1
//		ll_funcid[i] = lv_Shortcut_funcid_arr[oldindex + 1]
//	NEXT
//	ll_funcid[newindex] = lv_Shortcut_funcid_arr[oldindex]
//	FOR i = newindex + 1 To lv_Shortcut_funcid_cnt
//		ll_funcid[i] = lv_Shortcut_funcid_arr[i]
//	NEXT
//	
//END IF
//
//FOR i = 1 To lv_Shortcut_funcid_cnt
//	str_shortcutstr += String(ll_funcid[i])+","
//NEXT
//
//str_shortcutstr += "[I]:"+string(newIndex)
//st_1.text = str_shortcutstr
//st_1.bringtotop = true
//
//UPDATE u_user
//	SET shortcutstr = :str_shortcutstr
//	WHERE scid = :sys_scid
//	And empid = :sys_empid;
//IF sqlca.SQLCode <> 0 THEN
//	ROLLBACK;
//	RETURN 0
//END IF
//
//COMMIT;
RETURN 1




end function

on w_main_scware.create
int iCurrent
call super::create
if this.MenuName = "m_x_genapp_frame_sp1" then this.MenuID = create m_x_genapp_frame_sp1
this.mdi_1=create mdi_1
this.cb_1=create cb_1
this.lb_1=create lb_1
this.p_lsgl=create p_lsgl
this.tab_ljfieb=create tab_ljfieb
this.st_9=create st_9
this.p_shortcut=create p_shortcut
this.st_shortcut=create st_shortcut
this.sp_v1=create sp_v1
this.st_about=create st_about
this.st_upload=create st_upload
this.st_user=create st_user
this.st_longjoe=create st_longjoe
this.p_bar=create p_bar
this.p_scgl=create p_scgl
this.p_zlgl=create p_zlgl
this.p_xtwh=create p_xtwh
this.p_ckgl=create p_ckgl
this.p_cggl=create p_cggl
this.p_xsgl=create p_xsgl
this.p_rsgz=create p_rsgz
this.p_wxgl=create p_wxgl
this.p_cwgl=create p_cwgl
this.p_bom=create p_bom
this.p_left=create p_left
this.r_shortcut=create r_shortcut
this.lv_shortcut=create lv_shortcut
this.cb_2=create cb_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.mdi_1
this.Control[iCurrent+2]=this.cb_1
this.Control[iCurrent+3]=this.lb_1
this.Control[iCurrent+4]=this.p_lsgl
this.Control[iCurrent+5]=this.tab_ljfieb
this.Control[iCurrent+6]=this.st_9
this.Control[iCurrent+7]=this.p_shortcut
this.Control[iCurrent+8]=this.st_shortcut
this.Control[iCurrent+9]=this.sp_v1
this.Control[iCurrent+10]=this.st_about
this.Control[iCurrent+11]=this.st_upload
this.Control[iCurrent+12]=this.st_user
this.Control[iCurrent+13]=this.st_longjoe
this.Control[iCurrent+14]=this.p_bar
this.Control[iCurrent+15]=this.p_scgl
this.Control[iCurrent+16]=this.p_zlgl
this.Control[iCurrent+17]=this.p_xtwh
this.Control[iCurrent+18]=this.p_ckgl
this.Control[iCurrent+19]=this.p_cggl
this.Control[iCurrent+20]=this.p_xsgl
this.Control[iCurrent+21]=this.p_rsgz
this.Control[iCurrent+22]=this.p_wxgl
this.Control[iCurrent+23]=this.p_cwgl
this.Control[iCurrent+24]=this.p_bom
this.Control[iCurrent+25]=this.p_left
this.Control[iCurrent+26]=this.r_shortcut
this.Control[iCurrent+27]=this.lv_shortcut
this.Control[iCurrent+28]=this.cb_2
end on

on w_main_scware.destroy
call super::destroy
if IsValid(MenuID) then destroy(MenuID)
destroy(this.mdi_1)
destroy(this.cb_1)
destroy(this.lb_1)
destroy(this.p_lsgl)
destroy(this.tab_ljfieb)
destroy(this.st_9)
destroy(this.p_shortcut)
destroy(this.st_shortcut)
destroy(this.sp_v1)
destroy(this.st_about)
destroy(this.st_upload)
destroy(this.st_user)
destroy(this.st_longjoe)
destroy(this.p_bar)
destroy(this.p_scgl)
destroy(this.p_zlgl)
destroy(this.p_xtwh)
destroy(this.p_ckgl)
destroy(this.p_cggl)
destroy(this.p_xsgl)
destroy(this.p_rsgz)
destroy(this.p_wxgl)
destroy(this.p_cwgl)
destroy(this.p_bom)
destroy(this.p_left)
destroy(this.r_shortcut)
destroy(this.lv_shortcut)
destroy(this.cb_2)
end on

event open;call super::open;//初始化 dw
dw_sale_rece = tab_ljfieb.tabpage_sale.dw_sale_rece
dw_sale_msg = tab_ljfieb.tabpage_sale.dw_sale_msg
dw_sale_send = tab_ljfieb.tabpage_sale.dw_sale_send
dw_buy_feedback = tab_ljfieb.tabpage_buy.dw_buy_feedback
dw_buy_msg = tab_ljfieb.tabpage_buy.dw_buy_msg
dw_buy_send = tab_ljfieb.tabpage_buy.dw_buy_send

dw_msg = tab_ljfieb.tabpage_msg.dw_msg

// 连接电话盒设备
integer i
i = uo_cc301_ins.OpenDevice(Handle(w_main_scware)) // 连接电话设备
//
wf_init()



Timer(60)




end event

event closequery;
IF  MessageBox("提示", "确定要退出本系统吗?", Question!, OKCancel!, 2) = 1 THEN
	f_setProfileString(sys_empid, "sp_v1", "x", string(sp_v1.x))
	f_terminate_l1()
	f_update_login(0) //0-注销; 1-登录;2-更新
	
	// 断开设备及清理内存
	uo_cc301_ins.closedevice( ); 
	destroy uo_cc301_ins; 
	
	HALT
	
ELSE
	RETURN 1
END IF

end event

event mousemove;call super::mousemove;wf_resetelsebtface()







end event

event activate;f_refresh_mainwin_title(w_main_scware)



end event

event key;IF KeyDown(KeyControl!) AND KeyDown(KeyF9!) THEN
	Open(w_system_setting)
ELSEIF  KeyDown(KeyControl!) AND KeyDown(KeyF8!) THEN
	s_edit_index_tran s_tran
	OpenWithParm(w_rp_sale_mx_hc,s_tran)
END IF


end event

event resize;call super::resize;Long w_width,w_height
w_width = 4600
w_height = 2750

p_bar.Width = This.Width
p_bom.Width = This.Width
IF newwidth < w_width THEN This.Width = w_width
IF newheight < w_height THEN  This.Height = w_height

st_user.X = This.Width - 1200
st_upload.X = st_user.X  + st_user.Width + 100
st_longjoe.X = st_upload.X  + st_upload.Width + 100
st_about.X = st_longjoe.X  + st_longjoe.Width + 100

IF IsValid(w_main_child_in) THEN
	lv_shortcut.Width = This.Width - w_main_child_in.X - w_main_child_in.Width - 60
END IF

sp_v1.Y = p_bom.Y //+ p_bom.height
sp_v1.Height = This.Height - sp_v1.Y - 285

r_shortcut.X = This.Width - lv_shortcut.Width - 50
r_shortcut.Y = p_bar.Y + p_bar.Height
r_shortcut.Width = lv_shortcut.Width
st_9.X = r_shortcut.X + 20
p_shortcut.X = r_shortcut.X + 340
st_shortcut.X = r_shortcut.X + 430

lv_shortcut.X = r_shortcut.X
lv_shortcut.Y = r_shortcut.Y + r_shortcut.Height - 4
lv_shortcut.Height = p_bom.Y -  lv_shortcut.Y - 5

//r_2.x = 0
lb_1.Y = p_bom.Y + p_bom.Height
lb_1.Height = This.Height - lb_1.Y - 320
//
//r_2.Width = dw_msg.Width

tab_ljfieb.Width = This.Width - tab_ljfieb.X - 80
tab_ljfieb.Height = This.Height - tab_ljfieb.Y - 320

sp_v1.Height = This.Height - sp_v1.Y - 320

dw_msg.Height = tab_ljfieb.tabpage_msg.Height - 104

//sale
tab_ljfieb.tabpage_sale.dw_sale_rece.Height = (tab_ljfieb.tabpage_sale.Height - 200 - 140) / 2
tab_ljfieb.tabpage_sale.dw_sale_msg.Height = tab_ljfieb.tabpage_sale.dw_sale_rece.Height

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

tab_ljfieb.tabpage_sale.dw_sale_send.Y = tab_ljfieb.tabpage_sale.r_8.Y + tab_ljfieb.tabpage_sale.r_8.Height - 4
tab_ljfieb.tabpage_sale.dw_sale_send.Height = tab_ljfieb.tabpage_sale.Height - tab_ljfieb.tabpage_sale.dw_sale_send.Y// - 140


//buy
tab_ljfieb.tabpage_buy.dw_buy_feedback.Height = (tab_ljfieb.tabpage_buy.Height - 200 - 140) / 2
tab_ljfieb.tabpage_buy.dw_buy_msg.Height = tab_ljfieb.tabpage_buy.dw_buy_feedback.Height

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

tab_ljfieb.tabpage_buy.dw_buy_send.Y = tab_ljfieb.tabpage_buy.r_5.Y + tab_ljfieb.tabpage_buy.r_5.Height - 4
tab_ljfieb.tabpage_buy.dw_buy_send.Height = tab_ljfieb.tabpage_buy.Height - tab_ljfieb.tabpage_buy.dw_buy_send.Y// - 140

cb_2.x = this.width - cb_2.width - 50
cb_2.y = tab_ljfieb.y
cb_2.BringToTop = true

wf_resizetab()





end event

event timer;if mod(integer(string(now(),'mm')),retrieve_mm)=0 then
	wf_retrieve(1)
	wf_retrieve(2)
	wf_retrieve(3)
end if

f_update_login(2) //0-注销; 1-登录;2-更新



end event

event other;call super::other;// 如果登陆界面不存在
IF not  IsValid(w_sys_login) and not IsValid(w_sys_login_s) THEN
	String us_commingphone 
	
	CHOOSE CASE message.number
		CASE UO_cc301.BRI_EVENT_MESSAGE	
			string ls_tmp2;
			BRIEVENT e;		
			// lparam - 2 内存复制时，指针存在偏移；
			CopyMemory(e,lparam - 2 ,652);//sizeof(e)
			CHOOSE CASE e.lEventType
				CASE 	UO_cc301.BriEvent_PhoneHook
					//MessageBox('电话提示',"本地话机摘机");
					US_COMMINGPHONE = ""
				CASE 	UO_cc301.BriEvent_PhoneHang
					//MessageBox('电话提示',"本地话机挂机");
					US_COMMINGPHONE = ""
				CASE UO_cc301.BriEvent_CallIn
					//MessageBox('电话提示',"来电响铃");
				CASE UO_cc301.BriEvent_GetCallID					
					Blob lb_phone 
					lb_phone = Blob(e.szData) 
					US_COMMINGPHONE = String(lb_phone ,EncodingUTF8!) 
					// 来电弹出客户信息功能入口
					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.b_string = ''
				
					//window main
					string ls_WindowName
					ls_WindowName = "w_cust_crm"
					w_cust_crm crm
					
					s_tran.b_string = 'PHONE'
					s_tran.d_string = US_COMMINGPHONE
					// 弹出窗口，显示来电信息
					OpenWithParm(crm ,s_tran)				
				CASE UO_cc301.BriEvent_PhoneDial
				//	AppendStatus("话机拨号");
				//	AppendStatus(e.szData);
				CASE UO_cc301.BriEvent_BUSY
				//	AppendStatus("线路忙");
				CASE UO_cc301.BriEvent_RemoteHang
				//	AppendStatus("对方挂机,线路断开");
					US_COMMINGPHONE = ""
				CASE UO_cc301.BriEvent_StopCallIn
					//AppendStatus("停止呼入,产生未接电话...");
					US_COMMINGPHONE = ""
				CASE ELSE
					//AppendStatus("其它事件,查看事件定义."+String(e.lEventType));
			END CHOOSE
	END CHOOSE
END IF
end event

type mdi_1 from mdiclient within w_main_scware
long BackColor=268435456
end type

type cb_1 from commandbutton within w_main_scware
boolean visible = false
integer x = 3653
integer y = 28
integer width = 457
integer height = 128
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "none"
end type

event clicked;open(w_q6_main)
end event

type lb_1 from uo_ljnc_listbox within w_main_scware
integer y = 1492
integer width = 983
integer height = 624
integer taborder = 40
end type

type p_lsgl from uo_picture_m within w_main_scware
integer x = 882
integer y = 88
integer width = 859
integer height = 128
boolean bringtotop = true
string picturename = "graphics\mf_lsgl_u.bmp"
end type

event clicked;call super::clicked;cur_ActiveWin = "LS"
wf_mbtface()
//wf_mbtface(12)
parent.triggerevent("mousemove")
end event

event constructor;call super::constructor;on_picture='graphics\mf_lsgl_on.bmp'

b_on_picture=on_picture
cl_picture='graphics\mf_lsgl_cl.bmp'



end event

event mouse;call super::mouse;io_cont=this
end event

type tab_ljfieb from tab within w_main_scware
event create ( )
event destroy ( )
integer x = 1024
integer y = 1444
integer width = 3538
integer height = 2076
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
integer selectedtab = 1
tabpage_msg tabpage_msg
tabpage_sale tabpage_sale
tabpage_buy tabpage_buy
end type

on tab_ljfieb.create
this.tabpage_msg=create tabpage_msg
this.tabpage_sale=create tabpage_sale
this.tabpage_buy=create tabpage_buy
this.Control[]={this.tabpage_msg,&
this.tabpage_sale,&
this.tabpage_buy}
end on

on tab_ljfieb.destroy
destroy(this.tabpage_msg)
destroy(this.tabpage_sale)
destroy(this.tabpage_buy)
end on

event selectionchanged;//IF tab_1.SelectedTab = 2 THEN
//	wf_retr_guide(ins_funcid)
//END IF
//
end event

type tabpage_msg from userobject within tab_ljfieb
event create ( )
event destroy ( )
integer x = 18
integer y = 112
integer width = 3502
integer height = 1948
long backcolor = 16777215
string text = "内部邮件"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
string picturename = "ToDoList!"
long picturemaskcolor = 536870912
r_2 r_2
dw_msg dw_msg
st_mana_msg st_mana_msg
p_mana_msg p_mana_msg
st_msg_new st_msg_new
p_msg_new p_msg_new
st_7 st_7
end type

on tabpage_msg.create
this.r_2=create r_2
this.dw_msg=create dw_msg
this.st_mana_msg=create st_mana_msg
this.p_mana_msg=create p_mana_msg
this.st_msg_new=create st_msg_new
this.p_msg_new=create p_msg_new
this.st_7=create st_7
this.Control[]={this.r_2,&
this.dw_msg,&
this.st_mana_msg,&
this.p_mana_msg,&
this.st_msg_new,&
this.p_msg_new,&
this.st_7}
end on

on tabpage_msg.destroy
destroy(this.r_2)
destroy(this.dw_msg)
destroy(this.st_mana_msg)
destroy(this.p_mana_msg)
destroy(this.st_msg_new)
destroy(this.p_msg_new)
destroy(this.st_7)
end on

type r_2 from rectangle within tabpage_msg
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 dw_msg from datawindow within tabpage_msg
integer y = 104
integer width = 2368
integer height = 1076
integer taborder = 160
string title = "none"
string dataobject = "dw_deal_admsg_mainface_new"
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
end type

event doubleclicked;Long ll_msgid

IF row > 0 THEN
	ll_msgid = dw_msg.Object.sys_admsgmx_msgid[row]
	OpenWithParm(w_email_view,ll_msgid)
	
	dw_msg.SetRedraw(False)
//	wf_retr_dw_m1()
	wf_refresh_msg()
	
	IF row <= dw_msg.RowCount() THEN
		dw_msg.SetRow(row)
		dw_msg.ScrollToRow(row) 
		dw_msg.SelectRow(0,False)
		dw_msg.SelectRow(row,True)
	END IF
	
	dw_msg.SetRedraw(True)
	
	
END IF


end event

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

end event

type st_mana_msg from uo_text_m within tabpage_msg
integer x = 841
integer y = 32
integer width = 242
integer height = 60
integer textsize = -9
long backcolor = 12632256
string text = "邮件管理"
alignment alignment = center!
end type

event clicked;call super::clicked;f_sys_main(1206)

//OpenWithParm(w_email_view,0)
end event

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

type p_mana_msg from picture within tabpage_msg
integer x = 763
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_mana_msg.triggerevent(clicked!)
end event

type st_msg_new from uo_text_m within tabpage_msg
integer x = 517
integer y = 32
integer width = 242
integer height = 60
integer textsize = -9
long backcolor = 12632256
string text = "发送邮件"
alignment alignment = center!
end type

event clicked;call super::clicked;s_admsg s_msg
s_msg.ifback = 0 
openwithparm(w_msg_send,s_msg)
end event

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

type p_msg_new from picture within tabpage_msg
integer x = 439
integer y = 28
integer width = 73
integer height = 64
boolean originalsize = true
string picturename = "graphics/new_m.BMP"
boolean focusrectangle = false
end type

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

type st_7 from uo_text_m within tabpage_msg
integer x = 41
integer y = 24
integer width = 293
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 tabpage_sale from userobject within tab_ljfieb
event create ( )
event destroy ( )
integer x = 18
integer y = 112
integer width = 3502
integer height = 1948
long backcolor = 16777215
string text = "销售电子商务"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
string picturename = "UserObject5!"
long picturemaskcolor = 536870912
r_6 r_6
r_8 r_8
r_4 r_4
dw_sale_rece dw_sale_rece
st_15 st_15
st_retrieve_sale_re st_retrieve_sale_re
p_7 p_7
st_mtrl_propel st_mtrl_propel
p_6 p_6
st_more_sale st_more_sale
p_9 p_9
st_14 st_14
dw_sale_msg dw_sale_msg
st_salemsg st_salemsg
p_salemsg p_salemsg
st_mng_sale st_mng_sale
p_mng_sale p_mng_sale
st_salemsg_retrieve st_salemsg_retrieve
p_salemsg_retrieve p_salemsg_retrieve
dw_sale_send dw_sale_send
st_13 st_13
st_12 st_12
p_12 p_12
st_more_sales st_more_sales
p_13 p_13
end type

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

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

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

type r_6 from rectangle within tabpage_sale
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 r_8 from rectangle within tabpage_sale
long linecolor = 134217734
integer linethickness = 4
long fillcolor = 12632256
integer y = 948
integer width = 3319
integer height = 100
end type

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

type r_4 from rectangle within tabpage_sale
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 dw_sale_rece from u_dw_rbtnfilter within tabpage_sale
integer y = 104
integer width = 2290
integer height = 828
integer taborder = 30
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_15 from uo_text_m within tabpage_sale
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 st_retrieve_sale_re from uo_text_m_main within tabpage_sale
integer x = 553
integer y = 36
integer width = 155
integer height = 48
integer textsize = -9
long backcolor = 12632256
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_sale
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_mtrl_propel from uo_text_m_main within tabpage_sale
integer x = 782
integer y = 36
integer width = 251
integer height = 48
integer textsize = -9
long backcolor = 12632256
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_sale
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_more_sale from uo_text_m_main within tabpage_sale
integer x = 1125
integer y = 36
integer width = 370
integer height = 48
integer textsize = -9
long textcolor = 0
long backcolor = 12632256
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_sale
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_14 from uo_text_m within tabpage_sale
integer x = 2345
integer y = 32
integer width = 329
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_sale_msg from datawindow within tabpage_sale
integer x = 2299
integer y = 104
integer width = 1198
integer height = 828
integer taborder = 60
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_salemsg from uo_text_m_main within tabpage_sale
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 = 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_sale
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_mng_sale from uo_text_m_main within tabpage_sale
integer x = 3040
integer y = 36
integer width = 242
integer height = 48
integer textsize = -9
long backcolor = 12632256
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_sale
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_retrieve from uo_text_m_main within tabpage_sale
integer x = 3360
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_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_sale
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 dw_sale_send from u_dw_rbtnfilter within tabpage_sale
integer y = 1044
integer width = 3493
integer height = 868
integer taborder = 30
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 st_13 from uo_text_m within tabpage_sale
integer x = 37
integer y = 964
integer width = 384
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_12 from uo_text_m_main within tabpage_sale
integer x = 553
integer y = 976
integer width = 123
integer height = 48
integer textsize = -9
long backcolor = 12632256
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_12 from picture within tabpage_sale
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_more_sales from uo_text_m_main within tabpage_sale
integer x = 782
integer y = 976
integer width = 347
integer height = 48
integer textsize = -9
long backcolor = 12632256
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 p_13 from picture within tabpage_sale
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 tabpage_buy from userobject within tab_ljfieb
event create ( )
event destroy ( )
integer x = 18
integer y = 112
integer width = 3502
integer height = 1948
long backcolor = 16777215
string text = "采购电子商务"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
string picturename = "CheckIn5!"
long picturemaskcolor = 536870912
r_5 r_5
r_7 r_7
r_9 r_9
dw_buy_msg dw_buy_msg
dw_buy_send dw_buy_send
st_16 st_16
st_retrieve_buy st_retrieve_buy
p_15 p_15
st_mtrl_receive st_mtrl_receive
p_14 p_14
dw_buy_feedback dw_buy_feedback
st_18 st_18
st_retrieve_buy_re st_retrieve_buy_re
p_8 p_8
st_more_buyfb st_more_buyfb
p_10 p_10
st_more_buys st_more_buys
p_11 p_11
st_17 st_17
st_buymsg st_buymsg
p_buymsg p_buymsg
st_mng_buy st_mng_buy
p_mng_buy p_mng_buy
st_buymsg_retrieve st_buymsg_retrieve
p_buymsg_retrieve p_buymsg_retrieve
end type

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

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

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

type r_5 from rectangle within tabpage_buy
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_7 from rectangle within tabpage_buy
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 r_9 from rectangle within tabpage_buy
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 dw_buy_msg from datawindow within tabpage_buy
integer x = 2299
integer y = 104
integer width = 1198
integer height = 828
integer taborder = 40
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_send from u_dw_rbtnfilter within tabpage_buy
integer y = 1044
integer width = 3493
integer height = 868
integer taborder = 40
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 st_16 from uo_text_m within tabpage_buy
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 st_retrieve_buy from uo_text_m_main within tabpage_buy
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_buy
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_mtrl_receive from uo_text_m_main within tabpage_buy
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_buy
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 dw_buy_feedback from u_dw_rbtnfilter within tabpage_buy
integer y = 104
integer width = 2290
integer height = 828
integer taborder = 40
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_18 from uo_text_m within tabpage_buy
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 st_retrieve_buy_re from uo_text_m_main within tabpage_buy
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_buy
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_more_buyfb from uo_text_m_main within tabpage_buy
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_buy
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_more_buys from uo_text_m_main within tabpage_buy
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_buy
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_17 from uo_text_m within tabpage_buy
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_buymsg from uo_text_m_main within tabpage_buy
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_buy
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_mng_buy from uo_text_m_main within tabpage_buy
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_buy
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_retrieve from uo_text_m_main within tabpage_buy
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_buy
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_9 from uo_text_m within w_main_scware
integer x = 3186
integer y = 100
integer width = 293
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 p_shortcut from picture within w_main_scware
integer x = 3520
integer y = 104
integer width = 73
integer height = 64
boolean originalsize = true
string picturename = "graphics/open_m.bmp"
boolean focusrectangle = false
end type

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

type st_shortcut from uo_text_m within w_main_scware
integer x = 3598
integer y = 108
integer width = 343
integer height = 60
integer textsize = -9
long backcolor = 12632256
string text = "快捷方式管理"
alignment alignment = center!
end type

event clicked;call super::clicked;parent.triggerevent("ue_add_shortcut")
end event

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

type sp_v1 from u_lbs_stsplitbar within w_main_scware
integer x = 1006
integer y = 1504
integer width = 9
integer height = 860
long backcolor = 134217730
string text = ""
long il_barcolor = 12426875
end type

event constructor;call super::constructor;//控制拖动条左右所能达到的边界距离
this.of_setminobjectsize(978)

this.of_setminobjectsize2(3550)

//78682240


end event

event lbuttonup;call super::lbuttonup;wf_resizetablepage( )
end event

type st_about from uo_text_m within w_main_scware
integer x = 3127
integer y = 16
integer width = 110
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
long textcolor = 0
string text = "关于"
alignment alignment = center!
end type

event constructor;call super::constructor;this.backcolor = rgb(214,223,239) 
end event

event clicked;call super::clicked;f_sys_main(805)
end event

type st_upload from uo_text_m within w_main_scware
integer x = 2606
integer y = 16
integer width = 110
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
long textcolor = 0
string text = "升级"
alignment alignment = center!
end type

event constructor;call super::constructor;this.backcolor = rgb(214,223,239) 
end event

event clicked;call super::clicked;m_sys_download om_1
om_1 = CREATE m_sys_download
om_1.PopMenu(THIS.X,THIS.Y + this.height)
DESTROY om_1



end event

type st_user from uo_text_m within w_main_scware
integer x = 2135
integer y = 16
integer width = 361
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
long textcolor = 0
string text = "切换用户/帐套"
alignment alignment = center!
end type

event constructor;call super::constructor;this.backcolor = rgb(214,223,239) 
end event

event clicked;call super::clicked;f_open(1)

end event

type st_longjoe from uo_text_m within w_main_scware
integer x = 2802
integer y = 16
integer width = 110
integer height = 52
boolean bringtotop = true
integer textsize = -9
boolean underline = true
long textcolor = 0
string text = "网站"
alignment alignment = center!
end type

event constructor;call super::constructor;this.backcolor = rgb(214,223,239) 
end event

event clicked;call super::clicked;
string ls_url

if sys_ifoem = 1 then 
     ls_url = ProfileString (sys_inioem, "oem", "website",'http://www.lxqg.net')
else
	ls_url = ProfileString ( sys_inifilename, 'cr', 'url', 'http://www.longserve.com' )

end if

run('explorer '+ls_url)
end event

type p_bar from picture within w_main_scware
integer width = 3616
integer height = 80
string picturename = "graphics\bar.bmp"
boolean focusrectangle = false
end type

event clicked;wf_mbtface()
//wf_mbtface(0)
end event

type p_scgl from uo_picture_m within w_main_scware
integer x = 50
integer y = 680
integer width = 859
integer height = 128
boolean bringtotop = true
string picturename = "graphics\mf_scgl_u.bmp"
end type

event clicked;call super::clicked;cur_ActiveWin = "SC"
wf_mbtface()
//wf_mbtface(11)
parent.triggerevent("mousemove")
end event

event constructor;call super::constructor;on_picture='graphics\mf_scgl_on.bmp'

b_on_picture=on_picture
cl_picture='graphics\mf_scgl_cl.bmp'

end event

event mouse;call super::mouse;io_cont=this
end event

type p_zlgl from uo_picture_m within w_main_scware
integer x = 50
integer y = 1120
integer width = 859
integer height = 128
boolean bringtotop = true
string picturename = "graphics\mf_zlgl_u.bmp"
end type

event clicked;cur_ActiveWin = "ZL"
wf_mbtface()
//wf_mbtface(10)
parent.triggerevent("mousemove")
end event

event constructor;call super::constructor;on_picture='graphics\mf_zlgl_on.bmp'

b_on_picture=on_picture
cl_picture='graphics\mf_zlgl_cl.bmp'

end event

event mouse;call super::mouse;io_cont=this
end event

type p_xtwh from uo_picture_m within w_main_scware
integer x = 50
integer y = 1268
integer width = 859
integer height = 128
boolean bringtotop = true
string picturename = "graphics\mf_xtwh_u.bmp"
end type

event clicked;cur_ActiveWin = "XT"
wf_mbtface()
//wf_mbtface(7)
end event

event constructor;call super::constructor;on_picture='graphics\mf_xtwh_on.bmp'

b_on_picture=on_picture
cl_picture='graphics\mf_xtwh_cl.bmp'

end event

event mouse;call super::mouse;io_cont=this
end event

type p_ckgl from uo_picture_m within w_main_scware
integer x = 50
integer y = 236
integer width = 859
integer height = 128
boolean bringtotop = true
string picturename = "graphics\mf_ckgl_u.bmp"
end type

event constructor;call super::constructor;on_picture='graphics\mf_ckgl_on.bmp'

b_on_picture=on_picture
cl_picture='graphics\mf_ckgl_cl.bmp'

end event

event mouse;call super::mouse;io_cont=this
end event

event clicked;cur_ActiveWin = "CK"
wf_mbtface()
//wf_mbtface(3)
parent.triggerevent("mousemove")
end event

type p_cggl from uo_picture_m within w_main_scware
integer x = 50
integer y = 384
integer width = 859
integer height = 128
boolean bringtotop = true
string picturename = "graphics\mf_cggl_u.bmp"
end type

event clicked;cur_ActiveWin = "CG"
wf_mbtface()
//wf_mbtface(4)
parent.triggerevent("mousemove")
end event

event constructor;call super::constructor;on_picture='graphics\mf_cggl_on.bmp'

b_on_picture=on_picture
cl_picture='graphics\mf_cggl_cl.bmp'

end event

event mouse;call super::mouse;io_cont=this
end event

type p_xsgl from uo_picture_m within w_main_scware
integer x = 50
integer y = 88
integer width = 859
integer height = 128
boolean bringtotop = true
string picturename = "graphics\mf_xsgl_u.bmp"
end type

event clicked;cur_ActiveWin = "XS"
wf_mbtface()
//wf_mbtface(1)

parent.triggerevent("mousemove")


end event

event constructor;call super::constructor;on_picture='graphics\mf_xsgl_on.bmp'
b_on_picture=on_picture
cl_picture='graphics\mf_xsgl_cl.bmp'


end event

event mouse;call super::mouse;io_cont=this
end event

type p_rsgz from uo_picture_m within w_main_scware
integer x = 50
integer y = 828
integer width = 859
integer height = 128
boolean bringtotop = true
string picturename = "graphics\mf_rsgz_u.bmp"
end type

event clicked;cur_ActiveWin = "RS"
wf_mbtface()
//wf_mbtface(8)
parent.triggerevent("mousemove")
end event

event constructor;call super::constructor;on_picture='graphics\mf_rsgz_on.bmp'

b_on_picture=on_picture
cl_picture='graphics\mf_rsgz_cl.bmp'

end event

event mouse;call super::mouse;io_cont=this
end event

type p_wxgl from uo_picture_m within w_main_scware
integer x = 50
integer y = 532
integer width = 859
integer height = 128
boolean bringtotop = true
string picturename = "graphics\mf_wxgl_u.bmp"
end type

event clicked;call super::clicked;cur_ActiveWin = "WX"
wf_mbtface()
//wf_mbtface(9)
parent.triggerevent("mousemove")
end event

event constructor;call super::constructor;on_picture='graphics\mf_wxgl_on.bmp'

b_on_picture=on_picture
cl_picture='graphics\mf_wxgl_cl.bmp'

end event

event mouse;call super::mouse;io_cont=this
end event

type p_cwgl from uo_picture_m within w_main_scware
integer x = 50
integer y = 972
integer width = 859
integer height = 128
string picturename = "graphics\mf_cwgl_u.bmp"
end type

event constructor;call super::constructor;on_picture='graphics\mf_cwgl_on.bmp'

b_on_picture=on_picture
cl_picture='graphics\mf_cwgl_cl.bmp'

end event

event mouse;call super::mouse;io_cont=this
end event

event clicked;cur_ActiveWin = "CW"
wf_mbtface()
//wf_mbtface(5)
parent.triggerevent("mousemove")
end event

type p_bom from picture within w_main_scware
integer y = 1444
integer width = 1509
integer height = 52
string picturename = "graphics\main_bom.bmp"
boolean focusrectangle = false
end type

type p_left from picture within w_main_scware
event mousemove pbm_mousemove
integer width = 997
integer height = 1448
string picturename = "graphics\main_left.bmp"
boolean focusrectangle = false
end type

event mousemove;parent.triggerevent("mousemove")
end event

event clicked;cur_ActiveWin = "OP"
wf_mbtface()
//wf_mbtface(0)
end event

type r_shortcut from rectangle within w_main_scware
long linecolor = 134217731
integer linethickness = 4
long fillcolor = 12632256
integer x = 3163
integer y = 80
integer width = 1120
integer height = 100
end type

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

type lv_shortcut from listview within w_main_scware
event mousemove pbm_mousemove
integer x = 3163
integer y = 172
integer width = 1120
integer height = 1104
integer taborder = 20
string dragicon = "Debug5!"
boolean dragauto = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autoarrange = true
boolean buttonheader = false
boolean fixedlocations = true
boolean showheader = false
boolean hideselection = false
boolean trackselect = true
boolean oneclickactivate = true
boolean twoclickactivate = true
boolean headerdragdrop = true
boolean underlinehot = true
string largepicturename[] = {"graphics\shortcut1.bmp","graphics\define.bmp","graphics\report.bmp","graphics\xsd.bmp","graphics\cgd.bmp"}
long largepicturemaskcolor = 536870912
string smallpicturename[] = {"graphics\shortcut.bmp","graphics\define.bmp","graphics\report.bmp"}
long smallpicturemaskcolor = 536870912
long statepicturemaskcolor = 536870912
end type

event mousemove;//ins_x = xpos
//ins_y = ypos
end event

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.TriggerEvent(dsEventName,mainid,mainid)
	
END IF






end event

event rightclicked;
m_Dfc_Control_PopupMenu dmPopupMenu
String menustr


menustr = "Text=添加快捷方式~tEvent=ue_add_shortcut"
menustr = menustr + "|" + "Text=删除快捷方式~tEvent=ue_del_shortcut"
menustr = menustr + "|" + "Text=-"
IF lv_shortcut_type = 1 THEN
	menustr = menustr + "|" + "Text=小图标~tEvent=ue_set_small"
	menustr = menustr + "|" + "Text=大图标√~tEvent=ue_set_large"
	
ELSE
	menustr = menustr + "|" + "Text=小图标√~tEvent=ue_set_small"
	menustr = menustr + "|" + "Text=大图标~tEvent=ue_set_large"
	
END IF

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

event dragdrop;//index = index 
wf_set_shortcut()

//wf_set_shortcut(lv_Shortcut_oldindex, index)
//wf_refresh_shortcut()
//return 1
end event

event begindrag;////index = index 
//
//Long ll_itemcnt, i, k
//listviewitem l_lvi
//s_sys_func s_lss
//string str_shortcutstr
//
//lv_Shortcut_funcid_cnt = 0
//ll_itemcnt = This.TotalItems()
//FOR i = 1 To ll_itemcnt
//	This.GetItem(i,l_lvi)
//	s_lss = l_lvi.Data
//	
//	lv_Shortcut_funcid_cnt++
//	lv_Shortcut_funcid_arr[lv_Shortcut_funcid_cnt] = s_lss.funcid
//	str_shortcutstr += String(s_lss.funcid)+","
//NEXT
//
//lv_Shortcut_oldindex = Index
//
//
//str_shortcutstr += "[I]:"+string(Index)
//st_1.text = str_shortcutstr
//st_1.bringtotop = true
//
end event

type cb_2 from uo_imflatbutton within w_main_scware
integer x = 3685
integer y = 1448
integer width = 210
integer height = 92
integer taborder = 30
boolean bringtotop = true
integer textsize = -11
string text = "︽"
integer picsize = 16
long color_bk_out = 16512494
long fontcolor = 2324453
end type

event clicked;call super::clicked;ShowTab = not ShowTab
wf_ShowTab()

//IF This.text = "︾" THEN
//	This.text = '︽'
//	This.Y = p_bom.Y
//	tab_ljfieb.Y = This.Y //+ This.Height
//	
//	ShowTab = false
//ELSE
//	This.text = "︾"
//	tab_ljfieb.BringToTop = true
//	
//	This.Y = p_bar.Y + p_bar.Height 
//	tab_ljfieb.Y = This.Y  //+ This.Height 
//	
//	ShowTab = true
//END IF
//cb_2.TriggerEvent('ue_textchange')
//
//parent.triggerevent("resize")




end event