warelistmaster.asp

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

<%
'/
Class WareListMaster
	'/*******************************************************
	'/* 擖屔堦棗夋柺偵昞帵偡傞儗僐乕僪傪拪弌偡傞
	'/* param丗l_dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        l_sysid(String) 僔僗僥儉ID
	'/*        l_coid(String) 夛幮ID
	'/*        l_secId(String) 晹栧ID
	'/*        l_menuAuth(String) 儊僯儏乕尃尷乮挔昜娗棟尃尷)
	'/*		   l_indata(Scripting.Dictionary) 夋柺擖椡抣
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function SearchListBase(l_dbaccess, l_sysid, l_coid, l_indata)
		Dim l_strsql	'String
		
		'SQL暥嶌惉
		'SELECT
		l_strsql = "SELECT ROWNUM,LB.COMPANY_ID," &_
			"LB.LIST_MANAGE_NO," &_
			"LB.LIST_CD," &_
			"LB.LIST_EDA," &_
			"LB.LIST_NAME," &_
			"LB.DEL_FLG," &_
			"ODR.ORDER_STATUS AS ORDER_STATUS," & _
			"ODR.ORDER_AMOUNT AS ORDER_AMOUNT," & _
			"ODR.ORDER_MANAGE_NO AS ORDER_MANAGE_NO," &_
			"AT.CONTRACTOR_STATUS AS CONTRACTOR_STATUS"

		'FROM LISTBASE_T
		l_strsql = l_strsql & " FROM LISTBASE_T LB, ORDER_T ODR, AUCTION_T AT, DELIVERYINFO_T DI"

		'WHERE 
		l_strsql  = l_strsql & " WHERE LB.SYSTEM_ID = ODR.SYSTEM_ID" & _
					" AND LB.COMPANY_ID = ODR.COMPANY_ID" & _
					" AND LB.LIST_CD = ODR.LIST_CD" & _
					" AND LB.LIST_EDA = ODR.LIST_EDA"

		'AND 
		l_strsql  = l_strsql & " AND AT.SYSTEM_ID = LB.SYSTEM_ID" & _
					" AND AT.ORDER_ID = ODR.ORDER_ID" &_
					" AND AT.COMPANY_ID ='" & l_coid & "'"

		'AND 僗僥乕僞僗
		'l_strsql = l_strsql & " AND LB.LIST_STATUS='" & LSTS_APPROVE & "'" &_
							'" AND ODR.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 & "')"

		'夋柺擖椡偟偨撪梕傪愝掕
		If IsObject(l_indata) Then
			'AND 儊僯儏乕挔昜斣崋
			If l_indata.Item("menulistcd") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_CD=" & "'" & l_indata.Item("menulistcd") & "'"
			End If
			'AND 挔昜斣崋
			If l_indata.Item("listcd") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_CD=" & "'" & l_indata.Item("listcd") & "'"
			End If
			'AND 挔昜斣崋巬斣
			If l_indata.Item("listeda") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_EDA=" & "'" & l_indata.Item("listeda") & "'"
			End If
			'AND 挔昜柤
			If l_indata.Item("listname") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_NAME LIKE('" & l_indata.Item("listname") & "%')"
			End If
			'AND 僗僥乕僞僗
			If l_indata.Item("pdstatus") <> "" Then
				l_strsql = l_strsql & " AND =" & "'" & l_indata.Item("pdstatus") & "'"
			End If
			'AND 擖屔梊掕擔(FROM)乣(TO)
			Dim l_fromymd
			Dim l_toymd
			l_fromymd = Trim(l_indata.Item("pdaucfromyear") & l_indata.Item("pdaucfrommonth") & l_indata.Item("pdaucfromday"))
			l_toymd = Trim(l_indata.Item("pdauctoyear") & l_indata.Item("pdauctomonth") & l_indata.Item("pdauctoday"))

			If l_fromymd <> "" and l_toymd <> "" Then	'REG_YMD BETWEEN l_fromymd AND l_toymd
				l_strsql = l_strsql & " AND TO_CHAR(ODR.AUCTION_END, 'yyyymmdd') BETWEEN '" & l_fromymd & _
					 "' AND '" & l_toymd  & "'"
			ElseIf l_fromymd <> "" Then				'REG_YMD = fromymd
				l_strsql = l_strsql & " AND TO_CHAR(ODR.AUCTION_END, 'yyyymmdd') >= '" & l_fromymd & "'"
			ElseIf l_toymd <> "" Then					'REG_YMD = toymd
				l_strsql = l_strsql & " AND TO_CHAR(ODR.AUCTION_END, 'yyyymmdd') <= '" & l_toymd & "'"
			End If

		End If

		'ORDER BY
		If IsObject(l_indata) Then
			'ORDER BY
			l_strsql = l_strsql & " ORDER BY " & GetOrderByStr(l_indata.Item("sortkey"),l_indata.Item("sortdesc"))
		Else
			'ORDER BY (擖椡抣偑側偄応崌偼僨僼僅儖僩偺僜乕僩弴愝掕)
			l_strsql = l_strsql & " ORDER BY ODR.ORDER_ID DESC, LB.LIST_CD DESC
		End If
'Response.Write l_strsql
		'DB傛傝堦棗傪庢摼偟偰曉偡(1儁乕僕亖10峴傪愝掕)
		Set SearchListBase = l_dbaccess.ProcRecordset(l_strsql,10,1)

	End Function

	'/*******************************************************
	'/* 僜乕僩暥庢摼
	'/* param丗l_sortkey(String) 僜乕僩僉乕
	'/* return String 僜乕僩暥
	'/*******************************************************
	Private Function GetOrderByStr(l_sortkey, l_sortdesc)
		Dim l_retStr	'String
		Dim l_seq		'String

		'僜乕僩弴愝掕
		If l_sortdesc = FLG_ON Then
			l_seq = " DESC"
		End If

		'僜乕僩暥嶌惉
		If l_sortkey = SORT_KEY1 Then				'僨僼僅儖僩(嶌惉擔(崀弴)亄挔昜斣崋(崀弴))
			l_retStr = "DI.DELIVERY_YMD DESC, ODR.ORDER_AMOUNT DESC"
		ElseIf l_sortkey = SORT_KEY2 Then			'挔昜斣崋弴
			l_retStr = "LB.LIST_CD" & l_seq
		ElseIf  l_sortkey = SORT_KEY3 Then			'挔昜柤弴
			l_retStr = "LB.LIST_NAME" & l_seq
		ElseIf  l_sortkey = SORT_KEY4 Then			'擺昳擔弴
			l_retStr = "DI.DELIVERY_YMD" & l_seq
		End If

		GetOrderByStr = l_retStr
	End Function

End Class
%>