directordermainmaster.asp

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

<%
Class WhReserveListMaster

	'/**********************************************
	'/* 娙堈拲暥夋柺偱巜掕偟偨儗僐乕僪偺拪弌(侾儗僐乕僪)
	'/* 仸帒椏惪媮偺僜乕僗傪僐僺乕仌廋惓
	'/*   嶲峫ASP丗demand/master/ReserveListMaster.asp
	'/* param丗l_db DbAccess
	'/*        l_sysid 僔僗僥儉俬俢
	'/*        l_coid 夛幮俬俢
	'/*        l_listmanage_no 挔昜娗棟斣崋
	'/*        l_listcd 挔昜斣崋
	'/*        l_listeda 挔昜斣崋巬斣崋
	'/**********************************************
	Public Function ReserveSerchList(l_db,l_sysid,l_coid,l_listmanage_no,l_listcd,l_listeda)

		Dim l_name
		Dim l_listSql

		l_listSql = "SELECT 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.CLAIM_PERIOD_START," &_
					"LT.CLAIM_PERIOD_END," &_
					"LT.CLAIM_PERIOD_FLAG " &_
					"FROM LISTBASE_T LT,ORDER_T OD "&_
					"WHERE LT.SYSTEM_ID = '" & l_sysId & "' " &_
					"  AND LT.SYSTEM_ID = OD.SYSTEM_ID " &_
					"  AND LT.LIST_CD = '" & l_listcd & "' " &_
					"  AND LT.LIST_CD = OD.LIST_CD " &_
					"  AND LT.LIST_EDA = '" & l_listeda & "' " &_
					"  AND LT.DEL_FLG <> '1' " 

		l_listSql = l_listSql & " AND OD.ORDER_STATUS IN ('" & OSTS_APPROVE_FIN &_
						"','" & OSTS_ORDER &_
						"','" & OSTS_ORDER_CANCEL &_
						"','" & OSTS_DELIVERY_INST &_
						"','" & OSTS_DELIVERY &_
						"','" & OSTS_DELIVERY_CONF &_
						"','" & OSTS_PAYMENT_CONF &_
						"','" & OSTS_PAYMENT_FIN & "')"

		Set ReserveSerchList = l_db.ProcRecordset(l_listSql,10,1)
	End Function


End Class
%>