userdetailsmain.asp

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

<%
Class UserDetailsMain
	Dim l_UserMdlObject
	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()

	'/********************************************
	'/* 弶婜張棟
	'/* param丗側偟
	'/* return丗側偟
	'/********************************************
	Public Function Init()
		Set l_UserMdlObject = New UserDetailsMdl

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

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_UserMdlObject.l_SystemId = Session("User").Item("SYSTEM_ID")
		l_UserMdlObject.l_CompanyId = Session("User").Item("COMPANY_ID")
		l_UserMdlObject.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

	'/********************************************
	'/* 擖椡僠僃僢僋仌夋柺忣曬庢摼
	'/* param丗側偟
	'/* return丗側偟
	'/********************************************
	Public Function GetFormParam()
		l_UserMdlObject.l_Param1 = Request.QueryString("P1")
		l_UserMdlObject.l_Param2 = Request.QueryString("P2")
		l_UserMdlObject.l_Param3 = Request.QueryString("P3")
		l_UserMdlObject.l_Param4 = Request.QueryString("P4")
		l_UserMdlObject.l_SectionId = Request.Form("section_id")

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

			l_ErrCnt = 0

			'幮堳ID僠僃僢僋
			If Request.Form("employee_id") <> "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				If l_CheckUtil.number_chk(l_Basp,Request.Form("employee_id")) = 0 Then
					Redim Preserve l_ErrArray(l_ErrCnt)
					l_ErrArray(l_ErrCnt) = IG11046E
					l_ErrCnt = l_ErrCnt + 1
				End If
			End If
			'儐乕僓柤僠僃僢僋
			If Request.Form("name") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11047E
				l_ErrCnt = l_ErrCnt + 1
			End If
			'儐乕僓柤(僇僞僇僫)僠僃僢僋
			If Request.Form("name_kana") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11048E
				l_ErrCnt = l_ErrCnt + 1
			End If
			'儊乕儖傾僪儗僗僠僃僢僋
			If Request.Form("mail") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				'l_ErrArray(l_ErrCnt) = IG11034E
				'l_ErrCnt = l_ErrCnt + 1
				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
			Else
				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
			'ID僠僃僢僋
			If Request.Form("login_id") = "" Then
				Redim Preserve l_ErrArray(l_ErrCnt)
				l_ErrArray(l_ErrCnt) = IG11052E
				l_ErrCnt = l_ErrCnt + 1
			End If
			'僄儔乕桳柍敾掕
			If l_ErrCnt > 0 then
				Session("ErrMsg") = l_ErrArray
				'Response.ReDirect "../error.asp"
				'5.16
				ErrDisp()
				GetFormParam = false
			End If

			'慜夋柺傛傝忣曬庢摼
			l_UserMdlObject.l_RecogAuth = Request.Form("recog_auth")
			If l_UserMdlObject.l_RecogAuth = "" Then
				l_UserMdlObject.l_RecogAuth = "0"
			End If
			l_UserMdlObject.l_EmployeeId = Request.Form("employee_id")
			l_UserMdlObject.l_Name = l_CharUtil.chg_HantoZen(Request.Form("name"))
			l_UserMdlObject.l_NameKana = l_CharUtil.chg_HantoZen(Request.Form("name_kana"))
			l_UserMdlObject.l_Mail = Request.Form("mail")
			l_UserMdlObject.l_ReMail = Request.Form("remail")
			l_UserMdlObject.l_UserId = Request.Form("login_id")
			l_UserMdlObject.l_Password = Request.Form("password")
		End If

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

	'/********************************************
	'/* 儐乕僓乕忣曬搊榐仌峏怴
	'/* param丗側偟
	'/* return丗側偟
	'/********************************************
	Public Function UserDetailsUpdate()
		UserDetailsUpdate = true
		'怴婯搊榐偺応崌
		If l_Update = "NEW" Then
			'儐乕僓懚嵼僠僃僢僋
			If Not l_Um.CheckWareUser(l_DBObject,l_UserMdlObject) Then
				'儐乕僓憓擖
				If Not l_Um.InsertUser(l_DBObject,l_UserMdlObject) Then
					Redim Preserve l_ErrArray(l_ErrCnt)
					l_ErrArray(l_ErrCnt) = IG11041E
					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
		Else
			If l_Update = "UPDATE" Then
				'峏怴帪
				If Not l_Um.UpdateWarehouseUser(l_DBObject,l_UserMdlObject) 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"
			'5.16
			ErrDisp()
			UserDetailsUpdate = false
		End If
	End Function

	'/********************************************
	'/* 儐乕僓乕忣曬嶍彍
	'/* param丗側偟
	'/* return丗側偟
	'/********************************************
	Public Function UserDetailsDelete()
		UserDetailsDelete = true

		'儐乕僓嶍彍
		If Not l_Um.DeleteWarehouseUser(l_DBObject,l_UserMdlObject) Then
			Redim Preserve l_ErrArray(l_ErrCnt)
			l_ErrArray(l_ErrCnt) = IG11044E
			l_ErrCnt = l_ErrCnt + 1
		End If

		If l_ErrCnt > 0 Then
			Redim Preserve l_ErrArray(l_ErrCnt)
			Session("ErrMsg") = l_ErrArray
			'Response.ReDirect "../error.asp"
			'5.16
			ErrDisp()
			UserDetailsDelete = false
		End If
	End Function

	'//=========================================
	'//僄儔乕夋柺昞帵 5.16
	'//=========================================
	Public Function ErrDisp()
		Dim l_errarray
		Dim l_count
		Dim l_cmn