$PBExportHeader$ljerp.sra $PBExportComments$Generated Application Object forward global type ljerp from application end type global transaction sqlca global dynamicdescriptionarea sqlda global dynamicstagingarea sqlsa global error error global message message end forward global variables long sys_mt_classid = -6666 //约定唛头在附件分类是-6666，不可见 //控制是否显示 会计总帐菜单 int sys_option_hide_cw = 1//0-显示 1-隐藏 //版本 string sys_inioem = 'config.ini' //oem的ini int sys_ifoem = 0 //是否OEM String sys_prg_id = '800001' String sys_cur_version = '5.0.220310' //ERP数据库版本0904 string sys_email_version = '5.0.130824' //Email数据库版本 String sys_curDB_version='' String sys_Allow_version = '2.5.090215' int sys_version_type = 0 // 1,商业版；0,工业版;2,工业版+ int sys_if_register = 1 //软件注册标记 int sys_if_network = 1 // 网络版标记 string sys_version_id //系统版本 //419249027573405627908568719049 long sys_version = 802001 //802001 商业版; 802002 工业版; 802003 工业版+ string sys_versionName = "商业版" String sys_SoftWareName = "企精灵V5.0" long sys_project = 1 // 0-L1 1-企精灵 String sys_cur_production_code = "EW5" //技术文档产品区分代号 string sys_DataWindowselected //穿透涂选 //超级用户标志 Boolean sys_power_issuper = FALSE String sys_super_name = '超级用户' String sys_super_id = 'super' //用户id String publ_operator = "super" //操作员名 String publ_userid //操作员id String sys_right //权限串 String sys_psw //用户密码 String sys_cardno //卡号 String sys_superpsw = '4646464646' //超级密码 String sys_user_storagestr //仓库串 Long sys_user_storageid[] //仓库数组 Long sys_all_storageid[] //全部仓库数组 String sys_shortcut //快捷方式串 String sys_areastr //区域串 Long sys_areaid[] //区域数组 String sys_user_scstr //分部权限串 Long sys_user_scid[] //分部数组 String sys_user_outrepstr //业务员串 String sys_user_outrep[] //业务员数组 Long sys_scid = 0 //分部ID -1 全部[历史] Long sys_empid = 0 //当前操作员ID long sys_user_spttype[] // 供应商类别数组 string sys_user_spttypestr //供应商类别串 string sys_user_accountstr //出纳帐权限串 long sys_user_account[] // long sys_firstrun //第一次运行 Boolean if_hisdb = FALSE //是否历史数据库 boolean if_idle = false int sys_option_halt = 120 //注销后自动退出系统时间(秒) Boolean sys_login = false //标识是否登陆系统; long sys_db_spid 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_ServerNameFJ//附件数据库 string sys_DataBaseFJ//附件数据库 string sys_LoginIDFJ//附件数据库 string sys_LoginPwdFJ//附件数据库 string sys_ServerNameMsg//邮件数据库 string sys_DataBaseMsg//邮件数据库 string sys_LoginIDMsg//邮件数据库 string sys_LoginPwdMsg//邮件数据库 string sys_pblname //打印格式PBL // w_sys_begin 调用修改 string sys_dftpblname = 'Ew_printbill.pbl' //f_setliblist 调用修改 //测试格式: Ew_printbill.pbl// 商业-Ew_printbill_bn.pbl; 工业-Ew_printbill_ep.pbl; 工业业-Ew_printbill_sn+.pbl; string sys_bookname long sys_bookno s_sys_option s_sys_opt[] s_sys_powerinfo s_powerlinfo[255] //系统权限信息 s_sys_billname s_sys_bill[] String sys_inifilename = 'Ecleverv25_wiz.ini' String sys_inifilename_other = 'Ecleverv25_other_wiz.ini' string sys_inifilename_cache = "importtmp\DataCache.ini" //指定系统ini文件 String sys_computer_key String sys_power_key = '123457851239866' String sys_system_id = '800001ewiserp3.0' //系统信息 String sys_message_username = '有限公司' String sys_message_title = "龙嘉企精灵V5.0" 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 = "v5" 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 String sys_timeout = '419249827473015827408968519049' string sys_msg_pow = "你没有操作权限" Int sys_show_bsn = 0 //0-显示业务内容 1-只显示售价管理 String sys_flashbmpname = "graphics\商业版.png" //'flashwinpic.bmp' //开始窗口的图片名称 DateTime sys_showsaledata_mindt decimal sys_option_dlsecends = 15 //刷卡等待时间（秒） s_sys_tntblinfo s_tntblinfo[400] //系统数据表信息 //datetime sys_salershowdate_BG //datetime sys_salershowdate_ED boolean if_switchdb=false //是否使用切换数据库功能 String sys_switchpsw = '' //切换密码 String sys_option_switchpath = '' //切换程序路径 int sys_option_switch_Chktime=2 //检查时隔 string sys_option_switch_Sername='' //切换数据库服务名称 string sys_option_switch_Dbname='' //切换数据库名称 string sys_option_switch_LoginID='' //切换数据库登录用户 string sys_option_switch_LoginPsw='' //切换数据库登录用户 string sys_option_returnpsw='' //返回原数据连接密码 Transaction sys_remote_sqlca[] //远程事务对象数组 Int sys_remote_sqlca_p = 0 //远程事务对象数组指针 Transaction dataincept_sqlca //数据传递事务对象 Transaction source_sqlca //原切换数据库事务对象 String sys_option_winrar_path = 'c:\program files\winrar\' //winrar路径 Int sys_option_timeout = 300 //系统注消时间 Boolean local_retrieve_all = FALSE //分页显示-----true:不分页,false:分页 Int sys_option_input_days = 60 //单据录入天数限制 //Long sys_option_buyprice_type = 1 //库存批号类型 1:批号手动，2:批号单价 005 int sys_saletask_autowaste = 0 int sys_option_noallocaddqty = 0 //进出仓不考虑辅数 int sys_option_musttake_auditing = 0//是否使用财务应收账对单自动审核 int sys_option_mustpay_auditing = 0//是否使用财务应付账对单自动审核 Int sys_option_mustprint = 0 //单据逐张打印 Int sys_option_print_one = 0 //销售发货单只能打印一次 Int sys_option_autoyes = 0 //自动是订单或计划 002 Int sys_option_aloweditstatus = 0 //规格颜色先定义 Int sys_option_cusarea = 0 //区域限制 Int sys_option_outrep = 0 //业务员限制 Int sys_option_if_color = 0 //按颜色拆装 int sys_option_add0mtrlware = 0 //产品及物料资料在新建时自动在默认仓库增加0库存 78 String sys_option_change_pcode = '' //面料文本 String sys_option_change_woodcode = '' //材质文本 String sys_option_change_status = '' //颜色文本 String sys_option_change_mtrlsectype = '' //物料自定义文本1 String sys_option_change_zxmtrlmode = '' //物料自定义文本2 String sys_option_change_usermtrlmode = '自定义3' //物料自定义文本3 String sys_option_change_addqty = '辅数' //辅数文本 //int sys_option_inwarecp_planprice = 0 int sys_option_order_wfjg_mxhb = 0 //订单明细按3个配置合并，0-合并,1-不合并 302 //移动端 int sys_opton_mobile_outware_sale_mod = 0 //移动端销售发货单保存模式 //资料设置 string sys_option_buytaskmx_change_mxsdscrp2 = '' // 294采购订单，采购收货单的明细备注2 string sys_option_buytaskmx_change_mxsdscrp3 = '' // 295采购订单，采购收货单的明细备注3 string sys_option_buytaskmx_change_mxsdscrp4 = '' // 296采购订单，采购收货单的明细备注4 int sys_option_planprice_configure = 0 //产品计划价按配置 058 int sys_option_planprice_directinput = 1 //产品计划价允许直接录入 string sys_option_cmpl_status_qty = '' //属性计算关键字 int sys_option_addqty=1 //辅数约束1:约束,0:不约束 //////////////////////////////CRM Int sys_option_cust_audit = 0 //是否客户申请流程; 0-否; 1-是 238 //////////////////////////////销售 int sys_option_opemp_sale = 0 //销售模块使用建立人限制 int sys_option_sale_outware_bmstday = 0 //按客户收款天数限制开单 Int sys_option_auditprint_saletask = 0 //销售订单先审核后打印 020 Int sys_option_auditprint_sale = 0 //销售单审核认后打印 003 int sys_option_confirmprint_sale=0 //销售单先确认后打印 016 Int sys_option_price_if_status = 0 //销售价按颜色约束 Int sys_option_price_if_list = 0 //销售单据取单价模式，[0-不限制;1取价格表;2-取报价单;3-取设定售价] 022 Int sys_option_saletask_rebate //取价模式取计划价时是否带入折扣，[0-是，1-否] 258 Int sys_option_confirmaudit_sale = 0 //销售单先确认后审核 025 Decimal sys_option_cust_rate = 1 //客户最低返率 Int sys_option_use_msttake = 1 //系统使用应收帐模块 Int sys_option_use_mstpay = 1 //系统使用应付帐模块 Int sys_option_autowaste = 0 //自动废弃销售单 Int sys_option_unit_dec_sale = 5 //单位转换小数点 018 Int sys_option_saletask_autocreatescll = 0 //销售订单审核自动生成领料单选项 0-自动生成不审核1-自动生成并审核 Int sys_option_sale_order_formula = 0 //销售订单物料运算损耗率计算公式 Int sys_option_saletask_addware = 0 //销售订单审核自动加0库存 006 Int sys_option_saletask_addware_taskqty = 0 //订单审核自动加订单库存开关，0-否,1-指定数量,2-排产数量 055 dec sys_option_saletask_addware_taskqty_qty = 0 //订单审核自动加订单库存数量 056 Int sys_option_saletask_mxhb = 0 //订单明细按3个配置合并，0-合并,1-不合并 239 int sys_option_saletask_dft_lmsaleprice //销售订单审核前必须有定价 074 int sys_option_outwaresale_dft_lmsaleprice //销售发货单仓审前必须有定价 int sys_option_sale_relcode_repeat //销售订单相关号限制重复录入 076 Int sys_option_cusrepamt_limit = 0 //销售发货单限制信用额 Int sys_option_cusrepamt_saletask_limit = 0 //销售订单限制信用额 288 int sys_option_outwaresale_rateedit=0 //销售发货单转换率是否可修改 int sys_option_outware_type = 0 //销售发货单启用单据类型区分 259 int sys_option_outware_ware_check= 0 //销售发货单仓审后检查库存下限 260 int sys_option_saletask_days = 0 //销售订单收货间隔时间 261 int sys_option_saletask_requireday_mode = 0 //销售订单交货日期录入式 262 int sys_option_getbarcode=0 // 生成条码策略 263 int sys_option_auto_code=0 // 客户，供应商，物料，自动流水编号 266 Int sys_option_outware_if_saleqty = 0 //销售发货单使用实际销售数 083 Int sys_option_outware_if_di = 0 //销售发货单仓审自动组装 084 int sys_option_chk_wkd=0 //销售发货单开单时，使用物料清单计算 未开单库存 int sys_option_saletask_chk_wkd=0 //销售订单审核时，使用物料清单计算库存 291 int sys_option_saletask_chuange_plancode=0 //销售明细是否允许双击批号更改批号和库存ID 292 Int sys_option_quote_secaudit = 0 //销售报价单使用二级审核 Int sys_option_saletask_secaudit = 0 //销售订单使用二级审核 240 Int sys_option_outware_ifpublware = 0 //销售发货单使用客户库存时,是否允许使用公共库存发货 241; [0-不允许;1-允许] //使用未开单库存且不使用批号 Int sys_option_outware_sale_amt_round = 0 //销售发货单,明细金额保留精度; [0-0.01;1-0.1;2-1;3-10;4-100] 242 int sys_option_saletask_plan = 1 //销售订单默认安排 1无,2采购,3生产,4按产品属性 053 int sys_option_outware_price_amt_round = -1 //销售订单，发货单，退货单，单价，请设置允许保留小数点 int sys_option_packqty_sale = 0 //销售订单, 销售发货单允许手动录入包装数量 int sys_autoupdate_member = 0 //客户自动升级会员类型 int sys_option_saletask_price = 0 //销售订单、销售发货单赠送、补件产品不受零单价约束 220 int sys_option_allow_edit_outrep = 0 //销售单可修改业务员 int sys_option_outware_Sale_ware = 0 // 销售发货单引入库存策略 230 [0-引入零数量;1-引入未开单数量;2-引入库存数量] int sys_saleamt_round=2 //销售订单、销售单整正处理//0:元位,1:角位,:2：分位 String sys_option_change_otheramt = '' //销售发货单优惠金额文本 long sys_option_taskplancode_auto = 0 // 销售订单明细使用批号 236 [0-不使用;1-订单号+3位序号;2-订单号;3-相关号;4-手动;] Int sys_option_auditprint_sale_th = 0 //销售退货单审核认后打印 252 Int sys_option_ifuse_cusware_sale_th = 0 //销售退货单退仓时考虑仓库是否应用客户库存 254 //////////////////////////////采购,外协 Int sys_option_auditprint = 0 //收货单先审核后打印 009 Int sys_option_auditprint_buy = 0 //采购订单审核认后打印 057 int sys_option_buy_rateedit=0 //采购进仓单转换率是否可修改 int sys_option_buy_relcode_repeat //采购收货单相关号限制重复录入 077 Int sys_option_outware_if_buyqty = 0 //采购收货单使用实际收货数 085 Int sys_option_inware_checkqty = 0 //仓库外协收货检查收货和库存明细是否一致 268 Int sys_option_inware_noallocqty = 0 //外协收货时，是否允许超外协商库存收货 269 Int sys_option_buyth_wareamt = 0 //采购退货单库存成本价取价模式 0-库存成本价; 1-退货单价 086 Int sys_option_wfjgth_wareamt = 0 //外协返工单的库存成本价的取价模式;[0-库存成本价; 1-退货总成本价;] 087 int sys_option_buyprice_ifbj = 0 //采购,外协价格取价模式 047 [0-价格历史(默认);1-报价;2-设定购价] int sys_option_buylimit_ifbj = 0 //采购,外协价格限价模式 048 [0-价格历史;1-报价;2-设定购价] int sys_option_buyprice_buytask_limit = 0 //采购订单限制价格 050 是，否 int sys_option_2unit = 0 //外协双单位核算 int sys_option_2unit_ch = 1 //外协双单位使用物料定义辅助单位. 1 - 是. 0-选择单位定义资料 int sys_buyamt_round=2 // 采购订单、采购单取整处理//0:元位,1:角位,:2：分位 int sys_spt_hideinfo = 0 //隐藏供应商信息 Int sys_option_ifovertask = 1 // 采购超订货收货 Int sys_option_ifovertask_wfjg = 1 // 外协超订货收货 Int sys_option_unit_dec = 5 //单位转换小数点 023 Int sys_option_inware_buy_amt_round = 0 // 采购收货单,明细金额四舍五入保留精度; [0-分(0.01);1-角(0.1);2-元(1);3-十(10);4-百(100)] 245 Int sys_option_inware_wfjg_amt_round = 0 // 外协收货单,明细金额四舍五入保留精度; [0-分(0.01);1-角(0.1);2-元(1);3-十(10);4-百(100)] 246 Int sys_option_buytask_mxhb = 0 //采购订单明细按3个配置合并，0-合并,1-不合并 248 int sys_option_wfjgth_ware = 0 //外协发出选择库存策略;[0-引入零数量;1-引入未开单数量;2-引入库存数量] 255 Int sys_option_ifovertask_wfjg_out = 0 // 外协发出允许超计划数 //////////////////////////////仓库 int sys_dismantle_install_check=0 //拆装单检查拆装数量 int sys_option_cost_dec = 5 //库存成本价小数位 049 int sys_option_outwaremove = 0 //仓库调拨单调入审单价使用单据单价，0-使用库存成本价，1-使用单据单价 int sys_option_balc_clear0amt = 1 //仓库结存处理负金额 int sys_option_warepdb_bill_multi = 0 //一天可以建立多张盘点单;[0-否,不可以;1-是,可以] 247 int sys_option_outware_move_ware = 0 // 调拨单选择库存策略;[0-引入零数量;1-引入未开单数量;2-引入库存数量] 249 int sys_option_outware_other_ware = 0 // 其它出仓单选择库存策略;[0-引入零数量;1-引入未开单数量;2-引入库存数量] 250 int sys_option_outware_ll_ware = 0 // 领料出仓单选择库存策略;[0-引入零数量;1-引入未开单数量;2-引入库存数量] 251 int sys_option_inwarecp_auto_saletask_dscrp =0 //生产进仓单自动引用订单备注 //////////////////////////////财务 int sys_option_mst_multimoney=0 //销售应收帐使用多币种结算 0 - 人民币； 1- 原币 035 int sys_option_msp_multimoney=0 //采购应付帐使用多币种结算 int sys_option_scid_msttake_mstpay = 0 //应收应付帐按分部查询 Int sys_option_msttake_cusarea = 0 //应收帐区域限制 Int sys_option_msttake_takeamt_secaudit = 0 //客户收款单使用二级审核 int sys_option_cusamt_dftdate = 0 //客户收款单,供应商付款单生成出纳帐默认日期;0-单据日期;1-到账/付款日期 073 Int sys_option_income_secaudit = 0 //其它收入支出单使用二级审核 ////////////20110620 int sys_option_sale_dscrp_sec = 0 ///销售单财审备注带入应收帐摘要 int sys_option_buy_dscrp_sec = 0 //采购单财审备注带入应收帐摘要 int sys_option_bmstamt_zqamt_date = 0 // 243 客户收款结算单,供应商付款结算单折扣金额项目使用明细发生日期; [0-否(单据到账日期);1-是(明细发生日期)] //////////////////////////////生产辅助 int sys_option_saletask_sc_print = 0 //订单生产跟踪表确认并打印 int sys_option_saletask_sc_card = 0 //订单生产跟踪表必须先打印后确认 int sys_option_saletask_sc_print2 = 0 //订单生产跟踪表打印选项 int sys_option_saletask_sc_card2 = 0 //流程卡打印选项 int sys_option_saletask_sc_card3 = 0 //流程卡必须先打印后确认 Int sys_option_produce_dec = 5 //生产运算小数位 int sys_option_order_skip_workprice = 0 // 未使用工资时，审核不提示工价表未设置。 int sys_option_add_orderrqwp_fqty = 0 //产品工序使用产品计件单确认完成 071 int sys_option_inware_cp_autocreatescll = 0 //生产进仓单审核自动生成领料单选项 0-自动生成不审核1-自动生成并审核 int sys_option_inwarecp_saleprice = 0 //生产进仓选订单带订单单价,（计划价） int sys_option_outware_scll_ch_ifwrkgrp = 0 //生产领料单按领料工作中心引入订单物料需求选择;[0-不考虑领料工作中心; 1-按选择的领料工作中心选择;] 088 int sys_option_inware_cp_assignqty = 0 //允许超排产数生产进仓 051 int sys_option_inwarecp_cusname = 0 //生产进仓选订单显示客户编码、名称 //////////////////////////////外协 int sys_option_wfjgware_nocost = 0 //外协商库存结存不核算金额 0 - 核算 1-不核算 int sys_option_autocreate_outware = 0 //外协订单审核自动生成外协发出单 0-不生成; 1-自动生成 Int sys_option_wfjg_outmx = 0 //外协订单,收货单必须有外协商库存明细 0-不限,1-限 int sys_option_wfjg_price_cmp = 0 //外协收货单计算材料成本价 0 - 按物料最新价 1 - 按本次库存价 2 - 按下级物料计划价 ///////////////////////////////工资 int sys_option_taskwork_not_affirm = 0 // 产品个人工序计件单无需确认 0 - 要确认 1-不用确认 Int sys_option_task_noorder = 0 //计件单直接选产品 207 0 - 否 1 - 是 Int sys_option_taskwork_price_limit = 0 //计件单工价不允许编辑 int sys_option_taskwork_person_noorder = 1 //个人产品计件单可以不选计划 215 0 - 否 1 - 是 int sys_option_taskwork_price_if_mod = 0 //计件单工价限价 0 - 不限, 1-限 Int sys_option_taskwork_procode_order = 0 //计件单按生产计划工序 1-按计划信息检查 ; 0-按工价表信息检查 int sys_opton_taskwork_gz_qty = 0 //计件单可开单数量 0-按订单已进仓数;1-按订单安排生产数; int sys_option_taskwork_mod_price //计件单选工序不可改单价 //int sys_option_abnormity_price = 0 //计件单加选项不能修改单价 ////////////////////////////隐藏布局 //字段 int sys_hidecol_status = 0 int sys_hidecol_woodcode = 0 int sys_hidecol_pcode = 0 int sys_hidecol_addqty = 0 int sys_hidecol_mtrlsectype = 0 int sys_hidecol_zxmtrlmode = 0 int sys_hidecol_plancode = 0 //隐藏批号 //模块 int sys_option_hide_sc = 0 //隐藏生产辅助 224 int sys_option_hide_wfjg = 0 //隐藏外协 225 int sys_option_hide_money = 0//隐藏财务 226 Int sys_option_hide_ware = 0 //隐藏仓库模块 199 int sys_option_hide_gz = 0 //隐藏外协 283 int sys_option_if_ljfieb = 1//是否使用电子商务 253 //dw2xls变量 String gs_path //日期控件　 Date id_date_selected datastore sys_ds_funcinfo datastore sys_ds_maininfo datastore sys_ds_shortcutinfo datastore sys_ds_userinfo window w_curwin String publ_logoico_name_normal = "ljprj_logo.ico" //托盘图标所用图标名 //邮件 Transaction sys_email_sqlca // 邮件数据库连接 //取ID连接 Transaction id_sqlca // 取ID数据库连接 //file Transaction sys_fileDB_sqlca //文件附件数据库连接 String sys_user_class_edit_str //附件编辑权限串 String sys_user_class_view_str //附件查看权限串 String ins_fjtemppath = 'fjtemp' //附件下载路径 //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-不锁 s_dw_uc_col s_sys_uccol[] //dwuc必填字段数组 s_sys_win s_sys_win_open[] string sys_help_chm = '龙嘉企精灵帮助.chm' String sys_right_rpt = '0' //自定义单据打印格式权限串 string sys_option_pos_jsbarcode ='' string sys_user_pluginsstr //外挂串 long sys_user_plugins[] //外挂数组 string sys_log_xml = 'log.xml' //更新日志 string sys_user_reportstr // 模板式自定义报表串 long sys_user_report[] // 模板式自定义报表数组 //datastore ds_bf_mtrltype //datastore ds_bf_retr_mtrltype ////// uo_ljws_cmd sys_wsc s_msgFrame sys_buf_s_msgFrame boolean sys_buf_new = false integer sys_retritime = 20 int sys_if_locker = 1 long sys_maxconnect=10 long sys_listenport=7896 long sys_maxframe_size=4000//数据包大小上限 //Integer sys_HeartBeatSec = 240 //心跳时间(要结合w_ws的timer的时间使用) Integer sys_Status = 0 //系统使用状态 0使用中 1暂停中(登陆窗口锁定) //w_sys_dl_new int sys_func_print_sentdataout = 1452 //打印格式数据发送 String sys_pwrstr,sys_optionstr int sys_development = 0 //0:用户模式,解决方案按版本显示; 1:开发模式,解决方案全显示; int sys_version_int = 1//版本对应值;若该值为N,表示取AllowVersion第N位的值 string sys_Version_arr[] //在f_open时定义 // 电话录音盒 uo_cc301 uo_cc301_ins string sys_option_change_mxsdscrp3 = '' string sys_option_change_mxsdscrp4 = '' string sys_option_change_mxsdscrp2 = '' //273 string sys_option_saletaskmx_change_mxsdscrp3 = '' //270 string sys_option_saletaskmx_change_mxsdscrp4 = '' //271 string sys_option_saletaskmx_change_mxsdscrp2 = '' //272 string sys_option_wfjgmx_change_mxsdscrp2 = '' // 285 string sys_option_wfjgmx_change_mxsdscrp3 = '' // 286 string sys_option_wfjgmx_change_mxsdscrp4 = '' // 287 long sys_option_copyrow_mode = 0 //274 long sys_option_inwarebuy_autospt = 0 //276 采购收货单保存时，供应商名称自动填写到“配置”里 Int sys_option_rap_money_dscrp_mode= 0 // 281 出纳帐摘要生成模式 Int sys_option_check_inwarecp_ifsc= 0 // 282 生产进仓单引入订单或者引入订单明细的选择方式，必须要勾选只显示已排产订单 int sys_option_check_scanqty //销售发货单，销售退货单 扫描数不等于出仓数不能仓审 267 int sys_option_saletask_use_priceflag =0 //销售订单启用确认流程 284 Int sys_option_saletask_sc_mx_addware = 0 //销售订单跟踪表确认自动加0库存 290 String sys_option_change_mtrlengname = '' //英文名称改名 String sys_option_change_barcode = '' //条码改名 String File_Way string clname string spt_itemid ='0' //收支项目(供应商) string cus_itemid ='0' //收支项目(客户) string spt_mtrlid='0' //费用项目(供应商) string cus_mtrlid ='0' //费用项目(供应商) string spt_relid ='0' //结算方式(供应商) string cus_relid ='0' //结算方式(客户) datastore ds_obj_visible window ins_open_win[] long ins_win_itmx = 0 Long sys_accsetid = 11 Long sys_system_mode = 0 s_accset s_sys_accset Boolean sys_accsetbegin = false Long sys_curyearmon Long sys_startyearmon Long sys_subaccsetid datastore ds_subjecttree datastore ddd_subid_display_detail datastore ddd_subid_display Integer retr_hideasset Integer sys_credence_insertrow = 50 Long sys_emptyrowcount = 6 Integer sys_option_lbrief Integer sys_bank_awoke Decimal sys_bank_taxrate = 1.17 Integer sys_option_credno_save Integer sys_option_cred_rel Integer sys_option_use_cash Integer sys_option_cred_auto_savecreate Integer sys_option_super_del_assetcred Integer sys_option_super_del_asset Integer sys_option_ifautocred Integer sys_option_mx_cmonth_limit Integer sys_option_mx_if_mxdscrp Integer sys_option_cmpldepr_use_assettype Integer sys_option_cred_dics_limit String sys_last_selected_subid = "" String sys_user_token = ""//本次登陆会话ID String sys_oa_ip = ""//OA服务IP Int sys_oa_port = 0//OA服务端口 String sys_reg_ip = "" // 注册服务IP Int sys_reg_port = 0 // 注册服务端口 String sys_yunreg_ip = "" // 云注册服务IP Int sys_yunreg_port = 0 // 云注册服务端口 OleObject RegCom OleObject YunRegCom Int sys_phonecount = 0 // 手机站点数 Int sys_enabledModules[]//已注册模块ID列表 end variables global type ljerp from application string appname = "ljerp" string appruntimeversion = "21.0.0.1288" end type global ljerp ljerp type prototypes subroutine keybd_event(uint bvk,uint bscan,long dwflags,long dwextrainfo ) library 'user32.dll' function ulong setlocaltime(ref s_systemtime lpsystemtime) library "kernel32.dll" alias for "setlocaltime;Ansi" Public Function Long LoadImage (Long hInst, String lpsz, Long un1, Long n1, Long n2, Long un2) Library "user32" Alias For "LoadImageA;Ansi" Public Function Integer Shell_NotifyIcon (Long dwMessage, Any lpData) Library "shell32" Alias For "Shell_NotifyIconA" Public Function Long DestroyIcon (Long hIcon) Library "user32" Alias For "DestroyIcon" function long ShellExecute32( long hWindow, string lpOperation, string lpFile, & string lpParameters, string lpDirectory, long nShowCmd ) Library "shell32" Alias For "ShellExecuteA;Ansi" Function Long HtmlHelpA (long hwnd ,string lpHelpFile , long wCommand, string dwData) Library "hhctrl.ocx" alias for "HtmlHelpA;Ansi" Function Long SetCapture(Long hwnd) library "user32" Function Long ReleaseCapture() library "user32" Function long GetSystemDirectory (ref String lpBuffer, Long nSize) Library "kernel32" Alias for "GetSystemDirectoryA;Ansi" FUNCTION ulong CreateDirectory(ref string lpPathName,ref SECURITY_ATTRIBUTES lpSecurityAttributes) LIBRARY "kernel32.dll" ALIAS FOR "CreateDirectoryA;Ansi" function ulong CreateMutexA (ulong lpMutexAttributes, int bInitialOwner, ref string lpName) library "kernel32.dll" alias for "CreateMutexA;Ansi" function ulong GetLastError () library "kernel32.dll" Function Long GetCurrentProcessId() Library "kernel32.dll" Function Long CreateToolhelp32Snapshot(Long Flags,Long ProcessId) Library "kernel32.dll" Function Integer Process32First(uLong Snapshot,ref s_Process Process) Library "kernel32.dll" alias for "Process32First;Ansi" Function Integer Process32Next(uLong Snapshot,ref s_Process Process) Library "kernel32.dll" alias for "Process32Next;Ansi" FUNCTION ULong FindWindowA(ULong ClassName,String windowname) LIBRARY "user32.dll" alias for "FindWindowA;Ansi" Function long DllRegisterServer_EwiserpReg() Library "EwiserpReg.dll" alias for "DllRegisterServer" //Function long DllRegisterServer_Jmail() Library "jmail.dll" alias for "DllRegisterServer" Function long DllRegisterServer_LongJoeMime() Library "LongJoeMime.ocx" alias for "DllRegisterServer" Function uLong OpenProcess(uLong dwDesiredAccess,Boolean bInheritHandle,uLong dwProcessId) Library "kernel32.dll" Function Boolean TerminateProcess(uLong hProcess,uLong uExitCode) Library "kernel32.dll" /// FUNCTION ulong GetFileTime(ulong hFile,ref FILETIME lpCreationTime,ref FILETIME lpLastAccessTime,ref FILETIME lpLastWriteTime) LIBRARY "kernel32.dll" alias for "GetFileTime;Ansi" FUNCTION ulong OpenFile(ref string lpFileName,ref OFSTRUCT lpReOpenBuff,ulong wStyle) LIBRARY "kernel32.dll" alias for "OpenFile;Ansi" FUNCTION ulong FileTimeToSystemTime(ref FILETIME lpFileTime,ref SYSTEMTIME lpSystemTime) LIBRARY "kernel32.dll" alias for "FileTimeToSystemTime;Ansi" Function ulong FileTimeToLocalFileTime(ref FILETIME lpFileTime ,ref FILETIME lpLocalFileTime ) LIBRARY "kernel32.dll" alias for "FileTimeToLocalFileTime;Ansi" //语音盒相关 SUBROUTINE CopyMemory(long pDesc, ref BRIEVENT pSrc,ulong size) LIBRARY "kernel32" ALIAS FOR "RtlMoveMemory" SUBROUTINE CopyMemory(ref BRIEVENT pDesc, long pSrc,ulong size) LIBRARY "kernel32" ALIAS FOR "RtlMoveMemory" FUNCTION ULong GetModuleFileName(Long hinstModule, Ref String lpszPath, ULong cchPath) LIBRARY "kernel32.dll" ALIAS FOR "GetModuleFileNameA;Ansi"; end prototypes on ljerp.create appname="ljerp" message=create message sqlca=create transaction sqlda=create dynamicdescriptionarea sqlsa=create dynamicstagingarea error=create error end on on ljerp.destroy destroy(sqlca) destroy(sqlda) destroy(sqlsa) destroy(error) destroy(message) end on event close;DISCONNECT Using sqlca; DISCONNECT Using sys_email_sqlca; DISCONNECT Using sys_fileDB_sqlca; DISCONNECT Using id_sqlca; destroy ds_obj_visible IF IsValid(uo_email_power) THEN Destroy uo_email_power IF IsValid(uo_mtrlname_ch_spi) THEN Destroy uo_mtrlname_ch_spi IF IsValid(uo_power_spi) THEN Destroy uo_power_spi IF IsValid(uo_saletask_spi) THEN Destroy uo_saletask_spi IF IsValid(uo_taskdamt_spi) THEN Destroy uo_taskdamt_spi IF IsValid(uo_ljjob_creator_spi) THEN Destroy uo_ljjob_creator_spi end event event idle;IF if_idle THEN HALT if_idle = TRUE Idle(sys_option_halt) IF NOT IsValid(w_main_scware) AND sys_version_type = 0 THEN HALT; //ELSEIF NOT IsValid(w_main_scware_biz) AND sys_version_type = 1 THEN // HALT; ELSE IF sys_if_network = 0 THEN IF NOT IsValid(w_sys_login_s) THEN f_open(1) END IF ELSE IF NOT IsValid(w_sys_login) THEN f_open(1) END IF END IF END IF end event event open;//Long a[] // //IF UpperBound(a) < 1 THEN // a[1] = 0 //ELSEIF IsNull(a[1]) THEN // a[1] = 0 //END IF //MessageBox('', String(a[1])) //RETURN // uo_mtrlname_ch_spi = Create uo_mtrlname_ch_ew uo_power_spi = Create uo_power_ew uo_saletask_spi = Create uo_saletask_ew uo_taskdamt_spi = Create uo_taskdamt_ew f_open(0) ds_obj_visible = create datastore //s_edit_index_tran s_tr //openwithparm(w_rp_sptamt_mx,s_tr) end event