postsectionmaster.asp

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

<%
Class PostSecsionMaster

	Dim l_SQL

	'晹栧忣曬庢摼
	Public Function SearchSectionBase(Param1,Param2,Param3)

		l_SQL = "SELECT SECTION_ID,SECTION_NAME,COST_BURDEN_KIND" & _
				"  FROM SECTION_M" & _
				" WHERE SYSTEM_ID = '" & 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 DEL_FLG = '0'" &_
				"   AND SUPER_SECTION_FLG <> '" & FLG_ON & "' "
		If IsObject(Param3) Then
			If Param3.Item("section_id") <> "" Then
				l_SQL = l_SQL & "   AND SECTION_ID = '" & Param3.Item("section_id") & "'"
			End If
			If Param3.Item("section_name") <> "" Then
				l_SQL = l_SQL & "   AND SECTION_NAME LIKE('" & l_Plm.l_CharUtil.chg_HantoZen(Param2.l_SectionName) & "%')"
			End If
		'	If Param3.Item("cost_burden_kind") = "1" Then
		'		l_SQL = l_SQL & "   AND COST_BURDEN_KIND = '1'"
		'	End If
			l_SQL = l_SQL & " ORDER BY " & GetOrderByStr(Param3.Item("sortkey"),Param3.Item("sortdesc"))
		Else
			'l_SQL = l_SQL & "   AND COST_BURDEN_KIND = '1'"
		'	l_SQL = l_SQL & " ORDER BY COST_BURDEN_KIND DESC, SECTION_ID DESC"
			l_SQL = l_SQL & " ORDER BY SECTION_ID DESC"
		End If
'Response.Write l_SQL
		debug_t(l_SQL)
		Set SearchSectionBase = Param1.ProcRecordset(l_SQL,20,1)
	End Function

	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		'僨僼僅儖僩(旓梡晧扴晹栧(徃弴)亄晹栧ID(徃弴))
		'	l_retStr = "COST_BURDEN_KIND DESC, SECTION_ID DESC"
			l_retStr = "SECTION_ID DESC"
		ElseIf l_sortkey = SORT_KEY2 Then			'晹栧僐乕僪弴
			l_retStr = "SECTION_ID" & l_seq			
		ElseIf l_sortkey = SORT_KEY3 Then			'晹栧柤弴
			l_retStr = "SECTION_NAME" & l_seq
		ElseIf  l_sortkey = SORT_KEY4 Then			'旓梡晧扴晹栧弴
			l_retStr = "COST_BURDEN_KIND" & l_seq
		End If
		GetOrderByStr = l_retStr
	End Function

	'晹栧僐乕僪懚嵼僠僃僢僋
	Public Function CheckSectionId(Param1,Param2)

		Dim l_RecSet

		CheckSectionId = False

		'SQL暥惗惉
		l_SQL = "SELECT COUNT(*) FROM SECTION_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')" & _
				"   AND SECTION_ID = '" & Param2.l_SectionId & "'"
'response.write l_SQL
		Set l_RecSet = Param1.ProcRecordset(l_SQL,10,0)

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

	'晹栧嶍彍
	Public Function DeleteSection(Param1,Param2)
		DeleteSection = True
		l_SQL = "UPDATE SECTION_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 SECTION_ID = '" & Param2.l_SectionId & "'"

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

		l_SQL = "UPDATE MENUAUTH_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 SECTION_ID = '" & Param2.l_SectionId & "'"

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

	'晹栧憓擖
	Public Function InsertSection(Param1,Param2)
		InsertSection = True

		'SQL暥惗惉
		l_SQL = "INSERT INTO SECTION_M(SYSTEM_ID," &_
				"                      COMPANY_ID," &_
				"                      SECTION_ID," &_
				"                      SECTION_NAME," &_
				"                      SECTION_NAME_KANA," &_
				"                      POSTCODE," &_
				"                      PREFECTURE," &_
				"                      TOWN," &_
				"                      HOUSE_NUMBER," &_
				"                      BUILDING," &_
				"                      PERSON," &_
				"                      TEL," &_
				"                      EXTENSION," &_
				"                      FAX," &_
				"                      LOGIN_ID," &_
				"                      PASSWORD," 
		'		"                      COST_BURDEN_KIND," &_
		l_SQL = l_SQL & "              SECTION_KIND," &_
				"                      SUPER_SECTION_FLG," &_
				"                      REG_YMD," &_
				"                      UPDATE_YMD," &_
				"                      DEL_FLG) " &_
										"VALUES ('" & Param2.l_SystemId			& "','" & _
													Param2.l_CompanyId			& "','" & _
													Param2.l_SectionId			& "','" & _
													Param2.l_SectionName		& "','" & _
													Param2.l_SectionNameKana	& "','" & _
													Param2.l_PostCode			& "','" & _
													Param2.l_Prefecture		& "','" & _
													Param2.l_Town				& "','" & _
													Param2.l_HouseNumber		& "','" & _
													Param2.l_Building			& "','" & _
													Param2.l_Person             & "','" & _
													Param2.l_Tel				& "','" & _
													Param2.l_Extension			& "','" & _
													Param2.l_FAX				& "','','','','"
									'				Param2.l_CostBurdenKind	& "','" & _
									l_SQL = l_SQL & Param2.l_SectionKind		& "',SYSDATE,null,'0')"
