demandreserve.asp

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

			If len(CStr(l_listeda)) = 1 Then
				l_listeda = "0" & CStr(l_listeda)
			End If
		Next
	End Function

	'/********************************************
	'/* 嵼屔偺夝曻
	'/* param丗l_listcd   挔昜僐乕僪
	'/*        l_listeda  挔昜巬斣
	'/*        l_quantity 悢検
	'/*        l_seq      Dictionary偐傜嶍彍偵奩摉偡傞僉乕
	'/********************************************
	Public Function ReleaseStock(l_listcd,l_listeda,l_quantity,l_seq)
		Dim l_strSql
		Dim l_dic
		Dim l_detaildic
		Dim l_redic
		Dim l_count
		Dim l_key
		Dim l_keycount
		Dim l_logmes		'儘僌儊僢僙乕僕
		Dim l_conv_arr(3)	'儘僌儊僢僙乕僕僼僅乕儅僢僩暥帤

		l_keycount = 0
		Set l_redic = CreateObject("Scripting.Dictionary")

		If IsObject(Session("StockDic")) Then
			Set l_dic = Session("StockDic")
			Set l_detaildic = l_dic.Item(l_seq)
			'梊栺嵼屔傪曐帩偟偰偄傞応崌(擖壸懸偪偱偼側偄応崌)
			If l_detaildic.Item("reserve_stock_numname") <> "" Then
				l_strSql = "UPDATE STOCK_T " &_
						   "SET " & l_detaildic.Item("reserve_stock_numname") &_
						   " = (SELECT " & l_detaildic.Item("reserve_stock_numname") &_
						   " - " & l_quantity & " FROM STOCK_T " &_
						   "WHERE SYSTEM_ID = '" & l_sysId & "' " &_
					       "AND LIST_CD = '" & l_listcd & "' " &_
					       "AND LIST_EDA = '" & l_listeda & "') " &_
						   "WHERE SYSTEM_ID = '" & l_sysId & "' " &_
					   	   "AND COMPANY_ID = '" & l_coId & "' " &_
					       "AND LIST_CD = '" & l_listcd & "' " &_
					       "AND LIST_EDA = '" & l_listeda & "' " 
				
			Else
				l_strSql = "UPDATE STOCK_T " &_
						   "SET RESERVE_STOCK_NUM1 " &_
						   " = (SELECT RESERVE_STOCK_NUM1 " &_
						   " - " & l_quantity & " FROM STOCK_T " &_
						   "WHERE SYSTEM_ID = '" & l_sysId & "' " &_
					       "AND LIST_CD = '" & l_listcd & "' " &_
					       "AND LIST_EDA = '" & l_listeda & "') " &_
						   "WHERE SYSTEM_ID = '" & l_sysId & "' " &_
					   	   "AND COMPANY_ID = '" & l_coId & "' " &_
					       "AND LIST_CD = '" & l_listcd & "' " &_
					       "AND LIST_EDA = '" & l_listeda & "' " 
			End If
			'梊栺嵼屔偺夝曻
			Call l_db.ProcBeginTrans 
			If l_db.ProcExecute(l_strSql) Then
				Call l_db.ProcCommit
				
				'儘僌儊僢僙乕僕嶌惉
				l_conv_arr(0) = l_detaildic.Item("company_name")
				l_conv_arr(1) = l_listcd
				l_conv_arr(2) = l_listeda
				l_conv_arr(3) = l_quantity
				l_logmes = l_cmn.GetLogMessage(DEMAND_BASKET_DEL_LOG,l_conv_arr)

				'儘僌偺弌椡
				Call l_cmn.OutputLogFile(l_logmes)
			Else
				Call l_db.ProcRollBack
			End If

			l_detaildic.RemoveAll
			l_key = l_dic.keys
			For l_count = 0 to l_dic.count - 1
				Set l_detaildic = l_dic.Item(l_key(l_count))
				If l_key(l_count) <> l_seq Then
					l_redic.add CStr(l_keycount),l_detaildic
					l_keycount = l_keycount + 1
				End If
			Next
			If l_keycount = 0 Then
				Session.Contents.Remove("StockDic")
			Else
				Set Session("StockDic") = l_redic
			End If
		End If
	End Function

	'/********************************************
	'/* 嵼屔堷偒摉偰偺僨乕僞傪僙僢僩
	'/* param丗l_rsv          儗僐乕僪僙僢僩
	'/*        l_listdic      挔昜偺忣曬(Dictionary)
	'/*        l_num          NUM1傑偨偼NUM2傑偨偼NUM3
	'/*        l_reserve_num  RESERVE_STOCK_NUM1傑偨偼RESERVE_STOCK_NUM2傑偨偼RESERVE_STOCK_NUM3
	'/*        l_kind         惪媮庬椶丂000001丗昗弨丂000002丗娙堈
	'/*        l_quantity     惪媮悢検
	'/*        l_date         弌壸擔
	'/*        l_cancel_day	  庢徚壜擻擔
	'/*        l_dicition_day  妋掕擔
	'/********************************************
	Public Function SetOrderData(l_rsv,l_listdic,l_num,l_reserve_num,l_kind,l_quantity,l_date,l_cancel_day,l_decision_day)
		Dim l_detaildic,l_count
		Dim l_format_cancel_day		'庢徚壜擻擔(YYYYMMDDHHMiSS)
		Dim l_format_dicision_day	'妋掕擔(YYYYMMDDHHMiSS)

		'庢徚壜擻擔偺":","/" 嶍彍
		l_format_cancel_day = Replace(l_cancel_day,":","")
		l_format_cancel_day = Replace(l_format_cancel_day,"/","")
		l_format_cancel_day = Replace(l_format_cancel_day," "," ")

		'妋掕擔偺":","/" 嶍彍
		l_format_dicision_day = Replace(l_decision_day,":","")
		l_format_dicision_day = Replace(l_format_dicision_day,"/","")
		l_format_dicision_day = Replace(l_format_dicision_day," ","")

		Set l_detaildic = CreateObject("Scripting.Dictionary")
		Do Until l_rsv.Eof
			For l_count = 0 to l_rsv.Fields.Count - 1
				l_detaildic.add l_chutil.Asc_chk(l_rsv.Fields(l_count).Name,2),l_rsv.Fields(l_count).Value	
				
			Next
			l_rsv.MoveNext
		Loop
		l_detaildic.add "quantity",l_quantity								'悢検
		l_detaildic.add "list_cd",l_listdic.Item("list_cd")					'挔昜僐乕僪
		l_detaildic.add "list_eda",l_listdic.Item("list_eda")				'挔昜巬斣
		l_detaildic.add "list_name",l_listdic.Item("list_name")				'挔昜柤
		l_detaildic.add "list_manage_no",l_listdic.Item("list_manage_no")	'挔昜娗棟斣崋
		l_detaildic.add "list_unit",l_listdic.Item("list_unit")				'挔昜娗棟扨埵
		l_detaildic.add "unit_price",l_listdic.Item("unit_price")			'扨壙
		l_detaildic.add "arrival_wait",l_listdic.Item("arrival_wait")		'擖壸懸偪壜擻
		l_detaildic.add "packing_count",l_listdic.Item("packing_count")		'擖傝悢
		l_detaildic.add "shipment_day",l_date								'弌壸擔
		l_detaildic.add "cancel_day",l_cancel_day							'庢徚壜擻擔(YYYY/MM/DD:HH24:MI:SS)
		l_detaildic.add "dicision_day",l_decision_day						'妋掕擔(YYYY/MM/DD:HH24:MI:SS)
		l_detaildic.add "format_cancel_day",l_format_cancel_day				'庢徚壜擻擔(YYYYMMDDHHMiSS)
		l_detaildic.add "format_dicision_day",l_format_dicision_day			'妋掕擔(YYYYMMDDHHMiSS)
		l_detaildic.add "num_name",l_num									'悢検
		l_detaildic.add "reserve_stock_numname",l_reserve_num				'堷偒摉偰偨憅屔偺悢検
		l_detaildic.add "claim_method",l_kind								'惪媮曽朄
		l_detaildic.add "claim_situation",CLM_SITUATION_UNSHIPPING
		l_detaildic.add "subtotal",CStr(CLng(l_quantity) * CDbl(l_listdic.Item("unit_price")))
		Set SetOrderData = l_detaildic
	End Function

	'/********************************************
	'/* 擖壸懸偪偺張棟
	'/* param:l_listcd 挔昜僐乕僪
	'/*       l_listeda 挔昜巬斣
	'/*       l_manage	挔昜娗棟斣崋
	'/*       l_listname 挔昜柤
	'/*       l_quantity 悢検
	'/*       l_unitprice 扨壙
	'/*       l_clm_method 惪媮曽朄(捠忢丄娙堈)
	'/*       l_unit 扨埵
	'/*       l_packingcount 擖傝悢
	'/********************************************
	Public Sub Proc_Wait(l_listcd,l_listeda,l_manage,l_listname,l_quantity,l_unitprice,l_clm_method,l_unit,l_packingcount)
		Dim l_dic
		Dim l_stcdic
		Dim l_rset
		Dim l_reserveset
		Dim l_errarray(1)

		Set l_dic = CreateObject("Scripting.Dictionary")
		Set l_stcdic = CreateObject("Scripting.Dictionary")

		'憅屔柤庢摼
		Set l_rset = l_rlm.GetWareHouseRec(l_db,l_sysId,l_listcd,l_listeda)
		If Not l_rset.Eof Then
			If l_rset.Fields.Item("DELIVERY_PLACE1") <> "" Then
				l_dic.add "company_name",CStr(l_rset.Fields.Item("COMPANY_NAME1"))
				l_dic.add "delivery_place",CStr(l_rset.Fields.Item("DELIVERY_PLACE1"))
			ElseIf l_rset.Fields.Item("DELIVERY_PLACE2") <> "" Then
				l_dic.add "company_name",CStr(l_rset.Fields.Item("COMPANY_NAME2"))
				l_dic.add "delivery_place",CStr(l_rset.Fields.Item("DELIVERY_PLACE2"))
			ElseIf l_rset.Fields.Item("DELIVERY_PLACE3") <> "" Then
				l_dic.add "delivery_place",CStr(l_rset.Fields.Item("DELIVERY_PLACE3"))
				l_dic.add "company_name",CStr(l_rset.Fields.Item("COMPANY_NAME3"))
			End If
		End If

		'梊栺嵼屔悢峏怴
		If l_db.ProcBeginTrans Then
			If l_rlm.UpdateReserveStockNum(l_db,l_sysId,l_coId,l_listcd,l_listeda,l_quantity) Then
				Call l_db.ProcCommit
			Else
				Call l_db.ProcRollBack
				l_errarray(0) = IG11065E
				Session("ErrMsg") = l_errarray
				Response.Redirect "../error.asp"
			End If
		Else
			l_errarray(0) = IG11065E
			Session("ErrMsg") = l_errarray
			Response.Redirect "../error.asp"
		End If

		'儘僌偺弌椡
		Call l_cmn.OutputLogFile("帒椏惪媮丂攦偄暔偐偛丂搊榐")

		l_dic.add "list_cd",l_listcd
		l_dic.add "list_eda",l_listeda
		l_dic.add "list_name",l_listname
		l_dic.add "unit_price",l_unitprice
		l_dic.add "quantity",l_quantity
		l_dic.add "subtotal",CStr(CDbl(l_quantity) * CDbl(l_unitprice))
		l_dic.add "claim_method",l_clm_method
		l_dic.add "claim_situation",CLM_SITUATION_WAIT 
		l_dic.add "list_unit",l_unit
		l_dic.add "packing_count",l_packingcount
		l_dic.add "list_manage_no",l_manage

		'婛偵僇僑偺拞恎偑懚嵼偡傞応崌
		If IsObject(Session("StockDic")) Then
			Set l_stcdic = Session("StockDic")
			l_stcdic.add CStr(l_stcdic.Count+1),l_dic
			Set Session("StockDic") = l_stcdic
		Else
			l_stcdic.add CStr("0"),l_dic
			Set Session("StockDic") = l_stcdic
		End If

	End Sub


	'/********************************************
	'/* 崌寁嬥妟偺僙僢僩
	'/* param丗彫寁嬥妟
	'/********************************************
	Public Function SetTotalMoney(l_subtotal)
		l_total = CDbl(l_total) + CDbl(l_subtotal)
	End Function

	'/********************************************
	'/* 崌寁嬥妟偺庢摼
	'/* return丗崌寁嬥妟
	'/********************************************
	Public Function GetTotalMoney
		Dim l_tmp_arr
		'彫悢揰偑偁傞応崌
		If InStr(l_total,".") <> 0 Then
			l_tmp_arr = Split(l_total,".")
			GetTotalMoney = l_chutil.NumericFormat(l_total,true,Len(l_tmp_arr(1)))
		Else
			GetTotalMoney = l_chutil.NumericFormat(l_total,true,0)
		End If
	End Function

	'/********************************************
	'/* 僋儘乕僘
	'/********************************************
	Public Function Close
		If IsObject(l_db.l_objADO_Rset) Then
			Call l_db.CloseRecodeset
		End If
		If IsObject(l_db.l_objADO_Conn) Then
			Call l_db.CloseConnection
		End If
	End Function
End Class
%>