historydetailsmaster.asp

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

<%
Class HistoryDetailsMaster
	Dim l_SQL

	'庴晅擔帪丒惪媮幰庢摼
	Public Function SearchReceptInfo(Param1,Param2,Param3)
		Dim l_method

		l_method = GetClaimMethod(Param1,Param2,Param3)

		'捈愙拲暥偺応崌
		If l_method = CLM_METHOD_DIRECT Then
			l_SQL = "SELECT C_M.COMPANY_NAME,S_M.SECTION_NAME,S_M.PERSON AS NAME, " &_
					"       TRIM(TO_CHAR(D_M.RECEPT_YMD,'YYYY/MM/DD HH24:MI')) AS RECEPT_YMD " &_
					"  FROM DATACLAIMORDER_M D_M, COMPANY_M C_M,SECTION_M S_M " &_
					" WHERE D_M.SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
					"   AND D_M.SYSTEM_ID = C_M.SYSTEM_ID " &_
					"   AND D_M.SYSTEM_ID = S_M.SYSTEM_ID " &_
					"   AND D_M.COMPANY_ID = C_M.COMPANY_ID " &_
					"   AND D_M.COMPANY_ID = S_M.COMPANY_ID " &_
					"   AND D_M.RECEPT_NO = '" & Param3 & "'" & _
					"   AND D_M.DEL_FLG = '0' "

		Else
		l_SQL = "SELECT C_M.COMPANY_NAME,S_M.SECTION_NAME,U_M.NAME," & _
				"		TRIM(TO_CHAR(D_M.RECEPT_YMD,'YYYY/MM/DD HH24:MI')) AS RECEPT_YMD" & _
				"  FROM DATACLAIMORDER_M D_M," & _
				"		COMPANY_M C_M,SECTION_M S_M,USER_M U_M" & _
				" WHERE D_M.SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				"   AND D_M.SYSTEM_ID = C_M.SYSTEM_ID" & _
				"   AND D_M.SYSTEM_ID = S_M.SYSTEM_ID" & _
				"   AND D_M.SYSTEM_ID = U_M.SYSTEM_ID" & _
				"   AND D_M.COMPANY_ID = C_M.COMPANY_ID" & _
				"   AND D_M.COMPANY_ID = S_M.COMPANY_ID" & _
				"   AND D_M.COMPANY_ID = U_M.COMPANY_ID" & _
				"   AND D_M.SECTION_ID = S_M.SECTION_ID" & _
				"   AND D_M.SECTION_ID = U_M.SECTION_ID" & _
				"   AND D_M.USER_ID = U_M.USER_ID" & _
				"   AND D_M.RECEPT_NO = '" & Param3 & "'" & _
				"   AND D_M.DEL_FLG = '0'"
		End If
		'Response.Write l_SQL & "<br>"

		Set SearchReceptInfo = Param1.ProcRecordset(l_SQL,1,0)
	End Function

	'/***************************************************************
	'/* 憅屔柤丒敪憲梊掕擔丒庢徚偟壜擻擔丒忬嫷
	'/* param丗Param1 DbAccess
	'/*        Param2 HistoryDetailsMdl1僋儔僗
	'/*        Param3 庴晅斣崋
	'/*        Param4 攝憲愭僐乕僪
	'/*        Param5 憅屔夛幮ID
	'/* return丗専嶕寢壥
	'/***************************************************************
	Public Function SearchWarehouseInfo(Param1,Param2,Param3,Param4,Param5)

		l_SQL = "SELECT D_M.WAREHOUSE_ID,C_M.COMPANY_NAME," & _
				"       TO_CHAR(C_M.BUNDLE_TIME,'HH24:MI') AS BUNDLE_TIME," & _
				"       TO_CHAR(D_M.SEND_YMD,'YYYY/MM/DD') AS SEND_YMD," & _
				"       D_M.CANCEL_POSSIBLE_YMD,D_M.CLAIM_SITUATION," & _
				"       TO_CHAR(D_M.CANCEL_POSSIBLE_YMD,'YYYY/MM/DD HH24:MI') AS DSP_CANCEL_POSSIBLE_YMD," &_
				"		TO_CHAR(SYSDATE,'YYYY/MM/DD HH24:MI') AS SYSTEM_YMD" & _
				"  FROM DATACLAIMORDER_M D_M,COMPANY_M C_M" & _
				" WHERE D_M.SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				"   AND D_M.SYSTEM_ID = C_M.SYSTEM_ID" & _
				"   AND D_M.RECEPT_NO = '" & Param3 & "'" 
		'憅屔夛幮ID偑偁傞応崌
		If Param5 <> "" Then
			l_SQL = l_SQL & " AND D_M.WAREHOUSE_ID = '" & Param5 & "' "
		End If
		l_SQL = l_SQL & "   AND D_M.WAREHOUSE_ID = C_M.COMPANY_ID" & _
						"   AND D_M.DELIVERY_ID = '" & Param4 & "' " &_
						"   AND D_M.DEL_FLG = '0'" & _
						"   AND D_M.DEL_FLG = C_M.DEL_FLG" & _
						" GROUP BY D_M.WAREHOUSE_ID,C_M.COMPANY_NAME," & _
						"       TO_CHAR(C_M.BUNDLE_TIME,'HH24:MI')," & _
						"       TO_CHAR(D_M.SEND_YMD,'YYYY/MM/DD')," & _
						"       D_M.CANCEL_POSSIBLE_YMD,D_M.CLAIM_SITUATION," & _
						"		TO_CHAR(SYSDATE,'YYYY/MM/DD HH24:MI')" & _
						" ORDER BY D_M.WAREHOUSE_ID,SEND_YMD"

