reservelistmaster.asp

印刷物の発注、在庫管理、出庫処理を一元管理

<%
Class ReserveListMaster
	'/**********************************************
	'/* 堷摉懳徾挔昜偺専嶕
	'/*
	'/**********************************************
	Public Function ReserveSerchList(l_db,l_sysid,l_coid,l_kind,l_listmanage_no,l_listcd,l_listeda,l_leav)

		Dim l_name
		Dim l_listSql

		'弶婜堦惸攝晍SQL
		'If l_kind = CLM_METHOD_ISSEI Then
			l_listSql = "SELECT DISTINCT LT.LIST_MANAGE_NO," &_
						"LT.LIST_CD,LT.LIST_EDA," &_
						"LT.LIST_NAME,LT.SET_COUNT," &_
						"LT.ARRIVAL_WAIT," &_
						"NVL(LT.UNIT_PRICE,0) AS UNIT_PRICE," &_
						"LT.LEAV_DIRECTION," &_
						"LT.LEAV_DIRECTION_COUNT," &_
						"LT.OPEN_AUTH_LEAV," &_
						"LT.CLAIM_PERIOD_START," &_
						"LT.CLAIM_PERIOD_END," &_
						"LT.CLAIM_PERIOD_FLAG " &_
						"FROM LISTBASE_T LT,STOCK_T ST "&_
						"WHERE LT.SYSTEM_ID = '" & l_sysId & "' " &_
						"  AND LT.COMPANY_ID = (SELECT COMPANY_ID " &_
						"                         FROM COMPANY_M " &_
						"                        WHERE SYSTEM_ID = '" & l_sysId & "' " &_
						"                          AND COMPANY_KIND = '0') " &_
						"  AND LT.LIST_CD = '" & l_listcd & "' " &_
					    "  AND LT.LIST_EDA = '" & l_listeda & "' " &_
						"  AND LT.DEL_FLG <> '1' " 
			'l_listSql = l_listSql & "  AND LT.OPEN_PERIOD_START <= '" & Date & "'" &_
			'			"  AND LT.OPEN_PERIOD_END >= '" & Date & "'" 
			l_listSql = l_listSql & "  AND LT.LIST_STATUS IN('" & LSTS_APPROVE & "') "
			'Select Case l_leav
			'	Case "0"
			'		l_listsql = l_listsql & "  AND LT.OPEN_AUTH_LEAV IN ('1','2','3')"
			'	Case "1"
			'		l_listsql = l_listsql & "  AND LT.OPEN_AUTH_LEAV IN ('1','2')"
			'	Case "2"
			'		l_listsql = l_listsql & "  AND LT.OPEN_AUTH_LEAV IN ('1')"
			'End Select
				l_listsql = l_listsql & "  AND LT.SYSTEM_ID = ST.SYSTEM_ID(+) " &_
						"  AND LT.COMPANY_ID = ST.COMPANY_ID(+) " &_
						"  AND LT.LIST_CD = ST.LIST_CD(+) " &_
						"  AND LT.LIST_EDA = ST.LIST_EDA(+) "
						
		'End If
'Response.Write l_listSql & "<br>"
		Set ReserveSerchList = l_db.ProcRecordset(l_listSql,10,0)
	End Function

	'/*******************************
	'/* 嵼屔悢偺庢摼
	'/*
	'/*
	'/*
	'/*******************************
	Public Function GetWearStock(l_db,l_sysId,l_coId,l_listcd,l_listeda,l_quantity,l_num,l_reserve_num,l_deli_place)
		Dim l_strSql
