usermaster.asp

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

<%
Class UserMaster

	Dim l_SQL

	'/*******************************************************
	'/* 儐乕僓忣曬庢摼
	'/* param丗Param1
	'/*        Param2
	'/*        Param3
	'/* return 拪弌寢壥
	'/*******************************************************
	Public Function SearchUserBase(Param1,Param2,Param3)

		'SQL暥惗惉
		l_SQL = "SELECT ROWNUM,S_M.SECTION_ID,S_M.SECTION_NAME," & _
				"       U_M.EMPLOYEE_ID,U_M.USER_ID,U_M.NAME," & _
				"       U_M.COMPANY_ID" & _
				"  FROM USER_M U_M,SECTION_M S_M" & _
				" WHERE U_M.SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				"   AND U_M.SYSTEM_ID = S_M.SYSTEM_ID" & _
				"   AND U_M.COMPANY_ID IN (SELECT COMPANY_ID" & _
				"                            FROM COMPANY_M" & _
				"                           WHERE SYSTEM_ID = '" & SYSTEMID & "'" & _
				"                             AND STATUS = '1'" & _
				"                             AND COMPANY_KIND = '0'" & _
				"                             AND DEL_FLG = '0')" & _
				"   AND U_M.COMPANY_ID = S_M.COMPANY_ID" & _
				"   AND U_M.SECTION_ID = S_M.SECTION_ID" & _
				"   AND S_M.SUPER_SECTION_FLG = '" & FLG_OFF & "' " &_
				"   AND U_M.DEL_FLG = '0'" & _
				"   AND S_M.DEL_FLG = '0'"

		If IsObject(Param3) Then
			If Param3.Item("section_id") <> "" Then
				l_SQL = l_SQL & "   AND U_M.SECTION_ID = '" & Param3.Item("section_id") & "'"
			End If
			If Param3.Item("employee_id") <> "" Then
				l_SQL = l_SQL & "   AND U_M.EMPLOYEE_ID = '" & Param3.Item("employee_id") & "'"
			End If
			If Param3.Item("user_id") <> "" Then
				l_SQL = l_SQL & "   AND U_M.USER_ID = '" & Param3.Item("user_id") & "'"
			End If
			If Param3.Item("user_name") <> "" Then
				l_SQL = l_SQL & "   AND U_M.NAME LIKE '" & l_Ulm.l_CutilObject.chg_HantoZen(Param3.Item("user_name")) & "%'"
			End If
			l_SQL = l_SQL & " ORDER BY " & GetOrderByStr(Param3.Item("sortkey"),Param3.Item("sortdesc"))
		Else
			l_SQL = l_SQL & " ORDER BY U_M.NAME"
		End If
		debug_t(l_SQL)
		Set SearchUserBase = Param1.ProcRecordset(l_SQL,MAXROW_USER_LIST,0)
	End Function

	'/*******************************************************
	'/* 僜乕僩暥庢摼
	'/* param丗l_sortkey	僜乕僩僉乕
	'/*        l_sortdesc 	僜乕僩弴
	'/* return 僜乕僩暥
	'/*******************************************************
	Public Function GetOrderByStr(l_sortkey, l_sortdesc)
		Dim l_retStr
		Dim l_seq

		'僜乕僩弴愝掕
		If l_sortdesc = FLG_ON Then
			l_seq = " DESC"
		End If

		'僜乕僩暥嶌惉
		If l_sortkey = SORT_KEY1 Then		'僨僼僅儖僩(儐乕僓柤(徃弴))
			l_retStr = "U_M.NAME"
		ElseIf l_sortkey = SORT_KEY2 Then			'晹栧柤弴
			l_retStr = "S_M.SECTION_NAME" & l_seq			
		ElseIf l_sortkey = SORT_KEY3 Then			'儘僌僀儞ID弴
			l_retStr = "U_M.USER_ID" & l_seq
		ElseIf  l_sortkey = SORT_KEY4 Then			'儐乕僓柤弴
			l_retStr = "U_M.NAME" & l_seq
		End If

		GetOrderByStr = l_retStr
	End Function


	'/*******************************************************
	'/* 儐乕僓ID懚嵼僠僃僢僋
	'/* param丗Param1
	'/*        Param2 
	'/* return True丗懚嵼偡傞丄False丗懚嵼偟側偄
	'/*******************************************************
	Public Function CheckUser(Param1,Param2)
		Dim l_RecSet

		CheckUser = False

		'SQL暥惗惉
		l_SQL = "SELECT COUNT(*) FROM USER_M" & _
				" WHERE SYSTEM_ID  = '" & Param2.l_SystemId & "'"  & _
				"   AND COMPANY_ID IN (SELECT COMPANY_ID" & _
				"                        FROM COMPANY_M" & _
				"                       WHERE SYSTEM_ID = '" & SYSTEMID & "'" & _
				"                         AND STATUS = '1'" & _
				"                         AND COMPANY_KIND = '0'" & _
				"                         AND DEL_FLG = '0')" 
		If Param2.l_Param1 = "NEW" Then
			l_SQL = l_SQL &	"	AND USER_ID = '" & Param2.l_UserId & "'"
		Else
			l_SQL = l_SQL &	"	AND USER_ID = '" & Param2.l_Param3 & "'"
		End If
		Set l_RecSet = Param1.ProcRecordset(l_SQL,10,0)

		'懚嵼偡傟偽True丄側偗傟偽False
		If l_RecSet.Fields.Item("COUNT(*)") <> 0 Then
			CheckUser = True
		End If
	End Function

	'/*******************************************************
	'/* 儐乕僓嶍彍
	'/* param丗Param1
	'/*        Param2 
	'/* return True丗惉岟偟偨応崌丄False丗幐攕偟偨応崌
	'/*******************************************************
	Public Function DeleteUser(Param1,Param2)
		DeleteUser = True
		l_SQL = "UPDATE USER_M SET DEL_FLG = '1'" & _
				" WHERE SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				"   AND COMPANY_ID IN (SELECT COMPANY_ID" & _
				"                        FROM COMPANY_M" & _
				"                       WHERE SYSTEM_ID = '" & SYSTEMID & "'" & _
				"                         AND STATUS = '1'" & _
				"                         AND COMPANY_KIND = '0'" & _
				"                         AND DEL_FLG = '0')" & _
				"	AND USER_ID = '" & Param2.l_Param3 & "'" & _
				"   AND SECTION_ID = '" & Param2.l_Param4 & "'"

		'SQL敪峴
		If Not Param1.ProcExecute(l_SQL) Then
			Param1.ProcRollBack
			DeleteUser = False
			Exit Function
		End If
	End Function

	'/*******************************************************
	'/* 儐乕僓憓擖
	'/* param丗Param1
	'/*        Param2 
	'/* return True丗惉岟偟偨応崌丄False丗幐攕偟偨応崌
	'/*******************************************************
	Public Function InsertUser(Param1,Param2)
		InsertUser = True

		'SQL暥惗惉
		l_SQL = "INSERT INTO USER_M VALUES ('" & Param2.l_SystemId & "','" & _
												 Param2.l_CompanyId & "','" & _
												 Param2.l_UserId & "','" & _
												 Param2.l_SectionId & "','" & _
												 Param2.l_EmployeeId & "','" & _
												 Param2.l_Name & "','" & _
												 Param2.l_NameKana & "','','" & _
												 Param2.l_Mail & "','" & _
												 Param2.l_Password & "'," & _
												 "null,0,0,0,'0','" & _
												 Param2.l_RecogAuth & "'," & _
												 "SYSDATE,null,'0')"

		'SQL敪峴
		If Not Param1.ProcExecute(l_SQL) Then
			Param1.ProcRollBack
			InsertUser = False
			Exit Function
		End If
	End Function

	'/*******************************************************
	'/* 儐乕僓峏怴
	'/* param丗Param1
	'/*        Param2 
	'/* return True丗惉岟偟偨応崌丄False丗幐攕偟偨応崌
	'/*******************************************************
	Public Function UpdateUser(Param1,Param2)
		UpdateUser = True
		l_SQL = "UPDATE USER_M SET SECTION_ID = '" & Param2.l_SectionId & "'," & _
								  "EMPLOYEE_ID = '" & Param2.l_EmployeeId & "'," & _
								  "NAME = '" & Param2.l_Name & "'," & _
								  "NAME_KANA = '" & Param2.l_NameKana & "'," & _
								  "MAIL = '" & Param2.l_Mail & "'," & _
								  "PASSWORD = '" & Param2.l_Password & "'," & _
								  "RECOG_AUTH = '" & Param2.l_RecogAuth & "'," & _
								  "UPDATE_YMD = SYSDATE" & _
				" WHERE SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				"   AND COMPANY_ID IN (SELECT COMPANY_ID" & _
				"                        FROM COMPANY_M" & _
				"                       WHERE SYSTEM_ID = '" & SYSTEMID & "'" & _
				"                         AND STATUS = '1'" & _
				"                         AND COMPANY_KIND = '0'" & _
				"                         AND DEL_FLG = '0')" & _
				"   AND USER_ID = '" & Param2.l_Param3 & "'" & _
				"   AND SECTION_ID = '" & Param2.l_Param4 & "'"

		'SQL敪峴
		If Not Param1.ProcExecute(l_SQL) Then
			Param1.ProcRollBack
			UpdateUser = False
			Exit Function
		End If
	End Function
End Class
%>