searchhistorymaster.asp

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

<%
Class SearchHistoryMaster

	Dim l_SQL

	'/******************************************************
	'/* 帒椏惪媮棜楌忣曬庢摼
	'/* param:
	'/*
	'/*
	'/* return:
	'/******************************************************
	Public Function SearchDemandBase(Param1,Param2,Param3)
		Dim l_StrYMD,l_EndYMD

		l_SQL = "SELECT DISTINCT D_M.RECEPT_NO,TO_CHAR(D_M.RECEPT_YMD,'YYYY/MM/DD HH24:MI') AS RECEPT_YMD," & _
				"D_M.DELIVERY_ID,D_M.RECEIVE_NAME,D_M.BUILDING,D_M.COMPANY_NAME,D_M.SECTION_NAME,D_M.CLAIM_METHOD," &_
				"D_M.TOTAL_SITUATION,D_M.BUILDING," &_
				"(SELECT NAME FROM CODE_M " &_
				"  WHERE SYSTEM_ID = D_M.SYSTEM_ID " &_
				"    AND CLASSIFIED_CODE = '" & CD_METHOD & "' " &_
				"    AND CODE = D_M.CLAIM_METHOD) AS CLAIM_METHOD_NAME," &_
				"(SELECT NAME FROM CODE_M " &_
				"  WHERE SYSTEM_ID = D_M.SYSTEM_ID " &_
				"    AND CLASSIFIED_CODE = '" & CD_SITUATION & "' " &_
				"    AND CODE = D_M.TOTAL_SITUATION) AS TOTAL_SITUATION_NAME," &_
				"(SELECT SUM(SUB_TOTAL) FROM DATACLAIMORDER_M " &_
				"                      WHERE SYSTEM_ID = D_M.SYSTEM_ID " &_
				"                        AND COMPANY_ID = D_M.COMPANY_ID " &_
				"                        AND RECEPT_NO = D_M.RECEPT_NO " &_
				"                        AND DELIVERY_ID = D_M.DELIVERY_ID " &_
				"                        AND DEL_FLG <> '1' ) AS SUB_TOTAL " &_
				"  FROM DATACLAIMORDER_M D_M " & _
				" WHERE SYSTEM_ID = '" & Param2.l_SystemId & "'" 

				'儘僌僀儞儐乕僓偑憅屔偺応崌
				If Request.Cookies("Comp")("CompKind") = "2" Then
					l_SQL = L_SQL & "   AND WAREHOUSE_ID = '" & Param2.l_CompanyId & "'" 
				End If
				l_SQL = L_SQL & "   AND DEL_FLG = '0'"

		If IsObject(Param3) Then
			If Param3.Item("recept_no") <> "" Then
				l_SQL = l_SQL & " AND RECEPT_NO = '" & Param3.Item("recept_no") & "'"
			End If
			If Param3.Item("claim_situation") <> "" Then
				l_SQL = l_SQL & " AND CLAIM_SITUATION = '" & Param3.Item("claim_situation") & "'"
			End If
			If Param3.Item("recept_start_year") <> "" And _
			   Param3.Item("recept_start_mon") <> "" And _
			   Param3.Item("recept_start_day") <> "" Then
				l_StrYMD = Param3.Item("recept_start_year") & _
						   Param3.Item("recept_start_mon") & _
						   Param3.Item("recept_start_day") & _
						   "000000"
				l_SQL = l_SQL & " AND RECEPT_YMD >= TO_DATE('" & l_StrYMD & "','YYYYMMDDHH24MISS')"
			End If

			If Param3.Item("recept_end_year") <> "" And _
			   Param3.Item("recept_end_mon") <> "" And _
			   Param3.Item("recept_end_day") <> "" Then
				l_EndYMD = Param3.Item("recept_end_year") & _
						   Param3.Item("recept_end_mon") & _
						   Param3.Item("recept_end_day") &_
						   "235959"
				l_SQL = l_SQL & " AND RECEPT_YMD <= TO_DATE('" & l_EndYMD & "','YYYYMMDDHH24MISS')"
			End If

			If Param3.Item("method1") <> "" Then
				l_SQL = l_SQL & " AND CLAIM_METHOD IN ('" & Param3.Item("method1") & "'"
				If Param3.Item("method2") <> "" Then
					l_SQL = l_SQL & ",'" & Param3.Item("method2") & "'"
				End If
				If Param3.Item("method3") <> "" Then
					l_SQL = l_SQL & ",'" & Param3.Item("method3") & "'"
				End If
				If Param3.Item("method4") <> "" Then
					l_SQL = l_SQL & ",'" & Param3.Item("method4") & "'"
				End If
				l_SQL = l_SQL & ")"
			Else
				If Param3.Item("method2") <> "" Then
					l_SQL = l_SQL & " AND CLAIM_METHOD IN ('" & Param3.Item("method2") & "'"
					If Param3.Item("method3") <> "" Then
						l_SQL = l_SQL & ",'" & Param3.Item("method3") & "'"
					End If
					If Param3.Item("method4") <> "" Then
						l_SQL = l_SQL & ",'" & Param3.Item("method4") & "'"
					End If
					l_SQL = l_SQL & ")"
				Else
					If Param3.Item("method3") <> "" Then
						l_SQL = l_SQL & " AND CLAIM_METHOD IN ('" & Param3.Item("method3") & "'"
						If Param3.Item("method4") <> "" Then
							l_SQL = l_SQL & ",'" & Param3.Item("method4") & "'"
						End If
						l_SQL = l_SQL & ")"
					Else
						If Param3.Item("method4") <> "" Then
							l_SQL = l_SQL & " AND CLAIM_METHOD IN ('" & Param3.Item("method4") & "')"
						End If
					End If
				End If
			End If

			l_SQL = l_SQL & " ORDER BY " & GetOrderByStr(Param3.Item("sortkey"),Param3.Item("sortdesc"))
		Else
			l_SQL = l_SQL & " AND CLAIM_METHOD IN ('000001','000002')"
			l_SQL = l_SQL & " ORDER BY RECEPT_NO,SEQ_NO"
		End If
