orderfinish.asp

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

<%
'On Error Resume Next
Class OrderFinish
	Dim l_db	'DBAccess DB傾僋僙僗梡
	Dim l_chutil 'CharUtil梡
	Dim l_rem
	Dim l_sysId	'僔僗僥儉ID(String)
	Dim l_coId	'夛幮ID(String)
	Dim l_total	'崌寁嬥妟
	Dim l_bundletime '掲傔帪娫

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

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

		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

	'/********************************************
	'/* 帒椏偺惪媮
	'/* return丗
	'/********************************************
	Public Function GetOrder
		Dim l_recepNoSql
		Dim l_ordSql
		Dim l_rset
		Dim l_stock_dic
		Dim l_detail_dic
		Dim l_address_dic
		Dim l_key
		Dim l_count
		Dim l_orderno '庴晅斣崋
		Dim l_cancelday '庢徚壜擻
		Dim l_resultarray

		Set l_rem = New ReserveListMaster

		l_orderno = l_rem.GetOrderNo(l_db,l_sysId)


		Set l_address_dic = Session("Demand")
		Set l_stock_dic = Session("StockDic")
		l_key = l_stock_dic.keys
		l_orderno = CStr(l_orderno)
		For l_count = 0 to l_stock_dic.Count - 1
			Set l_detail_dic = l_stock_dic.Item(l_key(l_count))
			l_cancelday = l_detail_dic.Item("cancel_day")
			
		l_resultarray = l_rem.InsertDataClime(l_db,l_sysId,l_coId,l_detail_dic,l_address_dic,l_orderno,l_count,l_cancelday,l_bundletime)

			
		Next
		GetOrder = l_resultarray
		Call SendDetailsMail(l_orderno)
	End Function

	'/***********************************************
	'/* 帒椏偺惪媮(堦惸攝晍)
	'/* param丗挔昜忣曬Dictionary偑奿擺偝傟偨攝楍
	'/*        攝憲愭忣曬Dictionary偑奿擺偝傟偨攝楍
	'/***********************************************
	Public Function GetOrderInit(l_dbaccess,l_common,l_sysid,l_coid,l_orderno,l_list_dic,l_address_dic,l_deliplace,l_bundletime)
		Dim l_count
		Dim l_addressdetaildic
		Dim l_cancel_day	'庢徚壜擻擔
		Dim l_decision_day	'妋掕擔
		Dim l_resultarray
		Dim l_key
		Dim l_diccount
		Dim l_rem
		Dim l_seq
		Dim l_format_cancel_day		'庢徚壜擻擔(YYYYMMDDHHMiSS)
		Dim l_format_dicision_day	'妋掕擔(YYYYMMDDHHMiSS)

		Set l_rem = New ReserveListMaster
		GetOrderInit = true
		l_seq = Session("seq")
		'庢徚壜擻擔
		l_cancel_day = l_common.GetCancelAbleDay(Session("BasketTime"),"2")
		l_list_dic.add "cancel_day",l_cancel_day
debug_t("庢徚壜擻擔丗" & l_cancel_day)
		'庢徚壜擻擔偺":","/" 嶍彍
		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_list_dic.add "format_cancel_day",l_format_cancel_day

		'妋掕擔
		l_decision_day = l_common.GetDecisionDay(l_cancel_day,2)
		l_list_dic.add "dicision_day",l_decision_day