'/嶍彍
'		l_strSql = "SELECT " &_
'				   "A.SYSTEM_ID," &_
'				   "A." & l_deli_place & " AS DELIVERY_PLACE," &_
'				   "NVL(A." & l_reserve_num & ",0) + " & l_quantity & " AS RESERVE_COUNT," &_
'				   "NVL(A." & l_num & ",0) AS NUM_COUNT," &_
'				   "NVL(A.STOCK_NUM,0) AS STOCK_NUM," &_
'				   "B.COMPANY_ID," &_
'				   "B.COMPANY_NAME " &_
'				   "FROM STOCK_T A,COMPANY_M B " &_
'				   "WHERE A.SYSTEM_ID = '" & l_sysId & "' " &_
'				   "AND A.SYSTEM_ID = B.SYSTEM_ID " &_
'				   "AND A.COMPANY_ID = '" & l_coId & "' " &_
'				   "AND A.LIST_CD = '" & l_listcd & "' " 
'				If l_listeda <> "" Then
'					l_strSql = l_strSql & "AND A.LIST_EDA = '" & l_listeda & "' "
'				End If
'				l_strSql = l_strSql & "AND A." & l_num & " - NVL(A. " & l_reserve_num & ",0) >= " & l_quantity  & " " &_
'						   "AND A.SYSTEM_ID = B.SYSTEM_ID " &_
'						   "AND A." & l_deli_place & " = B.COMPANY_ID " &_
'						   "AND B.STATUS = '1' " &_
'						   "FOR UPDATE OF A." & l_num 

		l_strsql = "SELECT S_T." & l_num & "," &_
				   "       NVL(S_T." & l_reserve_num & ",0) + " & l_quantity & " AS RESERVE_COUNT," &_
				   "       S_T." & l_deli_place & " AS DELIVERY_PLACE," &_
				   "       C_M.COMPANY_ID," &_
				   "       C_M.COMPANY_NAME," &_
				   "       W_T.QUANTITY AS RESERVE_QUANTITY," &_
				   "       D_T.QUANTITY2 AS RESERVE_QUANTITY2 " &_
				   "  FROM STOCK_T S_T,COMPANY_M C_M," 

		'攦偄暔偐偛僥乕僽儖偺悢検
		l_strsql = l_strsql & "(SELECT NVL(SUM(QUANTITY),0) AS QUANTITY " &_
				   			  "   FROM WORK_DATACLAIMORDER_T " &_
				   			  "  WHERE LIST_CD = '" & l_listcd & "' " 
		If l_listeda <> "" Then
			l_strsql = l_strsql & "    AND LIST_EDA = '" & l_listeda & "'"
		End If

		l_strsql = l_strsql & " AND WAREHOUSE_ID = (" 

		'
		l_strsql = l_strsql & "SELECT " & l_deli_place & " " &_
							  "  FROM STOCK_T " &_
							  " WHERE SYSTEM_ID = '" & l_sysId & "' " &_
							  "    AND LIST_CD = '" & l_listcd & "' " 
		If l_listeda <> "" Then
			l_strsql = l_strsql &  "    AND LIST_EDA = '" & l_listeda & "')"
		End If
		l_strsql = l_strsql & ") W_T," 

		'帒椏惪媮敪拲儅僗僞偺悢検
		l_strsql = l_strsql & "(SELECT NVL(SUM(QUANTITY),0) AS QUANTITY2 " &_
				   "   FROM DATACLAIMORDER_M " &_
				   "  WHERE LIST_CD = '" & l_listcd & "' " 
		If l_listeda <> "" Then
			l_strsql = l_strsql &  "    AND LIST_EDA = '" & l_listeda & "' "
		End If
		l_strsql = l_strsql & "    AND CLAIM_SITUATION IN" &_
				   "    ('" & CLM_SITUATION_UNSHIPPING & "'," &_
				   "     '" & CLM_SITUATION_WAIT & "'," &_
				   "     '" & CLM_SITUATION_WORKING & "') " &_
				   "               AND WAREHOUSE_ID =" &_
				   "           (SELECT " & l_deli_place & " " &_
				   "              FROM STOCK_T " &_
				   "             WHERE SYSTEM_ID = '" & l_sysId & "' " &_
				   "               AND LIST_CD = '" & l_listcd & "' " 
		If l_listeda <> "" Then
			l_strsql = l_strsql &  "    AND LIST_EDA = '" & l_listeda & "' "
		End If
		l_strsql = l_strsql & ") " &_
				   "     AND DEL_FLG = '" & FLG_OFF & "') D_T " &_
				   " WHERE S_T.SYSTEM_ID = '" & l_sysId & "' " &_
				   "  AND S_T.SYSTEM_ID = C_M.SYSTEM_ID " &_
				   "  AND S_T." & l_deli_place & " = C_M.COMPANY_ID " &_
				   "  AND S_T.LIST_CD = '" & l_listcd & "' " 
		If l_listeda <> "" Then
			l_strsql = l_strsql & "  AND S_T.LIST_EDA = '" & l_listeda & "' "
		End If
		l_strsql = l_strsql & "  AND S_T." & l_num & " - W_T.QUANTITY - D_T.QUANTITY2 >=" & l_quantity &_
					" AND S_T.DEL_FLG = '" & FLG_OFF & "' " &_
					" AND S_T.DEL_FLG = C_M.DEL_FLG "


