test

app_pc.pbt

@@ -1,12 +0,0 @@
-Save Format v3.0(19990112)
-@begin Projects
- 0 "1&p_plugins_exe&plugins_publ.pbl";
- 1 "1&p_app_pc_exe&app_pc.pbl";
- 2 "1&p_l1_uo_exe_dll&l1_uo.pbl";
- 3 "1&p_l1_uo_exe&l1_uo.pbl";
- 4 "1&p_checkpda_exe&checkpda.pbl";
-@end;
-appname "app_pc";
-applib "app_pc.pbl";
-LibList "app_pc.pbl;plugins_publ.pbl;plugins_publ_print.pbl";
-type "pb";

release/AssemblyUtil.manifest

@@ -1,2 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
-<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"><assemblyIdentity name="AssemblyUtil" version="1.0.0.0" processorArchitecture="x86"></assemblyIdentity><clrClass clsid="{047D23B7-673D-4C50-93D8-6936472FFD7C}" progid="AssemblyUtil.Util" threadingModel="Both" name="AssemblyUtil.Util" runtimeVersion="v4.0.30319"></clrClass><file name="AssemblyUtil.dll" hashalg="SHA1"></file></assembly>

release/SanrossDll.manifest

@@ -1,16 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
-<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
-    <assemblyIdentity
-        name="SanrossDll"
-        version="1.0.0.0"
-        processorArchitecture="x86">
-    </assemblyIdentity>
-    <clrClass
-        clsid="{E52AF7D6-5CC9-4EC9-AA6F-15190B0609AA}"
-        progid="SanrossDll.FXAppCom"
-        threadingModel="Both"
-        name="SanrossDll.FXAppCom"
-        runtimeVersion="v2.0.50727">
-    </clrClass>
-    <file name="SanrossDll.dll" hashalg="SHA1"></file>
-</assembly>

release/app_fx.exe.manifest

@@ -1,34 +0,0 @@
- <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
- <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
- <assemblyIdentity
-     version="1.0.0.1"
-     processorArchitecture="x86"
-     name="app_fx"
- />
- <dependency>
-     <dependentAssembly>
-         <assemblyIdentity
-             name="SanrossDll"
-             version="1.0.0.0"
-             processorArchitecture="x86"
-         />
-     </dependentAssembly>
- </dependency>
- <dependency>
-     <dependentAssembly>
-         <assemblyIdentity
-             name="AssemblyUtil"
-             version="1.0.0.0"
-             processorArchitecture="x86"
-         />
-     </dependentAssembly>
- </dependency>
- <ms_asmv3:trustInfo xmlns:ms_asmv3="urn:schemas-microsoft-com:asm.v3">
- <ms_asmv3:security xmlns:ms_asmv3="urn:schemas-microsoft-com:asm.v3">
-    <requestedPrivileges>
-        <requestedExecutionLevel level="asInvoker" uiAccess="false">
-        </requestedExecutionLevel>
-    </requestedPrivileges>
- </ms_asmv3:security>
- </ms_asmv3:trustInfo>
- </assembly>

ws_objects/app_base.pbl.src/f_cmp_ifemp_oa.srf

@@ -1,36 +0,0 @@
-$PBExportHeader$f_cmp_ifemp_oa.srf
-global type f_cmp_ifemp_oa from function_object
-end type
-
-forward prototypes
-global function integer f_cmp_ifemp_oa (long arg_docid, long arg_empid)
-end prototypes
-
-global function integer f_cmp_ifemp_oa (long arg_docid, long arg_empid);//判断传入的arg_empid是否arg_docid公文当前审批的人员,如果不是,定义为下级用户的公文
-
-Int if_user //下级用户的公文
-Long cnt
-
-Select count(*)
-	Into :cnt
-	From oa_doc Inner JOIN
-	oa_doc_flow ON oa_doc.docID = oa_doc_flow.Docid And
-	oa_doc.rowid = oa_doc_flow.rowid
-	Where oa_doc.docID = :arg_docid
-	And oa_doc_flow.Empid = :arg_empid;
-If sqlca.SQLCode <> 0 Then
-	if_user = 0
-	Goto ext
-End If
-
-If cnt > 0 Then
-	if_user = 0
-Else
-	if_user = 1
-End If
-
-ext:
-Return if_user
-
-end function
-

ws_objects/app_base.pbl.src/f_connect_db_new.srf

@@ -1,53 +0,0 @@
-$PBExportHeader$f_connect_db_new.srf
-global type f_connect_db_new from function_object
-end type
-
-forward prototypes
-global function integer f_connect_db_new (string arg_servername, string arg_databasename, string arg_loginid, string arg_loginpwd, ref transaction arg_transaction, ref string arg_msg)
-end prototypes
-
-global function integer f_connect_db_new (string arg_servername, string arg_databasename, string arg_loginid, string arg_loginpwd, ref transaction arg_transaction, ref string arg_msg);Int rslt = 1
-String ls_dbms,ls_databasename
-String ls_logid,ls_logpass,ls_servername
-
-
-arg_transaction.DBMS =   "SNC SQL Native Client(OLE DB)"
-arg_transaction.Database = arg_databasename
-arg_transaction.UserID = sqlca.UserID
-arg_transaction.DBPass =  sqlca.DBPass
-arg_transaction.LogID =  arg_LoginID
-arg_transaction.LogPass =  arg_loginpwd//f_psw_bczh(arg_LoginPwd,1,sys_power_key)
-arg_transaction.ServerName =  arg_ServerName
-arg_transaction.Lock = "RC"
-arg_transaction.AutoCommit = false
-
-arg_transaction.DBParm   =    "Database= '" + arg_databasename + "',PBTrimCharColumns='YES'"
-
-
-
-CONNECT USING arg_transaction;
-
-IF arg_transaction.SQLCode <> 0 THEN
-	arg_msg = '连接失败,'+arg_transaction.SQLErrText
-	rslt = 0
-	GOTO ext
-END IF
-String strkey
-strkey = 'I~'m LongJoe'
-EXECUTE Immediate :strkey Using arg_transaction;
-
-EXECUTE Immediate "set transaction isolation level READ UNCOMMITTED" Using arg_transaction;
-EXECUTE Immediate  'SET   DEADLOCK_PRIORITY   low'  Using arg_transaction;
-
-IF arg_transaction.SQLCode <> 0 THEN
-	HALT;
-END IF
-
-
-ext:
-RETURN rslt
-
-
-
-end function
-

ws_objects/app_base.pbl.src/f_connectdb_id.srf

@@ -1,49 +0,0 @@
-$PBExportHeader$f_connectdb_id.srf
-global type f_connectdb_id from function_object
-end type
-
-forward prototypes
-global function integer f_connectdb_id (ref string arg_msg)
-end prototypes
-
-global function integer f_connectdb_id (ref string arg_msg);Int rslt = 1
-
-//id
-
-id_sqlca  = CREATE Transaction
-
-id_sqlca.DBMS =   "SNC SQL Native Client(OLE DB)"
-id_sqlca.Database   = sqlca.database
-id_sqlca.UserID     = sqlca.userid
-id_sqlca.DBPass     = sqlca.dbpass
-id_sqlca.LogID      = sqlca.logid
-id_sqlca.LogPass    = sqlca.logpass
-id_sqlca.ServerName = sqlca.servername
-id_sqlca.DBParm     = sqlca.dbparm
-id_sqlca.Lock = "RC"
-id_sqlca.AutoCommit = false
-
-
-CONNECT USING id_sqlca;
-IF id_sqlca.SQLCode < 0 THEN
-	arg_msg = "取ID模块数据连接失败!" + id_sqlca.SQLErrText
-	rslt = 0
-	GOTO ext
-END IF
-
-
-EXECUTE IMMEDIATE "set transaction isolation level READ UNCOMMITTED" USING id_sqlca;
-execute immediate  'SET   DEADLOCK_PRIORITY   low'  USING id_sqlca; 
-
-IF id_sqlca.SQLCode <> 0 THEN
-	HALT;
-END IF
-
-ext:
-
-RETURN rslt
-
-
-
-end function
-

ws_objects/app_base.pbl.src/f_get_mrate.srf

@@ -1,19 +0,0 @@
-$PBExportHeader$f_get_mrate.srf
-global type f_get_mrate from function_object
-end type
-
-forward prototypes
-global function decimal f_get_mrate (long arg_moneyid)
-end prototypes
-
-global function decimal f_get_mrate (long arg_moneyid);decimal rslt_rate
-
-select rate 
-into :rslt_rate
-from cw_currency
-where moneyid = :arg_moneyid;
-if sqlca.sqlcode <> 0 then rslt_rate = 0
-
-return rslt_rate
-end function
-

ws_objects/app_base.pbl.src/f_get_selecttype.srf

@@ -1,78 +0,0 @@
-$PBExportHeader$f_get_selecttype.srf
-global type f_get_selecttype from function_object
-end type
-
-forward prototypes
-global function integer f_get_selecttype (long arg_typeid, long arg_cusid, ref integer arg_selecttype, ref string arg_msg)
-global function integer f_get_selecttype (long arg_typeid, long arg_cusid, ref long arg_selecttype, ref string arg_msg)
-end prototypes
-
-global function integer f_get_selecttype (long arg_typeid, long arg_cusid, ref integer arg_selecttype, ref string arg_msg);Int rslt = 1
-Int li_selecttype_cust,li_selecttype_def,li_ifbj
-
-Select selecttype Into :li_selecttype_cust
-	From u_cust
-	Where cusid = :arg_cusid;
-If sqlca.SQLCode <> 0 Then
-	arg_msg = '查询客户选择限制失败,'+sqlca.SQLErrText
-	rslt = 0
-	Goto ext
-End If
-
-Select selecttype,ifbj Into :li_selecttype_def,:li_ifbj
-	From u_saletype
-	Where typeid = :arg_typeid;
-If sqlca.SQLCode <> 0 Then
-	arg_msg = '查询订单分类选择限制失败,'+sqlca.SQLErrText
-	rslt = 0
-	Goto ext
-End If
-
-If li_selecttype_cust = -1 Or li_ifbj = 1 Then
-	arg_selecttype = li_selecttype_def
-Else
-	arg_selecttype = li_selecttype_cust
-End If
-
-ext:
-Return rslt
-
-end function
-
-global function integer f_get_selecttype (long arg_typeid, long arg_cusid, ref long arg_selecttype, ref string arg_msg);Int rslt = 1
-Int li_selecttype_cust,li_selecttype_def,li_ifbj
-
-if arg_cusid <= 0 or arg_typeid <= 0 then 
-	rslt = 1
-	goto ext
-end if
-
-Select selecttype Into :li_selecttype_cust
-	From u_cust
-	Where cusid = :arg_cusid;
-If sqlca.SQLCode <> 0 Then
-	arg_msg = '查询客户选择限制失败,'+sqlca.SQLErrText
-	rslt = 0
-	Goto ext
-End If
-
-Select selecttype,ifbj Into :li_selecttype_def,:li_ifbj
-	From u_saletype
-	Where typeid = :arg_typeid;
-If sqlca.SQLCode <> 0 Then
-	arg_msg = '查询订单分类选择限制失败,'+sqlca.SQLErrText
-	rslt = 0
-	Goto ext
-End If
-
-If li_selecttype_cust = -1 Or li_ifbj = 1 Then
-	arg_selecttype = li_selecttype_def
-Else
-	arg_selecttype = li_selecttype_cust
-End If
-
-ext:
-Return rslt
-
-end function
-

ws_objects/app_base.pbl.src/f_ifexerun.srf

@@ -1,37 +0,0 @@
-$PBExportHeader$f_ifexerun.srf
-global type f_ifexerun from function_object
-end type
-
-forward prototypes
-global function integer f_ifexerun ()
-end prototypes
-
-global function integer f_ifexerun ();s_Process lst_Process //进程结构 
-String ls_FileName[],ls_CurExeName //最多100个进程，可改进 
-ULong ln_ProcessID,ln_SameCount,ln_Snapshot,ln_Circle,ln_Count
-ln_ProcessID = GetCurrentProcessId() //取当前进程的ID 
-IF IsNull(ln_ProcessID) OR ln_ProcessID < 1 THEN RETURN -1 //出错则返回 
-ln_Snapshot = CreateToolhelp32Snapshot(2,0) //在堆上创建进程快照 
-If (ln_Snapshot < 1) THEN RETURN -1 //出错则返回 
-lst_Process.StructSize = 296 //Win32api的Process结构大小 
-ln_SameCount = 0 //复本数为0 
-IF Process32First(ln_Snapshot,lst_Process) = 0 THEN RETURN -1//取第一个进程失败则返回 
-ln_Count = 1
-ls_FileName[ln_Count] = lst_Process.Filename //列举的进程名称放入数组 
-//如列举到的进程ID等于当前进程ID,则知道了当前进程的名称,保存 
-IF lst_Process.ProcessID = ln_ProcessID THEN ls_CurExeName = lst_Process.Filename
-
-DO WHILE TRUE //循环取列举的进程名称，放入数组 
-	IF Process32Next(ln_Snapshot,lst_Process) = 0 THEN EXIT //列举完毕 
-	ln_Count = ln_Count + 1
-	ls_FileName[ln_Count] = lst_Process.Filename
-	IF lst_Process.ProcessID = ln_ProcessID THEN ls_CurExeName = lst_Process.Filename 
-LOOP
-
-FOR ln_Circle = 1 TO ln_Count //计算系统中有几个同名进程 
-	IF ls_CurExeName = ls_FileName[ln_Circle] THEN ln_SameCount = ln_SameCount+1
-NEXT
-RETURN ln_SameCount //如当前进程无复本在运行，返回1;否则有几个在运行则返回几
-
-end function
-

ws_objects/app_base.pbl.src/f_insert_0_sptware.srf

@@ -1,115 +0,0 @@
-$PBExportHeader$f_insert_0_sptware.srf
-global type f_insert_0_sptware from function_object
-end type
-
-forward prototypes
-global function integer f_insert_0_sptware (long arg_scid, ref long arg_mtrlwareid, long arg_mtrlid, string arg_mtrlcode, long arg_sptid, string arg_status, string arg_woodcode, string arg_pcode, string arg_plancode, decimal arg_cost, ref string arg_msg)
-end prototypes
-
-global function integer f_insert_0_sptware (long arg_scid, ref long arg_mtrlwareid, long arg_mtrlid, string arg_mtrlcode, long arg_sptid, string arg_status, string arg_woodcode, string arg_pcode, string arg_plancode, decimal arg_cost, ref string arg_msg);//====================================================================
-// 事件: f_insert_0_sptware.f_insert_0_sptware()
-//--------------------------------------------------------------------
-// 描述:
-//--------------------------------------------------------------------
-// 参数:
-// 	value    	long   	arg_scid      	
-// 	reference	long   	arg_mtrlwareid	
-// 	value    	long   	arg_mtrlid    	
-// 	value    	string 	arg_mtrlcode  	
-// 	value    	long   	arg_sptid     	
-// 	value    	string 	arg_status    	
-// 	value    	string 	arg_woodcode  	
-// 	value    	string 	arg_pcode     	
-// 	value    	string 	arg_plancode  	
-// 	value    	decimal	arg_cost      	
-// 	reference	string 	arg_msg       	
-//--------------------------------------------------------------------
-// 返回:  inte
-//--------------------------------------------------------------------
-// 作者:	LHD		日期: 2013年09月28日
-//--------------------------------------------------------------------
-//	Copyright (c) 2002-2018 RICHTA(TM), All rights reserved.
-//--------------------------------------------------------------------
-// 修改历史:
-//
-//====================================================================
-
-
-Int rslt = 1
-Long cnt
-Long ls_mtrlwareid,ls_scid
-
-SELECT count(*) INTO :cnt FROM ow_wfjgware
-	WHERE mtrlid = :arg_mtrlid
-	AND sptid = :arg_sptid
-	AND woodcode = :arg_woodcode
-	AND pcode = :arg_pcode
-	AND status = :arg_status
-	AND plancode = :arg_plancode
-	and scid = :arg_scid;
-IF sqlca.SQLCode <> 0 THEN
-	arg_msg = '查询物料:'+arg_mtrlcode+'是否有库存失败,请检查'
-	rslt = 0
-	GOTO ext
-END IF
-
-IF cnt = 1 THEN
-	
-	SELECT mtrlwareid INTO :ls_mtrlwareid FROM ow_wfjgware
-		WHERE mtrlid = :arg_mtrlid
-		AND sptid = :arg_sptid
-		AND woodcode = :arg_woodcode
-		AND pcode = :arg_pcode
-		AND status = :arg_status
-		AND plancode = :arg_plancode
-		and scid = :arg_scid;
-	IF sqlca.SQLCode <> 0 THEN
-		arg_msg = '查询物料:'+arg_mtrlcode+'是否有库存失败,请检查'
-		rslt = 0
-		GOTO ext
-	END IF
-	
-	arg_mtrlwareid = ls_mtrlwareid
-	
-	GOTO ext
-END IF
-
-IF arg_cost = 0 THEN
-	
-	SELECT planprice INTO :arg_cost
-		FROM  u_mtrldef
-		Where mtrlid = :arg_mtrlid;
-	IF sqlca.SQLCode <> 0 THEN
-		arg_msg = '查询计划价失败!!'
-		rslt = 0
-		GOTO ext
-	END IF
-	
-END IF
-
-ls_mtrlwareid = f_sys_scidentity(0,"ow_wfjgware","mtrlwareid",arg_msg,TRUE,id_sqlca)
-
-INSERT INTO ow_wfjgware(scid,mtrlwareid,mtrlid,sptid,noallocqty,woodcode,pcode,plancode,status,cost)
-	Values(:arg_scid,:ls_mtrlwareid,:arg_mtrlid,:arg_sptid,0,:arg_woodcode,:arg_pcode,:arg_plancode,:arg_status,:arg_cost);
-IF sqlca.SQLCode <> 0 THEN
-	arg_msg = '物料:'+arg_mtrlcode+'加0库存失败或物料已经有库存,请检查'+sqlca.SQLErrText
-	rslt = 0
-	GOTO ext
-END IF
-
-arg_mtrlwareid = ls_mtrlwareid
-ext:
-IF rslt = 0 THEN
-	ROLLBACK;
-ELSE
-	COMMIT;
-END IF
-
-RETURN rslt
-
-
-
-
-
-end function
-