debug_t("妋掕擔丗" & l_decision_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_list_dic.add "format_dicision_day",l_format_dicision_day

		'敪憲梊掕擔嶼弌
		l_list_dic.add "shipment_day",l_common.GetShipmentDay(l_dbaccess,l_deliplace,l_decision_day,"2")

		'堷摉憅屔ID
		l_list_dic.add "delivery_place",l_deliplace

		'惪媮曽朄
		l_list_dic.add "claim_method",CLM_METHOD_ISSEI
		If IsObject(l_address_dic) Then
			l_key = l_address_dic.keys			
			'敪憲愭庬暿
			'l_address_dic.add "deliradio",CLM_DELIKIND_REGIST

			'l_cancel_day = Replace(l_list_dic.Item("shipment_day"),"/","") & Replace(TimeValue(l_bundletime),":","")
			For l_diccount = 0 to l_address_dic.Count - 1
				Set l_addressdetaildic = l_address_dic(l_key(l_diccount))
				'敪憲愭庬暿
				l_addressdetaildic.add "deliradio",CLM_DELIKIND_REGIST
				l_resultarray = l_rem.InsertDataClime(l_dbaccess,l_sysId,l_coId,l_list_dic,l_addressdetaildic,l_orderno,l_seq,l_cancel_day,l_bundletime)
				l_seq = l_seq + 1
				If l_resultarray(2) = false Then
					GetOrderInit = false
					Exit Function
				End If
			Next
			Session("seq") = l_seq
		End If	
	End Function

	'/********************************************
	'/* 拲暥柧嵶彂儊乕儖憲怣
	'/* param丗
	'/* return丗
	'/********************************************
	Public Function SendDetailsMail(l_orderno)
		Dim l_claimaddressdic
		Dim l_addressdic
		Dim l_stock
		Dim l_detail
		Dim l_to
		Dim l_from
		Dim l_sub
		Dim l_text
		Dim l_count
		Dim l_element
		Dim l_keys
		Dim l_total

		Set l_claimaddressdic = Session("AgencyAddress")
		Set l_addressdic = Session("Demand")
		Set l_stock = Session("StockDic")

		l_to = l_addressdic.Item("mail")
		l_from = MAIL_FROM
		l_sub = MAIL_SUB_DEMAND_DETAILS
		l_text = DEMAND_TEXT1 

		ReDim l_convarray(l_stock.count*8+26)
		'Dim l_convarray(3)

		l_convarray(0) = Session("User").Item("NAME")
		l_convarray(1) = Date
		l_convarray(2) = l_orderno
		l_element = 3

		l_keys = l_stock.keys
		l_total = 0
		For l_count = 0 to l_stock.count - 1
			l_text = l_text & DEMAND_TEXT2
			Set l_detail = l_stock.Item(l_keys(l_count))

			l_convarray(l_element) = l_detail.Item("list_name")
			l_element = l_element + 1
			l_convarray(l_element) = l_detail.Item("list_cd") & "-" & l_detail.Item("list_eda")
			l_element = l_element + 1
			l_convarray(l_element) = l_chutil.NumericFormat(l_detail.Item("unit_price"),true,0)
			l_element = l_element + 1
			l_convarray(l_element) = l_chutil.NumericFormat(l_detail.Item("quantity"),false,0)
			l_element = l_element + 1
			l_convarray(l_element) = l_detail.Item("list_unit")
			l_element = l_element + 1
			l_convarray(l_element) = l_detail.Item("packing_count")
			l_element = l_element + 1
			l_convarray(l_element) = l_chutil.NumericFormat(l_detail.Item("subtotal"),true,0)
			l_element = l_element + 1
			l_convarray(l_element) = l_detail.Item("shipment_day")
			l_element = l_element + 1
			l_total = CDbl(l_total) + CDbl(l_detail.Item("subtotal"))
		Next
		l_text = l_text & DEMAND_TEXT3
		l_convarray(l_element) = l_chutil.NumericFormat(l_total,true,0)
		l_element = l_element + 1

		'侓侓侓侓侓埶棅尦侓侓侓侓侓
		'夛幮柤
		l_convarray(l_element) = l_claimaddressdic.Item("company_name")
		l_element = l_element + 1
		'晹栧柤
		l_convarray(l_element) = l_claimaddressdic.Item("section_name")
		l_element = l_element + 1
		'埶棅幰
		l_convarray(l_element) = l_claimaddressdic.Item("person")
		l_element = l_element + 1
		'梄曋斣崋
		l_convarray(l_element) = l_claimaddressdic.Item("postcode")
		l_element = l_element + 1
		'搒摴晎導
		l_convarray(l_element) = l_claimaddressdic.Item("prefecture")
		l_element = l_element + 1
		'巗嬫孲挰懞
		l_convarray(l_element) = l_claimaddressdic.Item("town")
		l_element = l_element + 1
		'斣抧
		l_convarray(l_element) = l_claimaddressdic.Item("house_number")
		l_element = l_element + 1
		'價儖柤
		l_convarray(l_element) = l_claimaddressdic.Item("building")
		l_element = l_element + 1
		'揹榖斣崋
		l_convarray(l_element) = l_claimaddressdic.Item("tel")
		l_element = l_element + 1
		'撪慄
		l_convarray(l_element) = l_claimaddressdic.Item("extension")
		l_element = l_element + 1
		'儊乕儖傾僪儗僗
		l_convarray(l_element) = l_to
		l_element = l_element + 1

		'侓侓侓侓侓攝憲愭侓侓侓侓侓
		'夛幮柤
		l_convarray(l_element) = l_addressdic.Item("company_name")
		l_element = l_element + 1
		'晹栧柤
		l_convarray(l_element) = l_addressdic.Item("section_name")
		l_element = l_element + 1
		'偍撏偗愭柤
		l_convarray(l_element) = l_addressdic.Item("person")
		l_element = l_element + 1
		'梄曋斣崋
		l_convarray(l_element) = l_addressdic.Item("postcode")
		l_element = l_element + 1
		'搒摴晎導
		l_convarray(l_element) = l_addressdic.Item("prefecture")
		l_element = l_element + 1
		'巗嬫孲挰懞
		l_convarray(l_element) = l_addressdic.Item("town")
		l_element = l_element + 1
		'斣抧
		l_convarray(l_element) = l_addressdic.Item("house_number")
		l_element = l_element + 1
		'價儖柤
		l_convarray(l_element) = l_addressdic.Item("building")
		l_element = l_element + 1
		'揹榖斣崋
		l_convarray(l_element) = l_addressdic.Item("tel")
		l_element = l_element + 1
		'撪慄
		l_convarray(l_element) = l_addressdic.Item("extension")
		l_element = l_element + 1
		'旛峫
		l_convarray(l_element) = l_addressdic.Item("note")
		l_element = l_element + 1
		'帒椏惪媮URL
		l_convarray(l_element) = "http://sv1.eprex-four.net/comp_login.asp"
		l_element = l_element + 1		
		Call l_cmn.ProcSendMail(l_to,l_from,l_sub,l_text,l_convarray)

	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
		Session.Contents.Remove("StockDic")
		Session.Contents.Remove("Demand")
		Session.Contents.Remove("AgencyAddress")
	End Function
End Class
%>