'Response.Write l_SQL

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

		'SQL暥惗惉
		l_SQL = "INSERT INTO MENUAUTH_M(SYSTEM_ID," &_
				"                       COMPANY_ID," &_
				"                       SECTION_ID," &_
				"                       LIST_MANAGE," &_
				"                       DATA_CLAIM," &_
				"                       EMPLOY," &_
				"                       SYSTEM_EMPLOY," &_
				"                       OTHERE_EMPLOY," &_
				"                       REG_YMD," &_
				"                       UPDATE_YMD," &_
				"                       DEL_FLG) " &_
				"                       VALUES ('" & Param2.l_SystemId				& "','" & _
													 Param2.l_CompanyId			& "','" & _
													 Param2.l_SectionId			& "','" & _
													 Param2.l_ListManage			& "','" & _
													 Param2.l_DataClaim			& "','" & _
													 Param2.l_Employ		& "','" & _
													 Param2.l_SystemEmploy & "','" & _
													 Param2.l_Other			& "',SYSDATE,null,'0')"
'Response.Write l_SQL
		'SQL敪峴
		If Not Param1.ProcExecute(l_SQL) Then
			Param1.ProcRollBack
			InsertSection = False
		End If
	End Function

	'晹栧峏怴
	Public Function UpdateSection(Param1,Param2)
		UpdateSection = True
		l_SQL = "UPDATE SECTION_M SET POSTCODE = '" & Param2.l_PostCode & "'," & _
									 "PREFECTURE = '" & Param2.l_Prefecture & "'," & _
									 "TOWN = '" & Param2.l_Town & "'," & _
									 "HOUSE_NUMBER = '" & Param2.l_HouseNumber & "'," & _
									 "BUILDING = '" & Param2.l_Building & "'," & _
									 "SECTION_NAME = '" & Param2.l_SectionName & "'," & _
									 "SECTION_NAME_KANA = '" & Param2.l_SectionNameKana & "'," & _
									 "PERSON = '" & Param2.l_Person & "'," &_
									 "TEL = '" & Param2.l_Tel & "'," & _
									 "EXTENSION = '" & Param2.l_Extension & "'," & _
									 "FAX = '" & Param2.l_FAX & "'," 
		'							 "COST_BURDEN_KIND = '" & Param2.l_CostBurdenKind & "'," & _
		l_SQL = l_SQL & "SECTION_KIND = '" & Param2.l_SectionKind & "'," & _
									 "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 SECTION_ID = '" & Param2.l_SectionId & "'"

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

		l_SQL = "UPDATE MENUAUTH_M SET LIST_MANAGE = '" & Param2.l_ListManage & "'," & _
									  "DATA_CLAIM = '" & Param2.l_DataClaim & "'," & _
									  "EMPLOY = '" & Param2.l_Employ & "'," & _
									  "SYSTEM_EMPLOY = '" & Param2.l_SystemEmploy & "'," & _
									  "OTHERE_EMPLOY = '" & Param2.l_Other & "'," & _
									  "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 SECTION_ID = '" & Param2.l_SectionId & "'"

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