ws_objects/app_base.pbl.src/f_price_order_poexpr.srf

@@ -1,21 +0,0 @@
-$PBExportHeader$f_price_order_poexpr.srf
-global type f_price_order_poexpr from function_object
-end type
-
-forward prototypes
-global function decimal f_price_order_poexpr (string arg_poexpr)
-end prototypes
-
-global function decimal f_price_order_poexpr (string arg_poexpr);Decimal ld_price
-
-If Pos(arg_poexpr,'=') > 0 Then
-	ld_price = Dec(Trim(Mid(arg_poexpr , (Pos(arg_poexpr , '=') + 1))))
-Else
-	ld_price = 0
-End If
-
-Return ld_price
-
-
-end function
-

ws_objects/app_base.pbl.src/f_psw_bczh.srf

@@ -1,64 +0,0 @@
-$PBExportHeader$f_psw_bczh.srf
-global type f_psw_bczh from function_object
-end type
-
-forward prototypes
-global function string f_psw_bczh (string obj_string, integer add_expr, string keystr)
-end prototypes
-
-global function string f_psw_bczh (string obj_string, integer add_expr, string keystr);//f_psw_BCzh(STRING obj_string,INT add_expr,STRING keystr) 三倍变长加密,可以用于任意字符串
-//obj_string 目标的处理字符串
-//add_expr 0 :加密,1:解密
-//keystr 密钥数字字符串
-
-IF IsNull(obj_string) THEN RETURN obj_string
-Int LS_XX,STR_LEN,LS_YY
-String RT_STRING = '',ZH_STR = '',FORMAT_STR
-STR_LEN = Len(obj_string)
-//IF STR_LEN=0 THEN RETURN ''
-
-//FORMAT_STR=RIGHT(STRING(Pi(10)/1.11111,'0.###############'),15)
-FORMAT_STR = keystr
-IF Len(FORMAT_STR) > 0 THEN
-	IF add_expr = 0 THEN
-		FOR LS_YY = 1 To (STR_LEN/Len(FORMAT_STR))+1
-			ZH_STR = ZH_STR+FORMAT_STR
-		NEXT
-	ELSE
-		FOR LS_YY = 1 To ((STR_LEN/3)/Len(FORMAT_STR))+1
-			ZH_STR = ZH_STR+FORMAT_STR
-		NEXT
-	END IF
-END IF
-
-
-IF add_expr = 0 THEN //ADD
-	FOR LS_XX = 1 TO STR_LEN
-		RT_STRING = RT_STRING+String(999 - Integer(Mid(ZH_STR,LS_XX,1))^2 * 9 - Asc(Mid (obj_string,LS_XX,1)) ,'000') //
-	NEXT
-	RT_STRING = Reverse(RT_STRING)
-	IF RT_STRING = '' THEN RT_STRING = '3003003003'
-ELSE //EXPR
-	IF obj_string = '3003003003' THEN
-		RT_STRING = ''
-	ELSEIF obj_string = '' THEN
-//		RT_STRING = '12233445'
-		RT_STRING = ''
-	ELSE
-		obj_string = Reverse(obj_string)
-		
-		FOR LS_XX = 1 TO STR_LEN/3
-			//MESSAGEBOX(STRINASC(Mid (obj_string,LS_XX*3 - 2,3)))
-			IF Integer(Mid (obj_string,LS_XX*3 - 2,3)) = 0 THEN
-				RT_STRING = RT_STRING+String(Asc(Mid (obj_string,LS_XX*3 - 2,3))*13)
-			ELSE
-				RT_STRING = RT_STRING+Char(999 - Integer(Mid(ZH_STR,LS_XX,1))^2 * 9 - Integer(Mid (obj_string,LS_XX*3 - 2,3))  ) //
-			END IF
-		NEXT
-	END IF
-END IF
-
-RETURN RT_STRING
-
-end function
-

ws_objects/app_base.pbl.src/f_psw_zh.srf

@@ -1,37 +0,0 @@
-$PBExportHeader$f_psw_zh.srf
-global type f_psw_zh from function_object
-end type
-
-forward prototypes
-global function string f_psw_zh (string obj_string, integer add_expr, string keystr)
-end prototypes
-
-global function string f_psw_zh (string obj_string, integer add_expr, string keystr);//f_psw_zh
-IF ISNULL(obj_string) THEN RETURN obj_string
-INT LS_XX,STR_LEN,LS_YY
-STRING RT_STRING='',ZH_STR='',FORMAT_STR
-STR_LEN=len(obj_string)
-IF STR_LEN=0 THEN RETURN ''
-
-//FORMAT_STR=RIGHT(STRING(Pi(10)/1.11111,'0.###############'),15)
-FORMAT_STR=keystr
-
-FOR LS_YY=1 TO (STR_LEN/len(FORMAT_STR))+1
-	ZH_STR=ZH_STR+FORMAT_STR
-NEXT
-
-IF add_expr=0 THEN //ADD
-FOR LS_XX=1 TO STR_LEN 
-RT_STRING=RT_STRING+CHAR(ASC(Mid (obj_string,LS_XX,1)) + INTEGER(MID(ZH_STR,LS_XX,1)) )//
-NEXT
-RT_STRING=Reverse(RT_STRING)
-ELSE //EXPR
-obj_string=Reverse(obj_string)
-FOR LS_XX=1 TO STR_LEN 
-RT_STRING=RT_STRING+CHAR(ASC(Mid (obj_string,LS_XX,1)) - INTEGER(MID(ZH_STR,LS_XX,1)) )//
-NEXT
-END IF 
-
-return RT_STRING	
-end function
-

ws_objects/app_base.pbl.src/f_warebalc_cmpl_one.srf

