| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886 |
- $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
|
