directordermain.asp

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

<%
'/*********************************************
'/憅屔夛幮丒捈愙拲暥儊僀儞僋儔僗
'/仸帒椏惪媮偺ASP傪僐僺乕仌廋惓
'/  嶲峫ASP丗demand/app/DemandReserve.asp
'/*********************************************
Class DirectOrderMain
	
	Dim l_db	'DBAccess DB傾僋僙僗梡
	Dim l_rlm	'ReserveListMaster
	Dim l_chutil 'CharUtil梡
	Dim l_sysId	'僔僗僥儉ID(String)
	Dim l_coId	'夛幮ID(String)
	Dim l_total	'崌寁嬥妟
	Dim l_bundletime	'掲傔帪娫
	Dim l_kind       '惪媮曽朄
	Dim l_cmn

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Dim l_dbinfo 'String

		'DB僐僱僋僔儑儞庢摼
		Set l_db = New DbAccess
		Set l_cmn = New Common
		Set l_chutil = New CharUtil
		Set l_rlm = New WhReserveListMaster

		Call l_cmn.SearchSession
		Call l_db.ProcConnection(DSN, USERID, PASSWD)

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_sysId = Session("User").Item("SYSTEM_ID")	'僔僗僥儉ID
		l_coId = Session("User").Item("COMPANY_ID")	'夛幮ID
		l_total	= 0									'崌寁嬥妟
		l_bundletime = Request.Cookies("Comp")("Time")
	End Function

	'/***********************************************************************************
	'/* 娙堈拲暥僠僃僢僋偺偨傔偵昁梫側僨乕僞傪庢摼
	'/* param丗l_listcd 挔昜斣崋
	'/*       l_listeda 挔昜斣崋巬斣崋
	'/*       l_listmanage_no 挔昜娗棟斣崋
	'/*       l_quantity 悢検
	'/*       l_class 弌屔嬫暘 0丗捠忢丂1丗攑婞
	'/* return丗寢壥攝楍
	'/*       l_listarray (0)丗寢壥僼儔僌
	'/*                      ""丗嬥妟OK
	'/*                      "0"丗嵼屔側偟
	'/*                      "2"丗挔昜懚嵼偣偢
	'/*                      "2"丗挔昜懚嵼偣偢
	'/***********************************************************************************
	Public Function ReserveStock(l_listcd,l_listeda,l_listmanage_no,l_quantity,l_class)
		Dim l_rlm
		Dim l_name
		Dim l_kaniarray		'娙堈偐傜偺擖椡抣
		Dim l_paramdic		'擖椡抣
		Dim l_listrst		'RecordSet
		Dim l_listdic
		Dim l_count
		Dim l_leavecount	'儃乕僟乕
		Dim l_decisionday	'妋掕擔
		Dim l_cancelday		'庢徚壜擻擔

		'娙堈拲暥梡挔昜攝楍 (0)丗寢壥僼儔僌
		Dim l_listarray(5)	

		Set l_paramdic = CreateObject("Scripting.Dictionary")
		Set l_listdic = CreateObject("Scripting.Dictionary")
		Set l_rlm = New WhReserveListMaster

		'儗僐乕僪傪庢摼偡傞
		Set l_listrst = l_rlm.ReserveSerchList(l_db,l_sysid,l_coid,l_listmanage_no,l_listcd,l_listeda)

		'挔昜偑懚嵼偟側偄応崌
		If l_listrst.Eof Then
			l_listarray(0) = "2"
			ReserveStock = l_listarray
			Exit Function
		'惪媮婜娫奜偺応崌
		'ElseIf l_listrst.Fields.Item("CLAIM_PERIOD_FLAG") <> FLG_ON And _
		'	IsNull(l_listrst.Fields.Item("CLAIM_PERIOD_START")) And _
		'	IsNull(l_listrst.Fields.Item("CLAIM_PERIOD_END")) Then
		'	l_listarray(0) = "2"
		'	ReserveStock = l_listarray
		'	Exit Function
		'ElseIf Not IsNull(l_listrst.Fields.Item("CLAIM_PERIOD_START")) And _
		'	Not IsNull(l_listrst.Fields.Item("CLAIM_PERIOD_END")) Then
		'	If l_listrst.Fields.Item("CLAIM_PERIOD_START") > Date Or _
		'		l_listrst.Fields.Item("CLAIM_PERIOD_END") < Date Then
		'		l_listarray(0) = "2"
		'		ReserveStock = l_listarray
		'		Exit Function
		'	End If
		End If

		'惪媮悢偑儃乕僟乕傪墇偊偰偄傞応崌(寈崘儊僢僙乕僕丄敪拲晄壜偺椉曽)
		'If (l_listrst.Fields.Item("LEAV_DIRECTION") = "0" Or _
		'	l_listrst.Fields.Item("LEAV_DIRECTION") = "1") And _
		'	l_listrst.Fields.Item("LEAV_DIRECTION_COUNT") <> "" Then
		'	l_leavecount = l_listrst.Fields.Item("LEAV_DIRECTION_COUNT")
		'	If IsNull(l_leavecount) Then
		'		l_leavecount = 0
		'	End If
		'	l_leavecount = CDbl(l_leavecount)
		'	If CDbl(l_quantity) > l_leavecount And l_leavecount > 0 Then
		'		l_listarray(0) = "3"
		'		ReserveStock = l_listarray
		'		Exit Function
		'	End If
		'End If

		Dim l_list_name
		Dim l_list_manage_no
		Dim l_unit_price
		Dim l_arrival_wait
		Dim l_packing_count
		Dim l_date
		Dim l_subtotal
		Dim l_list_unit

		l_list_name = l_listrst.Fields.Item("LIST_NAME")
		'l_list_manage_no = l_listrst.Fields.Item("LIST_MANAGE_NO")
		l_unit_price = l_listrst.Fields.Item("UNIT_PRICE")
		l_arrival_wait = l_listrst.Fields.Item("ARRIVAL_WAIT")
		l_packing_count = l_listrst.Fields.Item("PACKING_COUNT")
		'庢傝徚偟壜擻擔
		l_cancelday = l_cmn.GetCancelAbleDay(now,"1")
		'妋掕擔庢摼
		l_decisionday = l_cmn.GetDecisionDay(l_cancelday,1)
		'敪憲梊掕擔
		l_date = l_cmn.GetShipmentDay(l_db,l_coId,l_decisionday,"1")
		'敪憲梊掕擔偑庢摼偱偒側偄応崌 10/29
		If l_date = "" Then
			l_listarray(0) = "5"
			ReserveStock = l_listarray
			Exit Function
		End If

		l_subtotal = CStr(CDbl(l_quantity) * CDbl(l_listrst.Fields.Item("UNIT_PRICE")))
		l_list_unit = l_listrst.Fields.Item("LIST_UNIT")