@@ -1,459 +0,0 @@
-$PBExportHeader$f_warebalc_cmpl_one.srf
-global type f_warebalc_cmpl_one from function_object
-end type
-
-forward prototypes
-global function integer f_warebalc_cmpl_one (long arg_storageid, long arg_balcdateint, long arg_mtrlwareid, ref string arg_msg, boolean arg_ifcommit, transaction commit_transaction)
-end prototypes
-
-global function integer f_warebalc_cmpl_one (long arg_storageid, long arg_balcdateint, long arg_mtrlwareid, ref string arg_msg, boolean arg_ifcommit, transaction commit_transaction);
-Long rslt = 1
-Int li_storagetype
-Long ll_scid_storage
-Long ll_balcdateint_cmpl_arr[], ll_cmpl_cnt
-Long ll_balcdateint
-
-Long cnt
-Long ll_balcdateint_cmpl = 0 //要计算的月份结存日期
-Long ll_balcdateint_last //= ? 前一个月份的结存日期
-
-Long i
-Decimal ld_newcost // 最新成本价
-//Decimal ld_balcqty_last,ld_balcamt_last,ld_inamt,ld_inqty,ld_outamt,ld_outqty
-//Decimal ld_ubalcqty_last,ld_uinqty,ld_uoutqty
-
-Decimal ld_bgqty,ld_bgamt,ld_incqty,ld_incamt,ld_desqty,ld_desamt
-Decimal ld_ubgqty,ld_uincqty,ld_udesqty
-Long ll_mtrlid
-Int li_ifunit
-String ls_status,ls_pcode,ls_woodcode
-String ls_mtrlcode,ls_msg
-
-Decimal ld_balcqty_update,ld_balcamt_update
-Decimal ld_desamt_update,ld_outcost_update
-
-//Long m
-//Long ll_mtrlid_last,ll_scid_last
-//String ls_status_last,ls_woodcode_last,ls_pcode_last
-//String ls_plancode_last,ls_mtrlcuscode_last,ls_location_last
-//Int li_dxflag_last
-//Long ll_sptid_last
-//Long arg_mtrlwareid_last
-//Decimal ld_qty_last,ld_amt_last
-
-Decimal lde_add_desamt, lde_costamt_add, lde_addamt
-Long ll_scid_add, ll_outwareid_add, ll_printid_add
-
-Decimal ld_vincqty,ld_vincamt,ld_vdesqty,ld_vdesamt,ld_uvincqty,ld_uvdesqty
-
-Decimal ld_vinqty,ld_vuinqty,ld_vinamt
-Decimal ld_voutqty,ld_vuoutqty,ld_voutamt
-
-IF arg_storageid = -1 THEN
-	arg_msg = '请先选择仓库'
-	GOTO ext
-END IF
-
-SELECT scid,storagetype
-	INTO :ll_scid_storage,:li_storagetype
-	FROM u_storage
-	Where storageid = :arg_storageid
-	using commit_transaction;
-IF commit_transaction.SQLCode <> 0 THEN
-	arg_msg = '查询仓库资料失败,操作取消'
-	GOTO ext
-END IF
-
-SELECT count(*)
-	INTO :cnt
-	FROM u_inwaremx INNER JOIN
-	u_inware ON u_inwaremx.scid = u_inware.scid AND
-	u_inwaremx.inwareid = u_inware.inwareid
-	WHERE (u_inware.flag = 1)
-	AND  u_inware.balcdateint = :ll_balcdateint_cmpl
-	AND  u_inwaremx.mtrlwareid = 0
-	And u_inware.storageid = :arg_storageid
-	using commit_transaction;
-IF commit_transaction.SQLCode <> 0 THEN
-	arg_msg = '查询进仓明细库存ID失败,'+commit_transaction.SQLErrText
-	rslt = 0
-	GOTO ext
-END IF
-
-IF cnt > 0 THEN
-	arg_msg = '进仓明细存在非法库存ID,请先更新进仓明细库存ID'
-	GOTO ext
-END IF
-
-SELECT  u_mtrldef.mtrlcode, u_warebalc.status, u_warebalc.woodcode,
-	u_warebalc.pcode, u_mtrldef.ifunit
-	INTO :ls_mtrlcode, :ls_status, :ls_woodcode, :ls_pcode, :li_ifunit
-	FROM u_warebalc INNER JOIN
-	u_mtrldef ON u_warebalc.mtrlid = u_mtrldef.mtrlid
-	WHERE u_warebalc.storageid = :arg_storageid
-	AND u_warebalc.balcdateint = :arg_balcdateint
-	And u_warebalc.mtrlwareid = :arg_mtrlwareid
-	using commit_transaction;
-IF commit_transaction.SQLCode <> 0 THEN
-	rslt = 0
-	arg_msg = '查询结存信息失败,'+commit_transaction.SQLErrText
-	GOTO ext
-END IF
-
-//确定要计算的范围
-IF arg_balcdateint = 0 THEN
-	ll_cmpl_cnt++
-	ll_balcdateint_cmpl_arr[ll_cmpl_cnt] = arg_balcdateint
-ELSE
-	DECLARE waredate_cur CURSOR FOR
-		SELECT distinct u_warebalc.balcdateint
-		FROM u_warebalc
-		WHERE ( storageid = :arg_storageid )
-		AND balcdateint >= :arg_balcdateint
-		Order By balcdateint 
-		using commit_transaction;
-		
-	OPEN waredate_cur;
-	FETCH waredate_cur Into :ll_balcdateint;
-	DO WHILE commit_transaction.SQLCode = 0 //循环读取明细数据
-		ll_cmpl_cnt++
-		ll_balcdateint_cmpl_arr[ll_cmpl_cnt] = ll_balcdateint
-		
-		FETCH waredate_cur Into :ll_balcdateint;
-	LOOP
-	CLOSE waredate_cur;
-	
-	ll_cmpl_cnt++
-	ll_balcdateint_cmpl_arr[ll_cmpl_cnt] = 0
-END IF
-
-ll_balcdateint_cmpl = ll_balcdateint_cmpl_arr[1] //按选择, 可以重算历史
-SELECT max(balcdateint) INTO :ll_balcdateint_last
-	FROM u_warebalc
-	WHERE storageid = :arg_storageid
-	AND ((:ll_balcdateint_cmpl = 0 AND balcdateint > 0)
-	Or (:ll_balcdateint_cmpl > 0  And balcdateint > 0 And balcdateint < :ll_balcdateint_cmpl))
-	using commit_transaction;
-IF commit_transaction.SQLCode <> 0 THEN
-	rslt = 0
-	arg_msg = '查询上次结存失败,操作取消'
-	GOTO ext
-END IF
-
-IF IsNull(ll_balcdateint_last) THEN ll_balcdateint_last = -1
-
-FOR i = 1 To ll_cmpl_cnt
-	ll_balcdateint_cmpl = ll_balcdateint_cmpl_arr[i]
-	
-	ls_msg = '期间:'+String(ll_balcdateint_cmpl)+',库存id:'+String(arg_mtrlwareid)+',物料:'+ls_mtrlcode+','+sys_option_change_status+':'+ls_status+','+sys_option_change_woodcode+':'+ls_woodcode+','+sys_option_change_pcode+':'+ls_pcode
-	
-	
-	//查期初
-	SELECT balcqty,balcamt,ubalcqty
-		INTO :ld_bgqty,:ld_bgamt,:ld_ubgqty
-		FROM u_warebalc
-		WHERE storageid = :arg_storageid
-		AND mtrlwareid = :arg_mtrlwareid
-		And balcdateint = :ll_balcdateint_last
-		using commit_transaction;
-	IF commit_transaction.SQLCode = -1  THEN
-		rslt = 0
-		arg_msg = '查询上月结存失败,'+ls_msg+','+commit_transaction.SQLErrText
-		GOTO ext
-	ELSEIF commit_transaction.SQLCode = 100 THEN
-		ld_bgqty = 0
-		ld_bgamt = 0
-		ld_ubgqty = 0
-	END IF
-	
-	IF IsNull(ld_bgqty) THEN ld_bgqty = 0
-	IF IsNull(ld_bgamt) THEN ld_bgamt = 0
-	IF IsNull(ld_ubgqty) THEN ld_ubgqty = 0
-	
-	//查进仓
-	SELECT isnull(sum(u_inwaremx.qty),0),
-	isnull(sum(u_inwaremx.uqty),0),
-	isnull(sum(round(u_inwaremx.cost * u_inwaremx.qty,2)),0),
-		isnull(sum(case u_inwaremx.ifvqty when 0 then 0 else u_inwaremx.qty END ),0),
-		isnull(sum(case u_inwaremx.ifvqty when 0 then 0 else u_inwaremx.uqty END ),0),
-		isnull(sum(round(u_inwaremx.cost * case u_inwaremx.ifvqty when 0 then 0 else u_inwaremx.qty END,2)),0)
-		INTO :ld_incqty,
-		:ld_uincqty,
-		:ld_incamt,
-		:ld_vincqty,
-		:ld_uvincqty,
-		:ld_vincamt
-		FROM u_inware,u_inwaremx
-		WHERE u_inware.scid = u_inwaremx.scid
-		AND u_inware.inwareid = u_inwaremx.inwareid
-		AND u_inwaremx.mtrlwareid = :arg_mtrlwareid
-		AND u_inware.storageid = :arg_storageid
-		AND u_inware.balcdateint = :ll_balcdateint_cmpl
-		And u_inware.flag = 1
-		using commit_transaction;
-	IF commit_transaction.SQLCode <> 0 THEN
-		rslt = 0
-		arg_msg = '查询本月进仓失败,'+ls_msg+','+commit_transaction.SQLErrText
-		GOTO ext
-	END IF
-	IF IsNull(ld_incqty) THEN ld_incqty = 0
-	IF IsNull(ld_incamt) THEN ld_incamt = 0
-	IF IsNull(ld_uincqty) THEN ld_uincqty = 0
-	IF IsNull(ld_vincqty) THEN ld_vincqty = 0
-	IF IsNull(ld_vincamt) THEN ld_vincamt = 0
-	IF IsNull(ld_uvincqty) THEN ld_uvincqty = 0
-	
-	//查出仓
-	SELECT isnull(sum(u_outwaremx.qty),0),
-	isnull(sum(u_outwaremx.uqty),0),
-	isnull(sum(round(u_outwaremx.costamt,2)),0),
-			isnull(sum(case u_outwaremx.ifvqty when 0 then 0 else u_outwaremx.qty END),0),
-		isnull(sum(case u_outwaremx.ifvqty when 0 then 0 else u_outwaremx.uqty END),0),
-		isnull(sum(round(case u_outwaremx.ifvqty when 0 then 0 else u_outwaremx.costamt END,2)),0)
-		INTO :ld_desqty,
-		:ld_udesqty,
-		:ld_desamt,
-		:ld_vdesqty,
-		:ld_uvdesqty,
-		:ld_vdesamt
-		FROM u_outware,u_outwaremx
-		WHERE u_outware.scid = u_outwaremx.scid
-		AND u_outware.outwareid = u_outwaremx.outwareid
-		AND u_outwaremx.mtrlwareid = :arg_mtrlwareid
-		AND u_outware.storageid = :arg_storageid
-		AND u_outware.balcdateint = :ll_balcdateint_cmpl
-		And u_outware.flag = 1
-		using commit_transaction;
-	IF commit_transaction.SQLCode <> 0 THEN
-		rslt = 0
-		arg_msg = '查询本月出仓失败,'+ls_msg+','+commit_transaction.SQLErrText
-		GOTO ext
-	END IF
-	IF IsNull(ld_desqty) THEN ld_desqty = 0
-	IF IsNull(ld_desamt) THEN ld_desamt = 0
-	IF IsNull(ld_udesqty) THEN ld_udesqty = 0
-	IF IsNull(ld_vdesqty) THEN ld_vdesqty = 0
-	IF IsNull(ld_vdesamt) THEN ld_vdesamt = 0
-	IF IsNull(ld_uvdesqty) THEN ld_uvdesqty = 0
-	
-	
-	IF ld_bgqty + ld_incqty <> 0 THEN
-		ld_outcost_update = Round((ld_bgamt + ld_incamt) / (ld_bgqty + ld_incqty),sys_option_cost_dec)
-	ELSEIF ld_desqty <> 0 And ld_desamt <> 0 THEN //有可能是先退仓, 再出仓
-		ld_outcost_update = Round(ld_desamt / ld_desqty,sys_option_cost_dec)
-	ELSE
-		ld_outcost_update = 0
-	END IF
-	
-	IF ld_outcost_update < 0 THEN ld_outcost_update = 0
-	
-	
-	UPDATE u_outwaremx
-		SET u_outwaremx.cost = :ld_outcost_update,
-		u_outwaremx.costamt = round(u_outwaremx.qty * :ld_outcost_update,2)
-		FROM u_outwaremx INNER JOIN
-		u_outware ON u_outwaremx.scid = u_outware.scid AND
-		u_outwaremx.outwareid = u_outware.outwareid
-		WHERE u_outwaremx.mtrlwareid = :arg_mtrlwareid
-		AND u_outware.storageid = :arg_storageid
-		AND u_outware.scid = :ll_scid_storage
-		And u_outware.balcdateint  = :ll_balcdateint_cmpl
-		using commit_transaction;
-	IF commit_transaction.SQLCode <> 0 THEN
-		rslt = 0
-		arg_msg = '更新未结存的出仓单金额失败,'+ls_msg+','+commit_transaction.SQLErrText
-		GOTO ext
-	END IF
-	
-	//再读一次数，防止小数点的误差
-	SELECT isnull(sum(round(u_outwaremx.costamt,2)),0)
-		INTO :ld_desamt_update
-		FROM u_outware,u_outwaremx
-		WHERE u_outware.scid = u_outwaremx.scid
-		AND u_outware.outwareid = u_outwaremx.outwareid
-		AND u_outwaremx.mtrlwareid = :arg_mtrlwareid
-		AND u_outware.storageid = :arg_storageid
-		AND u_outware.balcdateint = :ll_balcdateint_cmpl
-		And u_outware.flag = 1
-		using commit_transaction;
-	IF commit_transaction.SQLCode <> 0 THEN
-		rslt = 0
-		arg_msg = '重新查询本月出仓成本金额失败,'+ls_msg+','+commit_transaction.SQLErrText
-		GOTO ext
-	END IF
-	
-	//修正结余为负数; 结余数=0,结余金额<>0;的情况
-	If (ld_bgqty + ld_incqty - ld_desqty = 0 And ld_bgamt + ld_incamt - ld_desamt_update <> 0) Or ld_bgamt + ld_incamt - ld_desamt_update < 0  THEN
-		lde_add_desamt = ld_bgamt + ld_incamt - ld_desamt_update
-		
-		DECLARE outware CURSOR FOR
-			SELECT  u_outwaremx.scid, u_outwaremx.outwareid, u_outwaremx.printid, u_outwaremx.costamt
-			FROM u_outware,u_outwaremx
-			WHERE u_outware.scid = u_outwaremx.scid
-			AND u_outware.outwareid = u_outwaremx.outwareid
-			AND u_outwaremx.mtrlwareid = :arg_mtrlwareid
-			AND u_outware.storageid = :arg_storageid
-			AND u_outware.balcdateint = :ll_balcdateint_cmpl
-			And u_outware.flag = 1
-			using commit_transaction;
-		OPEN outware;
-		FETCH outware  Into :ll_scid_add, :ll_outwareid_add, :ll_printid_add, :lde_costamt_add;
-		DO WHILE commit_transaction.SQLCode = 0
-			IF lde_add_desamt > 0 THEN
-				
-				lde_addamt = lde_costamt_add
-				lde_costamt_add = 0
-				
-			ELSE
-				IF lde_costamt_add > Abs(lde_add_desamt) THEN
-					lde_addamt = lde_add_desamt
-					lde_add_desamt = 0
-				ELSE
-					lde_addamt = 0 - lde_costamt_add
-					lde_add_desamt = lde_add_desamt + lde_costamt_add
-				END IF
-				
-			END IF
-			
-			UPDATE u_outwaremx
-				SET costamt = costamt + :lde_addamt
-				WHERE scid = :ll_scid_add
-				AND outwareid = :ll_outwareid_add
-				And printid = :ll_printid_add
-				using commit_transaction;
-			IF commit_transaction.SQLCode <> 0 THEN
-				rslt = 0
-				arg_msg = "修正出仓明细金额失败,"+commit_transaction.SQLErrText
-				GOTO ext
-			END IF
-			
-			IF lde_add_desamt = 0 THEN EXIT //完成修正
-			
-			FETCH outware  Into :ll_scid_add, :ll_outwareid_add, :ll_printid_add, :lde_costamt_add;
-		LOOP
-		
-		CLOSE outware;
-		
-		ld_desamt_update = ld_bgamt + ld_incamt
-	END IF
-	
-	//yyx2012-10-27
-	ld_balcqty_update = ld_bgqty + ld_incqty - ld_desqty
-	ld_balcamt_update = ld_bgamt + ld_incamt - ld_desamt_update
-	
-	IF ld_balcqty_update <> 0 THEN
-		ld_newcost = Round(ld_balcamt_update/ld_balcqty_update,sys_option_cost_dec)
-	ELSE
-		ld_newcost = ld_outcost_update
-	END IF
-	
-	//yyx2012-10-27_end
-	
-	IF li_ifunit = 0 THEN
-		ld_ubgqty = 0
-		ld_uincqty = 0
-		ld_udesqty = 0
-	END IF
-	
-	//更新期间出金额,结存金额
-	UPDATE u_warebalc
-		SET bgqty = :ld_bgqty,
-		bgamt = :ld_bgamt,
-		incqty = :ld_incqty,
-		incamt = :ld_incamt,
-		desqty = :ld_desqty,
-		desamt = :ld_desamt_update,
-		balcqty = :ld_balcqty_update,
-		balcamt = :ld_balcamt_update,
-		ubgqty = :ld_ubgqty,
-		uincqty = :ld_uincqty,
-		udesqty = :ld_udesqty,
-		ubalcqty = :ld_ubgqty + :ld_uincqty - :ld_udesqty,
-				vincqty = :ld_vincqty,
-		vdesqty = :ld_vdesqty,
-		vincamt = :ld_vincamt,
-		vdesamt = :ld_vdesamt,
-		uvincqty = :ld_uvincqty,
-		uvdesqty = :ld_uvdesqty
-		WHERE mtrlwareid = :arg_mtrlwareid
-		AND balcdateint = :ll_balcdateint_cmpl
-		And scid = :ll_scid_storage;
-	IF commit_transaction.SQLCode <> 0 THEN
-		rslt = 0
-		arg_msg = '更新结存失败,'+ls_msg+','+commit_transaction.SQLErrText
-		GOTO ext
-	END IF
-	
-	IF ll_balcdateint_cmpl = 0 THEN
-		UPDATE u_mtrlware
-			SET cost = :ld_newcost,
-			noallocqty = :ld_balcqty_update,
-			unoallocqty = :ld_ubgqty + :ld_uincqty - :ld_udesqty,
-			wareamt = :ld_balcamt_update
-			WHERE mtrlwareid = :arg_mtrlwareid
-			AND Storageid = :arg_storageid
-			And scid = :ll_scid_storage
-			using commit_transaction;
-		IF commit_transaction.SQLCode <> 0 THEN
-			rslt = 0
-			arg_msg = '更新库存金额失败,'+ls_msg+','+commit_transaction.SQLErrText
-			GOTO ext
-		END IF
-	END IF
-	
-	
-	//更新分类结存
-	DECLARE sp_warebalc_cmpl PROCEDURE FOR sp_warebalc_cmpl
-		@scid = :ll_scid_storage,
-		@storageid = :arg_storageid,
-		@balcdateint = :ll_balcdateint_cmpl,
-		@balcdateintlast = :ll_balcdateint_last,
-		@mtrlwareid = :arg_mtrlwareid ;
-		
-	EXECUTE   sp_warebalc_cmpl ;
-	CLOSE sp_warebalc_cmpl;
-	
-	
-	ll_balcdateint_last = ll_balcdateint_cmpl //为下个循环准备
-NEXT
-
-
-ext:
-IF rslt = 0 THEN
-	ROLLBACK using commit_transaction;
-ELSEIF arg_ifcommit THEN
-	COMMIT using commit_transaction;
-END IF
-
-RETURN rslt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-end function
-

ws_objects/app_base.pbl.src/s_buytask_mx_ch.srs

@@ -1,68 +0,0 @@
-$PBExportHeader$s_buytask_mx_ch.srs
-global type s_buytask_mx_ch from structure
-	long		taskid[]
-	long		taskprintid[]
-	string		taskcode[]
-	integer		kind[]
-	long		sptid[]
-	string		sptcode[]
-	string		sptname[]
-	datetime		requiredate[]
-	string		assign_emp[]
-	string		dscrp[]
-	long		relid[]
-	long		mtrlid[]
-	decimal { 5 }		fprice[]
-	decimal { 5 }		rebate[]
-	decimal { 5 }		qty[]
-	decimal { 5 }		admtrlid[]
-	long		relprintid[]
-	decimal { 5 }		uprice[]
-	string		mtrlname[]
-	string		mtrlmode[]
-	string		mtrlcode[]
-	string		mtrl_unit[]
-	string		cusnarrate[]
-	string		configtext[]
-	string		configcode[]
-	string		mx_unit[]
-	decimal { 5 }		rate[]
-	long		requestbuyid[]
-	string		ordercode[]
-	decimal { 4 }		plprice[]
-	decimal { 4 }		acprice[]
-	long		printid[]
-	long		billid[]
-	decimal { 4 }		price[]
-	datetime		accomplishdate[]
-	long		storageid[]
-	integer		iforder[]
-	string		sptmtrlname[]
-	string		unit[]
-	decimal { 5 }		uqty[]
-	string		papery[]
-	decimal { 5 }		rebuyqty[]
-	long		orderid[]
-	long		buybargainid[]
-	long		buybargainprintid[]
-	string		buybargaincode[]
-	long		newbuybargainid[]
-	long		newbuybargainprintid[]
-	string		newbuybargaincode[]
-	decimal { 5 }		consignedqty[]
-	decimal { 5 }		assignqty[]
-	string		stopflag[]
-	string		stopemp[]
-	string		stopreason[]
-	datetime		stopdate[]
-	decimal { 5 }		stopqty[]
-	decimal { 5 }		newprice[]
-	decimal { 5 }		willuseqty[]
-	decimal { 5 }		noallocqty[]
-	decimal { 5 }		buytasknotacmqty[]
-	decimal { 5 }		freeqty[]
-	integer		newadmtrlid[]
-	string		jgdscrp[]
-	string		newjgdscrp[]
-end type
-

ws_objects/app_base.pbl.src/s_buytaskmx_feedback_ljfieb.srs

@@ -1,29 +0,0 @@
-$PBExportHeader$s_buytaskmx_feedback_ljfieb.srs
-global type s_buytaskmx_feedback_ljfieb from structure
-	long		scid
-	long		taskid
-	long		printid
-	decimal { 10 }		spt_uqty
-	decimal { 10 }		spt_enprice
-	datetime		spt_requiredate
-	string		sptmtrlcode
-	string		sptmtrlname
-	string		sptmtrlmode
-	string		delayreason
-	string		unit
-	string		status
-	string		woodcode
-	string		pcode
-	string		spt_status
-	string		spt_woodcode
-	string		spt_pcode
-	string		spt_dscrp
-	long		mtrlid
-	long		orderid
-	datetime		requiredate
-	long		wrkgrpid
-	long		taskmxprintid
-	long		requestbuyid
-	long		rqmxprintid
-end type
-

ws_objects/app_base.pbl.src/s_kl_cut.srs

@@ -1,13 +0,0 @@
-$PBExportHeader$s_kl_cut.srs
-global type s_kl_cut from structure
-	long		planid
-	long		printid
-	long		mtrlwareid
-	long		width
-	long		height
-	long		qty
-	double		area
-	string		createtime
-	double		area_total
-end type
-

ws_objects/app_base.pbl.src/s_kl_plan.srs

@@ -1,13 +0,0 @@
-$PBExportHeader$s_kl_plan.srs
-global type s_kl_plan from structure
-	long		planid
-	long		billid
-	string		opemp
-	datetime		opdate
-	long		mtrlid
-	long		printnum
-	long		cutwidth
-	string		createtime
-	long		plies
-end type
-

ws_objects/app_base.pbl.src/s_kl_rect.srs

@@ -1,13 +0,0 @@
-$PBExportHeader$s_kl_rect.srs
-global type s_kl_rect from structure
-	long		planid
-	long		printid
-	long		pid
-	long		width
-	long		height
-	long		parentid
-	long		sonflag
-	long		if_vertical
-	string		name
-end type
-

ws_objects/app_base.pbl.src/s_mtrlware_ljfieb.srs

@@ -1,17 +0,0 @@
-$PBExportHeader$s_mtrlware_ljfieb.srs
-global type s_mtrlware_ljfieb from structure
-	long		scid
-	long		mtrlwareid
-	long		mtrlid
-	string		storagename
-	string		status
-	string		woodcode
-	string		pcode
-	string		plancode
-	string		mtrlcuscode
-	string		location
-	decimal { 10 }		notauditnoallocqty
-	string		mtrlcode
-	string		mtrlname
-end type
-

ws_objects/app_base.pbl.src/s_process.srs

@@ -1,14 +0,0 @@
-$PBExportHeader$s_process.srs
-global type s_process from structure
-	unsignedlong		structsize
-	unsignedlong		usage
-	unsignedlong		processid
-	unsignedlong		defaultheapid
-	unsignedlong		moduleid
-	unsignedlong		threads
-	unsignedlong		parentprocessid
-	unsignedlong		classbase
-	unsignedlong		flags
-	character		filename[260]
-end type
-

ws_objects/app_base.pbl.src/uo_bgtr_timer.sru

