wareinmaster.asp

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

<%
'/
'/擖壸巜帵婡擻
'/擖壸巜帵僥乕僽儖傾僋僙僗僋儔僗
'/
Class WareinMaster

	'/*******************************************************
	'/* 擺昳応強僾儖僟僂儞偺忣曬庢摼
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        sysid(String) 僔僗僥儉ID
	'/* return 拪弌儗僐乕僪
	'/*******************************************************
	Public Function SelectDeliveryPlace(l_dbaccess, l_sysId)
	
		Dim l_recSet
		Dim l_sql

		SelectDeliveryPlace = False

		'SQL暥惗惉
		l_sql = "SELECT COMPANY_ID, COMPANY_NAME "
		l_sql = l_sql & " FROM COMPANY_M "
		l_sql = l_sql & " WHERE SYSTEM_ID = '" & l_sysId & "'"
		l_sql = l_sql & " AND STATUS = '1' " 					' 庢堷拞
		l_sql = l_sql & " AND COMPANY_KIND = '2' "			' 憅屔夛幮
		l_sql = l_sql & " AND DEL_FLG <> '1' "

		'DB傛傝儗僐乕僪傪庢摼偟偰曉偡
		Set SelectDeliveryPlace = l_dbaccess.ProcRecordset(l_sql,1,0)
		
	End Function


	'/*******************************************************
	'/* 敪拲僥乕僽儖丄擺昳忣曬僥乕僽儖偵搊榐偡傞
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        l_inRec(WarehousingUpMdl) 搊榐儗僐乕僪
	'/* return boolean True丗惓忢丄False丗堎忢
	'/*******************************************************
	Public Function InsertWarehousingRec(l_dbaccess, l_inrec)
	
		Dim l_sql 
		Dim l_seq
		Dim l_OrderId
		
		InsertWarehousingRec = True
		
		'敪拲斣崋庢摼
		l_OrderId = SearchOrderId(l_dbaccess)
		
		'----------------------
		' 敪拲僥乕僽儖搊榐張棟
		'----------------------
		'SQL暥惗惉
		l_sql = "INSERT INTO ORDER_T("
		l_sql = l_sql & "SYSTEM_ID,"			'僔僗僥儉ID
		l_sql = l_sql & "COMPANY_ID,"			'夛幮ID
		l_sql = l_sql & "ORDER_MANAGE_NO,"		'敪拲娗棟斣崋
		l_sql = l_sql & "ORDER_ID,"				'敪拲斣崋
		l_sql = l_sql & "LIST_CD,"				'挔昜斣崋
		l_sql = l_sql & "LIST_EDA,"				'挔昜斣崋巬斣
		l_sql = l_sql & "ORDER_AMOUNT,"			'敪拲悢
		l_sql = l_sql & "ORDER_STATUS,"			'敪拲忬嫷
		l_sql = l_sql & "DELIVERY_INFO,"		'擺昳忣曬ID
		l_sql = l_sql & "REG_YMD,"				'搊榐擔
		l_sql = l_sql & "DEL_FLG"				'嶍彍僼儔僌
		l_sql = l_sql & ") VALUES ("
		l_sql = l_sql & "'" & l_inrec.l_sysId & "',"
		l_sql = l_sql & "'" & l_inrec.l_coId & "',"
		l_sql = l_sql 		& l_inrec.l_orderManageNo & ","
		l_sql = l_sql & "'" & l_OrderId & "',"
		l_sql = l_sql & "'" & l_inrec.l_listCd & "',"
		l_sql = l_sql & "'" & l_inrec.l_listEda & "',"
		l_sql = l_sql 		& l_inrec.l_orderAmount & ","
		l_sql = l_sql & "'" & OSTS_ORDER & "',"
		l_sql = l_sql 		& l_inrec.l_deliveryInfo & ","
		l_sql = l_sql 		& "SYSDATE, '0')"

		'SQL敪峴
		If l_dbaccess.ProcExecute(l_sql) Then
			'INSERT惉岟
			
		Else
			'僄儔乕偺応崌偼儘乕儖僶僢僋
			l_dbaccess.ProcRollBack
			InsertWarehousingRec = False
			Exit Function
		End If


		'--------------------------
		' 擺昳忣曬僥乕僽儖搊榐張棟
		'--------------------------
		For l_seq = 1 to l_inrec.loopCnt

			'SQL暥惗惉
			l_sql = "INSERT INTO DELIVERYINFO_T("
			l_sql = l_sql & "SYSTEM_ID,"		'僔僗僥儉ID
			l_sql = l_sql & "COMPANY_ID,"		'夛幮ID
			l_sql = l_sql & "DELIVERY_INFO,"	'擺昳忣曬ID
			l_sql = l_sql & "SEQ_NO,"			'僔乕働儞僗斣崋
			l_sql = l_sql & "DELIVERY_PLACE,"	'擺昳応強ID
			l_sql = l_sql & "DELIVERY_YMD,"		'擺昳婓朷擔帪
			l_sql = l_sql & "DELIVERY_NUM,"		'擺昳梊掕悢
			l_sql = l_sql & "REG_YMD,"			'搊榐擔
			l_sql = l_sql & "DEL_FLG"			'嶍彍僼儔僌
			l_sql = l_sql & ") VALUES ("
			l_sql = l_sql & "'" & l_inrec.l_sysId & "',"
			l_sql = l_sql & "'" & l_inrec.l_coId & "',"
			l_sql = l_sql 		& l_inrec.l_deliveryInfo & ","
			l_sql = l_sql 		& l_seq & ","

			Select Case l_seq
				Case 1
					l_sql = l_sql & "'" & l_inrec.l_place1 & "',"
					l_sql = l_sql & "TO_DATE('" & l_inrec.l_scheduleYMD1 & "','YYYYMMDDHH24'),"
					l_sql = l_sql & l_inrec.l_num1 & ","

				Case 2
					l_sql = l_sql & "'" & l_inrec.l_place2 & "',"
					l_sql = l_sql & "TO_DATE('" & l_inrec.l_scheduleYMD2 & "','YYYYMMDDHH24'),"
					l_sql = l_sql & l_inrec.l_num2 & ","

				Case 3
					l_sql = l_sql & "'" & l_inrec.l_place3 & "',"
					l_sql = l_sql & "TO_DATE('" & l_inrec.l_scheduleYMD3 & "','YYYYMMDDHH24'),"
					l_sql = l_sql & l_inrec.l_num3 & ","
					
			End Select			
			l_sql = l_sql & "SYSDATE, '0')"

			'SQL敪峴
			If l_dbaccess.ProcExecute(l_sql) Then
				'INSERT惉岟
				
			Else
				'僄儔乕偺応崌偼儘乕儖僶僢僋
				l_dbaccess.ProcRollBack
				InsertWarehousingRec = False
				Exit Function
			End If

		Next

	End Function


	'/*******************************************************
	'/* 敪拲僥乕僽儖丄擺昳忣曬僥乕僽儖傪峏怴偡傞
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        l_inRec(WarehousingUpMdl) 搊榐儗僐乕僪
	'/* return boolean True丗惓忢丄False丗堎忢
	'/*******************************************************
	Public Function UpdateWarehousingRec(l_dbaccess, l_inrec)
	
		Dim l_sql 
		Dim l_seq
		Dim l_recSet
		
		UpdateWarehousingRec = True

		'----------------------
		' 敪拲僥乕僽儖峏怴張棟
		'----------------------
		'SQL暥惗惉
		'SET
		l_sql = "UPDATE ORDER_T SET "
		l_sql = l_sql & "ORDER_AMOUNT = " & l_inrec.l_orderAmount
		l_sql = l_sql & ",UPDATE_YMD = SYSDATE "
		
		'WHERE
		l_sql = l_sql & "WHERE SYSTEM_ID = '" & l_inrec.l_sysId & "' "
		l_sql = l_sql & "AND COMPANY_ID = '" & l_inrec.l_coId & "' "
		l_sql = l_sql & "AND DELIVERY_INFO = " & l_inrec.l_deliveryInfo

		'SQL敪峴
		If l_dbaccess.ProcExecute(l_sql) Then
			'UPDATE惉岟
			
		Else
			'僄儔乕偺応崌偼儘乕儖僶僢僋
			l_dbaccess.ProcRollBack
			UpdateWarehousingRec = False
			Exit Function
		End If


		'--------------------------
		' 擺昳忣曬僥乕僽儖搊榐張棟
		'--------------------------
		For l_seq = 1 to 3

			'僨乕僞懚嵼僠僃僢僋傪峴偆
			l_sql = "SELECT COUNT(*) COUNT FROM DELIVERYINFO_T "
			
			l_sql = l_sql & "WHERE SYSTEM_ID = '" & l_inrec.l_sysId & "' "
			l_sql = l_sql & "AND COMPANY_ID = '" & l_inrec.l_coId & "' "
			l_sql = l_sql & "AND DELIVERY_INFO = " & l_inrec.l_deliveryInfo & " "
			l_sql = l_sql & "AND SEQ_NO = " & l_seq

			Set l_recSet = l_dbaccess.ProcRecordset(l_sql,10,0)

			'懚嵼偡傟偽Update丄側偗傟偽Insert傪峴偆
			If l_recSet.Fields.Item("COUNT") <> 0 Then
			
				'SQL暥惗惉
				If l_seq > l_inrec.loopCnt Then
				'婛懚僨乕僞偑嶍彍偝傟偨応崌
				
					'SET
					l_sql = "UPDATE DELIVERYINFO_T SET "
					l_sql = l_sql & "UPDATE_YMD = SYSDATE,"
					l_sql = l_sql & "DEL_FLG = '1' "

					'WHERE
					l_sql = l_sql & "WHERE SYSTEM_ID = '" & l_inrec.l_sysId & "' "
					l_sql = l_sql & "AND COMPANY_ID = '" & l_inrec.l_coId & "' "
					l_sql = l_sql & "AND DELIVERY_INFO = " & l_inrec.l_deliveryInfo & " "
					l_sql = l_sql & "AND SEQ_NO = " & l_seq

				Else
				'峏怴張棟
				
					'SET
					l_sql = "UPDATE DELIVERYINFO_T SET "
					l_sql = l_sql & "UPDATE_YMD = SYSDATE,"
					l_sql = l_sql & "DEL_FLG = '0',"
										
					Select Case l_seq
						Case 1
							l_sql = l_sql & "DELIVERY_PLACE = '" & l_inrec.l_place1 & "',"
							l_sql = l_sql & "DELIVERY_YMD = TO_DATE('" & l_inrec.l_scheduleYMD1 & "','YYYYMMDDHH24'),"
							l_sql = l_sql & "DELIVERY_NUM = " & l_inrec.l_num1 & " "

						Case 2
							l_sql = l_sql & "DELIVERY_PLACE = '" & l_inrec.l_place2 & "',"
							l_sql = l_sql & "DELIVERY_YMD = TO_DATE('" & l_inrec.l_scheduleYMD2 & "','YYYYMMDDHH24'),"
							l_sql = l_sql & "DELIVERY_NUM = " & l_inrec.l_num2 & " "

						Case 3
							l_sql = l_sql & "DELIVERY_PLACE = '" & l_inrec.l_place3 & "',"
							l_sql = l_sql & "DELIVERY_YMD = TO_DATE('" & l_inrec.l_scheduleYMD3 & "','YYYYMMDDHH24'),"
							l_sql = l_sql & "DELIVERY_NUM = " & l_inrec.l_num3 & " "

					End Select			

					'WHERE
					l_sql = l_sql & "WHERE SYSTEM_ID = '" & l_inrec.l_sysId & "' "
					l_sql = l_sql & "AND COMPANY_ID = '" & l_inrec.l_coId & "' "
					l_sql = l_sql & "AND DELIVERY_INFO = " & l_inrec.l_deliveryInfo & " "
					l_sql = l_sql & "AND SEQ_NO = " & l_seq
					
				End If
				
				'SQL敪峴
				If l_dbaccess.ProcExecute(l_sql) Then
					'DB峏怴惉岟
					
				Else
					'僄儔乕偺応崌偼儘乕儖僶僢僋
					l_dbaccess.ProcRollBack
					UpdateWarehousingRec = False
					Exit Function
				End If

			Else
				'SQL暥惗惉
				l_sql = "INSERT INTO DELIVERYINFO_T("
				l_sql = l_sql & "SYSTEM_ID,"		'僔僗僥儉ID
				l_sql = l_sql & "COMPANY_ID,"		'夛幮ID
				l_sql = l_sql & "DELIVERY_INFO,"	'擺昳忣曬ID
				l_sql = l_sql & "SEQ_NO,"			'僔乕働儞僗斣崋
				l_sql = l_sql & "DELIVERY_PLACE,"	'擺昳応強ID
				l_sql = l_sql & "DELIVERY_YMD,"		'擺昳婓朷擔帪
				l_sql = l_sql & "DELIVERY_NUM,"		'擺昳梊掕悢
				l_sql = l_sql & "REG_YMD,"			'搊榐擔
				l_sql = l_sql & "DEL_FLG"			'嶍彍僼儔僌
				l_sql = l_sql & ") VALUES ("
				l_sql = l_sql & "'" & l_inrec.l_sysId & "',"
				l_sql = l_sql & "'" & l_inrec.l_coId & "',"
				l_sql = l_sql 		& l_inrec.l_deliveryInfo & ","
				l_sql = l_sql 		& l_seq & ","
	
				Select Case l_seq
					Case 1
						l_sql = l_sql & "'" & l_inrec.l_place1 & "',"
						l_sql = l_sql & "TO_DATE('" & l_inrec.l_scheduleYMD1 & "','YYYYMMDDHH24'),"
						l_sql = l_sql & l_inrec.l_num1 & ","
	
					Case 2
						l_sql = l_sql & "'" & l_inrec.l_place2 & "',"
						l_sql = l_sql & "TO_DATE('" & l_inrec.l_scheduleYMD2 & "','YYYYMMDDHH24'),"
						l_sql = l_sql & l_inrec.l_num2 & ","
	
					Case 3
						l_sql = l_sql & "'" & l_inrec.l_place3 & "',"
						l_sql = l_sql & "TO_DATE('" & l_inrec.l_scheduleYMD3 & "','YYYYMMDDHH24'),"
						l_sql = l_sql & l_inrec.l_num3 & ","
						
				End Select			
				l_sql = l_sql & "SYSDATE, '0')"

				'擖椡偝傟偨審悢偩偗搊榐
				If l_seq <= l_inrec.loopCnt Then
					'SQL敪峴
					If l_dbaccess.ProcExecute(l_sql) Then
						'DB搊榐惉岟
						
					Else
						'僄儔乕偺応崌偼儘乕儖僶僢僋
						l_dbaccess.ProcRollBack
						UpdateWarehousingRec = False
						Exit Function
					End If
				
				End If
				
			End If
			
		Next

	End Function


	'/*******************************************************
	'/* 堦棗夋柺偵昞帵偡傞儗僐乕僪傪拪弌偡傞
	'/* param丗l_dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        l_sysid(String) 僔僗僥儉ID
	'/*        l_coid(String) 夛幮ID
	'/*		   l_indata(Scripting.Dictionary) 夋柺擖椡抣
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function SearchListBase(l_dbaccess, l_cutil, l_sysid, l_coid, l_indata)

		Dim l_strsql