historydetailsmaster.asp

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

<%
Class HistoryDetailsMaster
	Dim l_SQL

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

		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'"

'		Response.Write l_SQL & "<br>"

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

	End Function

	'憅屔柤丒敪憲梊掕擔丒庢徚偟壜擻擔丒忬嫷
	Public Function SearchWarehouseInfo(Param1,Param2,Param3,Param4)

		l_SQL = "SELECT DISTINCT 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," &_
				"       TO_CHAR(D_M.CANCEL_POSSIBLE_YMD,'YYYY/MM/DD HH24:MI') AS DSP_CANCEL_POSSIBLE_YMD," &_
				"       D_M.CLAIM_SITUATION," & _
				"		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 & "'" & _
				"   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" & _
				" 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,Param4)
		Dim l_SQL

		l_SQL = "SELECT DISTINCT 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 & "'" 
		If Param4 <> "" Then
			l_SQL = l_SQL & " AND D_M.DELIVERY_ID = '" & Param4 & "' "
		End If
		l_SQL = l_SQL & "   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"

'		Response.Write l_SQL & "<br>"

		Set SearchClaimInfo = Param1.ProcRecordset(l_SQL,1,0)

	End Function


	'攝憲愭忣曬庢摼
	Public Function SearchSendInfo(Param1,Param2,Param3,Param4)
		Dim l_SQL

		l_SQL = "SELECT DISTINCT DELIVERY_KIND,POSTCODE,PREFECTURE,TOWN," & _
				"       HOUSE_NUMBER,BUILDING,COMPANY_NAME,SECTION_NAME," & _
				"       RECEIVE_NAME,TEL,FAX,NOTE,MAIL " & _
				"  FROM DATACLAIMORDER_M" & _
				" WHERE SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				"   AND RECEPT_NO = '" & Param3 & "' "
		If Param4 <> "" Then
			l_SQL = l_SQL & " AND DELIVERY_ID = '" & Param4 & "' "
		End If
			l_SQL = l_SQL & "   AND DEL_FLG = '0'"

'		Response.Write l_SQL & "<br>"

		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 L_T.LIST_MANAGE_NO,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," & _
				"       D_M.SEQ_NO," &_
				"       D_M.SUB_TOTAL," & _
				"       D_M.CLAIM_SITUATION," &_
				"       D_M.TOTAL_SITUATION " &_
				"  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 & "'" 
		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 
		If Param5 <> "" Then
			l_SQL = l_SQL & " AND DELIVERY_ID = '" & Param5 & "' " 
		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 & "<br>"

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

	'/***************************************************************
	'/* 敪憲梊掕擔峏怴
	'/* param丗Param1丂敪拲斣崋
	'/*        Param2丂僔僗僥儉ID夛幮忣曬奿擺僋儔僗
	'/*        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')," & _
				"                            CANCEL_POSSIBLE_YMD = TO_DATE('" & Param5 & "' || " &_
				"                            (SELECT TO_CHAR(BUNDLE_TIME,'HH24:MI') " &_
				"                               FROM COMPANY_M " &_
				"                              WHERE SYSTEM_ID = '" & Param2.l_SystemId & "' " &_
				"                                AND COMPANY_ID = '" & Param2.l_CompanyId & "'),'YYYY/MM/DD/HH24/MI')," &_
				"                            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')"

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

	End Function

	
	'/***************************************************************
	'/* 帒椏惪媮敪拲偺嶍彍
	'/* param丗Param1丂敪拲斣崋
	'/*        Param2丂僔僗僥儉ID夛幮忣曬奿擺僋儔僗
	'/*        Param3丂憅屔夛幮ID
	'/*        Param4丂僔乕働儞僗
	'/* 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 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 COMPANY_ID = '" & Param2.l_CompanyId & "'" & _
				"   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 COMPANY_ID = '" & Param2.l_CompanyId & "'" & _
					"   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
%>