finishmain.asp

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

<%
Class FinishMain
	Dim l_db
	Dim l_cmn
	Dim l_chkUtil
	Dim l_cutil
	Dim l_sysId
	Dim l_coId
	Dim l_ordmas
	Dim l_receptno	'庴晅斣崋
	Dim l_bundletime
	Dim l_wrml
	Dim l_receiptday

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Sub Init()
		Set l_chkUtil = New CheckUtil
		Set l_cutil = New CharUtil
		Set l_cmn = New Common
		Set l_ordmas = New OrderMaster
		Set l_wrml = New WhReserveListMaster

		Call l_cmn.SearchSession
		'DB僐僱僋僔儑儞庢摼
		Set l_db = New DbAccess
		Call l_db.ProcConnection(DSN, USERID, PASSWD)

		l_sysId = Session("User").Item("SYSTEM_ID")
		l_coId = Session("User").Item("COMPANY_ID")
		l_bundletime = Request.Cookies("Comp")("Time")
		l_receiptday = now
	End Sub

	'/*************************************
	'/* 帒椏惪媮
	'/*************************************
	Public Function GetOrder
		Dim l_key
		Dim l_addressdic
		Dim l_dic
		Dim l_detaildic
		Dim l_count
		Dim l_flg
		Dim l_errarray(1)
		Dim l_cancelday
		Dim l_msg

		'庴晅斣崋敪斣
		l_receptno = l_ordmas.GetOrderNo(l_db,l_sysId)

		If IsObject(Session("StockDic")) And _
			IsObject(Session("warehouse")) Then		
			Set l_dic = Session("StockDic")
			Set l_addressdic = Session("warehouse")
			l_key = l_dic.keys
			Call l_db.ProcBeginTrans 
			l_flg = true
			l_msg = "壓婰偺挔昜偺嵼屔偑堷偒摉偰傜傟傑偣傫偱偟偨丅<br>" 
			For l_count = 0 to UBound(l_key) 
				Set l_detaildic = l_dic.Item(l_key(l_count))
				l_cancelday = Replace(l_detaildic.Item("shipment_day"),"/","") & Replace(TimeValue(l_bundletime),":","")
				'嵼屔悢僠僃僢僋
				If Not l_wrml.LastCheckStock(l_db,_
										 l_sysId,_
										 l_detaildic.Item("list_cd"),_
										 l_detaildic.Item("list_eda"),_
										 l_coId,_
										 l_detaildic.Item("quantity"),_
										 l_receptno) Then

						l_msg = l_msg & "挔昜斣崋丗" & l_detaildic.Item("list_cd") & "-" & l_detaildic.Item("list_eda") & "<br>"
						l_flg = false
				Else
					'攦偄暔偐偛僥乕僽儖憓擖
					If Not l_cmn.InsertWorkDataClaim(l_db,_
													Session.SessionID,_
													l_count,_
													l_coId,_
													l_detaildic.Item("list_cd"),_
													l_detaildic.Item("list_eda"),_
													l_detaildic.Item("quantity")) Then
						l_flg = false
					Else
						'惪媮僨乕僞Insert
						If Not l_ordmas.GetOrderRec(l_db,_
													l_sysId,_
													l_coId,_
													l_detaildic,_
													l_addressdic,_
													l_receptno,_
													l_count,_
													l_cancelday,_
													l_bundletime,_
													l_receiptday) Then
							l_flg = false
'Response.Write "幐攕"
						Else
