demandcommon.asp

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

<%
Class DemandCommon

	Dim l_cutil	'暥帤楍儐乕僥傿儕僥傿
	Dim l_dchar	'暥帤楍曇廤

	'/********************************************
	'/* 堦棗昞帵偡傞儗僐乕僪傪曇廤偡傞
	'/* param丗ADODB.Recordset 挔昜忣曬儗僐乕僪
	'/* return丗DemandListMdl 曇廤寢壥
	'/********************************************
	Public Function EditRec(l_db,l_rs)
		Dim l_rec
		Dim l_cmn
		Set l_rec = New DemandMdl
		Set l_cmn = New Common

		Set l_cutil = New CharUtil
		Set l_dchar = New DemandCharUtil

		'挔昜柤
		l_rec.l_DemName = l_rs.Fields.Item("LIST_NAME")
		'攚宨怓
		'l_rec.l_DembgColor = l_cmn.GetCodeName(l_db, CD_CLASS1_COLOR, l_rs.Fields.Item("CLASS1"))
		l_rec.l_DembgColor = l_rs.Fields.Item("BG_COLLOR")
		'僒儉僱僀儖
		If l_rs.Fields.Item("OPEN_IMAGE_FLAG") = FLG_ON Then
			l_rec.l_DemImage = l_dchar.editImage(l_rs.Fields.Item("THUMBNAIL"))
		Else
			l_rec.l_DemImage = l_dchar.editImage("")
		End If

		'挔昜斣崋(挔昜斣崋-挔昜斣崋巬斣)
		l_rec.l_DemNo = l_cutil.editCdEda(l_rs.Fields.Item("LIST_CD"), l_rs.Fields.Item("LIST_EDA"))
		'暘椶侾
		'l_rec.l_DemKind = l_rs.Fields.Item("NAME")
		l_rec.l_DemKind = l_rs.Fields.Item("CD_CLASS1_NAME")
		'攝晍扨壙
		l_rec.l_DemPrice = l_dchar.editPrice(l_rs.Fields.Item("UNIT_PRICE"),l_cutil)
		'巊梡婜尷
		l_rec.l_DemLimit = l_dchar.editLimit(l_rs.Fields.Item("USEPOSSIBLE_TERM_END"))
		'挔昜娗棟斣崋(僨乕僞曐帩梡)
		l_rec.l_DemManage = l_rs.Fields.Item("LIST_MANAGE_NO")
		'挔昜斣崋(僨乕僞曐帩梡)
		l_rec.l_DemListCd = l_rs.Fields.Item("LIST_CD")
		'挔昜斣崋巬斣(僨乕僞曐帩梡)
		l_rec.l_DemListEda = l_rs.Fields.Item("LIST_EDA")
		'岞奐奐巒擔
		l_rec.l_DemOpenStart = l_rs.Fields.Item("OPEN_PERIOD_START")

		Set EditRec = l_rec
	End Function

	'/***************************************************************
	'/* 晹栧庬暿庢摼
	'/* param丗l_db		DbAccess
	'/*        l_sysId	僔僗僥儉ID
	'/*        l_coId	夛幮ID
	'/*        l_secId	晹栧ID
	'/* return丗0:幮撪(杮幮)丄1:幮奜(巟幮丒巟揦)丄2:偦偺懠(戙棟揦摍)
	'/***************************************************************
	Public Function GetSectionKind(l_db,l_sysId,l_coId,l_secId)
		Dim l_SQL
		Dim l_rset

		l_SQL = "SELECT SECTION_KIND " &_
				"  FROM SECTION_M " &_
				" WHERE SYSTEM_ID = '" &  l_sysId & "' " &_
				"   AND COMPANY_ID = '" & l_coId & "' " &_
				"   AND SECTION_ID = '" & l_secId & "' " 

		Set l_rset = l_db.ProcRecordSet(l_SQL,1,0)
		If Not l_rset.Eof Then
			GetSectionKind = l_rset.Fields.Item("SECTION_KIND")
		Else
			GetSectionKind = ""
		End If
	End Function

	'/*********************************
	'/* 嵼屔悢昞帵
	'/*
	'/*
	'/*********************************
	Public Function GetDemandAbleNum(db,sysid,listcd,listeda)
		Dim l_SQL
		Dim l_rec

		'悢検丂擺昳応強侾丄俀丄俁庢摼
		l_SQL = "SELECT NVL(NUM1,0) AS NUM1," &_
				"       DELIVERY_PLACE1," &_
				"       NVL(NUM2,0) AS NUM2," &_
				"       DELIVERY_PLACE2," &_
				"       NVL(NUM3,0) AS NUM3," &_
				"       DELIVERY_PLACE3 " &_
				"  FROM STOCK_T " &_
				" WHERE SYSTEM_ID = '" & sysid & "' " &_
				"   AND LIST_CD = '" & listcd & "' " &_
				"   AND LIST_EDA = '" & listeda & "' " &_
				"   AND DEL_FLG = '" & FLG_OFF & "' "

		Set l_rec = db.ProcRecordSet(l_SQL,1,0)
	
		If Not l_rec.Eof Then
			l_SQL = "SELECT " & l_rec.Fields.Item("NUM1") & "-(W_T1.QUANTITY + D_T1.QUANTITY2) AS RESERVE_QUANTITY1," &_
	       			l_rec.Fields.Item("NUM2") & "-(W_T2.QUANTITY + D_T2.QUANTITY2) AS RESERVE_QUANTITY2," &_
					l_rec.Fields.Item("NUM3") & "-(W_T3.QUANTITY + D_T3.QUANTITY2) AS RESERVE_QUANTITY3 " &_
					"  FROM " &_
					"(SELECT NVL(SUM(QUANTITY),0) AS QUANTITY " &_
					"   FROM WORK_DATACLAIMORDER_T " &_
					"  WHERE LIST_CD = '" & listcd & "' " &_
					"    AND LIST_EDA = '" & listeda & "' " &_
					"    AND WAREHOUSE_ID = '" & l_rec.Fields.Item("DELIVERY_PLACE1") & "') W_T1," &_
					"(SELECT NVL(SUM(QUANTITY),0) AS QUANTITY2 " &_
					"   FROM DATACLAIMORDER_M " &_
					"  WHERE SYSTEM_ID = '" & sysid & "' " &_
					"    AND LIST_CD = '" & listcd & "' " &_
					"    AND LIST_EDA = '" & listeda & "' " &_
					"   AND CLAIM_SITUATION IN " &_
					"    ('000001','000002','000004') " &_
					"   AND WAREHOUSE_ID = '" & l_rec.Fields.Item("DELIVERY_PLACE1") & "' " &_
					"   AND DEL_FLG = '" & FLG_OFF & "') D_T1," &_
					"(SELECT NVL(SUM(QUANTITY),0) AS QUANTITY " &_
					"   FROM WORK_DATACLAIMORDER_T " &_
					"  WHERE LIST_CD = '" & listcd & "' " &_
					"    AND LIST_EDA = '" & listeda & "' " &_
					"   AND WAREHOUSE_ID = '" & l_rec.Fields.Item("DELIVERY_PLACE2") & "') W_T2," &_
					"(SELECT NVL(SUM(QUANTITY),0) AS QUANTITY2 " &_
					"   FROM DATACLAIMORDER_M " &_
					" WHERE SYSTEM_ID = '" & sysid & "' " &_
					"   AND LIST_CD = '" & listcd & "' " &_
					"   AND LIST_EDA = '" & listeda & "' " &_
					"   AND CLAIM_SITUATION IN " &_
					"    ('000001','000002','000004') " &_
					"   AND WAREHOUSE_ID = '" & l_rec.Fields.Item("DELIVERY_PLACE2") & "' " &_
					"   AND DEL_FLG = '" & FLG_OFF & "') D_T2," &_
					"(SELECT NVL(SUM(QUANTITY),0) AS QUANTITY " &_
					"   FROM WORK_DATACLAIMORDER_T " &_
					"  WHERE LIST_CD = '" & listcd & "' " &_
					"    AND LIST_EDA = '" & listeda & "' " &_
					"    AND WAREHOUSE_ID = '" & l_rec.Fields.Item("DELIVERY_PLACE3") & "') W_T3," &_
					"(SELECT NVL(SUM(QUANTITY),0) AS QUANTITY2 " &_
					"   FROM DATACLAIMORDER_M " &_
					"  WHERE SYSTEM_ID = '" & sysid & "' " &_
					"    AND LIST_CD = '" & listcd & "' " &_
					"    AND LIST_EDA = '" & listeda & "' " &_
					"    AND CLAIM_SITUATION IN " &_
					"    ('000001','000002','000004') " &_
					"    AND WAREHOUSE_ID = '" & l_rec.Fields.Item("DELIVERY_PLACE3") & "' " &_
					"    AND DEL_FLG = '" & FLG_OFF & "') D_T3"
debug_t(l_SQL)
			Set l_rec = db.ProcRecordSet(l_SQL,1,0)

			If Not l_rec.Eof Then
				If l_rec.Fields.Item("RESERVE_QUANTITY1") > l_rec.Fields.Item("RESERVE_QUANTITY2") Then
					If l_rec.Fields.Item("RESERVE_QUANTITY1") > l_rec.Fields.Item("RESERVE_QUANTITY3") Then
						GetDemandAbleNum = l_rec.Fields.Item("RESERVE_QUANTITY1")
					Else
						GetDemandAbleNum = l_rec.Fields.Item("RESERVE_QUANTITY3")
					End If
				Else
					If l_rec.Fields.Item("RESERVE_QUANTITY2") > l_rec.Fields.Item("RESERVE_QUANTITY3") Then
						GetDemandAbleNum = l_rec.Fields.Item("RESERVE_QUANTITY2")
					Else
						GetDemandAbleNum = l_rec.Fields.Item("RESERVE_QUANTITY3")
					End If
				End If
			End If
		Else
			GetDemandAbleNum = 0
		End If
	End Function
End Class
%>