'response.write l_strSql & "<br>"
		Set GetWearStock = l_db.ProcRecordset(l_strSql,10,0)
	End Function

	'/* 庴晅斣崋庢摼
	Public Function GetOrderNo(l_db,l_sysId)
		Dim l_recepNoSql
		Dim l_orderno
		Dim l_rset

		'-----2006/1/6 捛壛-----
		l_recepNoSql = "select TRIM(MAX(SUBSTR(RECEPT_NO,0,2))) AS MAX_NO,"&_
					   "       TRIM(TO_CHAR(SYSDATE,'YY')) AS YY " &_
					   "  FROM DATACLAIMORDER_M " &_
					   " WHERE SYSTEM_ID  = '" & l_sysId & "' " &_
					   "FOR UPDATE OF DATACLAIMORDER_M "

		Set l_rset = l_db.ProcRecordset(l_recepNoSql,10,0)
		
		If l_rset.Fields.Item("MAX_NO") = l_rset.Fields.Item("YY") Then
			l_recepNoSql = "SELECT TRIM(TO_CHAR(NVL(MAX(SUBSTR(RECEPT_NO,0,8)),0)+1,'00000000')) AS RECEPT_NO " &_
						   "FROM DATACLAIMORDER_M " &_
						   "WHERE SYSTEM_ID  = '" & l_sysId & "' " &_
						   "FOR UPDATE OF DATACLAIMORDER_M "
			Set l_rset = l_db.ProcRecordset(l_recepNoSql,10,0)
			GetOrderNo = l_rset.Fields.Item("RECEPT_NO")
		Else
			GetOrderNo = l_rset.Fields.Item("YY") & "000001"
		End If
		'----------------------


		'l_recepNoSql = "SELECT TRIM(TO_CHAR(SYSDATE,'YY'))||" &_
		'		     "TRIM(TO_CHAR(NVL(MAX(SUBSTR(RECEPT_NO,3,6)),0)+1,'000000')) AS RECEPT_NO " &_
		'			   "FROM DATACLAIMORDER_M " &_
		'			   "WHERE SYSTEM_ID  = '" & l_sysId & "' " &_
		'			   "FOR UPDATE OF DATACLAIMORDER_M "

		'Set l_rset = l_db.ProcRecordset(l_recepNoSql,10,0)
		'If IsNull(l_rset.Fields.Item("RECEPT_NO")) Then
		'	l_orderno = "000001"
		'Else
		'	l_orderno = CStr(l_rset.Fields.Item("RECEPT_NO"))
		'	Do Until Len(l_orderno) = 6
		'		l_orderno = "0" & l_orderno
		'	Loop
		'End If

		'GetOrderNo = l_rset.Fields.Item("RECEPT_NO")
	End Function

	'/***************************************************************
	'/* 帒椏惪媮敪拲儅僗僞Insert
	'/* param丗l_db				DB愙懕忣曬
	'/*        l_sysId			僔僗僥儉ID
	'/*        l_coId			夛幮ID
	'/*        l_detail_dic		惪媮忣曬(Dictionary)
	'/*        l_address_dic	惪媮応強忣曬(Dictionary)
	'/*        l_orderno		庴晅斣崋
	'/*        l_count			僀儞僨僢僋僗
	'/*        l_cancelday		庢徚壜擻擔
	'/*        l_bundletime		掲傔帪娫
	'/* return丗
	'/***************************************************************
	Public Function InsertDataClime(l_db,l_sysId,l_coId,l_detail_dic,l_address_dic,l_orderno,l_count,l_cancelday,l_bundletime)
		Dim l_SQL
		Dim l_resultarray(3)

		l_resultarray(2) = true
		
		l_SQL = "INSERT INTO DATACLAIMORDER_M (" &_
				"SYSTEM_ID," &_
				"COMPANY_ID," &_
				"SECTION_ID," &_
				"USER_ID," &_
				"RECEPT_NO," &_
				"SEQ_NO," &_
				"LIST_CD," &_
				"LIST_EDA," &_
				"RECEPT_YMD," &_
				"WAREHOUSE_ID," &_
				"SEND_YMD," &_
				"DECISION_DATE," &_
				"CANCEL_POSSIBLE_YMD," &_
				"UNIT_PRICE," &_
				"QUANTITY," &_
				"MAILING_COST," &_
				"SUB_TOTAL," &_