'Response.Write "2"
							'梊栺嵼屔悢偺峏怴
							If Not l_ordmas.UpdateReserveNum(l_db,_
															l_sysId,_
															l_coId,_
															l_detaildic.Item("list_cd"),_
															l_detaildic.Item("list_eda"),_
															l_detaildic.Item("quantity")) Then
								l_flg = false
							End If
						End If
					End If
				
				End If
			Next
			If l_flg Then
				Call l_db.ProcCommit
				'儊乕儖憲怣
				'Call SendDetailsMail(l_receptno)
				Call l_db.ProcBeginTrans
				If Not l_cmn.DeleteWorkDataClaim(l_db,_
											Session.SessionID,_
											"") Then
					Call l_db.ProcRollback
				Else
					Call l_db.ProcCommit
				End If
			Else
				Call l_db.ProcRollBack
				'l_errarray(0) = "惪媮偺" & IG11065E
				l_errarray(0) = l_msg
				Call l_db.ProcBeginTrans
				If Not l_cmn.DeleteWorkDataClaim(l_db,_
											Session.SessionID,_
											"") Then
					Call l_db.ProcRollback
				Else
					Call l_db.ProcCommit
				End If
				Session("ErrMsg") = l_errarray
				Response.Redirect "../error.asp"
			End If
		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("warehouse")
		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_count * 8 + 3) = l_detail.Item("list_name")
			l_convarray(l_count * 8 + 4) = l_detail.Item("list_cd") & "-" & l_detail.Item("list_eda")
			l_convarray(l_count * 8 + 5) = l_cutil.NumericFormat(l_detail.Item("unit_price"),true,0)
			l_convarray(l_count * 8 + 6) = l_cutil.NumericFormat(l_detail.Item("quantity"),false,0)
			l_convarray(l_count * 8 + 7) = l_detail.Item("list_unit")
			l_convarray(l_count * 8 + 8) = l_detail.Item("packing_count")
			l_convarray(l_count * 8 + 9) = l_cutil.NumericFormat(l_detail.Item("subtotal"),true,0)
			l_convarray(l_count * 8 + 10) = l_detail.Item("shipment_day")
			l_total = CDbl(l_total) + CDbl(l_detail.Item("subtotal"))
		Next
		l_text = l_text & DEMAND_TEXT3
		l_convarray(l_count * 8 + 3) = l_cutil.NumericFormat(l_total,true,0)

		'侓侓侓侓侓埶棅尦侓侓侓侓侓
		'夛幮柤
		l_convarray(l_count * 8 + 4) = l_claimaddressdic.Item("company_name")
		'晹栧柤
		l_convarray(l_count * 8 + 5) = l_claimaddressdic.Item("section_name")
		'埶棅幰
		l_convarray(l_count * 8 + 6) = l_claimaddressdic.Item("person")
		'梄曋斣崋
		l_convarray(l_count * 8 + 7) = l_claimaddressdic.Item("postcode")
		'搒摴晎導
		l_convarray(l_count * 8 + 8) = l_claimaddressdic.Item("prefecture")
		'巗嬫孲挰懞
		l_convarray(l_count * 8 + 9) = l_claimaddressdic.Item("town")
		'斣抧
		l_convarray(l_count * 8 + 10) = l_claimaddressdic.Item("house_number")
		'價儖柤
		l_convarray(l_count * 8 + 11) = l_claimaddressdic.Item("building")
		'揹榖斣崋
		l_convarray(l_count * 8 + 12) = l_claimaddressdic.Item("tel")
		'撪慄
		l_convarray(l_count * 8 + 13) = l_claimaddressdic.Item("extension")
		'儊乕儖傾僪儗僗
		l_convarray(l_count * 8 + 14) = l_to

		'侓侓侓侓侓攝憲愭侓侓侓侓侓
		'夛幮柤
		l_convarray(l_count * 8 + 15) = l_addressdic.Item("company_name")
		'晹栧柤
		l_convarray(l_count * 8 + 16) = l_addressdic.Item("section_name")
		'偍撏偗愭柤
		l_convarray(l_count * 8 + 17) = l_addressdic.Item("person")
		'梄曋斣崋
		l_convarray(l_count * 8 + 18) = l_addressdic.Item("postcode")
		'搒摴晎導
		l_convarray(l_count * 8 + 19) = l_addressdic.Item("prefecture")
		'巗嬫孲挰懞
		l_convarray(l_count * 8 + 20) = l_addressdic.Item("town")
		'斣抧
		l_convarray(l_count * 8 + 21) = l_addressdic.Item("house_number")
		'價儖柤
		l_convarray(l_count * 8 + 22) = l_addressdic.Item("building")
		'揹榖斣崋
		l_convarray(l_count * 8 + 23) = l_addressdic.Item("tel")
		'撪慄
		l_convarray(l_count * 8 + 24) = l_addressdic.Item("extension")
		'旛峫
		l_convarray(l_count * 8 + 25) = l_addressdic.Item("note")
		'帒椏惪媮URL
		l_convarray(l_count * 8 + 26) = "http://sv1.eprex-four.net/comp_login.asp"

		'儊乕儖憲怣
		Call l_cmn.ProcSendMail(l_to,l_from,l_sub,l_text,l_convarray)

	End Function

	'/*************************************
	'/廔椆張棟(DB愗抐)
	'/*************************************
	Public Sub 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 Sub	
End Class
%>