'		Response.Write l_SQL & "<br>"

		Set SearchWarehouseInfo = Param1.ProcRecordset(l_SQL,1,0)
	End Function

	'惪媮幰忣曬庢摼
	Public Function SearchClaimInfo(Param1,Param2,Param3)
		Dim l_SQL
		Dim l_method

		l_method = GetClaimMethod(Param1,Param2,Param3)
		

		' 捈愙拲暥偺応崌
		'If l_method = CLM_METHOD_DIRECT Then
			l_SQL = "SELECT D_M.DELIVERY_KIND,S_M.POSTCODE,S_M.PREFECTURE,S_M.TOWN," & _
					"       S_M.HOUSE_NUMBER,S_M.BUILDING,C_M.COMPANY_NAME,S_M.SECTION_NAME," & _
					"       S_M.PERSON AS NAME,S_M.TEL,S_M.FAX,S_M.MAIL" & _
					"  FROM DATACLAIMORDER_M D_M,COMPANY_M C_M,SECTION_M S_M " &_
					" WHERE D_M.SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
					"   AND D_M.SYSTEM_ID = C_M.SYSTEM_ID " &_
					"   AND D_M.SYSTEM_ID = S_M.SYSTEM_ID " &_
					"   AND D_M.COMPANY_ID = S_M.COMPANY_ID " &_
					"   AND D_M.COMPANY_ID = C_M.COMPANY_ID " &_
					"   AND D_M.RECEPT_NO = '" & Param3 & "'" & _
					"   AND D_M.DEL_FLG = '0' " &_
					"   AND D_M.DEL_FLG = C_M.DEL_FLG " &_
					"   AND D_M.DEL_FLG = S_M.DEL_FLG " &_
					" GROUP BY D_M.DELIVERY_KIND," &_
					"          S_M.POSTCODE,S_M.PREFECTURE," &_
					"          S_M.TOWN, " &_
					"          S_M.HOUSE_NUMBER," &_
					"          S_M.BUILDING," &_
					"          C_M.COMPANY_NAME," &_
					"          S_M.SECTION_NAME, " &_
					"          S_M.PERSON," &_
					"          S_M.TEL," &_
					"          S_M.FAX," &_
					"          S_M.MAIL "

		'Else
			l_SQL = "SELECT D_M.DELIVERY_KIND,S_M.POSTCODE,S_M.PREFECTURE,S_M.TOWN," & _
					"       S_M.HOUSE_NUMBER,S_M.BUILDING,C_M.COMPANY_NAME,S_M.SECTION_NAME," & _
					"       U_M.NAME,S_M.TEL,S_M.FAX,U_M.MAIL" & _
					"  FROM DATACLAIMORDER_M D_M,COMPANY_M C_M,SECTION_M S_M,USER_M U_M" & _
					" WHERE D_M.SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
					"   AND D_M.SYSTEM_ID = C_M.SYSTEM_ID" & _
					"   AND D_M.SYSTEM_ID = S_M.SYSTEM_ID" & _
					"   AND D_M.SYSTEM_ID = U_M.SYSTEM_ID" & _
					"   AND D_M.COMPANY_ID = S_M.COMPANY_ID" & _
					"   AND D_M.COMPANY_ID = C_M.COMPANY_ID" & _
					"   AND D_M.COMPANY_ID = U_M.COMPANY_ID" & _
					"   AND D_M.SECTION_ID = S_M.SECTION_ID" & _
					"   AND D_M.SECTION_ID = U_M.SECTION_ID" & _
					"   AND D_M.USER_ID = U_M.USER_ID" & _
					"   AND D_M.RECEPT_NO = '" & Param3 & "'" & _
					"   AND D_M.DEL_FLG = '0'" & _
					"   AND D_M.DEL_FLG = C_M.DEL_FLG" & _
					"   AND D_M.DEL_FLG = S_M.DEL_FLG" & _
					"   AND D_M.DEL_FLG = U_M.DEL_FLG " &_
					" GROUP BY D_M.DELIVERY_KIND," &_
					"          S_M.POSTCODE,S_M.PREFECTURE," &_
					"          S_M.TOWN, " &_
					"          S_M.HOUSE_NUMBER," &_
					"          S_M.BUILDING," &_
					"          C_M.COMPANY_NAME," &_
					"          S_M.SECTION_NAME, " &_
					"          U_M.NAME," &_
					"          S_M.TEL," &_
					"          S_M.FAX," &_
					"          U_M.MAIL "
		'End If