@@ -1,411 +0,0 @@
-$PBExportHeader$uo_bgtr_timer.sru
-forward
-global type uo_bgtr_timer from nonvisualobject
-end type
-end forward
-
-global type uo_bgtr_timer from nonvisualobject
-end type
-global uo_bgtr_timer uo_bgtr_timer
-
-type variables
-long ID
-string name
-long TimerType
-string TimerParm
-long TaskType
-string TaskParm
-DateTime NextExecTime
-DateTime LastExecTime
-long IsRunning
-string opemp
-DateTime opdate
-string modemp
-DateTime moddate
-string c_emp
-DateTime c_date
-end variables
-
-forward prototypes
-public function integer uf_save (ref string arg_msg)
-public function integer uf_getinfo (long arg_id, ref string arg_msg)
-public function integer uf_del (long arg_id, ref string arg_msg)
-public function integer uf_reallocqty_for_order_by_mtrlid (long arg_mtrlid, long arg_fpgrade, ref string arg_msg)
-public function integer uf_update_saleoutcodestr (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg)
-public function integer uf_trigger_timer (long arg_id, ref string arg_msg)
-public function uo_ljjob create_job (long arg_tasktype)
-end prototypes
-
-public function integer uf_save (ref string arg_msg);Int rslt = 1
-Long ll_newid
-
-IF ID = 0 THEN
-	ll_newid = f_sys_scidentity(0,"bgtr_timer","ID", Ref arg_msg,True,id_sqlca)
-	IF ll_newid <= 0 THEN
-		rslt = 0
-		GOTO ext
-	END IF
-	INSERT INTO bgtr_timer
-		(ID, name, TimerType, TimerParm, TaskType, TaskParm, NextExecTime, IsRunning, opemp, opdate)
-		Values (:ll_newid,:Name,:TimerType,:TimerParm,:TaskType,:TaskParm,:NextExecTime,:IsRunning,:publ_operator, GETDATE())	;
-	IF sqlca.SQLCode <> 0 THEN
-		rslt = 0
-		arg_msg = '插入任务失败,' + sqlca.SQLErrText
-		GOTO ext
-	END IF
-	ID = ll_newid
-ELSE
-	UPDATE bgtr_timer
-		SET name = :Name, TimerType = :TimerType, TimerParm = :TimerParm, TaskType = :TaskType, TaskParm = :TaskParm,
-		NextExecTime = :NextExecTime, IsRunning = :IsRunning, modemp = :publ_operator, moddate = GETDATE()
-		Where (ID = :ID);
-	IF sqlca.SQLCode <> 0 THEN
-		rslt = 0
-		arg_msg = '更新任务失败,' + sqlca.SQLErrText
-		GOTO ext
-	END IF		
-END IF
-
-ext:
-IF rslt = 0 THEN
-	ROLLBACK;
-ELSE
-	COMMIT;
-END IF
-RETURN rslt
-
-
-
-
-
-end function
-
-public function integer uf_getinfo (long arg_id, ref string arg_msg);Int rslt = 1
-
-IF arg_id <= 0 THEN
-	rslt = 0
-	arg_msg = '无效任务ID'
-	GOTO ext
-END IF
-
-Long ll_cnt
-SELECT COUNT(0) Into :ll_cnt From bgtr_timer Where ID = :arg_id;
-IF sqlca.SQLCode <> 0 THEN
-	rslt = 0
-	arg_msg = '数据库连接失败,' + sqlca.SQLErrText
-	GOTO ext
-END IF
-
-IF ll_cnt = 0 THEN
-	rslt = 0
-	arg_msg = '任务不存在'
-	GOTO ext
-END IF
-
-SELECT
-Name,
-TimerType,
-TimerParm,
-TaskType,
-TaskParm,
-NextExecTime,
-IsRunning,
-LastExecTime,
-opemp,
-opdate,
-modemp,
-moddate,
-c_emp,
-c_date
-Into
-:Name,
-:TimerType,
-:TimerParm,
-:TaskType,
-:TaskParm,
-:NextExecTime,
-:IsRunning,
-:LastExecTime,
-:opemp,
-:opdate,
-:modemp,
-:moddate,
-:c_emp,
-:c_date
-From bgtr_timer
-Where (ID = :arg_id);
-IF sqlca.SQLCode <> 0 THEN
-	rslt = 0
-	arg_msg = '查询任务信息失败,' + sqlca.SQLErrText
-	GOTO ext
-END IF
-ID = arg_id
-ext:
-RETURN rslt
-
-end function
-
-public function integer uf_del (long arg_id, ref string arg_msg);Int rslt = 1
-
-IF arg_id <= 0 THEN
-	rslt = 0
-	arg_msg = '非法任务ID'
-	GOTO ext
-END IF
-
-Long ll_cnt
-SELECT count(0) Into :ll_cnt From bgtr_timer Where id = :arg_id;
-IF sqlca.SQLCode <> 0 THEN
-	rslt = 0
-	arg_msg = '数据库连接失败,' + sqlca.SQLErrText
-	GOTO ext
-END IF
-
-IF ll_cnt = 0 THEN
-	rslt = 0
-	arg_msg = '任务已经被删除，请刷新后再试'
-	GOTO ext
-END IF
-
-DELETE From bgtr_timer Where id = :arg_id;
-IF sqlca.SQLCode <> 0 THEN
-	rslt = 0
-	arg_msg = '删除任务失败,' + sqlca.SQLErrText
-	GOTO ext
-END IF
-
-IF sqlca.SQLNRows = 0 THEN
-	rslt = 0
-	arg_msg = '任务已经被删除，请刷新后再试'
-	GOTO ext
-END IF
-
-ext:
-IF rslt = 1 THEN
-	COMMIT;
-ELSE
-	ROLLBACK;
-END IF
-RETURN rslt
-
-
-end function
-
-public function integer uf_reallocqty_for_order_by_mtrlid (long arg_mtrlid, long arg_fpgrade, ref string arg_msg);Int rslt = 1
-Long ll_cnt
-
-ID = 0
-Name = '自动生成'
-TimerType = 1
-TimerParm = ''
-TaskType = 24
-TaskParm = 'mtrlid=' + String(arg_mtrlid) + ';fpgrade=' + String(arg_fpgrade)
-
-SELECT top 1 GETDATE()
-	INTO :NextExecTime
-	From u_user;
-IF sqlca.SQLCode <> 0 THEN
-	rslt = 0
-	arg_msg = '获取系统时间失败,' + sqlca.SQLErrText
-	GOTO ext
-END IF
-IsRunning = 1
-
-SELECT COUNT(0)
-	INTO :ll_cnt
-	FROM bgtr_timer
-	WHERE TimerType = :TimerType
-	AND TimerParm = :TimerParm
-	AND TaskType = :TaskType
-	AND TaskParm = :TaskParm
-	AND Name = :Name
-	AND IsRunning = :IsRunning
-	And NextExecTime <= :NextExecTime;
-IF sqlca.SQLCode <> 0 THEN
-	rslt = 0
-	arg_msg = '查询未执行的相同任务失败,' + sqlca.SQLErrText
-	GOTO ext
-END IF
-
-IF ll_cnt > 0 THEN // 不添加重复任务
-	GOTO ext
-END IF
-
-
-IF uf_save(Ref arg_msg) <> 1 THEN
-	rslt = 0
-	GOTO ext
-END IF
-
-ext:
-RETURN rslt
-
-end function
-
-public function integer uf_update_saleoutcodestr (long arg_scid, long arg_taskid, long arg_printid, ref string arg_msg);Int rslt = 1
-Long ll_cnt
-
-ID = 0
-Name = '自动生成'
-TimerType = 1
-TimerParm = ''
-TaskType = 34
-TaskParm = 'scid=' + String(arg_scid) + ';taskid=' + String(arg_taskid) + ';printid=' + string(arg_printid)
-
-SELECT top 1 GETDATE()
-	INTO :NextExecTime
-	From u_user;
-IF sqlca.SQLCode <> 0 THEN
-	rslt = 0
-	arg_msg = '获取系统时间失败,' + sqlca.SQLErrText
-	GOTO ext
-END IF
-IsRunning = 1
-
-SELECT COUNT(0)
-	INTO :ll_cnt
-	FROM bgtr_timer
-	WHERE TimerType = :TimerType
-	AND TimerParm = :TimerParm
-	AND TaskType = :TaskType
-	AND TaskParm = :TaskParm
-	AND Name = :Name
-	AND IsRunning = :IsRunning
-	And NextExecTime <= :NextExecTime;
-IF sqlca.SQLCode <> 0 THEN
-	rslt = 0
-	arg_msg = '查询未执行的相同任务失败,' + sqlca.SQLErrText
-	GOTO ext
-END IF
-
-IF ll_cnt > 0 THEN // 不添加重复任务
-	GOTO ext
-END IF
-
-
-IF uf_save(Ref arg_msg) <> 1 THEN
-	rslt = 0
-	GOTO ext
-END IF
-
-ext:
-RETURN rslt
-
-end function
-
-public function integer uf_trigger_timer (long arg_id, ref string arg_msg);Int rslt = 1
-
-DateTime dt_server
-uo_ljjob job
-SetNull(job)
-
-SELECT top 1 GETDATE()
-	INTO :dt_server
-	From u_user;
-IF sqlca.SQLCode <> 0 THEN
-	rslt = 0
-	arg_msg = '查询服务器间失败,' + sqlca.SQLErrText
-	GOTO ext
-END IF
-
-DateTime dt_bdate
-
-SELECT bdate
-	INTO :dt_bdate
-	FROM bgtr_timer
-	Where ID = :arg_id;
-IF sqlca.SQLCode <> 0 THEN
-	rslt = 0
-	arg_msg = '查询任务最近执行时间失败,' + sqlca.SQLErrText
-	GOTO ext
-END IF
-
-IF dt_bdate <= dt_server THEN
-	UPDATE bgtr_timer
-		SET block = 1,
-		bdate = GETDATE()
-		WHERE ID = :arg_id
-		And (block = 0 Or GETDATE() > dateadd(ss, 10, bdate));
-	IF sqlca.SQLCode <> 0 THEN
-		rslt = 0
-		arg_msg = '任务加锁失败,' + sqlca.SQLErrText
-		GOTO ext
-	END IF
-	DO WHILE sqlca.SQLNRows = 0
-		sleep(1)
-		UPDATE bgtr_timer
-			SET block = 1,
-			bdate = GETDATE()
-			WHERE ID = :arg_id
-			And (block = 0 Or GETDATE() > dateadd(ss, 10, bdate));
-		IF sqlca.SQLCode <> 0 THEN
-			rslt = 0
-			arg_msg = '任务加锁失败,' + sqlca.SQLErrText
-			GOTO ext
-		END IF
-	LOOP
-	
-	IF uf_getinfo(arg_id, arg_msg) <> 1 THEN
-		rslt = 0
-		GOTO ext
-	END IF
-	
-	job = create_job(TaskType)
-	IF Not IsNull(job) THEN
-		job.uf_setparm(TaskParm)
-		job.uf_dojob(arg_msg)
-	END IF
-	
-	UPDATE bgtr_timer
-		SET block = 0
-		Where ID = :arg_id;
-	IF sqlca.SQLCode <> 0 THEN
-		rslt = 0
-		arg_msg = '任务解锁失败,' + sqlca.SQLErrText
-		GOTO ext
-	END IF
-	
-END IF
-
-ext:
-IF Not IsNull(job) THEN
-	Destroy job
-END IF
-
-IF rslt = 1 THEN
-	COMMIT;
-ELSE
-	ROLLBACK;
-END IF
-
-RETURN rslt
-
-
-
-
-
-
-end function
-
-public function uo_ljjob create_job (long arg_tasktype);uo_ljjob rslt
-SetNull(rslt)
-CHOOSE CASE arg_tasktype
-	CASE 11
-		rslt = Create uo_ljjob_order_wkp_barcode_pda
-END CHOOSE
-
-
-RETURN rslt
-
-end function
-
-on uo_bgtr_timer.create
-call super::create
-TriggerEvent( this, "constructor" )
-end on
-
-on uo_bgtr_timer.destroy
-TriggerEvent( this, "destructor" )
-call super::destroy
-end on
-

ws_objects/app_base.pbl.src/uo_ddlb_wrkgrpid.sru

@@ -1,166 +0,0 @@
-$PBExportHeader$uo_ddlb_wrkgrpid.sru
-forward
-global type uo_ddlb_wrkgrpid from dropdownlistbox
-end type
-end forward
-
-global type uo_ddlb_wrkgrpid from dropdownlistbox
-integer width = 631
-integer height = 228
-integer taborder = 10
-integer textsize = -9
-integer weight = 400
-fontcharset fontcharset = gb2312charset!
-fontpitch fontpitch = variable!
-string facename = "宋体"
-long textcolor = 33554432
-boolean vscrollbar = true
-borderstyle borderstyle = stylelowered!
-end type
-global uo_ddlb_wrkgrpid uo_ddlb_wrkgrpid
-
-type variables
-long uo_wrkgrpid
-long uo_wrkgrpid_arr[]
-long cur_scid = -1
-
-boolean ShowAll = true
-end variables
-
-forward prototypes
-public function integer uof_set_scid (long arg_scid)
-public subroutine uof_constructor ()
-end prototypes
-
-public function integer uof_set_scid (long arg_scid);cur_scid = arg_scid
-uof_constructor()
-return 1
-end function
-
-public subroutine uof_constructor ();Long ls_wrkGrpid,ll_wkpid
-String ls_wrkGrpName,ls_wrkgrpcode
-String ls_wrkGrpName_tmp,ls_wrkgrpcode_tmp
-Long cnt = 0
-Long ll_i
-String ls_space
-Int li_spacenum
-String ls_ddlbtext
-
-this.reset()
-FOR ll_i = 1 To UpperBound(sys_user_wkps)
-	ll_wkpid = sys_user_wkps[ll_i]
-	SELECT u_sc_wkp.wrkGrpName,
-		u_sc_wkp.wrkgrpcode
-		INTO :ls_wrkGrpName_tmp,
-		:ls_wrkgrpcode_tmp
-		FROM u_sc_wkp
-		WHERE u_sc_wkp.inuse = 1
-		And u_sc_wkp.wrkGrpid = :ll_wkpid
-		And (u_sc_wkp.scid = :cur_scid or :cur_scid = -1);
-	//	IF sqlca.SQLCode <> 0 Or IsNull(ls_wrkGrpName) THEN ls_wrkGrpName = ''
-	//	IF sqlca.SQLCode <> 0 Or IsNull(ls_wrkgrpcode) THEN ls_wrkgrpcode = ''
-	IF sqlca.SQLCode <> 0 THEN CONTINUE
-	
-	ls_wrkGrpName = ls_wrkGrpName_tmp
-	ls_wrkgrpcode = ls_wrkgrpcode_tmp
-	ls_ddlbtext = f_scode_name(ll_wkpid,ls_wrkgrpcode,ls_wrkGrpName)
-
-	This.AddItem (ls_ddlbtext)
-	ls_wrkGrpid = ll_wkpid
-NEXT
-
-
-This.uo_wrkgrpid = ls_wrkGrpid
-This.uo_wrkgrpid_arr[1] = ls_wrkGrpid
-This.Text = ls_wrkGrpName+ls_space+'['+String(ls_wrkGrpid)+']'
-
-if ShowAll then 
-	SELECT count(*)
-		INTO :cnt
-		FROM u_sc_wkp
-		Where u_sc_wkp.inuse = 1 ;
-	IF cnt > 1 THEN
-		This.AddItem ('[全部车间]')
-		This.uo_wrkgrpid = -1
-		This.uo_wrkgrpid_arr = sys_user_wkps
-		This.Text = '[全部车间]'
-	END IF
-end if
-
-
-
-end subroutine
-
-event constructor;uof_constructor()
-//Long ls_wrkGrpid,ll_wkpid
-//String ls_wrkGrpName,ls_wrkgrpcode
-//String ls_wrkGrpName_tmp,ls_wrkgrpcode_tmp
-//Long cnt = 0
-//Long ll_i
-//String ls_space
-//Int li_spacenum
-//String ls_ddlbtext
-//
-//FOR ll_i = 1 To UpperBound(sys_user_wkps)
-//	ll_wkpid = sys_user_wkps[ll_i]
-//	SELECT u_sc_wkp.wrkGrpName,
-//		u_sc_wkp.wrkgrpcode
-//		INTO :ls_wrkGrpName_tmp,
-//		:ls_wrkgrpcode_tmp
-//		FROM u_sc_wkp
-//		WHERE u_sc_wkp.inuse = 1
-//		And u_sc_wkp.wrkGrpid = :ll_wkpid;
-//	//	IF sqlca.SQLCode <> 0 Or IsNull(ls_wrkGrpName) THEN ls_wrkGrpName = ''
-//	//	IF sqlca.SQLCode <> 0 Or IsNull(ls_wrkgrpcode) THEN ls_wrkgrpcode = ''
-//	IF sqlca.SQLCode <> 0 THEN CONTINUE
-//	
-//	ls_wrkGrpName = ls_wrkGrpName_tmp
-//	ls_wrkgrpcode = ls_wrkgrpcode_tmp
-//	ls_ddlbtext = f_scode_name(ll_wkpid,ls_wrkgrpcode,ls_wrkGrpName)
-//
-//	This.AddItem (ls_ddlbtext)
-//	ls_wrkGrpid = ll_wkpid
-//NEXT
-//
-//
-//This.uo_wrkgrpid = ls_wrkGrpid
-//This.uo_wrkgrpid_arr[1] = ls_wrkGrpid
-//This.Text = ls_wrkGrpName+ls_space+'['+String(ls_wrkGrpid)+']'
-//
-//SELECT count(*)
-//	INTO :cnt
-//	FROM u_sc_wkp
-//	Where u_sc_wkp.inuse = 1 ;
-//IF cnt > 1 THEN
-//	This.AddItem ('[全部车间]')
-//	This.uo_wrkgrpid = -1
-//	This.uo_wrkgrpid_arr = sys_user_wkps
-//	This.Text = '[全部车间]'
-//END IF
-//
-
-
-end event
-
-event selectionchanged;Long ll_wrkgrpid_arr[]
-
-IF THIS.Text = '[全部车间]' THEN
-	uo_wrkgrpid = -1
-	ll_wrkgrpid_arr = sys_user_wkps
-	uo_wrkgrpid_arr = ll_wrkgrpid_arr
-ELSE
-	uo_wrkgrpid = Long(Mid ( THIS.Text,Pos(THIS.Text,'[') + 1,Len(THIS.Text) - Pos(THIS.Text,'[') - 1 ))
-	ll_wrkgrpid_arr[1] = uo_wrkgrpid
-	uo_wrkgrpid_arr = ll_wrkgrpid_arr
-END IF
-
-
-
-end event
-
-on uo_ddlb_wrkgrpid.create
-end on
-
-on uo_ddlb_wrkgrpid.destroy
-end on
-