'Response.Write l_SQL & "<br>"
		'僨僶僢僌暥
		debug_t("SQL丗" & l_SQL)
		Set SearchDemandBase = Param1.ProcRecordset(l_SQL,20,0)

	End Function

	Public Function GetOrderByStr(l_sortkey, l_sortdesc)
		Dim l_retStr
		Dim l_seq

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

		'僜乕僩暥嶌惉
		If l_sortkey = SORT_KEY1 Then		'僨僼僅儖僩(庴晅斣崋丒僔乕働儞僗斣崋(徃弴))
			l_retStr = "RECEPT_NO " & l_seq 
		ElseIf l_sortkey = SORT_KEY2 Then			'庴晅斣崋丒僔乕働儞僗斣崋
			l_retStr = "RECEPT_NO " & l_seq			
		ElseIf l_sortkey = SORT_KEY3 Then			'庴晅擔帪
			l_retStr = "RECEPT_YMD" & l_seq
		ElseIf  l_sortkey = SORT_KEY4 Then			'攝憲愭
			'l_retStr = "DELIVERY_ID,COMPANY_NAME,SECTION_NAME" & l_seq
			l_retStr = "DELIVERY_ID " & l_seq
		ElseIf  l_sortkey = SORT_KEY5 Then			'嬥妟
			l_retStr = "SUB_TOTAL" & l_seq
		ElseIf  l_sortkey = SORT_KEY6 Then			'惪媮曽朄
			l_retStr = "CLAIM_METHOD" & l_seq
		ElseIf  l_sortkey = SORT_KEY7 Then			'忬嫷
			l_retStr = "TOTAL_SITUATION" & l_seq
		End If

		GetOrderByStr = l_retStr
	End Function
End Class
%>