$PBExportHeader$l1_uo.sra $PBExportComments$Generated Application Object forward global type l1_uo from application end type global transaction sqlca global dynamicdescriptionarea sqlda global dynamicstagingarea sqlsa global error error global message message end forward global variables String publ_operator = "" //操作员名 String publ_userid //操作员id String sys_right //权限串 String sys_psw //用户密码 String sys_cardno //卡号 String sys_superpsw = 'supersupersuper' //超级密码 String sys_user_storagestr //仓库串-查询 String sys_user_storagestr_new //仓库串-建单 String sys_user_storagestr_audit //仓库串-审核 Long sys_user_storageid[] //仓库数组_查询 Long sys_user_storageid_new[] //仓库数组_建立 Long sys_user_storageid_audit[] //仓库数组_审核 Long sys_all_storageid[] //全部仓库数组 String sys_user_spttypestr //供应商类别串 String sys_user_gzitemstr //工资项目串 Long sys_user_spttype[] // 供应商类别数组 Long sys_user_gzitem[] // 工资项目数组 String sys_user_pluginsstr //外挂串 Long sys_user_plugins[] //外挂数组 String sys_user_wkpstr //车间串 Long sys_user_wkps[] //车间数组 String sys_user_workgroupstr //工组串 Long sys_user_workgroups[] //工组数组 String sys_user_pricetypestr Long sys_user_pricetype[] String sys_user_outrepstr //业务员串 String sys_user_outrep[] //业务员数组 int sys_user_knwldgencrypttype //加密级别 int sys_user_knwldgtchnlogytype //技术级别 string sys_user_KnwldgRgtStr //知识库列表权限串 String sys_shortcut //快捷方式串 String sys_areastr //区域串 Long sys_areaid[] //区域数组 String sys_user_scstr //分部权限串 Long sys_user_scid[] //分部数组 Long sys_scid = 0 //分部ID -1 全部[历史] Long sys_empid = 0 //当前操作员ID Boolean if_hisdb = FALSE //是否历史数据库 String sys_computer_key String sys_user_priceliststr Long sys_user_pricelist[] Boolean if_idle = FALSE String sys_user_reportstr // 模板式自定义报表串 Long sys_user_report[] // 模板式自定义报表数组 s_sys_option s_sys_opt[] //系统选项数组 s_dw_uc_col s_sys_uccol[] //dwuc必填字段数组 Boolean sys_power_issuper = FALSE //超级用户标志 String sys_super_name = '超级用户' String sys_super_id = 'super' //超级用户id String sys_inifilename = 'ljerp_wiz.ini' //指定系统ini文件 String sys_power_key = '123457851239866' string sys_power_key_new = '987654321380084' String sys_system_id = '600001ljerpv1.0' //版本 String sys_prg_id = '600001' String sys_cur_version = '2.0.110423' String sys_Allow_version = '1.0.060601' string sys_erp_build_version = '2.0.110509' //权限版本 String sys_pwr_version = '2011051001' //系统信息 String sys_message_username = '有限公司' String sys_message_title = "龙嘉L1-ERP V2" String sys_message_report_title = "有限公司" String sys_message_customer_tel = "" String sys_message_customer_sit = "" String sys_message_customer_sitcode = "" String sys_message_customer_bank = "" String sys_message_customer_bankname = "" String sys_message_customer_fax = "" String sys_message_maker = "顺德区龙嘉软件有限公司" String sys_message_copyright_inc = "2001-04-10" String sys_message_copyright_ine = "" String sys_message_version = "v1" String sys_cur_path = '' String sys_message_copytime = "2001-04-10" String sys_message_timeoutdate = "2001.08.01" Date sys_begin_date = 2001-04-13 Int sys_show_bsn = 0 //0-显示业务内容 1-只显示售价管理 String sys_flashbmpname = 'flashwinpic.bmp' //开始窗口的图片名称 DateTime sys_showsaledata_mindt //系统选项 //系统 Boolean local_retrieve_all = FALSE //分页显示-----true:不分页,false:分页 Int sys_option_cusarea = 0 //区域限制 Int sys_option_outrep = 0 //业务员限制 Int sys_option_if_oa = 0 //单据使用审批流程 int sys_option_if_oa_saletask = 0 //销售订单使用OA审核流程 int sys_option_if_oa_saletask_fore = 0 //销售预测单使用OA审核流程 int sys_option_if_oa_buytask = 0 //材料采购订单使用OA审核流程 int sys_option_if_oa_buytask_cp = 0 //成品采购订单使用OA审核流程 int sys_option_if_oa_order_ml = 0 //生产计划使用OA审核流程 int sys_option_if_oa_order_zl = 0 //生产指令单使用OA审核流程 Int sys_option_use_msttake = 1 //系统使用应收帐模块 Int sys_option_use_mstpay = 1 //系统使用应付帐模块 Int sys_option_scid_msttake_mstpay = 0 //应收应付帐按分部查询 Int sys_option_aloweditstatus = 0 //规格颜色先定义 Int sys_option_input_days = 60 //单据录入天数限制 Int sys_option_timeout = 300 //系统注消时间 Long sys_option_dlsecends = 15 //刷卡后等待登陆时限 String sys_option_change_status = '' //颜色文本 String sys_option_change_pcode = '' //面料文本 String sys_option_change_woodcode = '' //材质文本 String sys_option_change_mtrlsectype = '' //自定义1 String sys_option_change_zxmtrlmode = '' //自定义2 String sys_option_change_usermtrlmode = '' //自定义3 Int sys_option_use_wkp = 0 //车间权限限制 Int sys_option_unit_dec = 5 //单位转换小数点 Int sys_option_cost_dec = 5 //库存成本价小数点 Decimal sys_option_cust_rate = 1 //客户最低返率 //Int sys_option_real_status = 1 //配置字段 1-status,2-woodcode,3-pcode String sys_option_winrar_path = 'c:\program files\winrar\' //winrar路径 Int sys_option_produce_dec = 5 //生产运算小数位 Int sys_option_spttype = 0 //供应商类别限制 Int sys_option_halt = 120 //注消后自动退出系统时间 Int sys_option_iflimitprice = 0 //产品与物料新建默认收货限价 Int sys_option_inout_type = 0 //进出仓高级选项 0 - 直接产品出仓, 1 - 包件出仓 2 - 条码进出仓 Int sys_option_barcode_outwaremove_paudit = 0 //900仓库使用条码流程,仓库调拨单使用先确认扫描后审核流程 Int sys_option_barcode_outwareother_paudit = 0 //901仓库使用条码流程,其它出仓单使用先确认后审核流程 Int sys_option_barcode_inwareother_paudit = 0 //902仓库使用条码流程,其它进仓单使用先确认后审核流程 Int sys_option_barcode_inwarecp_paudit = 0 //903仓库使用条码流程,生产进仓单使用先确认后审核流程 Int sys_option_barcode_inwarebuy_paudit = 0 //904仓库使用条码流程,采购收货单使用先确认后审核流程 Int sys_option_order_mtrlware = 0 //生产计划审核增加0库存 Int sys_option_titleclick_sort = 0 //单据明细编辑状态使用右键排序 0 - 否 1 - 是 Int sys_option_warebalc_checksale = 0 //盘点结存限制日期前不能有未审发货单 Int sys_option_mtrlware_autocmp = 0 //自动计算库存包件可装数 Int sys_option_use_suliao = 0 //启用注塑功能 Int sys_option_use_machining_ll = 0//启用来料加工模块 Int sys_option_use_mtrlware_assign = 0 //系统使用库存分配模块 Int sys_option_check_mtrltype_code = 1 //物料分类保存时检查编码是否重复 Int sys_option_check_mtrl_pf = 0 //物料清单保存时检查下级清单是否已审核 Int sys_option_ouware_sale_check_nof = 0 //销售发货单按订货开单保存时检查相同未发订单 Int sys_option_inware_cp_check_nof = 0 //生产进仓单按指令开单保存时检查相同未完成指令 Int sys_option_inware_buy_check_nof = 0 //采购进仓单按订单开单保存时检查相同未完成订单 Int sys_option_inware_wfjg_check_nof = 0 //外协进仓单按订单开单保存时检查相同未完成订单 int sys_option_if_sql2008 = 0 //是否使用sql server 2008 int sys_option_emp_audit = 0 //员工资料需要审核 int sys_option_warepdb_check_inware = 0 //盘点表扫描时未扫描进仓单限制盘点 //销售 Int sys_option_if_msg = 0 //单据使用消自息确认 Int sys_option_saletask_secaudit = 0 //销售订单二级审核 Int sys_option_taskaudit_dprice = 0 //销售订单审核前必须有定价 Int sys_option_auditprint_saletask = 1 //销售订单先审核后打印 Int sys_option_m_msttake = 0 //系统使用多币种应收帐 Int sys_option_otheramt_msttake = 0 //优惠金额多币种 String sys_option_change_otheramt = '' //销售发货单优惠金额文本 Int sys_option_saletask_addware = 0 //订单审核自动加0库存 Int sys_option_price_if_mod = 0 //销售发货单按订单时不能改单价 Int sys_option_mtrlware_limit = 0 //客户库存选择不限制 Int sys_option_taskplancode = 0 //使用客户批号库存 Int sys_option_taskplancode_auto = 1 //订单生产批号自动按订单号 Int sys_option_auditprint_sale = 0 //销售单先确认后打印 Int sys_option_auditprint_sale_yfmx = 0 //销售发货单仓审窗口先确认后打印 Int sys_option_confirmaudit_sale = 0 //销售单先确认后审核 Int sys_option_price_if_status = 0 //销售价按颜色约束 Int sys_option_autowaste = 0 //自动废弃销售单 Int sys_option_checkprice_native = 0 //销售价按本位币限价 Int sys_option_allow_edit_outrep = 0 //销售订单/发货单允许修改业务员 Int sys_option_saletask_auto_ddaudit = 0 //销售订单直接调度 Int sys_option_saletask_price_if_mod = 0 //销售订单不能改单价 Int sys_option_cusrepamt_limit = 0 //销售发货单限制信用额 Int sys_option_saletask_pzch = 0 //销售订单使用配置选择窗口 Int sys_option_saletask_fore_secaudit = 0 //销售预测单二级审核 Int sys_option_if_givebackrate = 1 //返利单按返利率返利 0 - 返利金额手动输入,1 - 按返利率 Int sys_option_sale_if_scid = 0 //销售发货单可跨分部发货 0 -否 1 - 是 Int sys_option_sale_use_planqty = 0 //销售发货单使用计划发货数 0 -否 1 - 是 Int sys_option_pricelist_ifpower = 0 //销售价格表分权限管理 Int sys_option_price_if_pz = 0 //组合配套产品销售价考虑配置1,配置2 0 - 否, 1 - 是 String sys_option_sale_mxdscrp = '' //销售订单明细备注附加说明 String sys_option_sale_mxdscrp2 = '' //销售订单明细备注2附加说明 Int sys_option_ddautit_pack = 0 //调度可同时建主生产计划及物料运算 Int sys_option_outware_saleout = 0 //使用销售出仓单 Int sys_option_if_pricetype = 0 //启用价格分类 Int sys_option_if_outware_price_order = 0 //发货单价格按价格指令 Int sys_option_quote_cusprice = 0 //销售报价单审核更新客户价格 Int sys_option_saletask_cusprice_his = 0 //销售订单只能选价格历史产品 Int sys_option_saletask_importnewprice = 0 //销售订单选产品默认带客户最新价 0 - 带价格表, 1 - 带最新价 Int sys_option_saletask_requiredate_null = 0 //销售订单明细交货日期默认为空值 0 - 否,1 - 是 Int sys_option_outware_sale_ifmating = 0 //销售发货单仓审时是否检查配套出仓 Int sys_option_outware_if_saleqty = 0 //销售发货单使用实际销售数 Int sys_option_if_saleout = 0 //使用发货通知单 Int sys_option_saletask_set_planprice = 0 //销售订单/预测单审核前必须设定计划价 int sys_option_reissue_secaudit = 0 //客户费用单使用二级审核 int sys_option_auditprint_reissue = 0 //客户费用单先初审后打印 //来料加工 Int sys_option_taskplancode_auto_ll = 0 //来料加工订单生产批号自动按订单号 Int sys_option_confirmaudit_sale_ll = 0 //来料加工发货单先确认后审核 //生产 Int sys_option_def_workprice = 0 //先定义工价表 Int sys_option_def_bom = 0 //先定义BOM Int sys_option_ml_wkp = 0 //生产计划车间直接确认 Int sys_option_scll_limit = 0 //领料单允许超数量 0 - 不允许,1-允许 Int sys_option_scll_secaudit = 0 //领料单二级审核 Int sys_option_secaudit_inputcode_scll = 0 //领料单输单号财审 Int sys_option_task_noorder = 0 //计件单直接选产品 Int sys_option_abnormity_noorder = 0 //异常计件单不选返工单 Int sys_option_check_scwg_taskwork_money = 1 //工作组计件单工资分配审核检查金额相符 Int sys_option_autocreate_buy = 0 //生产计划审核自动建立申购单 Int sys_option_autocreate_wfjg = 0 //生产计划审核自动建立外协申请单 Int sys_option_wkpmtrlware = 0 //核算车间库存 Int sys_option_taskwork_price_limit = 0 //计件单工价不允许编辑 Int sys_option_taskwork_procode_order = 0 //计件单按生产计划工序 Int sys_option_order_allow_mod_procode = 0 //生产计划可修改工序 Int sys_option_confirmaudit_scll = 0 //生产领料单先确认后审核 Int sys_option_bomtree_pfgroup_not_display = 1 //物料清单树,部件名称不显示 Int sys_option_bom_audituse = 1 //物料清单审核才能使用 Int sys_option_unite_order_ml = 0 //生产计划合并排产 Int sys_option_unite_order_ml_zl = 0 //生产指令单合并排产 String sys_option_order_ml_print = ',1,2,3,4,5,6,7,8,9,10,11,12' //生产计划打印选项 String sys_option_order_ml_print_zl = ',1,2,3,4,5,6,7,8,9,10,13' //生产指令单打印选项 Int sys_option_mtrlware_dscrp = 1 //库存表摘要1-无,2-按生产计划号,3-排产号,4-相关号,5-手动录入 Int sys_option_order_ml_scll_secaudit = 0 //生产计划用料二级审 Int sys_option_order_ml_mrp_use_pstatus = 0 //生产计划运算的按生产指令单半成品按计划产品配置 Int sys_option_order_ml_use_zl = 0 //系统使用指令单排产 Int sys_option_order_bh_use_yc = 0 //备货生产计划选销售预测单 Int sys_option_inwarecp_allow_edit_pz = 1 //备货生产计划进仓时可修改配置 Int sys_option_taskwork_price_if_mod = 0 //计件单工价限价 0 - 不限, 1-限 Int sys_option_bom_affirm = 0 //物料清单使用确认功能 0 - 不用, 1-用 Int sys_option_no_order_relcode = 0 //生产计划和生产指令单可以不填相关号 0 - 要填 1-可以不填 Int sys_option_scll_ch_less = 0 //领料单选择窗口使用简洁模式 Int sys_option_scll_ch_nomtrlware = 1 //领料单选计划自动列物料列出无库存纪录的信息 Int sys_option_scll_realqty = 0 //领料单开单实领数默认为零 Int sys_option_ifovertask_cp = 1 //用超生产计划进仓 Int sys_option_autocreate_buy_cp = 1 //销售订单调度审核自动建立成品申购单 Int sys_option_orderworkgroup_time = 0 //工组交接时间精确到小时. 0 - 否 1 - 是 Int sys_option_order_zl_orderdate = 0 //车间生产指令单建立时,日期默认取运算数据. 0 - 否, 1 - 是 Int sys_dismantle_install_check = 0 //拆装单检查拆装数量 Int sys_sc_workhour_ifaction = 0 //工序工时用工序动作时间合计 Int sys_option_scll_use_planqty = 0 //领料单使用计划领料数 0 -否 1 - 是 Int sys_option_auto_wrkdate = 0 //生产计划,生产指令自动计算工组开始日期,结束日期 0-否,1-是 Int sys_option_inware_sc_ws = 0 //生产进仓单使用车间限制 0-否,1-是 Int sys_option_ifover_rqqty = 0 //生产计划运算允许修改需求数超用料数 Int sys_option_inware_mtrlcuscode = 0 //生产进仓单产品批号策略按指令单号 0-否,1-是 Int sys_option_orderrqwp_union = 0 // Dec sys_option_pf_Sonscale_dftvalue = 0 //物料清单用料量默认值 Int sys_option_ifwkpmtrlware_wkp = 0 //车间仓库存按工组分开 Int sys_option_inware_sc_location = 0 //车间领料进仓仓位按工组名称 Int sys_option_ifuse_ordersdate = 0 //使用主生产计划日期推算 Int sys_option_ifuse_order_plan = 0 //系统使用工组派工流程 Int sys_option_order_ml_ifcg = 1 //生产计划可以排产采购来源的物料 0 - 不可以 1 - 可以 Int sys_option_order_zl_enough = 0 //足料才能排指令单 Int sys_option_order_ml_paddzl_barcode = 0 //生产计划建立指令单同时生成条码 Int sys_option_order_wkp_barcode = 0 //使用工组条码进度 Int sys_option_use_sc_date = 0 //工组进度按小时统计 Int sys_option_order_ml_add_use_wkp = 0 //生产计划新建时显示工作量 Int sys_option_workgroup_jd = 0 //使用工作中心进度 Int sys_option_outware_scll_bu_all = 0 //生产补料单可选未开始领料的内容 Int sys_option_scll_wrkgrpid_limit = 0 //生产领料单领料按指令单工组进度工作中心限制 int sys_option_orderworkgroup_num_cp = 1 //工组完工单使用仓库审 int sys_option_order_plan_scll = 0 //工组派工单使用自动领料功能 int sys_option_barcode_cp_workgroup = 0 //成品条码先交接后进仓 int sys_option_order_ml_save_reccl = 1 //生产指令单保存时计算用料 int sys_option_order_ml_cpfp_noreltask = 0 //生产进仓库存分配时不考虑计划相关订单,只考相同配置的订单 int sys_option_order_ml_secaudit = 0 //生产计划使用二级审核 int sys_option_order_ml_zl_secaudit = 0 //生产指令单使用二级审核 //注塑 Int sys_option_skl_overscll = 0 //是否允许水口料超领料数入库 0 - 不允许,1-允许且无限制, 2- 允许但按比例限制 Decimal sys_option_management_cost = 0 //月设备总管理费 Decimal sys_option_ect_price = 0 //电费单价 Decimal sys_option_skl_rate = 0.7 //水口料折价 Decimal sys_option_machine_value = 0 //设备总价值 Decimal sys_option_pipe = 0 // 管类计算参数 Decimal sys_option_board = 0 // 板类计算参数 Decimal sys_option_line = 0 // 线类计算参数 Int sys_option_quote_accont = 0 //销售报价单使用塑料报价计算模式 Decimal sys_option_skl_overscll_rate = 0.0 //水口料超计划回收比例 //采购 Int sys_option_buyprice_ifbj = 0 //收货按报价 Int sys_option_auditprint = 1 //收货单先审核后打印 Int sys_option_mustprint = 1 //单据逐单清除 Int sys_option_ifovertask = 1 //用超订货收货 String sys_option_change_otheramt_buy = '' //采购收货单优惠金额文本 Int sys_option_wfjg_out_pay = 0 //外加工出仓单默认记帐 Int sys_option_secaudit_inputcode = 0//收货单输单号财审 Int sys_option_buyprice_buytask_notlimit = 0 //采购订单不限制价格 Int sys_option_storage_buy_limit = 0 //收货单仓库严格按订单 Int sys_option_request_cl_secaudit = 0 //材料申购单二级审核 Int sys_option_request_cp_secaudit = 0 //成品申购单二级审核 Int sys_option_buytask_cl_secaudit = 0 //材料采购订单二级审核 Int sys_option_buytask_cp_secaudit = 0 //成品采购订单二级审核 Int sys_option_request_wfjg_secaudit = 0 //外协申请单二级审核 Int sys_option_buytask_spt = 0 //采购订单供应商严格按申购单 Int sys_option_requestbuy_hz = 0 //申购单汇总采购 Int sys_option_check_buyin = 0 //采购先质检后进仓 Int sys_option_request_buy_ifunit = 0 //申购使用默认采购单位 Int sys_option_buy_cp_ifzj = 1 //成品采购可以采购自制来源物料 0 - 否 1 - 是 Int sys_option_buy_sptprice_sec = 0 //采购收货单财审更新供应商最新价 Int sys_option_buytaskmx_storageid_limit = 0 //采购订单选申购单时限制修改仓库 Int sys_option_buy_zero = 0 //采购收货单允许保存零数量 Int sys_option_sptrate = 0 //使用供应商分配比例 Int sys_option_inware_buy_not_cust = 0 //成品采购订单收货时不考虑客户 int sys_option_reissue_spt_secaudit = 0 //供应商费用单使用二级审核 //外协 Int sys_option_2unit = 0 //外协双单位核算 Int sys_option_wfjg_outmx = 0 //外协订单,收货单必须有外协商库存明细 0-不限,1-限 Int sys_option_autocreate_outware = 0 //外协订单审核自动生成仓库外协发出单 Int sys_option_wfjgware_nocost = 0 //外协商库存结存不核算金额 0 - 核算 1-不核算 Int sys_option_2unit_ch = 1 //外协双单位使用物料定义辅助单位. 1 - 是. 0-选择单位定义资料 Int sys_option_requestwfjg_hz = 0 //外协申请单汇总外协 Int sys_option_wfjg_spt = 0 //外协订单供应商严格按外协申请单 Int sys_option_check_wfjgin = 0 //外协选质检后进仓 Int sys_option_wfjg_sptprice_sec = 0 //外协收货单财审更新供应商最新价 Int sys_option_wfjg_zero = 0 //外协收货单允许保存零数量 //财务 Int sys_option_msttake_inputdate = 0 //应收对数手动录入对数日期 Int sys_option_mstpay_inputdate = 0 //应付对数手动录入对数日期 Int sys_option_msttake_saletask = 0 //应收帐按订单 Int sys_option_msttake_cusarea = 0 //应收帐区域限制 Int sys_option_msttake_takeamt_secaudit = 0 //客户收款单使用二级审核 Int sys_option_cusamt_sendsms = 0 //客户收款单审核后发送短信 //工资 Int sys_option_taskwork_not_affirm = 0 // 计件单无需确认 0 - 要确认 1-不用确认 Int sys_option_taskwork2_noorder = 1 //月分配计件单可以不选计划 0 - 否 1 - 是 Int sys_option_taskwork_day_noorder = 1 //日分配计件单可以不选计划 0 - 否 1 - 是 Int sys_option_taskwork_person_noorder = 1 //个人产品计件单可以不选计划 0 - 否 1 - 是 Int sys_option_if_taskwork_emp_rule = 0 //个人产品计件单使用默认员工规则 0 -否 1 - 是 Int sys_option_if_taskwork_acmpqty = 0 //计件单选生产计划时按已进仓数限制 //////// Transaction mainw_sqlca,id_sqlca //s_sys_tntblinfo s_tntblinfo[600] //系统数据表信息 // //dw2xls变量 String gs_path //日期控件　 Date id_date_selected //主界面树 datastore sys_ds_funcinfo datastore sys_ds_maininfo window w_curwin String xltpath //考核机 Long sys_wage Long sys_port Long sys_mac = 0 //OA s_oa_flow_settype s_oaflow_settype[100] s_oa_flow s_oaflow_def[100] //file Transaction sys_fileDB_sqlca //文件附件数据库连接 String sys_user_class_edit_str //附件编辑权限串 String sys_user_class_view_str //附件查看权限串 String ins_fjtemppath = 'fjtemp' //附件下载路径 //email Transaction sys_email_sqlca //xls bill String sys_user_xls_print_str //xls单据打印 权限串 '0' 则全部允许 String sys_user_xls_send_str //xls单据 发送 权限串 '0' 则全部允许 Int sys_option_xls_ifuse_passwd = 1 //0，随机密码；1,用sys_option_xls_user_passwd设置的密码 String sys_option_xls_user_passwd = '' //xls输出的加密密码 Int sys_option_xls_lock = 0 //xls输出是否锁定,0-锁,1-不锁 //window s_sys_win s_sys_win_open[] //订餐 //s_meal_time sys_meal_time_now Boolean sys_autoapp_restart_flag = FALSE String sys_clock_pwd = 'ffffffffffff' String sys_clock_CtrlWord = 'FF078069' String sys_kq_exportfilepath = 'exportkqmx' //公共变量(密码)结构 //s_sys_password s_sys_pass String ins_compname = '' //计算机名 String sys_right_rpt = '0' //自定义单据打印格式权限串 //WinSock ws //uo_Socket_Client uo_Client String sys_DBMS //= ProfileString (sys_inifilename, "database", "dbms", "") String sys_ServerName //= ProfileString (sys_inifilename, "database", "servername", "") String sys_userid //= ProfileString (sys_inifilename, "database", "userid", "") String sys_dbpass //= ProfileString (sys_inifilename, "database", "dbpass", "")//加密的 String sys_DataBase //= ProfileString (sys_inifilename, "database", "database", "") String sys_LoginID //= ProfileString (sys_inifilename, "database", "logid", "") String sys_LoginPwd //= ProfileString (sys_inifilename, "database", "LogPassWord", "")//加密的 String sys_dbparm //= ProfileString (sys_inifilename, "database", "dbparm", "")//加密的 String sys_help_chm = '龙嘉L1-ERP帮助.chm' Boolean sys_login = FALSE //标识是否登陆系统; /////////////////////////////////////////////////// Integer sys_HeartBeatSec = 240 //心跳时间(要结合w_ws的timer的时间使用) Integer sys_Status = 0 //系统使用状态 0使用中 1暂停中(登陆窗口锁定) //w_sys_dl_new //uo_ljws_cmd sys_wsc //s_msgFrame sys_buf_s_msgFrame Boolean sys_buf_new = FALSE Integer sys_retritime = 20 Long sys_maxconnect = 10 Long sys_listenport = 7896 Long sys_maxframe_size = 4000 //数据包大小上限 Integer sys_db_spid = 0 //当前连接数据库spid //s_sys_billname s_sys_bill[] Int sys_if_register = 1 String sys_option_cmpl_status_qty = '' //属性计算关键字 Int sys_option_order_ml_printnum = 0 //生产计划打印次数 String sys_log_xml = 'l1_log.xml' //更新日志 String sys_pwrstr,sys_optionstr string sys_msg_pow = '' long sys_project = 0 // 0-L1 1-企精灵 long sys_version = 0 //102001 标准版; 102002 企业版 int sys_user_grade = 3 //用户级别 int sys_ifreg //0 未注册; 1 已注册 int sys_ifdog //0 无狗; 1 有狗 int sys_ifnewserver end variables global type l1_uo from application string appname = "l1_uo" end type global l1_uo l1_uo on l1_uo.create appname="l1_uo" message=create message sqlca=create transaction sqlda=create dynamicdescriptionarea sqlsa=create dynamicstagingarea error=create error end on on l1_uo.destroy destroy(sqlca) destroy(sqlda) destroy(sqlsa) destroy(error) destroy(message) end on