ws_objects/app_base.pbl.src/uo_ljjob.sru

@@ -1,32 +0,0 @@
-$PBExportHeader$uo_ljjob.sru
-forward
-global type uo_ljjob from nonvisualobject
-end type
-end forward
-
-global type uo_ljjob from nonvisualobject
-end type
-global uo_ljjob uo_ljjob
-
-forward prototypes
-public subroutine uf_setparm (string arg_parm)
-public function integer uf_dojob (ref string arg_msg)
-end prototypes
-
-public subroutine uf_setparm (string arg_parm);
-end subroutine
-
-public function integer uf_dojob (ref string arg_msg);arg_msg = '子类需要实现些方法'
-return 0
-end function
-
-on uo_ljjob.create
-call super::create
-TriggerEvent( this, "constructor" )
-end on
-
-on uo_ljjob.destroy
-TriggerEvent( this, "destructor" )
-call super::destroy
-end on
-

ws_objects/app_base.pbl.src/uo_ljjob_order_wkp_barcode_pda.sru

@@ -1,83 +0,0 @@
-$PBExportHeader$uo_ljjob_order_wkp_barcode_pda.sru
-forward
-global type uo_ljjob_order_wkp_barcode_pda from uo_ljjob
-end type
-end forward
-
-global type uo_ljjob_order_wkp_barcode_pda from uo_ljjob
-end type
-global uo_ljjob_order_wkp_barcode_pda uo_ljjob_order_wkp_barcode_pda
-
-type variables
-boolean replace = false
-boolean finishbarcode = false
-end variables
-
-forward prototypes
-public subroutine uf_setparm (string arg_parm)
-public function integer uf_dojob (ref string arg_msg)
-end prototypes
-
-public subroutine uf_setparm (string arg_parm);String ls_key
-String ls_value
-Long ll_pos, ll_pos2
-
-ls_key = '优先完成时间较早的计划='
-ll_pos = Pos(arg_parm, ls_key)
-IF ll_pos > 0 THEN
-	ll_pos = ll_pos + Len(ls_key)
-	ll_pos2 = Pos(arg_parm, ';', ll_pos)
-	IF ll_pos2 > 0 THEN
-		ls_value = Mid(arg_parm, ll_pos, ll_pos2 - ll_pos)
-	ELSE
-		ls_value = Mid(arg_parm, ll_pos)
-	END IF
-	IF Lower(Trim(ls_value)) = 'true' THEN
-		Replace = True
-	END IF
-END IF
-
-ls_key = '生成工序完工单='
-ll_pos = Pos(arg_parm, ls_key)
-IF ll_pos > 0 THEN
-	ll_pos = ll_pos + Len(ls_key)
-	ll_pos2 = Pos(arg_parm, ';', ll_pos)
-	IF ll_pos2 > 0 THEN
-		ls_value = Mid(arg_parm, ll_pos, ll_pos2 - ll_pos)
-	ELSE
-		ls_value = Mid(arg_parm, ll_pos)
-	END IF
-	IF Lower(Trim(ls_value)) = 'true' THEN
-		finishbarcode = True
-	END IF
-END IF
-
-end subroutine
-
-public function integer uf_dojob (ref string arg_msg);Int rslt = 1
-uo_checkpda uo_pda
-uo_pda = Create uo_checkpda
-
-Long ll_cnt
-Long ll_failcnt
-
-IF uo_pda.uof_order_wkp_barcode_pda(Replace, finishbarcode, arg_msg, ll_cnt, ll_failcnt) <> 1 THEN
-	rslt = 0
-	GOTO ext
-END IF
-
-GOTO ext
-ext:
-Destroy uo_pda
-RETURN rslt
-
-end function
-
-on uo_ljjob_order_wkp_barcode_pda.create
-call super::create
-end on
-
-on uo_ljjob_order_wkp_barcode_pda.destroy
-call super::destroy
-end on
-

ws_objects/app_mrp.pbl.src/s_workprocedure.srs

@@ -1,30 +0,0 @@
-$PBExportHeader$s_workprocedure.srs
-global type s_workprocedure from structure
-	long		wrkproid[]
-	string		wrkprocode[]
-	string		wrkproname[]
-	long		wrkgrid[]
-	string		wrkgrcode[]
-	string		wrkgrname[]
-	long		wrkid[]
-	string		worklevel[]
-	string		techlevel[]
-	decimal { 2 }		workhour[]
-	decimal { 5 }		workprice[]
-	decimal { 5 }		proqty[]
-	string		procode[]
-	long		proorder[]
-	integer		sctype[]
-	long		equipmentid[]
-	decimal { 5 }		ori_workprice[]
-	string		pricestr[]
-	integer		ifgroup[]
-	integer		ifreplace[]
-	string		worktype[]
-	decimal { 5 }		hourpay[]
-	string		rpcode[]
-	integer		ifdftpg[]
-	integer		ifdftjj[]
-	integer		jdtype[]
-end type
-

ws_objects/app_mrp.pbl.src/w_configure_ch_zj.srw

@@ -1,128 +0,0 @@
-$PBExportHeader$w_configure_ch_zj.srw
-forward
-global type w_configure_ch_zj from w_publ_choice
-end type
-end forward
-
-global type w_configure_ch_zj from w_publ_choice
-integer width = 2217
-integer height = 1728
-string title = "子件选择"
-end type
-global w_configure_ch_zj w_configure_ch_zj
-
-type variables
-long cur_mtrlid = 0
-s_edit_index_tran s_tran 
-string ins_status = ''
-end variables
-
-on w_configure_ch_zj.create
-call super::create
-end on
-
-on w_configure_ch_zj.destroy
-call super::destroy
-end on
-
-event open;if_ue_sort=true
-wf_movetocenter()
-dw_CH.SetTransObject (sqlca)
-
-
-
-s_tran=Message.powerobjectparm
-cur_mtrlid = s_tran.c_long
-cb_retrieve.TRIGGEREVENT(CLICKED!)
-end event
-
-event close;call super::close;CLOSEWITHRETURN(THIS,ins_status)
-end event
-
-event dw_filter;call super::dw_filter;String obj_expr = ''
-IF Trim(sle_ch.Text) <> '' THEN
-	IF Pos(Trim(sle_ch.Text),'%') = 0 THEN
-		obj_expr = obj_expr+'( name LIKE "%'+Trim(sle_ch.Text)+'%" )'
-	ELSE
-		obj_expr = obj_expr+'(name LIKE "'+Trim(sle_ch.Text)+'" )'
-	END IF
-END IF
-
-dw_ch.SetFilter(obj_expr)
-dw_ch.SetRedraw(FALSE)
-dw_ch.Filter()
-IF dw_ch.RowCount() >= 1 THEN
-	dw_ch.SelectRow(0,FALSE)
-	dw_ch.SelectRow(1,TRUE)
-	dw_ch.SetRow( 1)
-END IF
-dw_ch.SetRedraw(TRUE)
-
-end event
-
-type cb_func from w_publ_choice`cb_func within w_configure_ch_zj
-end type
-
-type cb_exit from w_publ_choice`cb_exit within w_configure_ch_zj
-end type
-
-type sle_ch from w_publ_choice`sle_ch within w_configure_ch_zj
-integer x = 311
-end type
-
-type dw_ch from w_publ_choice`dw_ch within w_configure_ch_zj
-integer width = 2176
-integer height = 1324
-string dataobject = "dw_configure_ch_zj"
-end type
-
-event dw_ch::doubleclicked;if row<=0 then return
-cb_CHOICE.PostEvent(Clicked!)
-end event
-
-type st_1 from w_publ_choice`st_1 within w_configure_ch_zj
-integer y = 204
-integer width = 274
-integer height = 52
-string text = "名称包含："
-boolean righttoleft = false
-end type
-
-type cb_retrieve from w_publ_choice`cb_retrieve within w_configure_ch_zj
-end type
-
-event cb_retrieve::clicked;dw_ch.retrieve(cur_mtrlid)
-end event
-
-type cb_choice from w_publ_choice`cb_choice within w_configure_ch_zj
-end type
-
-event cb_choice::clicked;call super::clicked;Long ls_row
-ls_row = dw_ch.GetRow( )
-IF ls_row <= 0 THEN
-	MessageBox('警告','请选定目标行')
-	RETURN
-END IF
-
-ins_status = dw_ch.Object.name[ls_row]
-Close(PARENT)
-
-end event
-
-type ln_bar from w_publ_choice`ln_bar within w_configure_ch_zj
-end type
-
-type ln_bar2 from w_publ_choice`ln_bar2 within w_configure_ch_zj
-end type
-
-type r_bar from w_publ_choice`r_bar within w_configure_ch_zj
-integer x = 1248
-integer y = 4
-end type
-
-type ln_1 from w_publ_choice`ln_1 within w_configure_ch_zj
-end type
-
-type ln_2 from w_publ_choice`ln_2 within w_configure_ch_zj
-end type
-

ws_objects/app_mrp.pbl.src/w_sc_workprocedure_add_all.srw

