ordermaster.asp

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

<%
Class OrderMaster
	'/**************************************
	'/* 庴晅斣崋庢摼
	'/* param丗l_db		DbAccess
	'/*        l_sysId	僔僗僥儉ID
	'/**************************************
	Public Function GetOrderNo(l_db,l_sysId)
		Dim l_recepNoSql
		Dim l_orderno
		Dim l_rset
		'-----2006/1/6 捛壛-----
		l_recepNoSql = "select TRIM(MAX(SUBSTR(RECEPT_NO,0,2))) AS MAX_NO,"&_
					   "       TRIM(TO_CHAR(SYSDATE,'YY')) AS YY " &_
					   "  FROM DATACLAIMORDER_M " &_
					   " WHERE SYSTEM_ID  = '" & l_sysId & "' " &_
					   "FOR UPDATE OF DATACLAIMORDER_M "

		Set l_rset = l_db.ProcRecordset(l_recepNoSql,10,0)
		
		If l_rset.Fields.Item("MAX_NO") = l_rset.Fields.Item("YY") Then
			l_recepNoSql = "SELECT TRIM(TO_CHAR(NVL(MAX(SUBSTR(RECEPT_NO,0,8)),0)+1,'00000000')) AS RECEPT_NO " &_
						   "FROM DATACLAIMORDER_M " &_
						   "WHERE SYSTEM_ID  = '" & l_sysId & "' " &_
						   "FOR UPDATE OF DATACLAIMORDER_M "
			Set l_rset = l_db.ProcRecordset(l_recepNoSql,10,0)
			GetOrderNo = l_rset.Fields.Item("RECEPT_NO")
		Else
			GetOrderNo = l_rset.Fields.Item("YY") & "000001"
		End If
		'----------------------
		'l_recepNoSql = "SELECT TRIM(TO_CHAR(SYSDATE,'YY'))||" &_
		'		     "TRIM(TO_CHAR(NVL(MAX(SUBSTR(RECEPT_NO,3,6)),0)+1,'000000')) AS RECEPT_NO " &_
		'			   "FROM DATACLAIMORDER_M " &_
		'			   "WHERE SYSTEM_ID  = '" & l_sysId & "' " &_
		'			   "FOR UPDATE OF DATACLAIMORDER_M "

		'Set l_rset = l_db.ProcRecordset(l_recepNoSql,1,0)
		'GetOrderNo = l_rset.Fields.Item("RECEPT_NO")
	End Function

	'/**********************************
	'/* 帒椏惪媮敪拲儅僗僞Insert
	'/* param丗l_db
	'/*        l_sysId
	'/*        l_coId
	'/*        l_detail_dic
	'/*        l_address_dic
	'/*        l_orderno
	'/*        l_count
	'/*        l_cancelday
	'/*        l_decisionday
	'/*
	'/**********************************
	Public Function GetOrderRec(l_db,l_sysId,l_coId,l_detail_dic,l_address_dic,l_orderno,l_count,l_cancelday,l_decisionday,l_receiptday)
	Dim l_ordSql
	Dim l_resultarray(10)
	Dim InsertDataClime
	l_ordSql = "INSERT INTO DATACLAIMORDER_M (" &_
				"SYSTEM_ID," &_
				"COMPANY_ID," &_
				"SECTION_ID," &_
				"USER_ID," &_
				"RECEPT_NO," &_
				"SEQ_NO," &_
				"LIST_CD," &_
				"LIST_EDA," &_
				"RECEPT_YMD," &_
				"WAREHOUSE_ID," &_
				"SEND_YMD," &_
				"DECISION_DATE," &_
				"CANCEL_POSSIBLE_YMD," &_
				"UNIT_PRICE," &_
				"QUANTITY," &_
				"MAILING_COST," &_
				"SUB_TOTAL," &_
				"DELIVERY_KIND," &_
				"DELIVERY_ID," &_
				"POSTCODE," &_
				"PREFECTURE," &_
				"TOWN," &_
				"HOUSE_NUMBER," &_
				"BUILDING," &_
				"COMPANY_NAME," &_
				"SECTION_NAME," &_
				"RECEIVE_NAME," &_
				"TEL," &_
				"FAX," &_
				"NOTE," &_
				"MAIL," &_
				"CLAIM_METHOD," &_
				"CLAIM_SITUATION," &_
				"TOTAL_SITUATION," &_
				"DELIVERY_DIVISION," &_
				"REG_YMD," &_
				"UPDATE_YMD," &_
				"DEL_FLG) " &_
				"VALUES('" &_
					   l_sysId & "','" & l_coId & "','" &_
					   Session("User").Item("SECTION_ID") & "','" &_
					   Session("User").Item("USER_ID") & "','" &_
					   l_orderno  & "'," &_
					   l_count + 1 & ",'" &_
					   l_detail_dic.Item("list_cd") & "','" &_
					   l_detail_dic.Item("list_eda") & "'," 
	'				   "SYSDATE,'" & l_coId & "','" &_
	l_ordSql = l_ordSql & "TO_DATE('" & l_receiptday & "','YYYY/MM/DD/HH24:MI:SS'),'" &_
					    l_coId & "','" &_
					   l_detail_dic.Item("shipment_day") & "',"
		'妋掕擔
		If l_detail_dic.Item("dicision_day") <> "" Then
			l_ordSql = l_ordSql & "TO_DATE('" & l_detail_dic.Item("format_dicision_day") & "','YYMMDDHH24MiSS'),"
		Else
			l_ordSql = l_ordSql & "'',"
		End If

		'庢徚壜擻擔
		If l_detail_dic.Item("cancel_day") <> "" Then
			l_ordSql = l_ordSql & "TO_DATE('" & l_detail_dic.Item("format_dicision_day") & "','YYMMDDHH24MiSS'),"
		Else
			l_ordSql = l_ordSql & "'',"
		End If

		l_ordSql = l_ordSql & l_detail_dic.Item("unit_price") & "," 

		If l_detail_dic.Item("quantity") <> "" Then
			l_ordSql = l_ordSql & l_detail_dic.Item("quantity") & "," 
		Else
			l_ordSql = l_ordSql & "0,"
		End If
			l_ordSql = l_ordSql & "NULL," 

		If l_detail_dic.Item("subtotal") <> "" Then
			l_ordSql = l_ordSql & l_detail_dic.Item("subtotal") & ",'" 
		Else
			l_ordSql = l_ordSql & "0,'"
		End If
			l_ordSql = l_ordSql & l_address_dic.Item("deliradio") & "','" 
		If l_address_dic.Item("deliradio") = CLM_DELIKIND_REGIST Then
			l_ordSql = l_ordSql & l_address_dic.Item("ordercd") & "','" 
		Else
			l_ordSql = l_ordSql & DELIVERY_OTHERE_ID & "','"
		End If
			l_ordSql = l_ordSql & l_address_dic.Item("postcode") & "','" &_
					   l_address_dic.Item("prefecture") & "','" &_
					   l_address_dic.Item("town") & "','" &_
					   l_address_dic.Item("house_number") & "','" &_
					   l_address_dic.Item("building") & "','" &_
					   l_address_dic.Item("company_name") & "','" &_
					   l_address_dic.Item("section_name") & "','" &_
					   l_address_dic.Item("person") & "','" &_
					   l_address_dic.Item("tel") & "','" &_
					   l_address_dic.Item("fax") & "','" &_
					   l_address_dic.Item("note") & "','" &_
					   l_address_dic.Item("mail") & "','" &_
					   CLM_METHOD_DIRECT & "','" &_
					   CLM_SITUATION_UNSHIPPING & "','" &_
					   CLM_SITUATION_UNSHIPPING & "','" &_
					   l_detail_dic.Item("class") & "',SYSDATE,NULL,'0')"