'********************************************************************
		'Dictionary偺弶婜壔
		'l_listdic.RemoveAll

		'挔昜忣曬傪Dictionary偵捛壛
		'Set l_listdic = l_cmn.GetDictionaryFromRs(l_listrst)
		'儗僐乕僪傪曇廤偟丄僙僢僔儑儞偵愝掕
		'Dim l_key, l_retRec, l_retListRec, l_cnt
		'Set l_retListRec = CreateObject("Scripting.Dictionary")
		'l_key = l_listdic.keys
		'For l_cnt = 0 to l_listdic.Count - 1
			'1儗僐乕僪拪弌
			'Set l_retRec = SetOrderData(l_listcd,l_listeda,l_quantity,l_listdic)
			'Set l_retRec = SetOrderData(l_listcd,l_listeda,l_quantity,l_list_name,l_list_manage_no,l_unit_price,l_arrival_wait,l_packing_count,l_subtotal,l_list_unit)
			'l_retListRec.add CStr(l_cnt), l_retRec
		'Next
		'Set Session("StockDic") = l_retListRec
'********************************************************************

		Dim l_retRec
		Dim l_retListRec
		Set l_retListRec = CreateObject("Scripting.Dictionary")
		Set l_retRec = SetOrderData(l_listcd,l_listeda,l_quantity,l_list_name,l_list_manage_no,l_unit_price,l_arrival_wait,l_packing_count,l_date,l_subtotal,l_list_unit,l_class,l_cancelday,l_decisionday)
		If IsObject(Session("StockDic")) Then
			Set l_retListRec = Session("StockDic")
			l_retListRec.add CStr(l_retListRec.Count+1),l_retRec
			Set Session("StockDic") = l_retListRec
		Else
			l_retListRec.add CStr(0),l_retRec
			Set Session("StockDic") = l_retListRec
		End If

		ReserveStock = l_listarray
	End Function

	'/********************************************
	'/* 挔昜僨乕僞傪僙僢僩
	'/* param丗l_listcd 挔昜斣崋
	'/*        l_listeda 挔昜斣崋巬斣
	'/*        l_quantity 悢検
	'/*        l_recdic  挔昜偺忣曬(Dictionary)
	'/********************************************
	'Public Function SetOrderData(l_listcd,l_listeda,l_quantity,l_recdic)
	Public Function SetOrderData(l_listcd,l_listeda,l_quantity,l_list_name,l_list_manage_no,l_unit_price,l_arrival_wait,l_packing_count,l_date,l_subtotal,l_list_unit,l_class,l_cancel_day,l_decision_day)
		Dim l_detaildic
		Dim l_format_cancel_day		'庢徚壜擻擔(YYYYMMDDHHMiSS)
		Dim l_format_dicision_day	'妋掕擔(YYYYMMDDHHMiSS)

		Set l_detaildic = CreateObject("Scripting.Dictionary")

		'庢徚壜擻擔偺":","/" 嶍彍
		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," ","")

		l_detaildic.add "quantity",l_quantity
		l_detaildic.add "list_cd",l_listcd
		l_detaildic.add "list_eda",l_listeda
		l_detaildic.add "list_name",l_list_name
		l_detaildic.add "list_manage_no",l_list_manage_no
		l_detaildic.add "unit_price",l_unit_price
		l_detaildic.add "arrival_wait",l_arrival_wait
		l_detaildic.add "packing_count",l_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 "subtotal",l_subtotal
		l_detaildic.add "list_unit",l_list_unit
		l_detaildic.add "class",l_class
		'l_detaildic.add "list_name",l_recdic.Item("LIST_NAME")
		'l_detaildic.add "list_manage_no",l_recdic.Item("LIST_MANAGE_NO")
		'l_detaildic.add "unit_price",l_recdic.Item("UNIT_PRICE")
		'l_detaildic.add "arrival_wait",l_recdic.Item("ARRIVAL_WAIT")
		'l_detaildic.add "set_count",l_recdic.Item("SET_COUNT")
		'l_detaildic.add "subtotal",CStr(CDbl(l_quantity) * CDbl(l_recdic.Item("UNIT_PRICE")))
		Set SetOrderData = l_detaildic
	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
%>