@@ -1,696 +0,0 @@
-$PBExportHeader$w_sc_workprocedure_add_all.srw
-forward
-global type w_sc_workprocedure_add_all from w_publ_pageretr
-end type
-type cb_1 from uo_imflatbutton within w_sc_workprocedure_add_all
-end type
-type cb_2 from commandbutton within w_sc_workprocedure_add_all
-end type
-type cb_3 from commandbutton within w_sc_workprocedure_add_all
-end type
-type cb_4 from commandbutton within w_sc_workprocedure_add_all
-end type
-type cb_5 from commandbutton within w_sc_workprocedure_add_all
-end type
-type dw_1 from u_dw_rbtnfilter within w_sc_workprocedure_add_all
-end type
-type ddlb_mtrlorigin from uo_ddlb_mtrlorigin within w_sc_workprocedure_add_all
-end type
-type cb_6 from uo_imflatbutton within w_sc_workprocedure_add_all
-end type
-type st_codetitle from statictext within w_sc_workprocedure_add_all
-end type
-type ln_bar from line within w_sc_workprocedure_add_all
-end type
-type ln_bar2 from line within w_sc_workprocedure_add_all
-end type
-type r_bar from rectangle within w_sc_workprocedure_add_all
-end type
-type ln_1 from line within w_sc_workprocedure_add_all
-end type
-type ln_2 from line within w_sc_workprocedure_add_all
-end type
-type st_codetitleb from statictext within w_sc_workprocedure_add_all
-end type
-end forward
-
-global type w_sc_workprocedure_add_all from w_publ_pageretr
-integer height = 2380
-string title = "批产品工序工价"
-boolean maxbox = true
-windowstate windowstate = maximized!
-event retrieve_mx ( )
-cb_1 cb_1
-cb_2 cb_2
-cb_3 cb_3
-cb_4 cb_4
-cb_5 cb_5
-dw_1 dw_1
-ddlb_mtrlorigin ddlb_mtrlorigin
-cb_6 cb_6
-st_codetitle st_codetitle
-ln_bar ln_bar
-ln_bar2 ln_bar2
-r_bar r_bar
-ln_1 ln_1
-ln_2 ln_2
-st_codetitleb st_codetitleb
-end type
-global w_sc_workprocedure_add_all w_sc_workprocedure_add_all
-
-type variables
-Int cur_mtrlorigin = 0
-String ins_code
-string ins_name
-string ins_worklevel
-string ins_techlevel
-decimal ins_workhour
-decimal ins_workprice
-long ins_wrkGrpid
-long ins_proid
-Long dw_pageretr_h
-end variables
-
-event retrieve_mx();dw_1.retrieve(ins_code)
-dw_1.selectrow(0,FALSE)
-dw_1.selectrow(1,TRUE)
-end event
-
-on w_sc_workprocedure_add_all.create
-int iCurrent
-call super::create
-this.cb_1=create cb_1
-this.cb_2=create cb_2
-this.cb_3=create cb_3
-this.cb_4=create cb_4
-this.cb_5=create cb_5
-this.dw_1=create dw_1
-this.ddlb_mtrlorigin=create ddlb_mtrlorigin
-this.cb_6=create cb_6
-this.st_codetitle=create st_codetitle
-this.ln_bar=create ln_bar
-this.ln_bar2=create ln_bar2
-this.r_bar=create r_bar
-this.ln_1=create ln_1
-this.ln_2=create ln_2
-this.st_codetitleb=create st_codetitleb
-iCurrent=UpperBound(this.Control)
-this.Control[iCurrent+1]=this.cb_1
-this.Control[iCurrent+2]=this.cb_2
-this.Control[iCurrent+3]=this.cb_3
-this.Control[iCurrent+4]=this.cb_4
-this.Control[iCurrent+5]=this.cb_5
-this.Control[iCurrent+6]=this.dw_1
-this.Control[iCurrent+7]=this.ddlb_mtrlorigin
-this.Control[iCurrent+8]=this.cb_6
-this.Control[iCurrent+9]=this.st_codetitle
-this.Control[iCurrent+10]=this.ln_bar
-this.Control[iCurrent+11]=this.ln_bar2
-this.Control[iCurrent+12]=this.r_bar
-this.Control[iCurrent+13]=this.ln_1
-this.Control[iCurrent+14]=this.ln_2
-this.Control[iCurrent+15]=this.st_codetitleb
-end on
-
-on w_sc_workprocedure_add_all.destroy
-call super::destroy
-destroy(this.cb_1)
-destroy(this.cb_2)
-destroy(this.cb_3)
-destroy(this.cb_4)
-destroy(this.cb_5)
-destroy(this.dw_1)
-destroy(this.ddlb_mtrlorigin)
-destroy(this.cb_6)
-destroy(this.st_codetitle)
-destroy(this.ln_bar)
-destroy(this.ln_bar2)
-destroy(this.r_bar)
-destroy(this.ln_1)
-destroy(this.ln_2)
-destroy(this.st_codetitleb)
-end on
-
-event retrieve_pageretr;boolean  cb_nextpage_enabled,cb_retrieveall_enabled
-boolean  cb_func_enabled,cb_retrieve_enabled
-
- 
-cb_nextpage_enabled=cb_nextpage.enabled
-cb_retrieveall_enabled=cb_retrieveall.enabled 
-cb_func_enabled=cb_func.enabled
-
- 
-cb_nextpage.enabled=false
-cb_retrieveall.enabled=false 
-cb_func.enabled=false
-
-
-SetPointer(HourGlass!)
-dw_pageretr.retrieve(cur_mtrlorigin)
-if dw_pageretr.rowcount()>0 and dw_pageretr.getrow()=0 then dw_pageretr.setrow(1)
-SetPointer(Arrow!)
-
- 
-cb_nextpage.enabled=cb_nextpage_enabled
-cb_retrieveall.enabled=cb_retrieveall_enabled 
-cb_func.enabled=cb_func_enabled
-
-end event
-
-event open;call super::open;ins_code = s_tran.b_string
-SELECT
-proid,
-Name,
-worklevel,
-techlevel,
-workhour,
-workprice,
-wrkGrpid
-INTO
-:ins_proid,
-:ins_name,
-:ins_worklevel,
-:ins_techlevel,
-:ins_workhour,
-:ins_workprice,
-:ins_wrkGrpid
-FROM u_sc_workprocedure Where code = :ins_code;
-
-IF sqlca.SQLCode <> 0 THEN	ins_name = ''
-
-st_codetitle.text = ins_code +' ' + ins_name + ' 的工价表'
-
-dw_1.settransobject(sqlca)
-this.triggerevent('retrieve_mx')
-end event
-
-event resize;call super::resize;ln_bar.EndX = THIS.Width
-ln_bar2.EndX = THIS.Width
-ln_1.EndX = THIS.Width
-ln_2.EndX = THIS.Width
-r_bar.Width = THIS.Width
-
-
-Long w_width,w_height
-w_width = 3600
-w_height = 2300
-
-IF newwidth < w_width THEN THIS.Width = w_width
-IF newheight < w_height THEN  THIS.Height = w_height
-
-dw_pageretr.height = this.height - ( w_height - dw_pageretr_h)
-dw_1.width = THIS.width - ( w_width - 2030)
-dw_1.height = dw_pageretr.height
-
-end event
-
-event ue_usual_query_retr;call super::ue_usual_query_retr;String ls_querystrpart = ''
-ls_newselect = Lower(ori_oldselect)
-IF Trim(sle_usual_query.Text) <> '' THEN
-	IF Pos(Trim(sle_usual_query.Text),'%') = 0 THEN
-		ls_querystrpart = ls_querystrpart + "(u_mtrldef.mtrlcode like '%"+Trim(sle_usual_query.Text)+"%')"
-	ELSE
-		ls_querystrpart = ls_querystrpart + "(u_mtrldef.mtrlcode like '"+Trim(sle_usual_query.Text)+"')"
-	END IF
-	
-	IF Pos(ls_newselect," where ") <> 0 THEN
-		ls_newselect = ls_newselect+" and ("+ls_querystrpart+')'
-	ELSE
-		ls_newselect = ls_newselect+" where ("+ls_querystrpart+')'
-	END IF
-END IF
-wf_retrieveuc(dw_pageretr,ls_newselect,1)
-THIS.TriggerEvent('retrieve_pageretr')
-
-
-end event
-
-type cb_func from w_publ_pageretr`cb_func within w_sc_workprocedure_add_all
-integer x = 302
-integer y = 0
-integer width = 151
-integer height = 164
-string normalpicname = "other.bmp"
-integer picsize = 16
-toolbaralignment pic_align = alignattop!
-boolean border = false
-end type
-
-type cb_exit from w_publ_pageretr`cb_exit within w_sc_workprocedure_add_all
-integer x = 453
-integer y = 0
-integer width = 151
-integer height = 164
-integer picsize = 16
-toolbaralignment pic_align = alignattop!
-boolean border = false
-end type
-
-type sle_usual_query from w_publ_pageretr`sle_usual_query within w_sc_workprocedure_add_all
-integer y = 184
-end type
-
-type cb_retrieveall from w_publ_pageretr`cb_retrieveall within w_sc_workprocedure_add_all
-integer x = 914
-integer width = 151
-integer height = 164
-string normalpicname = "p1.ico"
-integer picsize = 16
-toolbaralignment pic_align = alignattop!
-boolean border = false
-end type
-
-type em_pagerowno from w_publ_pageretr`em_pagerowno within w_sc_workprocedure_add_all
-integer x = 622
-integer y = 40
-end type
-
-type dw_pageretr from w_publ_pageretr`dw_pageretr within w_sc_workprocedure_add_all
-integer y = 400
-integer width = 1344
-integer height = 1748
-boolean titlebar = false
-string dataobject = "dw_sc_workprocedure_add_all_index"
-boolean resizable = false
-boolean border = true
-borderstyle borderstyle = stylelowered!
-end type
-
-event dw_pageretr::constructor;call super::constructor;dw_pageretr_h = THIS.height
-end event
-
-type st_1 from w_publ_pageretr`st_1 within w_sc_workprocedure_add_all
-integer y = 204
-end type
-
-type cb_nextpage from w_publ_pageretr`cb_nextpage within w_sc_workprocedure_add_all
-integer x = 1065
-integer width = 64
-integer height = 164
-string normalpicname = "p4.ico"
-integer picsize = 16
-toolbaralignment pic_align = alignattop!
-boolean border = false
-end type
-
-type cb_1 from uo_imflatbutton within w_sc_workprocedure_add_all
-integer x = 151
-integer width = 151
-integer height = 164
-integer taborder = 40
-boolean bringtotop = true
-string text = "刷新"
-string normalpicname = "refresh.bmp"
-integer picsize = 16
-toolbaralignment pic_align = alignattop!
-boolean border = false
-end type
-
-event clicked;call super::clicked;parent.triggerevent('retrieve_mx')
-end event
-
-type cb_2 from commandbutton within w_sc_workprocedure_add_all
-integer x = 1376
-integer y = 760
-integer width = 123
-integer height = 84
-integer taborder = 60
-boolean bringtotop = true
-integer textsize = -9
-integer weight = 400
-fontcharset fontcharset = gb2312charset!
-fontpitch fontpitch = variable!
-string facename = "宋体"
-string text = ">>"
-end type
-
-event clicked;Long ll_i,child_row
-Long ll_mtrlid
-
-FOR ll_i = 1 TO dw_pageretr.RowCount()
-	IF dw_1.Find('u_sc_workprice_mtrlid='+String(dw_pageretr.Object.mtrlid[ll_i]),1,dw_1.RowCount()) <> 0 THEN
-		CONTINUE;
-	END IF
-	
-	child_row = dw_1.InsertRow(0)
-	dw_1.Object.u_sc_workprice_mtrlid[child_row] = dw_pageretr.Object.mtrlid[ll_i]
-	dw_1.Object.u_mtrldef_mtrlcode[child_row] = dw_pageretr.Object.mtrlcode[ll_i]
-	dw_1.Object.u_mtrldef_mtrlname[child_row] = dw_pageretr.Object.mtrlname[ll_i]
-	dw_1.Object.u_mtrldef_mtrlmode[child_row] = dw_pageretr.Object.mtrlmode[ll_i]
-	dw_1.Object.u_mtrldef_unit[child_row] = dw_pageretr.Object.unit[ll_i]
-	
-	dw_1.Object.u_sc_workprice_proid[child_row] = ins_proid
-	dw_1.Object.u_sc_workprice_procode[child_row] = ins_code
-	dw_1.Object.u_sc_workprice_proname[child_row] = ins_name
-	dw_1.Object.u_sc_workprice_workPrice[child_row] = ins_workprice
-	dw_1.Object.u_sc_workprice_workqty[child_row] = 1
-	dw_1.Object.u_sc_workprice_workhour[child_row] = ins_workhour
-	dw_1.Object.u_sc_workprice_worklevel[child_row] = ins_worklevel
-	dw_1.Object.u_sc_workprice_techlevel[child_row] = ins_techlevel
-	dw_1.Object.u_sc_workprice_wrkGrpid[child_row] = ins_wrkGrpid
-NEXT
-
-dw_1.SelectRow(0,FALSE)
-dw_1.SelectRow(1,TRUE)
-
-dw_1.SetColumn("u_sc_workprice_workprice")
-dw_1.SetFocus( )
-
-
-end event
-
-type cb_3 from commandbutton within w_sc_workprocedure_add_all
-integer x = 1376
-integer y = 892
-integer width = 123
-integer height = 84
-integer taborder = 70
-boolean bringtotop = true
-integer textsize = -9
-integer weight = 400
-fontcharset fontcharset = gb2312charset!
-fontpitch fontpitch = variable!
-string facename = "宋体"
-string text = ">"
-end type
-
-event clicked;Long ll_i,child_row,uc_row
-Long ll_mtrlid
-
-uc_row = dw_pageretr.GetRow()
-IF uc_row <= 0 THEN
-	MessageBox('系统提示','请选择目标行!')
-	RETURN
-END IF
-
-IF dw_1.Find('u_sc_workprice_mtrlid='+String(dw_pageretr.Object.mtrlid[uc_row]),1,dw_1.RowCount()) <> 0 THEN RETURN
-
-child_row = dw_1.InsertRow(0)
-dw_1.Object.u_sc_workprice_mtrlid[child_row] = dw_pageretr.Object.mtrlid[uc_row]
-dw_1.Object.u_mtrldef_mtrlcode[child_row] = dw_pageretr.Object.mtrlcode[uc_row]
-dw_1.Object.u_mtrldef_mtrlname[child_row] = dw_pageretr.Object.mtrlname[uc_row]
-dw_1.Object.u_mtrldef_mtrlmode[child_row] = dw_pageretr.Object.mtrlmode[uc_row]
-dw_1.Object.u_mtrldef_unit[child_row] = dw_pageretr.Object.unit[uc_row]
-
-dw_1.Object.u_sc_workprice_proid[child_row] = ins_proid
-dw_1.Object.u_sc_workprice_procode[child_row] = ins_code
-dw_1.Object.u_sc_workprice_proname[child_row] = ins_name
-dw_1.Object.u_sc_workprice_workPrice[child_row] = ins_workprice
-dw_1.Object.u_sc_workprice_workqty[child_row] = 1
-dw_1.Object.u_sc_workprice_workhour[child_row] = ins_workhour
-dw_1.Object.u_sc_workprice_worklevel[child_row] = ins_worklevel
-dw_1.Object.u_sc_workprice_techlevel[child_row] = ins_techlevel
-dw_1.Object.u_sc_workprice_wrkGrpid[child_row] = ins_wrkGrpid
-
-
-dw_1.SelectRow(0,FALSE)
-dw_1.SelectRow(child_row,TRUE)
-dw_1.ScrollToRow(child_row)
-
-dw_1.SetColumn("u_sc_workprice_workprice")
-dw_1.SetFocus( )
-
-
-
-
-
-end event
-
-type cb_4 from commandbutton within w_sc_workprocedure_add_all
-integer x = 1376
-integer y = 1356
-integer width = 123
-integer height = 84
-integer taborder = 80
-boolean bringtotop = true
-integer textsize = -9
-integer weight = 400
-fontcharset fontcharset = gb2312charset!
-fontpitch fontpitch = variable!
-string facename = "宋体"
-string text = "<"
-end type
-
-event clicked;Long child_row
-Int li_auditflag
-
-child_row = dw_1.GetRow()
-IF child_row <= 0 THEN
-	MessageBox('系统提示','请选择当前目标行!')
-	RETURN
-END IF
-
-li_auditflag = dw_1.object.u_sc_workprice_auditflag[child_row] 
-IF li_auditflag = 1 THEN RETURN 
-dw_1.deleterow(child_row)
-end event
-
-type cb_5 from commandbutton within w_sc_workprocedure_add_all
-integer x = 1376
-integer y = 1488
-integer width = 123
-integer height = 84
-integer taborder = 90
-boolean bringtotop = true
-integer textsize = -9
-integer weight = 400
-fontcharset fontcharset = gb2312charset!
-fontpitch fontpitch = variable!
-string facename = "宋体"
-string text = "<<"
-end type
-
-event clicked;Long ll_i 
-Long ll_auditflag 
-
-FOR ll_i = 1 TO dw_1.Rowcount()
-	ll_auditflag = dw_1.object.u_sc_workprice_auditflag[ll_i] 
-	IF ll_auditflag = 1 THEN CONTINUE;
-	dw_1.deleterow(ll_i)
-	ll_i = ll_i - 1
-NEXT 
-
-IF dw_1.Rowcount() > 0 THEN 
-	dw_1.selectrow(0,FALSe)
-	dw_1.selectrow(1,true)
-END IF 
-end event
-
-type dw_1 from u_dw_rbtnfilter within w_sc_workprocedure_add_all
-integer x = 1522
-integer y = 400
-integer width = 2030
-integer height = 1748
-integer taborder = 20
-boolean bringtotop = true
-string dataobject = "dw_sc_workprocedure_add_all_edit"
-boolean hscrollbar = true
-boolean vscrollbar = true
-end type
-
-event clicked;call super::clicked;IF row <= 0 THEN RETURN
-THIS.SetRow(row)
-THIS.SelectRow(0,FALSE)
-THIS.SelectRow(row,TRUE)
-
-end event
-
-event dwnkey;call super::dwnkey;IF Key = KeyEnter!  THEN
-	keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
-	keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
-	RETURN 1
-END IF
-
-end event
-
-event rowfocuschanged;call super::rowfocuschanged;IF currentrow <= 0 THEN RETURN
-THIS.SelectRow(0,FALSE)
-THIS.SelectRow(currentrow,TRUE)
-end event
-
-event constructor;call super::constructor;RBUTTON_FILTER_USE=true  //右键查询功能开关
-titleclick_sort_use=true  //单击标题排序功能开关
-end event
-
-type ddlb_mtrlorigin from uo_ddlb_mtrlorigin within w_sc_workprocedure_add_all
-integer x = 727
-integer y = 184
-integer width = 576
-integer height = 480
-integer taborder = 20
-boolean bringtotop = true
-end type
-
-event selectionchanged;call super::selectionchanged;cur_mtrlorigin = this.uo_mtrlorigin
-parent.triggerevent('retrieve_pageretr')
-
-
-end event
-
-type cb_6 from uo_imflatbutton within w_sc_workprocedure_add_all
-integer width = 151
-integer height = 164
-integer taborder = 40
-boolean bringtotop = true
-string text = "保存"
-string normalpicname = "save.bmp"
-integer picsize = 16
-toolbaralignment pic_align = alignattop!
-boolean border = false
-end type
-
-event clicked;call super::clicked;Int rslt = 1
-String arg_msg
-
-Long ll_i , cnt
-Long ll_mtrlid, ll_wrkid
-String ls_mtrlcode
-
-dw_1.AcceptText( )
-FOR ll_i = 1 To dw_1.RowCount()
-	
-	ll_mtrlid =  dw_1.Object.u_sc_workprice_mtrlid[ll_i]
-	ll_wrkid =  dw_1.Object.u_sc_workprice_wrkid[ll_i]
-	ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_i]
-	
-	IF dw_1.Object.u_sc_workprice_workqty[ll_i] <= 0 THEN
-		rslt = 0
-		arg_msg = '行:'+String(ll_i)+',物料: '+ls_mtrlcode+',数量不能少于1,'+sqlca.SQLErrText
-		GOTO ext
-	END IF
-	IF dw_1.Object.u_sc_workprice_wrkid[ll_i] = 0 THEN
-		rslt = 0
-		arg_msg = '行:'+String(ll_i)+',物料: '+ls_mtrlcode+',请选择车间,'+sqlca.SQLErrText
-		GOTO ext
-	END IF
-	
-	
-	SELECT count(*)
-		INTO :cnt
-		FROM u_mtrl_workprice
-		WHERE mtrlid = :ll_mtrlid
-		And wrkid = :ll_wrkid;
-	IF sqlca.SQLCode <> 0 THEN
-		cnt = 0
-	END IF
-	
-	IF cnt = 0 THEN
-		INSERT INTO u_mtrl_workprice
-			(mtrlid,
-			wrkid)
-			VALUES (:ll_mtrlid,
-			:ll_wrkid);
-		IF sqlca.SQLCode <> 0 THEN
-			rslt = 0
-			arg_msg = '行:'+String(ll_i)+',物料: '+ls_mtrlcode+',新建产品工价表失败,'+sqlca.SQLErrText
-			GOTO ext
-		END IF
-	END IF
-	
-NEXT
-
-IF dw_1.Update( ) = -1 THEN
-	MessageBox('系统提示','保存产品工价失败!')
-	ROLLBACK;
-	RETURN
-END IF
-
-
-ext:
-IF rslt = 0 THEN
-	ROLLBACK;
-	MessageBox('系统提示',arg_msg)
-ELSE
-	COMMIT;
-	MessageBox('系统提示','保存产品工价成功!')
-END IF
-
-
-
-end event
-
-type st_codetitle from statictext within w_sc_workprocedure_add_all
-integer x = 5
-integer y = 300
-integer width = 3534
-integer height = 96
-boolean bringtotop = true
-integer textsize = -12
-integer weight = 700
-fontcharset fontcharset = gb2312charset!
-fontpitch fontpitch = variable!
-string facename = "宋体"
-long textcolor = 33554432
-long backcolor = 79216776
-boolean enabled = false
-string text = "************** 的工价表"
-boolean border = true
-borderstyle borderstyle = styleraised!
-boolean focusrectangle = false
-end type
-
-type ln_bar from line within w_sc_workprocedure_add_all
-long linecolor = 268435456
-integer linethickness = 4
-integer beginy = 172
-integer endx = 2007
-integer endy = 172
-end type
-
-type ln_bar2 from line within w_sc_workprocedure_add_all
-long linecolor = 16777215
-integer linethickness = 4
-integer beginy = 176
-integer endx = 2039
-integer endy = 176
-end type
-
-type r_bar from rectangle within w_sc_workprocedure_add_all
-long linecolor = 16777215
-integer linethickness = 4
-long fillcolor = 1073741824
-integer x = 2139
-integer width = 146
-integer height = 68
-end type
-
-event constructor;this.fillcolor = 14215660
-this.linecolor = 14215660
-this.x = -1
-this.y = -1
-this.height = ln_bar.beginy - 5
-
-end event
-
-type ln_1 from line within w_sc_workprocedure_add_all
-long linecolor = 268435456
-integer linethickness = 4
-integer beginy = 284
-integer endx = 2016
-integer endy = 284
-end type
-
-type ln_2 from line within w_sc_workprocedure_add_all
-long linecolor = 16777215
-integer linethickness = 4
-integer beginy = 288
-integer endx = 2048
-integer endy = 288
-end type
-
-type st_codetitleb from statictext within w_sc_workprocedure_add_all
-integer y = 296
-integer width = 3543
-integer height = 104
-integer textsize = -12
-integer weight = 700
-fontcharset fontcharset = gb2312charset!
-fontpitch fontpitch = variable!
-string facename = "宋体"
-long textcolor = 33554432
-long backcolor = 79216776
-boolean enabled = false
-boolean border = true
-boolean focusrectangle = false
-end type
-