'		Response.Write l_SQL & "<br>"
		debug_t("埶棅尦丗" & l_SQL)
		Set SearchClaimInfo = Param1.ProcRecordset(l_SQL,1,0)
	End Function


	'/**********************************************************
	'/* 攝憲愭忣曬庢摼
	'/* param丗Param1丂DbAccess
	'/*        Param2丂l_HistoryDetailsMdl1Object
	'/*        Param3丂庴晅斣崋
	'/*        Param4丂攝憲愭僐乕僪
	'/**********************************************************
	Public Function SearchSendInfo(Param1,Param2,Param3,Param4)
		Dim l_SQL

		l_SQL = "SELECT DELIVERY_KIND,POSTCODE,PREFECTURE,TOWN," & _
				"       HOUSE_NUMBER,BUILDING,COMPANY_NAME,SECTION_NAME," & _
				"       RECEIVE_NAME,TEL,FAX,NOTE" & _
				"  FROM DATACLAIMORDER_M" & _
				" WHERE SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				"   AND RECEPT_NO = '" & Param3 & "'" & _
				"   AND DELIVERY_ID = '" & Param4 & "' " &_
				"   AND DEL_FLG = '0' " &_
				" GROUP BY DELIVERY_KIND," &_
				"          POSTCODE," &_
				"          PREFECTURE," &_
				"          TOWN, " &_
				"          HOUSE_NUMBER," &_
				"          BUILDING," &_
				"          COMPANY_NAME," &_
				"          SECTION_NAME, " &_
				"          RECEIVE_NAME," &_
				"          TEL," &_
				"          FAX," &_
				"          NOTE " 

