deliveryeditmain.asp

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

<%
Class DeliveryEditMain
	Dim l_DeliveryMdlObject
	Dim l_DBObject
	Dim l_Regist
	Dim l_Delete
	Dim l_Update
	Dim l_Delivery
	Dim l_CheckUtil
	Dim l_CharUtil
	Dim l_Common
	Dim l_Basp
	Dim l_ErrCnt,l_ErrArray()
	Dim l_LogParam(0)	'儘僌儊僢僙乕僕曄姺暥帤

	Public Function Init()
		Set l_DeliveryMdlObject = New DeliveryMdl
		Set l_Common = New Common

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

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_DeliveryMdlObject.l_SystemId = Session("User").Item("SYSTEM_ID")
		l_DeliveryMdlObject.l_UserName = Session("User").Item("NAME")

		'慜夋柺儃僞儞墴壓忬嫷庢摼
		l_Regist = Request.Form("regist")
		l_Delete = Request.Form("delete")
		l_Delivery = Request.Form("delivery")
		l_Update = Request.QueryString("P1")
	End Function

	Public Function GetFormParam()

		'搊榐偡傞儃僞儞墴壓帪
		If l_Regist <> "" Then
			'擖椡僠僃僢僋
			Set l_CheckUtil = New CheckUtil
			Set l_CharUtil = New CharUtil
			Set l_Basp = Server.CreateObject("basp21")

			l_ErrCnt = 0

			'夛幮僐乕僪僠僃僢僋
			If Request.Form("company_id") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11055E
				l_ErrCnt = l_ErrCnt + 1
			Else
				'If l_CheckUtil.number_chk(l_Basp,Request.Form("company_id")) = 0 Then
				'	l_ErrArray(l_ErrCnt) = IG11054E
				'	l_ErrCnt = l_ErrCnt + 1
				'End If

				'5/13
				If Not l_CheckUtil.IsNumericAlpha(Request.Form("company_id")) Then
					Redim Preserve l_ErrArray(l_ErrCnt)
					l_ErrArray(l_ErrCnt) = IG11054E
					l_ErrCnt = l_ErrCnt + 1
				End If
			End If
			'夛幮僠僃僢僋
			If Request.Form("company_name") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11049E
				l_ErrCnt = l_ErrCnt + 1
			End If
			'夛幮(僇僞僇僫)僠僃僢僋
			If Request.Form("company_name_kana") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11050E
				l_ErrCnt = l_ErrCnt + 1
			End If
			'晹栧僐乕僪僠僃僢僋
			If Request.Form("section_id") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11038E
				l_ErrCnt = l_ErrCnt + 1
			Else
				'If l_CheckUtil.number_chk(l_Basp,Request.Form("section_id")) = 0 Then
				'	l_ErrArray(l_ErrCnt) = IG11053E
				'	l_ErrCnt = l_ErrCnt + 1
				'End If

				'5/13
				If Not l_CheckUtil.IsNumericAlpha(Request.Form("section_id")) Then
					Redim Preserve l_ErrArray(l_ErrCnt)
					l_ErrArray(l_ErrCnt) = IG11053E
					l_ErrCnt = l_ErrCnt + 1
				End If
			End If
			'晹栧僠僃僢僋
			If Request.Form("section_name") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11036E
				l_ErrCnt = l_ErrCnt + 1
			End If
			'晹栧(僇僞僇僫)僠僃僢僋
			If Request.Form("section_name_kana") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11037E
				l_ErrCnt = l_ErrCnt + 1
			End If
			'梄曋斣崋僠僃僢僋
			If Request.Form("post_code1") = "" Or Request.Form("post_code2") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11006E
				l_ErrCnt = l_ErrCnt + 1
			Else
				If Not l_CheckUtil.Zip_chk(Request.Form("post_code1") & "-" & Request.Form("post_code2")) Then
					Redim Preserve l_ErrArray(l_ErrCnt)
					l_ErrArray(l_ErrCnt) = IG11007E
					l_ErrCnt = l_ErrCnt + 1
				End If
			End If
			'搒摴晎導僠僃僢僋
			If Request.Form("prefecture") = "慖戰偟偰偔偩偝偄" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11008E
				l_ErrCnt = l_ErrCnt + 1
			End If
			'巗嬫孲挰懞僠僃僢僋
			If Request.Form("town") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11009E
				l_ErrCnt = l_ErrCnt + 1
			End If
			'斣抧僠僃僢僋
			If Request.Form("house_number") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11010E
				l_ErrCnt = l_ErrCnt + 1
			End If
			'扴摉幰昁恵僠僃僢僋 2005/12/14
			If Request.Form("person") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11033E
				l_ErrCnt = l_ErrCnt + 1
			End If
			'Tel僠僃僢僋
			If Request.Form("tel") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11013E
				l_ErrCnt = l_ErrCnt + 1
			Else
				If Not l_CheckUtil.Tel_chk(Request.Form("tel")) Then
					Redim Preserve l_ErrArray(l_ErrCnt)
					l_ErrArray(l_ErrCnt) = IG11014E
					l_ErrCnt = l_ErrCnt + 1
				End If
			End If
			'撪慄僠僃僢僋
			If Request.Form("extension") <> "" Then
				If l_CheckUtil.number_chk(l_Basp,Request.Form("extension")) = 0 Then
					Redim Preserve l_ErrArray(l_ErrCnt)
					l_ErrArray(l_ErrCnt) = IG11039E
					l_ErrCnt = l_ErrCnt + 1
				End If
			End If
			'Fax僠僃僢僋
			If Request.Form("fax") <> "" Then
				If Not l_CheckUtil.Tel_chk(Request.Form("fax")) Then
					Redim Preserve l_ErrArray(l_ErrCnt)
					l_ErrArray(l_ErrCnt) = IG11035E
					l_ErrCnt = l_ErrCnt + 1
				End If
			End If
			'儊乕儖傾僪儗僗僠僃僢僋
			If Request.Form("mail") <> "" Then
				If Not l_CheckUtil.email_chk(Request.Form("mail")) Then
					Redim Preserve l_ErrArray(l_ErrCnt)
					l_ErrArray(l_ErrCnt) = IG11015E
					l_ErrCnt = l_ErrCnt + 1
				Else
					IF Request.Form("mail") <> Request.Form("remail") Then
						Redim Preserve l_ErrArray(l_ErrCnt)
						l_ErrArray(l_ErrCnt) = IG11016E
						l_ErrCnt = l_ErrCnt + 1
					End If
				End If
			End If
			'僄儔乕桳柍敾掕
			If l_ErrCnt > 0 then
				Session("ErrMsg") = l_ErrArray
				Response.ReDirect "../error.asp"
			End If

			'慜夋柺傛傝忣曬庢摼
			l_DeliveryMdlObject.l_Class = Request.Form("class")
			l_DeliveryMdlObject.l_CompanyId = Request.Form("company_id")
			l_DeliveryMdlObject.l_CompanyName = l_CharUtil.chg_HantoZen(Request.Form("company_name"))
			l_DeliveryMdlObject.l_CompanyNameKana = l_CharUtil.chg_HantoZen(Request.Form("company_name_kana"))
			l_DeliveryMdlObject.l_SectionId = Request.Form("section_id")
			l_DeliveryMdlObject.l_SectionName = l_CharUtil.chg_HantoZen(Request.Form("section_name"))
			l_DeliveryMdlObject.l_SectionNameKana = l_CharUtil.chg_HantoZen(Request.Form("section_name_kana"))
			l_DeliveryMdlObject.l_Postcode = Request.Form("post_code1") & "-" & Request.Form("post_code2")
			l_DeliveryMdlObject.l_Prefecture = Request.Form("prefecture")
			l_DeliveryMdlObject.l_Town = l_CharUtil.chg_HantoZen(Request.Form("town"))
			l_DeliveryMdlObject.l_HouseNumber = l_CharUtil.chg_HantoZen(Request.Form("house_number"))
			l_DeliveryMdlObject.l_Building = l_CharUtil.chg_HantoZen(Request.Form("building"))
			l_DeliveryMdlObject.l_Person = l_CharUtil.chg_HantoZen(Request.Form("person"))
			l_DeliveryMdlObject.l_Tel = Request.Form("tel")
			l_DeliveryMdlObject.l_Extension = Request.Form("extension")
			l_DeliveryMdlObject.l_Fax = Request.Form("fax")
			l_DeliveryMdlObject.l_Mail = Request.Form("mail")
			l_DeliveryMdlObject.l_ReMail = Request.Form("remail")
			l_DeliveryMdlObject.l_ReceiveAddressId = l_DeliveryMdlObject.l_CompanyId & l_DeliveryMdlObject.l_SectionId
		Else
			l_DeliveryMdlObject.l_ReceiveAddressId = Request.QueryString("P2")
		End If
	End Function

	'/***********************************
	'/* 攝憲愭偺搊榐
	'/* param:
	'/* return:
	'/***********************************
	Public Function DeliveryEditUpdate()
		'攝憲愭懚嵼僠僃僢僋
		If Not l_Dm.CheckDelivery(l_DBObject,l_DeliveryMdlObject) Then

			'攝憲愭憓擖
			If Not l_Dm.InsertDelivery(l_DBObject,l_DeliveryMdlObject) Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11041E
				l_ErrCnt = l_ErrCnt + 1
			End If
		Else
			If l_Update = "UPDATE" Then

				'峏怴帪
				If Not l_Dm.UpdateDelivery(l_DBObject,l_DeliveryMdlObject) Then
					Redim Preserve l_ErrArray(l_ErrCnt)
					l_ErrArray(l_ErrCnt) = IG11042E
					l_ErrCnt = l_ErrCnt + 1
				End If
			Else
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11043E
				l_ErrCnt = l_ErrCnt + 1
			End If
		End If
		If l_ErrCnt > 0 Then
			Session("ErrMsg") = l_ErrArray
			Response.ReDirect "../error.asp"
		Else
			'儘僌偺弌椡
			l_LogParam(0) = l_DeliveryMdlObject.l_ReceiveAddressId
			Call l_Common.OutputLogFile(l_Common.GetLogMessage(WAREHOUSE_DELIVERY_LOG,l_LogParam))
		End If
	End Function

	'/***********************************
	'/* 攝憲愭偺嶍彍
	'/* param:
	'/* return:
	'/***********************************
	Public Function DeliveryEditDelete()
		'攝憲愭懚嵼僠僃僢僋
		If l_Dm.CheckDelivery(l_DBObject,l_DeliveryMdlObject) Then
			'攝憲愭嶍彍
			If Not l_Dm.DeleteDelivery(l_DBObject,l_DeliveryMdlObject) Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11044E
				l_ErrCnt = l_ErrCnt + 1
			End If
		Else
			Redim Preserve l_ErrArray(l_ErrCnt)
			l_ErrArray(l_ErrCnt) = IG11045E
			l_ErrCnt = l_ErrCnt + 1
		End If
		If l_ErrCnt > 0 Then
			Session("ErrMsg") = l_ErrArray
			Response.ReDirect "../error.asp"
		Else
			'儘僌偺弌椡
			l_LogParam(0) = l_DeliveryMdlObject.l_ReceiveAddressId
			Call l_Common.OutputLogFile(l_Common.GetLogMessage(WAREHOUSE_DELIVERY_DEL_LOG,l_LogParam))
		End If
	End Function
End Class

Class DeliveryMdl
	Dim l_SystemId
	Dim l_UserName

	'擖椡棑崁栚
	Dim l_Class
	Dim l_CompanyId
	Dim l_CompanyName
	Dim l_CompanyNameKana
	Dim l_SectionId
	Dim l_SectionName
	Dim l_SectionNameKana
	Dim l_Postcode
	Dim l_Prefecture
	Dim l_Town
	Dim l_HouseNumber
	Dim l_Building
	Dim l_Person
	Dim l_Tel
	Dim l_Extension
	Dim l_Fax
	Dim l_Mail
	Dim l_ReMail

	Dim l_ReceiveAddressId
End Class
%>