ws_objects/app_pc.pbl.src/app_pc.sra

@@ -1,886 +0,0 @@
-$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
-

ws_objects/app_pc.pbl.src/p_app_pc_exe.srj

@@ -1,22 +0,0 @@
-$PBExportHeader$p_app_pc_exe.srj
-$PBExportComments$Generated Application Executable Project
-EXE:app_pc.exe,,0,1,1
-CMP:0,0,0,2,0,0,1
-COM:Sybase, Inc.
-DES:Sybase, Inc. Product File
-CPY:
-PRD:PowerBuilder Enterprise Series
-PVS:1.0.0.1
-PVN:1,0,0,1
-FVS:1.0.0.1
-FVN:1,0,0,1
-MAN:0,asInvoker,0
-PBD:app_pc.pbl,,0
-PBD:l1_uo.pbl,,0
-PBD:l1_uo_pc.pbl,,0
-PBD:ljerp1_mrp_uo.pbl,,0
-PBD:checkpda.pbl,,0
-PBD:saletasksort.pbl,,0
-PBD:app_base.pbl,,0
-PBD:plugins_publ.pbl,,0
-PBD:plugins_publ_print.pbl,,0

ws_objects/app_pc.pbl.src/s_custom.srs

@@ -1,66 +0,0 @@
-$PBExportHeader$s_custom.srs
-global type s_custom from structure
-	long		cusid
-	string		name
-	string		bsntype
-	string		rep
-	string		tele
-	string		tele1
-	string		bank
-	string		cunt
-	string		address
-	string		code
-	string		dscrp
-	string		cuscode
-	decimal { 5 }		givebackrate
-	string		freight
-	string		freight_tele
-	string		fax
-	string		upname
-	integer		inuse
-	long		cusareaid
-	string		cusareaname
-	string		areaname
-	string		email
-	integer		state
-	long		peoplenum
-	string		mainmarket
-	decimal { 2 }		saleamt
-	string		nethttp
-	string		trade
-	string		corporation
-	string		grade
-	integer		ifself
-	string		cuskind
-	string		simplename
-	long		viewdaynum
-	string		tele_sms
-	long		banktypeid
-	long		styleid
-	long		moneyid
-	decimal { 5 }		transday
-	long		memberid
-	decimal { 5 }		score
-	long		pricelistid
-	integer		lsflag
-	string		ljmail
-	decimal { 5 }		rebate
-	long		exchangeid
-	string		custype
-	long		cusid_arr[]
-	string		name_arr[]
-	string		cuscode_arr[]
-	decimal { 5 }		rebate_arr[]
-	string		qqcode
-	string		frcode
-	string		pricedscrp
-	integer		aifmb_flag
-	integer		selecttype
-	string		stat_rep
-	string		stat_handtel
-	string		stat_address
-	string		province
-	string		city
-	string		area
-end type
-

ws_objects/app_pc.pbl.src/w_cd_cust_ch.srw

@@ -1,268 +0,0 @@
-$PBExportHeader$w_cd_cust_ch.srw
-forward
-global type w_cd_cust_ch from w_publ_choice
-end type
-type tv_1 from uo_tv_cusarea within w_cd_cust_ch
-end type
-type dw_1 from u_dw_rbtnfilter within w_cd_cust_ch
-end type
-type cb_1 from commandbutton within w_cd_cust_ch
-end type
-type cb_2 from commandbutton within w_cd_cust_ch
-end type
-end forward
-
-global type w_cd_cust_ch from w_publ_choice
-integer width = 3611
-integer height = 2380
-string title = "客户选择"
-tv_1 tv_1
-dw_1 dw_1
-cb_1 cb_1
-cb_2 cb_2
-end type
-global w_cd_cust_ch w_cd_cust_ch
-
-type variables
-s_custom  ins_rt_stru
-string obj_cuscode
-String ls_areaname = ''
-end variables
-
-on w_cd_cust_ch.create
-int iCurrent
-call super::create
-this.tv_1=create tv_1
-this.dw_1=create dw_1
-this.cb_1=create cb_1
-this.cb_2=create cb_2
-iCurrent=UpperBound(this.Control)
-this.Control[iCurrent+1]=this.tv_1
-this.Control[iCurrent+2]=this.dw_1
-this.Control[iCurrent+3]=this.cb_1
-this.Control[iCurrent+4]=this.cb_2
-end on
-
-on w_cd_cust_ch.destroy
-call super::destroy
-destroy(this.tv_1)
-destroy(this.dw_1)
-destroy(this.cb_1)
-destroy(this.cb_2)
-end on
-
-event close;call super::close;CLOSEWITHRETURN(THIS,ins_rt_stru)
-end event
-
-event dw_filter;//string filterstr
-//filterstr=""+trim(sle_ch.text)
-//
-String obj_expr = ''
-IF Trim(sle_ch.Text) <> '' THEN
-	IF Pos(Trim(sle_ch.Text),'%') = 0 THEN
-		obj_expr = obj_expr+'( cuscode LIKE "%'+Trim(sle_ch.Text)+'%" )'
-	ELSE
-		obj_expr = obj_expr+'( Lower(cuscode) LIKE "'+Trim(sle_ch.Text)+'" )'
-	END IF
-END IF
-    
-IF Trim(sle_ch.Text) <> '' THEN
-	IF obj_expr <> '' THEN obj_expr = obj_expr+ ' or '
-	IF Pos(Trim(sle_ch.Text),'%') = 0 THEN
-		obj_expr = obj_expr+' ( name LIKE "%'+Trim(sle_ch.Text)+'%" )'
-	ELSE
-		obj_expr = obj_expr+'( name LIKE "'+Trim(sle_ch.Text)+'" )'
-	END IF
-END IF
-
-dw_ch.SetFilter(obj_expr)
-dw_ch.SetRedraw(FALSE)
-dw_ch.Filter()
-IF dw_ch.RowCount() >= 1 THEN
-	dw_ch.SelectRow(0,FALSE)
-	dw_ch.SelectRow(1,TRUE)
-END IF
-dw_ch.SetRedraw(TRUE)
-
-end event
-
-event open;call super::open;//obj_cuscode = Message.StringParm
-//IF obj_cuscode <> '' THEN
-//	sle_ch.Text = obj_cuscode
-//	THIS.TriggerEvent("dw_filter")
-//END IF
-//
-//s_hide_col s_col_cusname
-//s_col_cusname.col_1 = 'name'
-//f_hide_col(1210,dw_ch,s_col_cusname)
-end event
-
-type cb_func from w_publ_choice`cb_func within w_cd_cust_ch
-end type
-
-type cb_exit from w_publ_choice`cb_exit within w_cd_cust_ch
-integer taborder = 50
-end type
-
-type sle_ch from w_publ_choice`sle_ch within w_cd_cust_ch
-integer x = 379
-integer y = 184
-integer width = 955
-end type
-
-type dw_ch from w_publ_choice`dw_ch within w_cd_cust_ch
-integer x = 997
-integer width = 2587
-integer height = 884
-string dataobject = "dw_cust_ch"
-boolean hsplitscroll = false
-end type
-
-event dw_ch::rowfocuschanged;//
-end event
-
-event dw_ch::clicked;IF row > 0 THEN
-	This.SelectRow(row, Not This.IsSelected(row))
-END IF
-
-end event
-
-event dw_ch::doubleclicked;//
-end event
-
-type st_1 from w_publ_choice`st_1 within w_cd_cust_ch
-integer x = 18
-integer y = 204
-integer width = 343
-string text = "编号/名称含:"
-alignment alignment = right!
-boolean righttoleft = false
-end type
-
-type cb_retrieve from w_publ_choice`cb_retrieve within w_cd_cust_ch
-integer taborder = 60
-end type
-
-event cb_retrieve::clicked;dw_ch.retrieve(ls_areaname)
-THIS.TriggerEvent("dw_filter")
-end event
-
-type cb_choice from w_publ_choice`cb_choice within w_cd_cust_ch
-end type
-
-event cb_choice::clicked;Long LS_ROW
-long i = 0
-for LS_ROW = 1 to dw_1.RowCount()
-	i++
-	INS_RT_STRU.cusid_arr[i] = dw_1.Object.cusid[LS_ROW]
-next
-
-Close(PARENT)
-
-
-end event
-
-type ln_bar from w_publ_choice`ln_bar within w_cd_cust_ch
-end type
-
-type ln_bar2 from w_publ_choice`ln_bar2 within w_cd_cust_ch
-end type
-
-type r_bar from w_publ_choice`r_bar within w_cd_cust_ch
-end type
-
-type ln_1 from w_publ_choice`ln_1 within w_cd_cust_ch
-end type
-
-type ln_2 from w_publ_choice`ln_2 within w_cd_cust_ch
-end type
-
-type tv_1 from uo_tv_cusarea within w_cd_cust_ch
-integer y = 288
-integer width = 997
-integer height = 1996
-integer taborder = 60
-boolean bringtotop = true
-integer textsize = -9
-fontcharset fontcharset = gb2312charset!
-fontfamily fontfamily = anyfont!
-string facename = "宋体"
-end type
-
-event selectionchanged;call super::selectionchanged;ls_areaname = THIS.uo_cur_info.areaname
-ls_areaname = ls_areaname + '%'
-cb_retrieve.TriggerEvent(Clicked!)
-
-
-end event
-
-type dw_1 from u_dw_rbtnfilter within w_cd_cust_ch
-integer x = 997
-integer y = 1296
-integer width = 2587
-integer height = 972
-integer taborder = 20
-boolean bringtotop = true
-string dataobject = "dw_cust_ch"
-end type
-
-event clicked;IF row > 0 THEN
-	This.SelectRow(row, Not This.IsSelected(row))
-END IF
-
-end event
-
-type cb_1 from commandbutton within w_cd_cust_ch
-integer x = 2857
-integer y = 1196
-integer width = 261
-integer height = 84
-integer taborder = 30
-boolean bringtotop = true
-integer textsize = -9
-integer weight = 400
-fontcharset fontcharset = gb2312charset!
-fontpitch fontpitch = variable!
-string facename = "宋体"
-string text = "添加"
-end type
-
-event clicked;Long i,row
-dw_1.SelectRow(0, False)
-FOR i = 1 To dw_ch.RowCount()
-	IF Not dw_ch.IsSelected(i) THEN CONTINUE
-	row = dw_1.Find('cusid = ' + string(dw_ch.Object.cusid[i]), 1, dw_1.RowCount())
-	IF row > 0 THEN
-		//dw_1.SelectRow(row, True)
-		CONTINUE
-	END IF
-	dw_ch.RowsCopy(i,i,Primary!, dw_1, dw_1.RowCount() + 1, Primary!)
-	dw_1.SelectRow(dw_1.RowCount(), True)
-NEXT
-
-end event
-
-type cb_2 from commandbutton within w_cd_cust_ch
-integer x = 3218
-integer y = 1196
-integer width = 261
-integer height = 84
-integer taborder = 40
-boolean bringtotop = true
-integer textsize = -9
-integer weight = 400
-fontcharset fontcharset = gb2312charset!
-fontpitch fontpitch = variable!
-string facename = "宋体"
-string text = "删除"
-end type
-
-event clicked;Long i
-
-FOR i = dw_1.RowCount() To 1 Step -1
-	IF Not dw_1.IsSelected(i) THEN CONTINUE
-	dw_1.DeleteRow(i)
-NEXT
-
-end event
-

ws_objects/app_pc.pbl.src/w_cd_custs.srw