'		Response.Write l_SQL & "<br>"
		debug_t("攝憲愭SQL丗" & l_SQL)
		Set SearchSendInfo = Param1.ProcRecordset(l_SQL,1,0)
	End Function

	'惪媮撪梕忣曬庢摼
	'param丗param1 DBAccess
	'       param2 儐乕僓忣曬
	'       param3 庴晅斣崋
	'       param4 HistoryDetailsMdl3僋儔僗
	'       param5 憲晅愭僐乕僪
	Public Function SearchContentsInfo(Param1,Param2,Param3,Param4,Param5)
		l_SQL = "SELECT D_M.LIST_CD,D_M.LIST_EDA,L_T.LIST_NAME," & _
				"       D_M.UNIT_PRICE," & _
				"       TRIM(TO_CHAR(D_M.QUANTITY,'999,999,999,999')) AS QUANTITY," & _
				"       L_T.LIST_UNIT," & _
				"       TRIM(TO_CHAR(L_T.PACKING_COUNT,'999,999,999,999')) AS PACKING_COUNT," & _
				"		'\'||TRIM(TO_CHAR(D_M.SUB_TOTAL,'999,999,999,999')) AS DSP_SUB_TOTAL," & _
				"		SUB_TOTAL,D_M.SEQ_NO " & _
				"  FROM DATACLAIMORDER_M D_M,LISTBASE_T L_T" & _
				" WHERE D_M.SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				"   AND D_M.SYSTEM_ID = L_T.SYSTEM_ID" & _
				"   AND D_M.RECEPT_NO = '" & Param3 & "'" & _
				"   AND D_M.LIST_CD = L_T.LIST_CD" & _
				"   AND D_M.LIST_EDA = L_T.LIST_EDA" & _
				"   AND D_M.WAREHOUSE_ID = '" & Param4.l_MdlWarehouseId & "'" &_
				"   AND D_M.CLAIM_SITUATION = '" & Param4.l_MdlClaimSituation & "'" &_
				"   And D_M.DELIVERY_ID = '" & Param5 & "' "
		If Param4.l_MdlSendYmd <> "" Then
			l_SQL = l_SQL & "   AND D_M.SEND_YMD = TO_DATE('" & Param4.l_MdlSendYmd & "','YYYY/MM/DD')" 
		Else
			l_SQL = l_SQL & "   AND D_M.SEND_YMD IS NULL "
		End If
		l_SQL = l_SQL & "   AND D_M.DEL_FLG = '0'" & _
				"   AND D_M.DEL_FLG = L_T.DEL_FLG"
'Response.Write l_SQL
		Set SearchContentsInfo = Param1.ProcRecordset(l_SQL,1,0)
	End Function

	'/***************************************************************
	'/* 敪憲梊掕擔偺峏怴
	'/* param丗param1 DbAccess
	'/*        param2 HistoryDetailsMdl1僋儔僗
	'/*        param3 憅屔ID
	'/*        param4 曄峏慜敪憲梊掕擔
	'/*        param5 曄峏屻敪憲梊掕擔
	'/* return丗
	'/***************************************************************
	Public Function UpdateSendYmd(Param1,Param2,Param3,Param4,Param5)
		UpdateSendYmd = True

		l_SQL = "UPDATE DATACLAIMORDER_M SET SEND_YMD = TO_DATE('" & Param5 & "','YYYY/MM/DD')," & _
				"                            UPDATE_YMD = SYSDATE" & _
				" WHERE SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				"   AND RECEPT_NO = '" & l_Param1 & "'" & _
				"   AND WAREHOUSE_ID = '" & Param3 & "'" & _
				"   AND SEND_YMD = TO_DATE('" & Param4 & "','YYYY/MM/DD')"
		debug_t(l_SQL)
		'SQL敪峴
		If Not Param1.ProcExecute(l_SQL) Then
			Param1.ProcRollBack
			InsertProm = False
			Exit Function
		End If
	End Function

	'/***************************************************************
	'/* 帒椏惪媮敪拲偺嶍彍
	'/* param丗Param1丂DbAccess
	'/*        Param2丂僔僗僥儉ID夛幮忣曬奿擺僋儔僗
	'/*        Param3丂憅屔夛幮ID
	'/*        Param4丂僔乕働儞僗
	'/*        Param5丂敪拲斣崋
	'/* return丗
	'/***************************************************************
	Public Function UpDateDelFlg(Param1,Param2,Param3,Param4,Param5)
		UpDateDelFlg = true
		l_SQL = "UPDATE DATACLAIMORDER_M SET DEL_FLG = '1', " &_
				"                            UPDATE_YMD = SYSDATE" & _
				" WHERE SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				"   AND RECEPT_NO = '" & Param5 & "'" & _
				"   AND SEQ_NO = " & Param4 &_ 
				"   AND WAREHOUSE_ID = '" & Param3 & "'"

		'SQL敪峴
		If Not Param1.ProcExecute(l_SQL) Then
