Q5/ws_objects/Ew_mainface.pbl.src/f_sys_option.srf

$PBExportHeader$f_sys_option.srf
global type f_sys_option from function_object
end type

forward prototypes
global subroutine f_sys_option ()
end prototypes

global subroutine f_sys_option ();String str_optionvalue

//read from database
//--get sys_option_mustprint:单据逐张打印
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('001',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_mustprint = Long(str_optionvalue)

//--get sys_option_autoyes:自动是订单或计划
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('002',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_autoyes = Long(str_optionvalue)

//--get sys_option_auditprint_sale:销售单先审核后打印
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('003',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_auditprint_sale = Long(str_optionvalue)

//--get sys_option_auditprint_sale:销售单先确认后打印
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('016',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_confirmprint_sale = Long(str_optionvalue)



////--get sys_option_savecode:库存批号类型 1:批号手动，2:批号单价 005
//str_optionvalue = ''
//str_optionvalue = f_getoptionvalue('005',0)
//IF str_optionvalue = 'err' THEN
//	str_optionvalue = '1'
//END IF
//sys_option_buyprice_type = Long(str_optionvalue)


//--get sys_option_saletask_addware:订单审核自动加0库存
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('006',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_saletask_addware = Long(str_optionvalue)

//--get sys_option_winrar_path:服务器winrar安装路径
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('007',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = 'C:\Program Files\WinRAR\'
END IF
sys_option_winrar_path = str_optionvalue


//--get sys_option_timeout:系统注销时间
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('008',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '300'
END IF
sys_option_timeout = Long(str_optionvalue)

//--get sys_option_auditprint:单据先审核后打印
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('009',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_auditprint = Long(str_optionvalue)

//--get sys_option_ifovertask:允许超订单收货
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('010',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_ifovertask = Long(str_optionvalue)

//--get sys_option_aloweditstatus:颜色约定
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('011',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_aloweditstatus = Long(str_optionvalue)

//--get sys_option_change_mtrlsectype: //物料自定义文本1
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('012',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = ''
END IF
sys_option_change_mtrlsectype = Trim(str_optionvalue)
IF sys_option_change_mtrlsectype = '' THEN sys_option_change_woodcode = '自定义1'

//--get sys_option_change_zxmtrlmode: //物料自定义文本2
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('013',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = ''
END IF
sys_option_change_zxmtrlmode = Trim(str_optionvalue)
IF sys_option_change_zxmtrlmode = '' THEN sys_option_change_woodcode = '自定义2'

//--get sys_option_cusarea: //区域限制
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('014',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_cusarea = Long(str_optionvalue)

//业务员限制
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('231',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_outrep = Long(str_optionvalue)


//--get sys_option_input_days: //单据录入天数限制
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('015',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '60'
END IF
sys_option_input_days = Long(str_optionvalue)

//--get sys_option_if_color: //按颜色拆装
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('017',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_if_color = Long(str_optionvalue)



//--get sys_option_auditprint_saletask:销售订单单据先审核后打印
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('020',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_auditprint_saletask = Long(str_optionvalue)

//--get sys_option_price_if_status:销售价按颜色约束
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('021',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_price_if_status = Long(str_optionvalue)

//--get sys_option_price_if_list:销售价取价格表
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('022',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_price_if_list = Long(str_optionvalue)

//--get sys_option_unit_dec:单位转换小数点
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('023',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '5'
END IF
sys_option_unit_dec = Long(str_optionvalue)

//--sys_option_confirmaudit_sale: //销售单先确认后审核
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('025',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_confirmaudit_sale = Long(str_optionvalue)

//--get sys_option_change_woodcode: //修改材质标题文本
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('027',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = ''
END IF
sys_option_change_woodcode = Trim(str_optionvalue)
IF sys_option_change_woodcode = '' THEN sys_option_change_woodcode = '属性1'

//--get sys_option_change_pcode: //修改面料标题文本
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('028',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = ''
END IF
sys_option_change_pcode = Trim(str_optionvalue)
IF sys_option_change_pcode = '' THEN sys_option_change_pcode = '属性2'

//--get sys_option_change_status: //修改颜色标题文本
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('029',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = ''
END IF
sys_option_change_status = Trim(str_optionvalue)
IF sys_option_change_status = '' THEN sys_option_change_status = '属性'

//--get sys_option_autowaste: //使用销售废弃单
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('030',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0 '
END IF
sys_option_autowaste = Long(str_optionvalue)

//--get sys_option_cust_rate:客户最低返率
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('031',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '1'
END IF
sys_option_cust_rate = Dec(str_optionvalue)

//--sys_option_use_msttake //系统使用应收帐模块
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('032',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '1'
END IF
sys_option_use_msttake = Long(str_optionvalue)

//--sys_option_use_mstpay //系统使用应付帐模块
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('033',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '1'
END IF
sys_option_use_mstpay = Long(str_optionvalue)



//--sys_option_switch_chktime //切换检查时间
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('042',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '2'
END IF
sys_option_switch_chktime = Long(str_optionvalue )

//--sys_option_switch_Sername //切换数据服务器名称
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('043',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = ''
END IF
sys_option_switch_Sername = str_optionvalue

//--sys_option_switch_dbname //切换数据库名称
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('044',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = ''
END IF
sys_option_switch_Dbname = str_optionvalue

//--sys_option_switch_loginID //切换数据库登录用户
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('045',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = ''
END IF
sys_option_switch_loginID = str_optionvalue

//--sys_option_switch_loginpsw //切换数据库登录密码
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('046',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = ''
END IF
sys_option_switch_loginpsw =  f_psw_bczh(str_optionvalue,1,sys_power_key)


//--sys_option_switchpath //切换程序路径
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('041',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = ''
END IF
sys_option_switchpath = str_optionvalue


//--sys_option_buy_rateedit // 进仓单转换率可修改
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('034',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_buy_rateedit = Long(str_optionvalue)

//--sys_option_mst_multimoney // 销售应收帐多币种结算
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('035',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_mst_multimoney = Long(str_optionvalue)

//sys_dismantle_install_check
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('036',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_dismantle_install_check = Long(str_optionvalue)
//销售金额整正处理
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('037',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '3'
END IF
sys_saleamt_round =  Long(str_optionvalue) - 1


//辅数约束
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('038',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '1'
END IF
sys_option_addqty =  Long(str_optionvalue)

//选择供应商信息隐藏
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('039',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_spt_hideinfo =  Long(str_optionvalue)

//销售单可修改业务员
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('040',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_allow_edit_outrep =  Long(str_optionvalue)

//收货按报价取价
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('047',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_buyprice_ifbj =  Long(str_optionvalue)

//收货按报价限价
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('048',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_buylimit_ifbj =  Long(str_optionvalue)

//--get sys_option_cost_dec:库存成本价小数点
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('049',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '5'
END IF
sys_option_cost_dec = Long(str_optionvalue)

//--get sys_option_buyprice_buytask_limit:采购订单限制价格
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('050',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_buyprice_buytask_limit = Long(str_optionvalue)

//--get sys_option_inware_cp_assignqty:允许超排产数生产进仓
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('051',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_inware_cp_assignqty = Long(str_optionvalue)

//--get sys_option_taskwork_mod_price:允许超排产数生产进仓
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('052',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_taskwork_mod_price = Long(str_optionvalue)

//--get sys_option_saletask_plan:销售订单默认安排 1：无，2：采购 ，3：生产
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('053',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '1'
END IF
sys_option_saletask_plan = Long(str_optionvalue)

//--get sys_option_inwarecp_saleprice:生产进仓选订单带订单单价
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('054',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_inwarecp_saleprice = Long(str_optionvalue)

//--get sys_option_saletask_addware_taskqty: //订单审核自动加订单库存
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('055',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_saletask_addware_taskqty = Long(str_optionvalue)

str_optionvalue = ''
str_optionvalue = f_getoptionvalue('056',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_saletask_addware_taskqty_qty = Dec(str_optionvalue)


str_optionvalue = ''
str_optionvalue = f_getoptionvalue('057',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_auditprint_buy = Long(str_optionvalue)

str_optionvalue = ''
str_optionvalue = f_getoptionvalue('058',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_planprice_configure = Long(str_optionvalue)

str_optionvalue = ''
str_optionvalue = f_getoptionvalue('059',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_planprice_directinput = Long(str_optionvalue)

//str_optionvalue = ''
//str_optionvalue = f_getoptionvalue('060',0)
//IF str_optionvalue = 'err' THEN
//	str_optionvalue = '0'
//END IF
//sys_option_inwarecp_planprice = Long(str_optionvalue)

// //计件单单价可修改开关
//str_optionvalue = ''
//str_optionvalue = f_getoptionvalue('061',0)
//IF str_optionvalue = 'err' THEN
//	str_optionvalue = '0'
//END IF
//sys_option_abnormity_price = Long(str_optionvalue) 

//外协双单位核算
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('062',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
sys_option_2unit = Long(str_optionvalue)


// //外协双单位使用物料定义辅助单位. 1 - 是. 0-选择单位定义资料
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('063',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '1'
END IF
sys_option_2unit_ch = Long(str_optionvalue)

//属性计算关键字
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('064',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = ''
END IF
sys_option_cmpl_status_qty = str_optionvalue


//---------------------------------------------------
//read from local ini
//取是否分页显示
str_optionvalue = ''
str_optionvalue = f_getoptionvalue('101',0)
IF str_optionvalue = 'err' THEN
	str_optionvalue = '0'
END IF
local_retrieve_all = (str_optionvalue = '0')
local_retrieve_all = local_retrieve_all


end subroutine