postdetailsmain.asp

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

<!--#include file="../../const/ErrConst.asp"-->
<!--#include file="../../common/CheckUtil.asp"-->
<!--#include file="../../common/CharUtil.asp"-->

<%
Class PostDetailsMain
	Dim l_PostMdlObject
	Dim l_DBObject
	Dim l_Regist
	Dim l_Delete
	Dim l_Update
	Dim l_Section
	Dim l_CheckUtil
	Dim l_CharUtil
	Dim l_Basp
	Dim l_ErrCnt,l_ErrArray()

	Public Function Init()
		Set l_PostMdlObject = New PostDetailsMdl

		'DB僐僱僋僔儑儞庢摼
		Set l_DBObject = New DbAccess
		Call l_DBObject.ProcConnection(DSN,USERID,PASSWD)
		Call l_CommonObject.SearchSession()
		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_PostMdlObject.l_SystemId = Session("User").Item("SYSTEM_ID")
		'l_PostMdlObject.l_CompanyId = Session("User").Item("COMPANY_ID")
		l_PostMdlObject.l_CompanyId = l_CommonObject.GetCustomerCompIdRec(l_DBObject,l_PostMdlObject.l_SystemId)
		l_PostMdlObject.l_UserName = Session("User").Item("NAME")

		'慜夋柺儃僞儞墴壓忬嫷庢摼
		l_Regist = Request.Form("regist")
		l_Delete = Request.Form("del")
		l_Section = Request.Form("section")
		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
			'梄曋斣崋僠僃僢僋 廋惓 20051026 
			'梄曋斣崋僠僃僢僋
			If Request.Form("post_code1") = "" AND Request.Form("post_code2") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11006E
				l_ErrCnt = l_ErrCnt + 1
			'End If
			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
			'晹栧僠僃僢僋
			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("section_id") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11038E
				l_ErrCnt = l_ErrCnt + 1
			Else
			'20051026 廋惓丂
			'	If l_CheckUtil.number_chk(l_Basp,Request.Form("section_id")) = 0 Then
				If l_CheckUtil.IsNumericAlpha(Request.Form("section_id")) = 0 Then
					Redim Preserve l_ErrArray(l_ErrCnt)
					l_ErrArray(l_ErrCnt) = IG11053E
					l_ErrCnt = l_ErrCnt + 1
				End If
			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
			
			'扴摉幰昁恵僠僃僢僋 2005/12/13捛壛
			If Request.Form("person") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11033E
				l_ErrCnt = l_ErrCnt + 1
			End If

			'儊僯儏乕尃尷僠僃僢僋
			If Request.Form("list_manage") = "" And _
			   Request.Form("data_claim") = "" And _
			   Request.Form("employ") = "" And _
			   Request.Form("system_employ") = "" And _
			   Request.Form("other") = "" Then
			   	Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11040E
				l_ErrCnt = l_ErrCnt + 1
			End If

			'僄儔乕桳柍敾掕
			If l_ErrCnt > 0 then
				Session("ErrMsg") = l_ErrArray
				Response.ReDirect "../error.asp"
			End If

			'慜夋柺傛傝忣曬庢摼
			l_PostMdlObject.l_PostCode = Request.Form("post_code1") & "-" & Request.Form("post_code2")
			l_PostMdlObject.l_Prefecture = Request.Form("prefecture")
			l_PostMdlObject.l_Town = l_CharUtil.chg_HantoZen(Request.Form("town"))
			l_PostMdlObject.l_HouseNumber = l_CharUtil.chg_HantoZen(Request.Form("house_number"))
			l_PostMdlObject.l_Building = l_CharUtil.chg_HantoZen(Request.Form("building"))
			l_PostMdlObject.l_CompanyName = l_CharUtil.chg_HantoZen(Request.Form("company_name"))
			l_PostMdlObject.l_CompanyNameKana = l_CharUtil.chg_HantoZen(Request.Form("company_name_kana"))
			l_PostMdlObject.l_SectionName = l_CharUtil.chg_HantoZen(Request.Form("section_name"))
			l_PostMdlObject.l_SectionNameKana = l_CharUtil.chg_HantoZen(Request.Form("section_name_kana"))
			l_PostMdlObject.l_SectionId = Request.Form("section_id")
			l_PostMdlObject.l_Person = Request.Form("person")
			l_PostMdlObject.l_Tel = Request.Form("tel")
			l_PostMdlObject.l_Extension = Request.Form("extension")
			l_PostMdlObject.l_Fax = Request.Form("fax")
			l_PostMdlObject.l_ListManage = Request.Form("list_manage")
			l_PostMdlObject.l_DataClaim = Request.Form("data_claim")
			l_PostMdlObject.l_Employ = Request.Form("employ")
			l_PostMdlObject.l_SystemEmploy = Request.Form("system_employ")
			l_PostMdlObject.l_Other = Request.Form("other")
			l_PostMdlObject.l_CostBurdenKind = "1"
			l_PostMdlObject.l_SectionKind = "0"

		End If

		'嶍彍儃僞儞墴壓帪
		If l_Pdm.l_Delete <> "" Then
			'慜夋柺傛傝晹栧ID庢摼
			l_PostMdlObject.l_SectionId = Request.Form("section_id")
		End If
	End Function

	'/*********************************
	'/* 晹栧忣曬偺搊榐
	'/* param丗
	'/* return丗boolean
	'/*********************************
	Public Function PostDetailsUpdate()
		l_ErrCnt = 0

		PostDetailsUpdate = true
		'晹栧僐乕僪懚嵼僠僃僢僋
		If Not l_Psm.CheckSectionId(l_DBObject,l_PostMdlObject) Then
			'晹栧憓擖
			If Not l_Psm.InsertSection(l_DBObject,l_PostMdlObject) Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11041E
				l_ErrCnt = l_ErrCnt + 1
				PostDetailsUpdate = false
			End If
		Else
			If l_Update = "UPDATE" Then
				'峏怴帪
				If Not l_Psm.UpdateSection(l_DBObject,l_PostMdlObject) Then
					Redim Preserve l_ErrArray(l_ErrCnt)
					l_ErrArray(l_ErrCnt) = IG11042E
					l_ErrCnt = l_ErrCnt + 1
					PostDetailsUpdate = false
				End If
			Else
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11043E
				l_ErrCnt = l_ErrCnt + 1
				PostDetailsUpdate = false
			End If
		End If
		If l_ErrCnt > 0 Then
			Session("ErrMsg") = l_ErrArray
			Response.ReDirect "../error.asp"
		End If
	End Function

	'/*********************************
	'/* 晹栧忣曬偺嶍彍
	'/* param丗
	'/* return丗boolean
	'/*********************************
	Public Function PostDetailsDelete()
		l_ErrCnt = 0

		PostDetailsDelete = true
		'晹栧僐乕僪懚嵼僠僃僢僋
		If l_Psm.CheckSectionId(l_DBObject,l_PostMdlObject) Then
			'晹栧嶍彍
			If Not l_Psm.DeleteSection(l_DBObject,l_PostMdlObject) Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11044E
				l_ErrCnt = l_ErrCnt + 1
				PostDetailsDelete = false
			End If
		Else
			Redim Preserve l_ErrArray(l_ErrCnt)
			l_ErrArray(l_ErrCnt) = IG11045E
			l_ErrCnt = l_ErrCnt + 1
			PostDetailsDelete = false
		End If
		If l_ErrCnt > 0 Then
			Session("ErrMsg") = l_ErrArray
			Response.ReDirect "../error.asp"
		End If
	End Function
