searchordermaster.asp

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

<%
'/*仛仛仛仛仛仛拲堄仛仛仛仛仛仛
'/*偙偺僋儔僗偼斕懀昳拲暥乛棜楌堦棗夋柺(master/SearchHistoryMain.asp)傪
'/*僐僺乕偟偨傕偺偱偡丅拪弌忦審偑堎側傞丅
'/*亂廋惓揰亃
'/* 嘆SearchOrderBase儊僜僢僪
'/*  丒専嶕儊僜僢僪柤傪曄峏丗SearchOrderBase仺SearchOrderBaseMn
'/*  丒専嶕僉乕傛傝夛幮僐乕僪傪嶍彍(僔僗僥儉俬俢偺傒偲偡傞)
'/* 嘇GetOrderByStr
'/*  僜乕僩僉乕係傪攝憲愭俬俢仺惪媮愭俬俢偵曄峏丅
'/*仛仛仛仛仛仛仛仛仛仛仛仛仛仛
Class SearchOrderMaster

	'/*******************************************************
	'/* 斕懀昳拲暥偺棜楌堦棗偵昞帵偡傞儗僐乕僪傪拪弌偡傞
	'/* param丗l_dbaccess(DBAccess) 	DB傾僋僙僗
	'/*		   l_inMdl(SearchOrderMdl)
	'/*		   l_indata(Session(ProSearchOrder))
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function SearchOrderBaseMn(l_dbaccess,l_inMdl,l_indata)
		Dim l_strsql
		Dim l_StrYMD
		Dim l_EndYMD

		'SELECT
		l_strsql = "SELECT DISTINCT PRO.RECEPT_NO,TO_CHAR(PRO.RECEPT_YMD,'YYYY/MM/DD HH24:MI') AS RECEPT_YMD," & _
				   "(SELECT TRUNC(SUM(SUB_TOTAL) * " & TAX & " + " & SEND_COST & ") " &_
				   "   FROM PROMOTIONORDER_M " &_
				   "  WHERE SYSTEM_ID = PRO.SYSTEM_ID " &_
				   "    AND COMPANY_ID = PRO.COMPANY_ID " &_
				   "    AND DEL_FLG = PRO.DEL_FLG " &_
				   "    AND RECEPT_NO = PRO.RECEPT_NO) AS SUB_TOTAL," & _
				   "PRO.CLAIM_ID,PRO.CLAIM_RECEIVE_NAME,PRO.CLAIM_BUILDING," &_
				   "PRO.CLAIM_COMPANY_NAME,PRO.CLAIM_SECTION_NAME," &_
				   "PRO.TOTAL_SITUATION " 
		'FROM
		l_strsql = l_strsql & "  FROM PROMOTIONORDER_M PRO "

		'WHERE
		l_strsql = l_strsql & " WHERE PRO.SYSTEM_ID = '" & l_inMdl.l_SystemId & "'" & _
				"   AND PRO.DEL_FLG = '0'"

		If IsObject(l_indata) Then
			If l_indata.Item("recept_no") <> "" Then
				l_strsql = l_strsql & " AND PRO.RECEPT_NO = '" & l_indata.Item("recept_no") & "'"
			End If

			If l_indata.Item("total_situation") <> "" Then
				l_strsql = l_strsql & " AND PRO.TOTAL_SITUATION = '" & l_indata.Item("total_situation") & "'"
			End If

			If l_indata.Item("recept_start_year") <> "" And _
			   l_indata.Item("recept_start_mon") <> "" And _
			   l_indata.Item("recept_start_day") <> "" Then
				l_StrYMD = l_indata.Item("recept_start_year") &_
						   l_indata.Item("recept_start_mon") &_
						   l_indata.Item("recept_start_day")
				l_strsql = l_strsql & " AND TO_CHAR(RECEPT_YMD,'YYYYMMDD') >= '" & l_StrYMD & "'"
			End If

			If l_indata.Item("recept_end_year") <> "" And _
			   l_indata.Item("recept_end_mon") <> "" And _
			   l_indata.Item("recept_end_day") <> "" Then
				l_EndYMD = l_indata.Item("recept_end_year") &_
						   l_indata.Item("recept_end_mon") &_
						   l_indata.Item("recept_end_day")
				l_strsql = l_strsql & " AND TO_CHAR(RECEPT_YMD,'YYYYMMDD') <= '" & l_EndYMD & "'"
			End If

			l_strsql = l_strsql & " ORDER BY " & GetOrderByStr(l_indata.Item("sortkey"),l_indata.Item("sortdesc"))
		Else
			l_strsql = l_strsql & " ORDER BY PRO.RECEPT_NO DESC"
		End If
'Response.Write l_strsql
		Set SearchOrderBaseMn = l_dbaccess.ProcRecordset(l_strsql,20,0)

	End Function

	'/*******************************************************
	'/* 斕懀昳拲暥堦棗偺僜乕僩曽朄傪拪弌偡傞
	'/* param丗l_sortkey 	僜乕僩僉乕
	'/*		   l_sortdesc	崀弴僜乕僩庬椶
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	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 = "PRO.RECEPT_NO DESC"
		ElseIf l_sortkey = SORT_KEY2 Then			'庴晅斣崋弴
			l_retStr = "PRO.RECEPT_NO" & l_seq
		ElseIf l_sortkey = SORT_KEY3 Then			'庴晅擔帪
			l_retStr = "RECEPT_YMD" & l_seq
		ElseIf l_sortkey = SORT_KEY4 Then			'惪媮愭
			l_retStr = "PRO.CLAIM_ID" & l_seq
		ElseIf l_sortkey = SORT_KEY5 Then			'嬥妟
			l_retStr = "SUB_TOTAL" & l_seq
		ElseIf l_sortkey = SORT_KEY6 Then			'忬嫷
			l_retStr = "PRO.TOTAL_SITUATION" & l_seq
		End If

		GetOrderByStr = l_retStr
	End Function

End Class
%>