'			Param1.ProcRollBack
			InsertProm = False
			Exit Function
		End If
'Response.Write l_SQL
	End Function

	'/***************************************************************
	'/* 惪媮曽朄庢摼
	'/* param丗Param1丂DbAccess
	'/*        Param2丂僔僗僥儉ID夛幮忣曬奿擺僋儔僗
	'/*        Param3丂敪拲斣崋
	'/* return丗
	'/***************************************************************
	Public Function GetClaimMethod(Param1,Param2,Param3)
		Dim l_rec

		l_SQL = "SELECT CLAIM_METHOD " &_
				"  FROM DATACLAIMORDER_M " &_
				" WHERE SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				"   AND RECEPT_NO = '" & Param3 &"' " &_
				" GROUP BY CLAIM_METHOD "
'Response.Write l_SQL & "<br>"
		Set l_rec = Param1.ProcRecordset(l_SQL,1,0)
		If Not l_rec.Eof Then
			GetClaimMethod = l_rec.Fields.Item("CLAIM_METHOD")
		Else
			GetClaimMethod = ""
		End If
	End Function

	'/***************************************************************
	'/* 帒椏惪媮敪拲偺僗僥乕僞僗峏怴
	'/* param丗Param1丂DbAccess
	'/*        Param2丂僔僗僥儉ID夛幮忣曬奿擺僋儔僗
	'/*        Param3丂庴晅斣崋
	'/* return丗
	'/***************************************************************
	Public Function UpdateTotalSituation(Param1,Param2,Param3)
		Dim l_SQL
		Dim l_recset
		Dim l_count
		Dim l_flg

		l_SQL = "SELECT CLAIM_SITUATION,TOTAL_SITUATION " &_
				"  FROM DATACLAIMORDER_M " &_
				" WHERE SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				"   AND SECTION_ID = '" & Param2.l_SectionId & "'" & _
				"   AND RECEPT_NO = '" & Param3 & "' " &_
				"   AND DEL_FLG = '0' " &_
				" GROUP BY CLAIM_SITUATION,TOTAL_SITUATION "

		Set l_recset = Param1.ProcRecordset(l_SQL,10,0)

'Response.Write l_SQL & "<br>"
		l_count = 0

		l_flg = true

		Do Until l_recset.Eof
			l_count = l_count + 1
			l_recset.movenext
		Loop

		If l_count = 1 Then
			l_SQL = "UPDATE DATACLAIMORDER_M " &_
					"   SET TOTAL_SITUATION = CLAIM_SITUATION " &_
					" WHERE SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
					"   AND SECTION_ID = '" & Param2.l_SectionId & "'" & _
					"   AND RECEPT_NO = '" & Param3 & "' "
Response.Write l_SQL & "<br>"

			'SQL敪峴
			If Not Param1.ProcExecute(l_SQL) Then
				l_flg = false
			End If
		End If

		UpdateTotalSituation = l_flg
	End Function
End Class
%>