infoeditmain.asp

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

<%
Class InfoEditMain
	Dim l_InfoMdlObject
	Dim l_DBObject
	Dim l_Common
	Dim l_Regist
	Dim l_Delete
	Dim l_Update
	Dim l_Information
	Dim l_CharUtil
	Dim l_ErrCnt,l_ErrArray(10)
	Dim l_Icmn	'InfoCommon

	Public Function Init()
		Set l_InfoMdlObject = New InfoMdl	'InfoCommon.asp偺拞
		Set l_Icmn = New Info
		Set l_Common = New Common

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

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_InfoMdlObject.SystemId = Session("User").Item("SYSTEM_ID")
		l_InfoMdlObject.CompanyId = Session("User").Item("COMPANY_ID")
		l_InfoMdlObject.UserId = Session("User").Item("USER_ID")
		'l_InfoMdlObject.UserName = Session("User").Item("NAME")
		l_InfoMdlObject.SectionId = Session("User").Item("SECTION_ID")

		'慜夋柺儃僞儞墴壓忬嫷庢摼
		l_Regist = Request.Form("regist")
		l_Delete = Request.Form("delete")
		l_Information = Request.Form("information")

		l_Update = Request.QueryString("P1")
	End Function

	'/*******************************
	'/* 僷儔儊乕僞庢摼
	'/* param丗
	'/* return丗
	'/*******************************
	Public Function GetFormParam()
		l_InfoMdlObject.MessageId = Request.QueryString("P2")

		'搊榐偡傞儃僞儞墴壓帪
		If l_Iem.l_Regist <> "" Then
			Set l_CharUtil = New CharUtil

			l_ErrCnt = 0

			'儊僢僙乕僕僠僃僢僋
			If IsNull(Request.Form("message")) or Request.Form("message") = "" Then
				'儊僢僙乕僕傪擖椡偟偰偔偩偝偄
				l_ErrArray(l_ErrCnt) = IG11060E
				l_ErrCnt = l_ErrCnt + 1
			'20051019 搊榐帪偵100暥帤偱僇僢僩張棟偵曄峏偺偨傔丄僄儔乕儊僢僙乕僕側偟丂 仺051114 暅婣
			ElseIf Len(Request.Form("message")) > 100 Then
				'儊僢僙乕僕偑100暥帤傪挻偊偰偄傑偡
				l_ErrArray(l_ErrCnt) = IG11061E
				l_ErrCnt = l_ErrCnt + 1
			End If

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

			'慜夋柺傛傝忣曬庢摼
			l_InfoMdlObject.Genre = Request.Form("genre")
			'20051019 擖椡抣傪100暥帤偱僇僢僩丂
			l_InfoMdlObject.Message = Left(l_CharUtil.chg_HantoZen(Request.Form("message")),100)
			l_InfoMdlObject.OpenProp = Request.Form("open_prop")
			If l_InfoMdlObject.OpenProp = "" Then
				l_InfoMdlObject.OpenProp = "0"
			End If
		End If
	End Function
	'/*******************************
	'/* 僀儞僼僅儊乕僔儑儞搊榐
	'/* param丗
	'/* return丗
	'/*******************************
	Public Function InfoEditUpdate()
		Dim l_ManageNoMaster

		'怴婯偺応崌
		If l_Update = "NEW" Then
			'僀儞僼僅儊乕僔儑儞憓擖
			If Not l_Icmn.InsertInformation(l_DBObject,l_InfoMdlObject) Then
				l_ErrCnt = l_ErrCnt + 1
				l_ErrArray(l_ErrCnt) = IG11041E
			Else
				'儘僌偺弌椡
				l_Common.OutputLogFile(DEMAND_INFORMATION_LOG)
			End If
		Else
			If l_Update = "UPDATE" Then
				'僀儞僼僅儊乕僔儑儞懚嵼僠僃僢僋
				If l_Icmn.CheckInformationId(l_DBObject,l_InfoMdlObject) Then
					'峏怴帪
					If Not l_Icmn.UpdateInformation(l_DBObject,l_InfoMdlObject) Then
						l_ErrCnt = l_ErrCnt + 1
						l_ErrArray(l_ErrCnt) = IG11042E
					Else
						'儘僌偺弌椡
						l_Common.OutputLogFile(DEMAND_INFORMATION_LOG)
					End If
				Else
					l_ErrCnt = l_ErrCnt + 1
					l_ErrArray(l_ErrCnt) = IG11043E
				End If
			End If
		End If
		If l_ErrCnt > 0 Then
			Session("ErrMsg") = l_ErrArray
			Response.ReDirect "../error.asp"
		End If
	End Function

	'/*******************************
	'/* 僀儞僼僅儊乕僔儑儞嶍彍
	'/* param丗
	'/* return丗
	'/*******************************
	Public Function InfoEditDelete()
		'僀儞僼僅儊乕僔儑儞懚嵼僠僃僢僋
		If l_Icmn.CheckInformationId(l_DBObject,l_InfoMdlObject) Then
			'僀儞僼僅儊乕僔儑儞旕岞奐
			If Not l_Icmn.DeleteInformation(l_DBObject,l_InfoMdlObject) Then
				l_ErrCnt = l_ErrCnt + 1
				l_ErrArray(l_ErrCnt) = IG11042E
			Else
				'儘僌偺弌椡
				l_Common.OutputLogFile(DEMAND_INFORMATION_DELE_LOG)
			End If
		Else
			l_ErrCnt = l_ErrCnt + 1
			l_ErrArray(l_ErrCnt) = IG11045E
		End If
		If l_ErrCnt > 0 Then
			Session("ErrMsg") = l_ErrArray
			Response.ReDirect "../error.asp"
		End If
	End Function

End Class

%>