reservelistmaster.asp

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

		'			     "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,10,0)
		'GetOrderNo = l_rset.Fields.Item("RECEPT_NO")


		'If IsNull(l_rset.Fields.Item("RECEPT_NO")) Then
		'	l_orderno = "000001"
		'Else
		'	l_orderno = CStr(l_rset.Fields.Item("RECEPT_NO"))
		'	Do Until Len(l_orderno) = 6
		'		l_orderno = "0" & l_orderno
		'	Loop
		'End If

		
	End Function

	'/***************************************************************
	'/* 帒椏惪媮敪拲儅僗僞Insert
	'/* param丗l_db				DB愙懕忣曬
	'/*        l_sysId			僔僗僥儉ID
	'/*        l_coId			夛幮ID
	'/*        l_detail_dic		惪媮忣曬(Dictionary)
	'/*        l_address_dic	惪媮応強忣曬(Dictionary)
	'/*        l_orderno		庴晅斣崋
	'/*        l_count			僀儞僨僢僋僗
	'/*        l_cancelday		庢徚壜擻擔
	'/*        l_bundletime		掲傔帪娫
	'/* return丗
	'/***************************************************************
	Public Function InsertDataClime(l_db,l_sysId,l_coId,l_detail_dic,l_address_dic,l_orderno,l_count,l_cancelday,l_bundletime)
		Dim l_SQL
		Dim l_resultarray(3)

		l_resultarray(2) = true
		
		l_SQL = "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") & "'," &_
					   "TO_DATE('" & Session("BasketTime") & "','YYYY/MM/DD/HH24:MI:SS')," &_
					   "'" & l_detail_dic.Item("delivery_place") & "'," &_
					   "'" & l_detail_dic.Item("shipment_day") & "'," 
		'妋掕擔
		If l_detail_dic.Item("dicision_day") <> "" Then
			l_SQL = l_SQL & "TO_DATE('" & l_detail_dic.Item("format_dicision_day") & "','YYMMDDHH24MiSS'),"
		Else
			l_SQL = l_SQL & "'',"
		End If

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

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

		'悢検
		If l_detail_dic.Item("quantity") <> "" Then
			l_SQL = l_SQL & l_detail_dic.Item("quantity") & "," 
		ElseIf l_address_dic.Item("quantity") Then
			l_SQL = l_SQL & l_address_dic.Item("quantity") & "," 
		Else
			l_SQL = l_SQL & "0,"
		End If
			l_SQL = l_SQL & "NULL," 

		'彫寁
		If l_detail_dic.Item("subtotal") <> "" Then
			l_SQL = l_SQL & l_detail_dic.Item("subtotal") & ",'" 
		ElseIf l_address_dic.Item("subtotal") <> "" Then
			l_SQL = l_SQL & l_address_dic.Item("subtotal") & ",'" 
		Else
			l_SQL = l_SQL & "0,'"
		End If
			l_SQL = l_SQL & l_address_dic.Item("deliradio") & "','" 

		'惪媮曽朄偵傛傝攝憲愭僐乕僪偺憓擖
		Select Case l_address_dic.Item("deliradio")
			Case DELIVERY_KIND_AGENCY
				l_SQL = l_SQL & l_coId & Session("User").Item("SECTION_ID") & "','" 
			Case DELIVERY_KIND_RECEIVE
				l_SQL = l_SQL & l_address_dic.Item("ordercd") & "','" 
			Case DELIVERY_KIND_OTHER
				l_SQL = l_SQL & "9999999999','" 
			Case Else
				l_SQL = l_SQL & l_address_dic.Item("ordercd") & "','" 
		End Select 
			l_SQL = l_SQL & 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") & "','" &_
					   l_detail_dic.Item("claim_method") & "','" &_
						l_detail_dic.Item("claim_situation") & "','" 
			'慡惪媮忬嫷
			If Session("TotalSituationWait") = CLM_SITUATION_WAIT Then
				l_SQL = l_SQL & Session("TotalSituationWait") & "',"
			Else
				l_SQL = l_SQL & CLM_SITUATION_UNSHIPPING & "'," 
			End If
				l_SQL = l_SQL & "'0',SYSDATE,NULL,'0')"
