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
		Dim l_flg

		Set l_rem = New ReserveListMaster

		l_orderno = l_rem.GetOrderNo(l_db,l_sysId)

		l_flg = true
		Set l_address_dic = Session("Demand")
		Set l_stock_dic = Session("StockDic")
		l_key = l_stock_dic.keys
		l_orderno = CStr(l_orderno)
		Call l_db.ProcBeginTrans 
		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)

			If Not l_resultarray(2) Then
				l_flg = false
				Exit For
			Else
				'梊栺嵼屔悢峏怴
				If Not UpDateStock(l_db,_
									l_sysId,_
									l_detail_dic.Item("reserve_stock_numname"),_
									l_detail_dic.Item("quantity"),_
									l_detail_dic.Item("list_cd"),_
									l_detail_dic.Item("list_eda")) Then
					l_flg = false
					Exit For
				End If
				'----儚乕僋僥乕僽儖傊憓擖 10/17----
				If Not l_cmn.DeleteWorkDataClaim(l_db,Session.SessionID,"") Then
					l_flg = false
					Exit For
				End If
			End If
		Next
		GetOrder = l_resultarray
		'Call SendDetailsMail(l_orderno)

		If l_flg Then
			Call l_db.ProcCommit
		Else
			Call l_db.ProcRollBack
		End If
	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_cancelday
		Dim l_resultarray
		Dim l_key
		Dim l_diccount
		Dim l_rem
		Dim l_seq

		Set l_rem = New ReserveListMaster
		GetOrderInit = true
		l_seq = Session("seq")
		'敪憲梊掕擔嶼弌
		l_list_dic.add "shipment_day",l_common.GetShipmentDay(l_dbaccess,l_deliplace,l_bundletime,"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_cancelday = 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_cancelday,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丗l_dbacsess
	'/*        l_sysid
	'/*        l_reserve_name  僇儔儉柤(RESERVE_STOCK_NUM1
	'/*                         傑偨偼RESERVE_STOCK_NUM2
	'/*                         傑偨偼RESERVE_STOCK_NUM3)
	'/*        l_resnum        悢検
	'/*        l_listcd        挔昜僐乕僪
	'/*        l_listeda       挔昜巬斣
	'/********************************************
	Public Function UpDateStock(l_dbaccess,l_sysId,l_reserve_name,l_resnum,l_listcd,l_listeda)
		Dim l_strSql

		UpDateStock = true
		l_strSql = "UPDATE STOCK_T " &_
				   "SET " & l_reserve_name & " = " & l_reserve_name & " + " & l_resnum & " " &_
				   "WHERE SYSTEM_ID = '" & l_sysId & "' " &_
				   "AND LIST_CD = '" & l_listcd & "' " &_
				   "AND LIST_EDA = '" & l_listeda & "' "
'response.write l_strsql
		'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丗
	'/* 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")
		Session.Contents.Remove("BasketTime")
	End Function
End Class
%>