$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