@@ -1,298 +0,0 @@
-$PBExportHeader$w_cd_custs.srw
-forward
-global type w_cd_custs from w_publ_base_style
-end type
-type dw_1 from u_dw_rbtnfilter within w_cd_custs
-end type
-type cb_1 from uo_imflatbutton within w_cd_custs
-end type
-type cb_2 from uo_imflatbutton within w_cd_custs
-end type
-type dw_2 from u_dw_rbtnfilter within w_cd_custs
-end type
-end forward
-
-global type w_cd_custs from w_publ_base_style
-integer width = 3465
-integer height = 2044
-string title = "门店管理"
-boolean maxbox = true
-boolean resizable = true
-event retrieve_dw1 ( )
-event retrieve_mx ( )
-dw_1 dw_1
-cb_1 cb_1
-cb_2 cb_2
-dw_2 dw_2
-end type
-global w_cd_custs w_cd_custs
-
-event retrieve_dw1();// DONE: 获取客户列表
-Long i, row, cnt
-oleobject custs, cust
-String arg_msg
-
-custs = AppCom.GetCusts(app_token, Ref arg_msg)
-IF arg_msg <> '' THEN
-	MessageBox('ERROR', arg_msg)
-	RETURN
-END IF
-
-dw_1.SetRedraw(False)
-dw_1.Reset()
-
-cnt = custs.Count
-
-FOR i = 1 To cnt
-	cust = custs.GetItem(i - 1)
-	
-	row = dw_1.InsertRow(0)
-	dw_1.SetItem(row, 'cusid', cust.GetInt('cusid'))
-	dw_1.SetItem(row, 'cuscode', cust.GetString('cuscode'))
-	dw_1.SetItem(row, 'cusname', cust.GetString('cusname'))
-	dw_1.SetItem(row, 'simplename', cust.GetString('simplename'))
-	dw_1.SetItem(row, 'custype', cust.GetString('custype'))
-	dw_1.SetItem(row, 'tele', cust.GetString('tele'))
-	dw_1.SetItem(row, 'address', cust.GetString('address'))
-	dw_1.SetItem(row, 'freight', cust.GetString('freight'))
-	dw_1.SetItem(row, 'freight_tele', cust.GetString('freight_tele'))
-	dw_1.SetItem(row, 'inuse', cust.GetInt('inuse'))
-	dw_1.SetItem(row, 'precode', cust.GetString('precode'))
-	
-NEXT
-dw_1.SetRedraw(True)
-
-row = dw_1.GetRow()
-IF row > 0 THEN
-	dw_1.SelectRow(row, True)
-END IF
-
-This.TriggerEvent('retrieve_mx')
-
-
-end event
-
-event retrieve_mx();Long ll_cusid, row
-dw_2.Reset()
-row = dw_1.GetRow()
-IF row <= 0 THEN
-	RETURN
-END IF
-
-ll_cusid = dw_1.Object.cusid[row]
-if isnull(ll_cusid) then return
-
-oleobject users, user
-Long i
-String arg_msg = ''
-users = AppCom.GetUsers(app_token, ll_cusid, Ref arg_msg)
-IF arg_msg <> '' THEN
-	MessageBox('ERROR', arg_msg)
-	RETURN
-END IF
-
-dw_2.SetRedraw(False)
-
-Long ll_cnt, ll_row
-ll_cnt = users.Count
-
-FOR i = 1 To ll_cnt
-	user = users.GetItem(i - 1)
-	ll_row = dw_2.InsertRow(0)
-	dw_2.SetItem(ll_row, 'userid', user.GetInt('userid'))
-	dw_2.SetItem(ll_row, 'cusid', user.GetInt('cusid'))
-	dw_2.SetItem(ll_row, 'usercode', user.GetString('usercode'))
-	dw_2.SetItem(ll_row, 'username', user.GetString('username'))
-	dw_2.SetItem(ll_row, 'tele', user.GetString('tele'))
-	dw_2.SetItem(ll_row, 'email', user.GetString('email'))
-	dw_2.SetItem(ll_row, 'qq', user.GetString('qq'))
-	dw_2.SetItem(ll_row, 'address', user.GetString('address'))
-	dw_2.SetItem(ll_row, 'inuse', user.GetInt('inuse'))
-	dw_2.SetItem(ll_row, 'usertype', user.GetInt('usertype'))
-NEXT
-
-dw_2.SetRedraw(True)
-
-end event
-
-on w_cd_custs.create
-int iCurrent
-call super::create
-this.dw_1=create dw_1
-this.cb_1=create cb_1
-this.cb_2=create cb_2
-this.dw_2=create dw_2
-iCurrent=UpperBound(this.Control)
-this.Control[iCurrent+1]=this.dw_1
-this.Control[iCurrent+2]=this.cb_1
-this.Control[iCurrent+3]=this.cb_2
-this.Control[iCurrent+4]=this.dw_2
-end on
-
-on w_cd_custs.destroy
-call super::destroy
-destroy(this.dw_1)
-destroy(this.cb_1)
-destroy(this.cb_2)
-destroy(this.dw_2)
-end on
-
-event resize;call super::resize;dw_1.width = (this.workspacewidth() - dw_1.x) / 2
-
-dw_2.x = dw_1.x + dw_1.width
-dw_2.width = dw_1.width
-
-dw_1.height = this.workspaceheight() - dw_1.Y
-dw_2.height = dw_1.height
-
-end event
-
-event open;call super::open;this.triggerevent('retrieve_dw1')
-end event
-
-type cb_func from w_publ_base_style`cb_func within w_cd_custs
-integer x = 425
-end type
-
-type cb_exit from w_publ_base_style`cb_exit within w_cd_custs
-integer x = 576
-end type
-
-type ln_bar from w_publ_base_style`ln_bar within w_cd_custs
-end type
-
-type ln_bar2 from w_publ_base_style`ln_bar2 within w_cd_custs
-end type
-
-type r_bar from w_publ_base_style`r_bar within w_cd_custs
-end type
-
-type dw_1 from u_dw_rbtnfilter within w_cd_custs
-integer y = 188
-integer width = 2208
-integer height = 1500
-integer taborder = 20
-boolean bringtotop = true
-string dataobject = "dw_cd_cust"
-boolean hscrollbar = true
-boolean vscrollbar = true
-boolean hsplitscroll = true
-boolean rbutton_filter_use = true
-boolean titleclick_sort_use = true
-end type
-
-event clicked;call super::clicked;this.selectrow(0, false)
-if row > 0 then
-	this.setrow(row)
-	this.selectrow(row, true)
-end if
-end event
-
-event rowfocuschanged;call super::rowfocuschanged;parent.triggerevent('retrieve_mx')
-end event
-
-type cb_1 from uo_imflatbutton within w_cd_custs
-integer width = 151
-integer height = 164
-integer taborder = 30
-boolean bringtotop = true
-string text = "刷新"
-string normalpicname = "refresh.BMP"
-integer picsize = 16
-toolbaralignment pic_align = alignattop!
-boolean border = false
-end type
-
-event clicked;call super::clicked;parent.triggerevent('retrieve_dw1')
-end event
-
-type cb_2 from uo_imflatbutton within w_cd_custs
-integer x = 151
-integer width = 274
-integer height = 164
-integer taborder = 40
-boolean bringtotop = true
-string text = "添加客户"
-string normalpicname = "open.BMP"
-integer picsize = 16
-toolbaralignment pic_align = alignattop!
-boolean border = false
-end type
-
-event clicked;call super::clicked;Open(w_cd_cust_ch)
-
-s_custom s_tran
-s_tran = Message.PowerObjectParm
-
-oleobject custs, cus
-custs = AppCom.CreArrOfPbDictionary()
-
-Long i
-
-String ls_cuscode, ls_cusname, ls_custype, ls_simplename, ls_tele, ls_address, ls_freight, ls_freight_tele
-
-FOR i = 1 To UpperBound(s_tran.cusid_arr)
-	IF s_tran.cusid_arr[i] > 0 THEN
-		
-		SELECT cuscode, name, custype, simplename, tele, address, freight, freight_tele
-			INTO :ls_cuscode, :ls_cusname, :ls_custype, :ls_simplename, :ls_tele, :ls_address, :ls_freight, :ls_freight_tele
-			FROM u_cust
-			Where cusid = :s_tran.cusid_arr[i];
-		IF sqlca.SQLCode <> 0 THEN
-			MessageBox('ERROR', '查询客户信息失败,' + sqlca.SQLErrText)
-			RETURN
-		END IF
-		
-		cus = AppCom.CreatePbDictionary()
-		cus.SetInt('cusid', s_tran.cusid_arr[i])
-		cus.SetString('cuscode', ls_cuscode)
-		cus.SetString('cusname', ls_cusname)
-		cus.SetString('simplename', ls_simplename)
-		cus.SetString('custype', ls_custype)
-		cus.SetString('tele', ls_tele)
-		cus.SetString('address', ls_address)
-		cus.SetString('freight', ls_freight)
-		cus.SetString('freight_tele', ls_freight_tele)
-		cus.SetString('precode', ls_cuscode)
-		cus.SetString('usercode', ls_cuscode)
-		cus.SetString('psw', ls_cuscode)
-		
-		custs.Add(cus)
-	END IF
-NEXT
-
-Long ll_cnt
-String arg_msg
-ll_cnt = custs.Count
-IF ll_cnt > 0 THEN
-	IF AppCom.AddCusts(app_token, custs, Ref arg_msg) <> True THEN
-		MessageBox('ERROR', arg_msg)
-		RETURN
-	END IF
-	Parent.TriggerEvent('retrieve_dw1')
-END IF
-
-end event
-
-type dw_2 from u_dw_rbtnfilter within w_cd_custs
-integer x = 2240
-integer y = 188
-integer width = 2208
-integer height = 1500
-integer taborder = 30
-boolean bringtotop = true
-string dataobject = "dw_cd_user"
-boolean hscrollbar = true
-boolean vscrollbar = true
-boolean hsplitscroll = true
-boolean rbutton_filter_use = true
-boolean titleclick_sort_use = true
-end type
-
-event clicked;call super::clicked;this.selectrow(0, false)
-if row > 0 then
-	this.setrow(row)
-	this.selectrow(row, true)
-end if
-end event
-

ws_objects/app_pc.pbl.src/w_cd_saletask_bj.srw

@@ -1,244 +0,0 @@
-$PBExportHeader$w_cd_saletask_bj.srw
-forward
-global type w_cd_saletask_bj from w_publ_base
-end type
-type dw_1 from datawindow within w_cd_saletask_bj
-end type
-type cb_1 from uo_imflatbutton within w_cd_saletask_bj
-end type
-type dw_2 from datawindow within w_cd_saletask_bj
-end type
-type cb_2 from uo_imflatbutton within w_cd_saletask_bj
-end type
-end forward
-
-global type w_cd_saletask_bj from w_publ_base
-integer width = 2793
-integer height = 1872
-string title = "询价订单"
-boolean minbox = false
-windowtype windowtype = response!
-dw_1 dw_1
-cb_1 cb_1
-dw_2 dw_2
-cb_2 cb_2
-end type
-global w_cd_saletask_bj w_cd_saletask_bj
-
-type variables
-
-end variables
-
-on w_cd_saletask_bj.create
-int iCurrent
-call super::create
-this.dw_1=create dw_1
-this.cb_1=create cb_1
-this.dw_2=create dw_2
-this.cb_2=create cb_2
-iCurrent=UpperBound(this.Control)
-this.Control[iCurrent+1]=this.dw_1
-this.Control[iCurrent+2]=this.cb_1
-this.Control[iCurrent+3]=this.dw_2
-this.Control[iCurrent+4]=this.cb_2
-end on
-
-on w_cd_saletask_bj.destroy
-call super::destroy
-destroy(this.dw_1)
-destroy(this.cb_1)
-destroy(this.dw_2)
-destroy(this.cb_2)
-end on
-
-event open;call super::open;// DONE: 显示待报价订单信息
-
-oleobject lo_dict
-lo_dict = Message.PowerObjectParm
-
-Long row
-row = dw_1.InsertRow(0)
-dw_1.SetItem(row, 'taskid', lo_dict.GetInt('taskid'))
-dw_1.SetItem(row, 'tid', lo_dict.GetString('tid'))
-dw_1.SetItem(row, 'taskdate', lo_dict.GetDateTime('taskdate'))
-dw_1.SetItem(row, 'cusid', lo_dict.GetInt('cusid'))
-dw_1.SetItem(row, 'cus_rep', lo_dict.GetString('cus_rep'))
-dw_1.SetItem(row, 'cus_tele', lo_dict.GetString('cus_tele'))
-dw_1.SetItem(row, 'cus_address', lo_dict.GetString('cus_address'))
-dw_1.SetItem(row, 'freight', lo_dict.GetString('freight'))
-dw_1.SetItem(row, 'freight_tele', lo_dict.GetString('freight_tele'))
-dw_1.SetItem(row, 'opemp', lo_dict.GetString('opemp'))
-dw_1.SetItem(row, 'opdate', lo_dict.GetDateTime('opdate'))
-dw_1.SetItem(row, 'modemp', lo_dict.GetString('modemp'))
-dw_1.SetItem(row, 'moddate', lo_dict.GetDateTime('moddate'))
-dw_1.SetItem(row, 'buyer_name', lo_dict.GetString('buyer_name'))
-dw_1.SetItem(row, 'buyer_tele', lo_dict.GetString('buyer_tele'))
-dw_1.SetItem(row, 'requiredate', lo_dict.GetDateTime('requiredate'))
-dw_1.SetItem(row, 'temp1', lo_dict.GetString('temp1'))
-dw_1.SetItem(row, 'temp2', lo_dict.GetString('temp2'))
-dw_1.SetItem(row, 'temp3', lo_dict.GetString('temp3'))
-dw_1.SetItem(row, 'temp4', lo_dict.GetString('temp4'))
-dw_1.SetItem(row, 'temp5', lo_dict.GetString('temp5'))
-dw_1.SetItem(row, 'temp6', lo_dict.GetString('temp6'))
-dw_1.SetItem(row, 'confirmemp', lo_dict.GetString('confirmemp'))
-dw_1.SetItem(row, 'confirmdate', lo_dict.GetDateTime('confirmdate'))
-dw_1.SetItem(row, 'status', lo_dict.GetString('status'))
-dw_1.SetItem(row, 'taskcode', lo_dict.GetString('taskcode'))
-dw_1.SetItem(row, 'outwarecode', lo_dict.GetString('outwarecode'))
-dw_1.SetItem(row, 'cuscode', lo_dict.GetString('cuscode'))
-dw_1.SetItem(row, 'cusname', lo_dict.GetString('cusname'))
-
-dw_1.SetItem(row, 'price_emp', publ_operator)
-dw_1.SetItem(row, 'replyrqdate', lo_dict.GetDateTime('requiredate'))
-dw_1.SetItem(row, 'replydscrp', '')
-
-string arg_msg = ''
-oleobject parms, lo_rslt, lo_item
-parms = AppCom.CreatePbDictionary()
-parms.SetString('token', app_token)
-parms.SetInt('taskid', lo_dict.GetInt('taskid'))
-lo_rslt = AppCom.GetTaskFJs(parms, ref arg_msg)
-if arg_msg <> '' then
-	MessageBox('ERROR', arg_msg)
-	return
-end if
-
-long ll_cnt, i
-ll_cnt = lo_rslt.Count
-dw_2.SetRedraw(false)
-for i = 1 to ll_cnt
-	lo_item = lo_rslt.GetItem(i - 1)
-	row = dw_2.InsertRow(0)
-	dw_2.SetItem(row, 'taskid', lo_item.GetInt('taskid'))
-	dw_2.SetItem(row, 'printid', lo_item.GetInt('printid'))
-	dw_2.SetItem(row, 'mxcode', lo_item.GetString('mxcode'))
-	dw_2.SetItem(row, 'price_ls', lo_item.GetDouble('price_ls'))
-	dw_2.SetItem(row, 'price_jm', lo_item.GetDouble('price_jm'))
-	dw_2.SetItem(row, 'mtrltype', lo_item.GetString('mtrltype'))
-	dw_2.SetItem(row, 'fjname', lo_item.GetString('fjname'))
-	dw_2.SetItem(row, 'fjdscrp', lo_item.GetString('fjdscrp'))
-next
-dw_2.SetRedraw(true)
-
-
-end event
-
-type cb_func from w_publ_base`cb_func within w_cd_saletask_bj
-boolean visible = false
-integer x = 23
-integer y = 892
-end type
-
-type cb_exit from w_publ_base`cb_exit within w_cd_saletask_bj
-integer x = 2437
-integer y = 1660
-end type
-
-type dw_1 from datawindow within w_cd_saletask_bj
-integer width = 2770
-integer height = 1640
-integer taborder = 10
-boolean bringtotop = true
-string title = "none"
-string dataobject = "dw_cd_saletask_bj"
-boolean livescroll = true
-borderstyle borderstyle = stylelowered!
-end type
-
-type cb_1 from uo_imflatbutton within w_cd_saletask_bj
-integer x = 2048
-integer y = 1660
-integer width = 370
-integer taborder = 20
-boolean bringtotop = true
-string text = "报价"
-string normalpicname = "ok.bmp"
-end type
-
-event clicked;call super::clicked;dw_1.AcceptText()
-dw_2.AcceptText()
-
-Long i
-FOR i = 1 To dw_2.RowCount()
-	IF dw_2.Object.price_jm[i] <= 0 THEN
-		MessageBox('提示', '明细报价必须为正数')
-		dw_2.SetRow(i)
-		dw_2.SetFocus()
-		RETURN
-	END IF
-NEXT
-
-oleobject parms
-
-parms = AppCom.CreatePbDictionary()
-parms.SetString('token', app_token)
-parms.SetInt('taskid', dw_1.Object.taskid[1])
-parms.SetString('price_emp', publ_operator)
-parms.SetDateTime('replyrqdate', dw_1.Object.replyrqdate[1])
-parms.SetString('replydscrp', dw_1.Object.replydscrp[1])
-
-oleobject fj, fjs
-fjs = AppCom.CreArrOfPbDictionary()
-for i = 1 to dw_2.RowCount()
-	fj = AppCom.CreatePbDictionary()
-	fj.SetInt('printid', dw_2.Object.printid[i])
-	fj.SetDouble('price_jm', dw_2.Object.price_jm[i])
-	fjs.Add(fj)
-next
-parms.SetObject('fjs', fjs)
-string arg_msg = ''
-AppCom.TaskBJ(parms, ref arg_msg)
-if arg_msg <> '' then
-	MessageBox('ERROR', arg_msg)
-	return
-end if
-MessageBox('OK', '订单报价成功')
-close(parent)
-end event
-
-type dw_2 from datawindow within w_cd_saletask_bj
-integer x = 23
-integer y = 672
-integer width = 2670
-integer height = 308
-integer taborder = 20
-boolean bringtotop = true
-string title = "none"
-string dataobject = "dw_cd_saletask_bj_fj"
-boolean hscrollbar = true
-boolean vscrollbar = true
-boolean livescroll = true
-borderstyle borderstyle = stylelowered!
-end type
-
-type cb_2 from uo_imflatbutton within w_cd_saletask_bj
-integer x = 219
-integer y = 1660
-integer width = 370
-integer taborder = 30
-boolean bringtotop = true
-string text = "退回"
-string normalpicname = "UNDO.bmp"
-end type
-
-event clicked;call super::clicked;dw_1.AcceptText()
-dw_2.AcceptText()
-
-oleobject parms
-
-parms = AppCom.CreatePbDictionary()
-parms.SetString('token', app_token)
-parms.SetInt('taskid', dw_1.Object.taskid[1])
-parms.SetString('price_emp', publ_operator)
-parms.SetString('replydscrp', dw_1.Object.replydscrp[1])
-
-string arg_msg = ''
-AppCom.TaskTH(parms, ref arg_msg)
-if arg_msg <> '' then
-	MessageBox('ERROR', arg_msg)
-	return
-end if
-MessageBox('OK', '订单退回成功')
-close(parent)
-end event
-