'Response.Write l_SQL & "<br>"
			'Call l_db.ProcBeginTrans 
			If l_db.ProcExecute(l_SQL) Then
			'	Call l_db.ProcCommit
				l_resultarray(0) = l_orderno
				If l_detail_dic.Item("shipment_day") <> "" Then
					l_resultarray(1) = mid(l_detail_dic.Item("dicision_day"),1,16)
				End If
			Else
			'	Call l_db.ProcRollBack
				Response.Write "僄儔乕敪惗"
				l_resultarray(2) = false
			End If
			InsertDataClime = l_resultarray
	End Function

	'/********************************************
	'/* 嵼屔堷偒摉偰傾僢僾僨乕僩
	'/* param丗l_dbacsess
	'/*        l_sysid
	'/*        l_coid
	'/*        l_reserve_name  僇儔儉柤(RESERVE_STOCK_NUM1
	'/*                         傑偨偼RESERVE_STOCK_NUM2
	'/*                         傑偨偼RESERVE_STOCK_NUM3)
	'/*        l_resnum        RESERVE_STOCK_NUM1
	'/*                         傑偨偼RESERVE_STOCK_NUM2
	'/*                         傑偨偼RESERVE_STOCK_NUM3
	'/*        l_listcd        挔昜僐乕僪
	'/*        l_listeda       挔昜巬斣
	'/********************************************
	Public Function UpDateStock(l_dbaccess,l_sysId,l_coId,l_reserve_name,l_resnum,l_listcd,l_listeda)
		Dim l_strSql

		UpDateStock = true
		l_strSql = "UPDATE STOCK_T " &_
				   "SET " & l_reserve_name & " = " & l_resnum & " " &_
				   "WHERE SYSTEM_ID = '" & l_sysId & "' " &_
				   "AND COMPANY_ID = '" & l_coId & "' " &_
				   "AND LIST_CD = '" & l_listcd & "' " &_
				   "AND LIST_EDA = '" & l_listeda & "' "

		Call l_dbaccess.ProcBeginTrans 'Then
			If l_dbaccess.ProcExecute(l_strSql) Then
				Call l_dbaccess.ProcCommit
			Else
				UpDateStock = false
				Call l_dbaccess.ProcRollBack
			End If
	End Function

	'/*******************************************
	'/* 憅屔庢摼(擖壸懸偪張棟偺嵺偵巊梡)
	'/* param丗l_db
	'/*        l_sysId
	'/*        l_listcd
	'/*        l_listeda
	'/*******************************************
	Public Function GetWareHouseRec(l_db,l_sysId,l_listcd,l_listeda)
		Dim l_strSql

		l_strSql = "SELECT " &_
				   "(SELECT COMPANY_ID " &_
				   "   FROM COMPANY_M " &_
				   "  WHERE SYSTEM_ID = S_T.SYSTEM_ID " &_
				   "    AND COMPANY_ID = S_T.DELIVERY_PLACE1 " &_
			       "    AND STATUS = '1' " &_
				   ") AS DELIVERY_PLACE1," &_
				   "(SELECT COMPANY_ID " &_
				   "   FROM COMPANY_M " &_
				   "  WHERE SYSTEM_ID = S_T.SYSTEM_ID " &_
				   "    AND COMPANY_ID = S_T.DELIVERY_PLACE2 " &_
			       "    AND STATUS = '1' " &_
				   ") AS DELIVERY_PLACE2," &_
				   "(SELECT COMPANY_ID " &_
				   "   FROM COMPANY_M " &_
				   "  WHERE SYSTEM_ID = S_T.SYSTEM_ID " &_
				   "    AND COMPANY_ID = S_T.DELIVERY_PLACE3 " &_
			       "    AND STATUS = '1' " &_
				   ") AS DELIVERY_PLACE3," &_
				   "(SELECT COMPANY_NAME " &_
				   "   FROM COMPANY_M " &_
				   "  WHERE SYSTEM_ID = S_T.SYSTEM_ID " &_
				   "    AND COMPANY_ID = S_T.DELIVERY_PLACE1 " &_
			       "    AND STATUS = '1' " &_
				   ") AS COMPANY_NAME1," &_
				   "S_T.DELIVERY_PLACE2," &_
				   "(SELECT COMPANY_NAME " &_
				   "   FROM COMPANY_M " &_
				   "  WHERE SYSTEM_ID = S_T.SYSTEM_ID " &_
				   "    AND COMPANY_ID = S_T.DELIVERY_PLACE2 " &_
				   "    AND STATUS = '1' " &_
				   ") AS COMPANY_NAME2," &_
				   "S_T.DELIVERY_PLACE3," &_
				   "(SELECT COMPANY_NAME " &_
				   "   FROM COMPANY_M " &_
				   "  WHERE SYSTEM_ID = S_T.SYSTEM_ID " &_
				   "    AND COMPANY_ID = S_T.DELIVERY_PLACE3 " &_
			       "    AND STATUS = '1' " &_
				   ") AS COMPANY_NAME3 " &_
				   " FROM STOCK_T S_T " &_
				   "WHERE S_T.SYSTEM_ID = '" & l_sysId & "' " &_
				   "  AND S_T.LIST_CD = '" & l_listcd & "' " &_
				   "  AND S_T.LIST_EDA = '" & l_listeda & "' "
		Set GetWareHouseRec = l_db.ProcRecordset(l_strSql,1,0)
	End Function

	'/*******************************************
	'/* 梊栺嵼屔悢峏怴(擖壸懸偪張棟偺嵺偵巊梡)
	'/* param丗l_db
	'/*        l_sysId
	'/*        l_listcd
	'/*        l_listeda
	'/*******************************************
	Public Function UpdateReserveStockNum(l_db,l_sysId,l_coId,l_listcd,l_listeda,l_quantity)
		Dim l_SQL

		l_SQL = "UPDATE STOCK_T " &_
				"   SET RESERVE_STOCK_NUM1 = RESERVE_STOCK_NUM1 + " & l_quantity & _
				" WHERE SYSTEM_ID = '" & l_sysId & "' " &_
				"   AND COMPANY_ID = '" & l_coId & "' " &_
				"   AND LIST_CD = '" & l_listcd & "' " &_
				"   AND LIST_EDA = '" & l_listeda & "' "  

		If l_db.ProcExecute(l_SQL) Then
			UpdateReserveStockNum = true
		Else
			UpdateReserveStockNum = false
		End If

	End Function


	'/*******************************************
	'/* 挔昜斣崋巬斣偺庢摼乮娙堈拲暥偱巊梡乯
	'/* param丗l_db
	'/*        l_sysId
	'/*        l_listcd
	'/*******************************************
	Public Function GetListEdaRec(db,sysid,listcd)
		Dim l_SQL

		l_SQL = "SELECT L_T.LIST_EDA " &_
				"  FROM LISTBASE_T L_T " &_
				" WHERE L_T.SYSTEM_ID = '" & sysid & "' " &_
				"   AND L_T.LIST_CD = '" & listcd & "' " &_
				"   AND L_T.LIST_EDA = L_T.LIST_EDA " &_
				"   AND L_T.LIST_STATUS IN('" & LSTS_APPROVE & "') " &_
				"   AND L_T.DEL_FLG = '" & FLG_OFF & "' " &_
				" GROUP BY L_T.LIST_EDA "
'response.write l_SQL
		Set GetListEdaRec = db.ProcRecordset(l_SQL,1,0)

	End Function
End Class
%>