End Class

Class PostDetailsMdl
	Dim l_SystemId
	Dim l_CompanyId
	Dim l_UserName

	'擖椡棑崁栚
	Dim l_PostCode
	Dim l_Prefecture
	Dim l_Town
	Dim l_HouseNumber
	Dim	l_Building
	Dim l_CompanyName
	Dim l_CompanyNameKana
	Dim	l_SectionName
	Dim l_SectionNameKana
	Dim l_SectionId
	Dim	l_Tel
	Dim l_Extension
	Dim l_Fax
	Dim l_ListManage
	Dim l_DataClaim
	Dim l_Employ
	Dim l_SystemEmploy
	Dim l_Other

	Dim	l_Auction
	Dim l_OrderManage
	Dim	l_SalesPromotion
	Dim l_EmployAll
	Dim l_EmployAuction
	Dim l_EmployOrderManage
	Dim l_EmployAccounting
	Dim l_EmployStock
	Dim l_EmployDataClaim
	Dim l_EmployGoodsPromotion
	Dim l_EmployOrderPromotion
	Dim l_EmployListExt,l_EmployOrderExt
	Dim l_EmployOrderIn,l_EmployRateReport
	Dim	l_SystemManage

	Dim l_CostBurdenKind
	Dim l_SectionKind
	Dim l_Person
End Class
%>