'response.write l_ordSql
'			Call l_db.ProcBeginTrans 
'			l_resultarray(2) = true
			If l_db.ProcExecute(l_ordSql) Then
'				Call l_db.ProcCommit
				'l_resultarray(0) = l_orderno
				'If l_detail_dic.Item("shipment_day") <> "" Then
				'	l_resultarray(1) = l_detail_dic.Item("shipment_day") & " " & l_bundletime
				'End If
				GetOrderRec = true
			Else
'				Call l_db.ProcRollBack
				Response.Write "僄儔乕敪惗"
				'l_resultarray(2) = false
				GetOrderRec = false
			End If
			'InsertDataClime = l_resultarray
	End Function

	'/***********************************
	'/* 梊栺嵼屔悢偺傾僢僾僨乕僩
	'/* param丗l_db
	'/*        l_sysId
	'/*        l_coId
	'/*        l_listcd
	'/*        l_listeda
	'/*        l_quantity
	'/***********************************
	Public Function UpdateReserveNum(l_db,l_sysId,l_coId,l_listcd,l_listeda,l_quantity)
		Dim l_SQL
		Dim l_rset
		Dim l_count

		For l_count = 1 to 3
			l_SQL = "SELECT COUNT(*) " &_
					"  FROM STOCK_T " &_
					" WHERE SYSTEM_ID = '" & l_sysId & "' " &_
					"   AND LIST_CD = '" & l_listcd & "' " &_
					"   AND LIST_EDA = '" & l_listeda & "' " &_
					"   AND DELIVERY_PLACE" & CStr(l_count) & " = '" & l_coId & "' "
			Set l_rset = l_db.ProcRecordSet(l_SQL,1,0)

			If l_rset.Fields.Item("COUNT(*)") <> 0 Then
				Exit For
			End If 
		Next

		l_SQL = "UPDATE STOCK_T ST " &_
				"   SET ST.RESERVE_STOCK_NUM" & CStr(l_count) & " = " &_
				"       NVL((SELECT RESERVE_STOCK_NUM" & CStr(l_count)  &_
				"          FROM STOCK_T " &_
				"         WHERE SYSTEM_ID = ST.SYSTEM_ID " &_
				"           AND LIST_CD = ST.LIST_CD " &_
				"           AND LIST_EDA = ST.LIST_EDA " &_
				"           AND DELIVERY_PLACE" & CStr(l_count) & " = ST.DELIVERY_PLACE" & CStr(l_count) & _
				"),0) + " & l_quantity & "," &_
				"       UPDATE_YMD = SYSDATE " &_
				" WHERE SYSTEM_ID = '" & l_sysId & "' " &_
				"   AND LIST_CD = '" & l_listcd & "' " &_
				"   AND LIST_EDA = '" & l_listeda & "' " &_
				"   AND DELIVERY_PLACE" & CStr(l_count) & " = '" & l_coId & "' "
'Response.Write l_SQL
		If l_db.ProcExecute(l_SQL) Then
			UpdateReserveNum = true
		Else
			UpdateReserveNum = false
		End If
	End Function
End Class

%>