$PBExportHeader$app_pc.sra $PBExportComments$Generated Application Object forward global type app_pc from application end type global transaction sqlca global dynamicdescriptionarea sqlda global dynamicstagingarea sqlsa global error error global message message end forward global variables String sys_pwrstr,sys_optionstr string sys_msg_pow 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[] //业务员数组 string sys_user_deptstr //部门串 long sys_user_dept[] Long sys_user_sempid[] //下属empid数组,用于上司对下属员工的管理 String sys_user_saletypestr // 订单分类串 Long sys_user_saletype[] //订单分类数组 long sys_user_boxid[] //龙嘉邮箱ID 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 = 'checkpda_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.110922' String sys_Allow_version = '1.0.060601' string sys_erp_build_version = '2.0.110526' //权限版本 String sys_pwr_version = '2011092801' //系统信息 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 int sys_if_recmp_balc = -9999 //是否执行结存表重算 //系统选项 //条码 int sys_option_getbar_wrkgrpid = 0 //条码生成单按车间权限区分 //系统 int sys_option_canpack_ifzanyong = 0 //通用包件产品可装数选项：0-按最大可装数（默认），1-按占用可装数 int sys_option_mtrl_maxminqty_ifpz = 0 //成品资料使用配置库存上下限设置 int sys_option_interview_edit_day = 2 //走访记录修改时限(天数) int sys_option_bom_ban = 0 //物料清单使用板件模式 int sys_option_workprice_ifgjaudit = 0 //工价表使用工价审 int sys_option_cust_station_ch = 0 //客户默认货运部严格限制只能选择已定义的货运部信息 int sys_option_pk_notauditqty_check = 0 //盘亏单保存时检查库存未开单数 int sys_option_outware_pack_save_cmp = 0 //出仓单保存删除马上计算相关包件可装数 int sys_option_noauditingqty_mode = 0 //使用新模式更新已开单数量 int sys_option_workprice_procheck = 0 //工价表工序信息严格按工序定义表限制 int sys_option_djqty_check = 0 //进出仓检查冻结数不能大于库存数 Int sys_option_buych_showsptmtrlname = 0 //采购选择物料显示供应商别名; 0-常规,不显示;1-显示; Int sys_option_pfmrp_ifuse_mtrlmrparg = 0 //物料清单用料列表计算与最新成本价统计表不使物料资料运算精度 int sys_option_cost_notax = 0 //采购外协使用不含税价进仓 Int sys_option_ifaudit_p_getbar_order_ml = 0 //待安排条码指令单列表批建立条码生成单后自动审核 Int sys_option_ifaudit_p_getbar_buytask = 0 //待安排条码采购订单列表批建立条码生成单后自动审核 Int sys_option_notbuymtrl_pfaudit_ifcheckmx = 0 //非采购物料物料清单审核检查是否有明细用料 Int sys_option_mtrl_user_view = 0 //产品及物料详细信息窗口使用快捷页 int sys_option_if_oa_price_order = 0 //高级价格策略使用OA审批流程 Int sys_option_if_oa_workprice_change = 1 //工价表变更单使用OA审批流程 Int sys_mtrlware_trans_fp_secaudit = 0 //库存分配调货单使用二级审核 Int sys_mtrlware_trans_fp_lend_secaudit = 0 //库存分配借货单使用二级审核 Int sys_mtrlware_trans_fp_return_secaudit = 0 //库存分配还货单使用二级审核 Int sys_saletaskmx_change_secaudit = 0 //销售订单配置及相关计划配置变更单使用二级审核 Int sys_option_ifpackpro2_if_no_pack2 = 0 //个性包件产品物料清单允许没有个性包件 Int sys_option_workprice_change_secaudit = 0 //工价表变更单使用二级审核 Int sys_option_bom_usepf = 1 //物料清单使用部件信息 Int sys_option_finish_taskwork_emp = 0 //工作中心派工的工序完工单计件审时生成计件单员工明细模式 0 - 按工作中心默认员工明细（默认），1-按工作中心派工时员工明细 Int sys_option_mtrldef_log = 0 //使用物料资料修改日志 Integer sys_user_testview = 0 //是否只能查询下属的绩效考核单 0-否,可以全部查看; 1-是,只能查看下属的; Int sys_option_awork_msg = 0 //主界面显示消息浮动窗口 Int sys_option_nostorageid_buy = 1 //采购订单必须选仓库 0可以不选择; 1 必须选择 Int sys_option_nostorageid_wfjg = 1 //外协订单必须选仓库 0可以不选择; 1 必须选择 //如果 uo_option_autocreate_outware(外协订单自动生成发出单) 选1 ==> sys_option_nostorageid_wfjg 必须选1 String sys_option_barcode_save = '' //保存指令条码 int sys_option_audit_spt = 0 //供应商使用审核 0-不使用 1-一审 2-二审 3-审批流程 int sys_option_audit_cust = 0 //客户使用审核 0-不使用 1-一审 2-二审 3-审批流程 int sys_option_audit_mtrl = 0 //物料使用审核 0-不使用 1-一审 2-二审 3-审批流程 Int sys_option_mrp_locktype = 0 //MRP运算锁加选项： //0 不锁 //1 运算时刻锁 //2 运算时刻锁，保存时刻锁 //3 运算开始到离开运算窗口全程锁 Int sys_option_packpro2_not_use_pack1 = 0 //个性包件产品不考虑通用包件 Int sys_option_outware_save_lock = 0 //出仓单保存锁选项： Int sys_option_storage_if_pd_usebarcode = 0 //条码仓库盘点时允许不用条码盘点 int sys_option_inout_procedure = 0 //进出仓使用存储过程更新库存数 long sys_option_pagerowno = 1000 //单据窗口每页行数 Boolean local_retrieve_all = FALSE //分页显示-----true:不分页,false:分页 Int sys_option_cusarea = 0 //区域限制 int sys_option_dept = 0 //部门限制 Int sys_option_outrep = 0 //业务员限制 int sys_option_disuse_saletask = 0 //启用销售订单废弃单 int sys_option_disuse_outware_sale = 0 //启用销售发货单废弃单 int sys_option_disuse_buytask = 0 //启用采购订单废弃单 int sys_option_disuse_inware_buy = 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_if_oa_quote = 0 //销售报价单使用OA审批流程 Int sys_option_if_oa_buytask_dept = 0 //非生产采购订单使用OA审核流程 int sys_option_if_oa_sptcheck = 0 //采购质检单使用OA审批流程 int sys_option_if_oa_sptcheck_wfjg = 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_mtrldef_auto_addwp = 1 //自制产品建立资料时自动加默认工序 int sys_option_if_ljfieb = 0 //启用电子商务功能 int sys_option_auditprint_outware_move = 0 //仓库调拨单打印选项 Int sys_option_packpro2_pf_pack2_useifover = 0 //个性包件产品清单明细个性包件必须使用按配置拆装 int sys_option_moneyrate_notmod = 0 //单据汇率不允许修改 int sys_FingerPrintType = 0 //0:U盘式指纹仪; 1:中控指纹仪; ....... int sys_option_use_clfp = 0 //启用材料分配 0-关, 1-开 int sys_option_barcodelocation_use_inwaremx_location = 0 //条码进仓仓位使用进仓单扫描仓位 Int sys_option_iffp_recmpl_canuseqty = 0 //库存分配是否重算库存可装数,未分配可装数,未开单可装数 //销售 int sys_option_saletask_affirm_produce = 0 //销售订单财务确认后排产 int sys_option_outware_create_rest = 0 //销售发货单仓审后询问按计划发货数-实发数重新生成发货单 int sys_option_saletask_stopqty_type = 0 //销售订单终止数量录入方式 int sys_option_saletask_fore_addware = 0 //销售预测单审核自动加0库存 int sys_option_saleout_secaudit = 0 //发货通知单使用二级审核 int sys_option_saletask_mxhz = 0 //销售订单使用汇总明细流程 int sys_option_cust_sample_secaudit = 1 //销售意向单使用二级审核 int sys_option_outware_sale_print_reason = 0 //销售发货单再次打印时必须录入原因 int sys_option_price_order_secaudit = 1 //高级价格策略使用二级审核 int sys_option_saletask_rebate_check = 0 //客户折扣没有审核，不能保存销售订单 int sus_option_price_order_check = 0 //建立高级价格策略检查标准价格表已审核 int sys_option_check_rqdate_num = 0 //销售订单生产审交期限制提醒天数 Int sys_option_dd_allto_pqty = 0 //销售订单及销售预测单自动调度全部调度到自制排产 Int sys_option_secaudit_notupdate_hisprice = 0 //销售发货单财审时不更新客户价格历史 Int sys_option_outware_sale_check_mrate = 1 //销售发货单财审检查汇率是否最新 Int sys_option_saletask_ifuse_typebillcode = 0 //销售订单使用订单分类单据编号抬头 int sys_option_sale_ifuse_negativeprice //销售允许负数单价 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_m_mstpay = 0 //系统使用多币种应付帐 int sys_option_saletask_packprobom_check = 0 //销售订单审核检查包件产品选项，0-不检查，1-通用包件产品，个性包件产品如果默认清单无审核或无包件明细，订单审核不能通过 Int sys_option_otheramt_msttake = 0 //优惠金额多币种 String sys_option_change_otheramt = '' //销售发货单优惠金额文本 Int sys_option_saletask_addware = 0 //订单审核自动加0库存 Int sys_option_saletask_addware_addbj = 1 //订单审核自动加0库存时,是否增加包件库存 400 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_th = 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_cusrepamt_limit_saletask = 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_quote_secaudit = 0 //销售报价单使用二级审核 int sys_option_saleprice_list_rebate = 0 //客户价格表折扣按客户设定 0-按价格表 1-按客户设定 int sys_option_price_rmb = 0 //销售单价按人民币单价折算 Int sys_option_saletask_dftsaleprice_get1buyprice = 0 //销售订单采购成品定价取最新采购价 Int sys_option_saletask_cancel_fp_mode = 0 //销售订单按单取消库存分配模式 Int sys_option_saletask_mx_ch_quote = 0 //销售订单制单时明细只能选择报价明细 int sys_option_saletask_relcode_repeat = 0 //销售订单相关号限制重复录入 int sys_option_saletask_typeid_retrieve = 0 //只列出有订单分类权限的销售订单 Int sys_option_saletask_dd_fp_notaudit = 0 //销售订单生产调度手动调货生成的调货单不自动审核 int sys_autoupdate_member //客户自动升级会员类型 0:不自动; 1:自动 Int sys_option_outware_sale_checkprice = 0 //销售发货单保存时检查实价是否与销售订单一致 Int sys_option_outware_typeid = 0 //销售发货单严格按销售订单分类开单 //来料加工 Int sys_option_taskplancode_auto_ll = 0 //来料加工订单生产批号自动按订单号 Int sys_option_confirmaudit_sale_ll = 0 //来料加工发货单先确认后审核 //生产 int sys_option_sc_task_show_finish = 0 //412-工序派工单-待派工列表可以显示自动完成和手动完成指令单的工序 Int sys_option_check_cpin = 0 //自制先质检后进仓 Int sys_option_sptcheck_cp_inware = 0 //自制质检单审核自动生成生产进仓单 Int sys_option_sptcheck_cp_secaudit = 0 //自制质检单使用二级审核 Int sys_option_order_mrp_edit_rqqty = 0 //主计划运算允许修改毛需求数;[0-否;1-是] int sys_option_scllplan_noscllmx = 0 // 发料通知单不使用领料明细 int sys_option_order_zl_auto_getbar = 0 //胚板指令单终审自动生成条码生成单并审核 int sys_option_finish_wagemth_type = 0 //工序完工单的计件月份按仓审时间 int sys_option_orderrqwp_auditgj = 0 //工价表如果未进行工价审,指令单工序明细生成时对应工序工价为0 Int sys_option_if_wqty_norq = 1 //主计划运算,自制考虑生产计划未排指令数增加考虑生产计划外协未排申请数; 0- 否; 1-是 int sys_option_if_mrp_dscrp = 0 //主生产计划运算是否记录数量来源备注;0-否; 1-是 int sys_option_bujian_notmrpqty = 0 //补件类型主计划下属的半成品不参与其他计划的可用数 int sys_option_taskrelcode_canedit = 0 //按订单建立生产计划允许编辑生产批号 int sys_option_if_proaudit = 0 //使用工序进度确认 int sys_option_autostop_porder = 1 //终止分离排产指令单自动终止相关主生产计划 int sys_option_scll_back_check = 0 //退料单检查允许退料数量 int sys_option_scll_plan_wsaudit = 0 //发料单使用明细车间审核流程 int sys_option_workgroup_num_check = 0 //工组交接单严格按工组顺序交接 int sys_option_mrp_ifcheck_scll = 0 //主生产计划运算是否限制如果有未审的申购单不能开单 Int sys_option_mrp_ifcheck_notaudit_rqbuy = 0 //主生产计划运算是否限制如果有未审的申购单不能开单 Int sys_option_mrp_ifcheck_notaudit_rqwfjg = 0 //主生产计划运算是否限制如果有未审的外协申请单不能开单 Int sys_option_iflimit_prqbuy_once = 0 //主生产计划批生成申购单时是否限制不能重复开单 Int sys_option_iflimit_prqwfjg_once = 0 //主生产计划批生成外协申请单时是否限制不能重复开单 Int sys_option_scll_ifchanged = 1 //车间指令单领料明细带出运算结果中"修改"的用料 Int sys_option_outware_scll_new_cj_mtrlware = 0 //其它领料单加入车间仓库存 Int sys_option_inware_cp_autoreturnfp_audit = 0 //生产进仓单自动生成库存分配还货单审核选项 Int sys_option_zlstop_change_rqmtrl_type = 0 //指令单终止变更领料明细选项 Int sys_option_update_rqmtrlqty_buy = 1 //采购订单审核检查并更新生产计划采购需求已订货数 Int sys_option_update_rqmtrlqty_wfjg = 1 //外协订单审核检查并更新生产计划采购需求已订货数 Int sys_option_zlmtrlchange_wx_update_rqwfjg = 1 //指令单外协物料换料单更新外协申请单和外协订单 Int sys_option_use_scllplan = 0 //使用发料流程 Int sys_option_order_rqbuy_audit = 1 //生产计划批建申购单自动审核 Int sys_option_order_rqwfjg_audit = 1 //生产计划批建外协申请单自动审核 Int sys_option_order_capacity = 0 //指令单保存按车间产能总量限制 Int sys_option_padd_rqbuy_check_zlaudit = 0 //主生产计划必须全部审核下级车间指令才能批建立申购单 int sys_option_if_newmrp = 0 //启用新物料运算功能 Int sys_option_def_workprice = 0 //先定义工价表 Int sys_option_def_bom = 0 //先定义BOM int sys_option_def_mtrlwkp = 0 //生产计划审核前检查工组流程是否定义 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_auditprint_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_bom_print = 0 //物料清单打印选项 0 - 审核后打印 1-确认后打印 2 - 不限制 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_use_workgroup_tree = 0 //使用工艺路线 int sys_option_scllaudit_autobuild = 0 //主生产计划用料审核自动生成相关指令单 int sys_option_scllaudit_autobuild_tech = 0 //主生产计划用料审核自动生成相关指令单的派工单 int sys_option_scll_ch_pro = 0// 领料单使用存储过程选择窗口 int sys_option_dd_check_mtrlware = 0 //订单调度时限制参考库存分配数不能大于现库存数 int sys_option_scllplan_outware_auto = 0 //发料通知单审核自动生成发料单 int sys_option_cp_inware_scll_rate = 0 //指令单生产进仓单审核时限制最大进仓数不能大于领料配套数量 int sys_option_if_order_billcode = 0 //主生产计划保存时按当批生成排产号 int sys_option_auto_finish_zl = 0 //生产计划完成,相关指令单自动完成 int sys_option_cpinware_update_planprice = 0 //生产进仓单审核更新计划成本价 int sys_option_update_lockdateflag = 0 //工组派工单审核完毕自动写排程审核状态为最高级审核(全锁) int sys_option_inware_cp_priceflag_print = 0 //生产进仓单先确认后打印 Int sys_option_order_zl_3_day = 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_buytask_dept_secaudit = 0 //非生产采购订单二级审核 String sys_option_buy_mxdscrp = '' //采购订单明细备注附加说明 String sys_option_buy_mxdscrp2 = '' //采购订单明细备注2附加说明 Int sys_option_wfjg_in_chksptware = 0 //外协收货单限制超供应商库存收货;0-不限制[默认];1-限制 Int sys_option_request_wfjg_ifoutmx = 0 //外协申请单必须有发出明细; 0-否,可以没有发出明细; 1-是,必须有发出明细 375 int sys_option_inware_buy_print_reason = 0 //采购收货单再次打印时必须录入原因 int sys_option_zero_update_sptprice = 0 //采购收货单0单价更新价格历史 Int sys_option_buyth_use_price_update_wareamt = 0 //采购退货单用退货单价扣减库存金额 Int sys_option_buy_getbuybargain = 0 //采购订单是否查询合同号, 0 - 否, 采购订单单价按收货限价属性控制是否能修改; 1 - 是, 采购订单单价按合同号与收货限价双重限制是否能修改; int sys_option_cpcheck_update_chkqty = 0 //采购收货单的质检数量相关字段由收货质检单更新, 0(否):手动填写; 1(是):由采购收货质检单审核更新 int sys_option_cpcheck_use_chkpassrate = 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_sptprice_effdate = 0 //供应商报价使用生效日期 //int sys_option_buy_use_deliqty = 0 //采购收货单使用供应商送货数量 int sys_option_sptcheck_secaudit = 0 //采购质检单使用二级审核 int sys_option_sptcheck_wfjg_secaudit = 0 //外协质检单使用二级审核 int sys_option_sptcheck_inware = 0 //采购质检单审核自动生成采购收货单 int sys_option_sptcheck_wfjg_inware = 0 //外协质检单审核自动生成外协收货单 int sys_option_sptprice_change_secaudit = 0 //供应商询价单使用二级审核 Int sys_option_buytask_add0ware = 0 //成品采购订单审核自动加0库存 Int sys_option_requestbuy_checkdate = 0 //申购单保存不检查交货日期 Int sys_option_cl_cp_buy = 0 //材料采购 与 成品采购 合并显示 //外协 Int sys_option_wfjg_pdb_chkWfjgOrder = 0 //外协供应商盘点表审核时对盘盈生成外协订单,对盘亏物料终止外协订单; 0-否;1-是 Int sys_option_inware_buy_ifmating = 0 //采购收货单保存时检查收货明细与包件明细是否配套 0-否;1-是; 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_wfjg_out_cmp = 0 //外协订单发出明细必须由物料清单或运算结果生成 int sys_option_wfjg_price_cmp = 0 // 外协收货单外协件成本价计算方法 0 - 按物料最新价 1 - 按本次库存价 Int sys_option_wfjg_checkdate = 0 //外协申请单保存不检查交货日期 Int sys_option_wfjg_in2out_bom = 0 //统一按物料清单计算外协商库存明细 Int sys_option_request_wfjg_ifunit = 0 //外协申请单使用外协单位; 0-默认库存单位; 1-默认外协单位 Int sys_option_wfjg_th_ifnotorder = 0 //外协返工单限制不能选外协订单 //财务 int sys_option_msttake_balc = 0 //应收帐使用结帐功能 int sys_option_mstpay_balc = 0 //应付帐使用结帐功能 Int sys_option_taskdamt_secaudit = 0 //订单收款单使用二级审核; 0-不使用; 1-使用 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_income_secaudit = 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 //计件单选生产计划时按已进仓数限制 Int sys_option_check_noworkprice = 0 //计件单没有工价不能审核 int sys_option_taskwork_check_wrk = 0 //计件单使用车间权限限制 Transaction mainw_sqlca,id_sqlca,mrp_sqlca //dw2xls变量 String gs_path //日期控件　 Date id_date_selected window w_curwin String xltpath //考核机 Long sys_wage Long sys_port Long sys_mac = 0 //file Transaction sys_fileDB_sqlca //文件附件数据库连接 String sys_user_class_edit_str //附件编辑权限串 String sys_user_class_view_str //附件查看权限串 //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-不锁 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_option_cmpl_status_qty = '' //按辅数和配置计算数量公式关键字 long sys_version = 0 //102001 标准版; 102002 企业版 int sys_user_grade = 3 //用户级别 int sys_ifreg //0 未注册; 1 已注册 int sys_ifdog //0 无狗; 1 有狗 int sys_ifnewserver s_oa_flow_settype s_oaflow_settype[100] s_oa_flow s_oaflow_def[100] Int sys_option_order_ml_printnum = 0 //生产计划打印次数 //int sys_option_saleprice_list_rebate = 0 //客户价格表折扣按客户设定 0-按价格表 1-按客户设定 //int sys_option_price_rmb = 0 //销售单价按人民币单价折算 String sys_user_class_del_str //附件删除权限串 long sys_option_outware_sale_auto_send //销售发货单仓审自动发送单据 long sys_option_if_oa_requestbuy_dept //非生产类物料申购单使用OA审批流程 long sys_option_request_dept_secaudit //非生产类物料申购单使用二级审核 /// 个性全局变量 oleobject AppCom string app_token /// plugin全局变量 string sys_help_chm = '龙嘉企精灵帮助.chm' String sys_ServerNameFJ String sys_DataBaseFJ //附件数据库名称 String sys_LoginIDFJ String sys_LoginPwdFJ String ins_fjtemppath = 'fjtemp' //附件下载路径 end variables global type app_pc from application string appname = "app_pc" end type global app_pc app_pc type prototypes subroutine keybd_event(uint bvk,uint bscan,long dwflags,long dwextrainfo ) library 'user32.dll' 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" end prototypes type variables end variables on app_pc.create appname="app_pc" message=create message sqlca=create transaction sqlda=create dynamicdescriptionarea sqlsa=create dynamicstagingarea error=create error end on on app_pc.destroy destroy(sqlca) destroy(sqlda) destroy(sqlsa) destroy(error) destroy(message) end on event open; Int rslt = 1 String arg_msg uo_reghelper ll_reghelper ll_reghelper = Create uo_reghelper AppCom = Create oleobject IF ll_reghelper.ConnectToNewObject("SanrossDll.AppCom", "SanrossDll.dll", AppCom, arg_msg) <> 1 THEN rslt = 0 GOTO ext END IF IF AppCom.SetUrl('http://127.0.0.1:8087/webapi.ashx') <> True THEN rslt = 0 arg_msg = '初始化控件失败' GOTO ext END IF app_token = AppCom.GetToken() IF app_token = '' THEN rslt = 0 arg_msg = '与服务器建立会话失败' GOTO ext END IF oleobject lo_dict, lo_rslt lo_dict = AppCom.CreatePbDictionary() lo_dict.SetString('token', app_token) lo_dict.SetString('usercode', 'super') lo_dict.SetString('psw', 'longjoe') lo_rslt = AppCom.Login(lo_dict, Ref arg_msg) IF arg_msg <> '' THEN rslt = 0 arg_msg = '登录失败,' + arg_msg GOTO ext END IF // Profile l1_aps_demo SQLCA.DBMS = "SNC SQL Native Client(OLE DB)" SQLCA.LogPass = '111111' SQLCA.ServerName = "." SQLCA.LogID = "sa" SQLCA.AutoCommit = False SQLCA.DBParm = "Database='l1_aps_demo',Provider='SQLNCLI10',PBTrimCharColumns='YES'" CONNECT; ext: Destroy ll_reghelper IF rslt = 1 THEN Open(w_main_pc) ELSE MessageBox('Error', arg_msg) END IF end event event close;destroy AppCom end event