demlistbasemaster.asp

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

					"    AND DEL_FLG = '" & FLG_OFF & "') AS CD_CLASS1_NAME " 

		'FROM
		l_SQL = l_SQL & " FROM LISTBASE_T LB,LISTIMAGE_M LI"

		'AND 僔僗僥儉ID丄夛幮ID丄挔昜斣崋丄巬斣(LB,LI)
		l_SQL = l_SQL & " WHERE LB.SYSTEM_ID=LI.SYSTEM_ID(+)" &_
							" AND LB.COMPANY_ID=LI.COMPANY_ID(+)" &_
							" AND LB.LIST_CD=LI.LIST_CD(+)" &_
							" AND LB.LIST_EDA=LI.LIST_EDA(+)"

		'AND 僔僗僥儉ID丄夛幮ID
		l_SQL = l_SQL & " AND LB.SYSTEM_ID=" & "'" & Session("User").Item("SYSTEM_ID") & "'" &_
							" AND LB.COMPANY_ID = (SELECT COMPANY_ID " &_
							"                        FROM COMPANY_M " &_
							"                       WHERE SYSTEM_ID = '" & Session("User").Item("SYSTEM_ID") & "' " &_
							"                         AND COMPANY_KIND = '0')" 
		'AND 挔昜娗棟斣崋丄嶍彍僼儔僌
		l_SQL = l_SQL & " AND LB.LIST_MANAGE_NO=" & "'" & l_indata.Item("listmanage") & "'" &_
							" AND LB.DEL_FLG=" & "'0'"

		'AND 岞奐婜娫撪
		'l_SQL = l_SQL & " AND LB.OPEN_PERIOD_START <= SYSDATE" &_
		'					" AND LB.OPEN_PERIOD_END >= SYSDATE"

		'DB傛傝堦棗傪庢摼偟偰曉偡
		Set SearchFormDetails = l_dbaccess.ProcRecordset(l_SQL,1,0)
		
	End Function

	'/********************************************
	'/* 徻嵶忣曬夋柺丄娭楢挔昜偺専嶕
	'/* param丗dbaccess DB傾僋僙僗(DbAccess)
	'/*        indata 夋柺擖椡抣(String)
	'/*        l_inlist	娭楢挔昜僐乕僪
	'/* return丗ADODB.Recordset 専嶕寢壥
	'/********************************************
	Public Function SearchRelatedList(l_dbaccess,l_indata,l_inlist)
		Dim l_SQL	'String
		
		'SQL暥嶌惉
		'SELECT
		l_SQL = "SELECT " &_
					"LIST_CD," &_
					"LIST_EDA," &_
					"LIST_NAME," &_
					"LIST_MANAGE_NO"

		'FROM CODE_M
		l_SQL = l_SQL & " FROM LISTBASE_T"

		'WHERE 僔僗僥儉ID AND 夛幮ID AND 嶍彍僼儔僌亗1
		l_SQL = l_SQL & " WHERE " &_
							"SYSTEM_ID='" & Session("User").Item("SYSTEM_ID") & "' " &_ 
							" AND COMPANY_ID = (SELECT COMPANY_ID " &_
							"                        FROM COMPANY_M " &_
							"                       WHERE SYSTEM_ID = '" & Session("User").Item("SYSTEM_ID") & "' " &_
							"                         AND COMPANY_KIND = '0')" &_
							" AND DEL_FLG <> '" & FLG_ON & "'"

		'AND 娭楢挔昜
		l_SQL = l_SQL & " AND LIST_CD ='" & l_inlist & "'"

		'AND 岞奐婜娫撪
		l_SQL = l_SQL & " AND OPEN_PERIOD_START <= '" & Date & "'" &_
		" AND OPEN_PERIOD_END >= '" & Date & "'"

		'岞奐婜娫奐巒弴偵僜乕僩
		l_SQL = l_SQL & " ORDER BY LIST_EDA DESC"

		'DB拪弌寢壥傪曉偡
		Set SearchRelatedList = l_dbaccess.ProcRecordset(l_SQL, 1, 1)
	End Function

	'/***************************************************************
	'/* 岞奐尃尷枅偺専嶕忦審庢摼
	'/* param丗 l_SQL	SQL暥
	'/*			l_seckind	晹栧庬暿
	'/* return丗l_SQL	SQL暥
	'/***************************************************************
	Private Function GetOpenControl(l_SQL,l_seckind)

		'AND 岞奐尃尷
		If l_seckind = SECTION_KIND_INNER Then
			l_SQL = l_SQL & " AND LB.OPEN_AUTH_LIST IN ('" & OP_AUTH_LEVEL1 &_
								"','" & OP_AUTH_LEVEL2 &_
								"','" & OP_AUTH_LEVEL3 & "')"
		ElseIf l_seckind = SECTION_KIND_OUTSIDE Then
			l_SQL = l_SQL & " AND LB.OPEN_AUTH_LIST IN ('" & OP_AUTH_LEVEL1 &_
								"','" & OP_AUTH_LEVEL2 & "')"
		ElseIf l_seckind = SECTION_KIND_OTHER Then
			l_SQL = l_SQL & " AND LB.OPEN_AUTH_LIST IN ('" & OP_AUTH_LEVEL1 & "')"
		End If

		GetOpenControl = l_SQL
	End Function

	'/*******************************************************
	'/* 僂傿僢僔儏儕僗僩夋柺偵昞帵偡傞儗僐乕僪傪拪弌偡傞
	'/* param丗l_dbaccess(DBAccess) 	DB傾僋僙僗
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function SearchDemandWish(l_dbaccess)
		Dim l_SQL	'String
		
		'SQL暥嶌惉
		'SELECT
		l_SQL = "SELECT ROWNUM,WL.LIST_CD," & _
					"WL.LIST_EDA," & _
					"LB.LIST_NAME," &_
					"LB.CLASS1," &_
					"LB.UNIT_PRICE," &_
					"LB.USEPOSSIBLE_TERM_END," &_
					"LB.LIST_MANAGE_NO," &_
					"LB.OPEN_IMAGE_FLAG," &_
					"LB.OPEN_PERIOD_START," &_
					"LI.THUMBNAIL," &_
					"CD.NAME," &_
					"(SELECT NAME " &_
					"   FROM CODE_M " &_
					"  WHERE SYSTEM_ID = LB.SYSTEM_ID " &_
					"    AND CLASSIFIED_CODE = '" & CD_CLASS1_COLOR & "' " &_
					"    AND CODE = LB.CLASS1" &_
					"    AND DEL_FLG = '" & FLG_OFF & "') AS BG_COLLOR," &_
					"(SELECT NAME " &_
					"   FROM CODE_M " &_
					"  WHERE SYSTEM_ID = LB.SYSTEM_ID " &_
					"    AND CLASSIFIED_CODE = '" & CD_CLASS1 & "' " &_
					"    AND CODE = LB.CLASS1" &_
					"    AND DEL_FLG = '" & FLG_OFF & "') AS CD_CLASS1_NAME " 

		'FROM
		l_SQL = l_SQL & " FROM LISTBASE_T LB,LISTIMAGE_M LI,CODE_M CD,WISHLIST_T WL"

		'AND 僔僗僥儉ID丄夛幮ID丄挔昜斣崋丄巬斣(WL,LB)
		l_SQL = l_SQL & " WHERE WL.SYSTEM_ID=LB.SYSTEM_ID" &_
							" AND LB.COMPANY_ID = '" & l_cmn.GetCustomerCompIdRec(l_dbaccess,Session("User").Item("SYSTEM_ID")) & "' " &_
							" AND WL.LIST_CD=LB.LIST_CD" &_
							" AND WL.LIST_EDA=LB.LIST_EDA"

		'AND 僔僗僥儉ID丄夛幮ID丄挔昜斣崋丄巬斣(WL,LI)
		l_SQL = l_SQL & " AND WL.SYSTEM_ID=LI.SYSTEM_ID(+)" &_
							" AND WL.COMPANY_ID=LI.COMPANY_ID(+)" &_
							" AND WL.LIST_CD=LI.LIST_CD(+)" &_
							" AND WL.LIST_EDA=LI.LIST_EDA(+)"

		'AND 僔僗僥儉ID丄夛幮ID丄僐乕僪(LB,CD)
		l_SQL = l_SQL & " AND LB.SYSTEM_ID=CD.SYSTEM_ID" &_
							" AND LB.CLASS1=CD.CODE"

		'AND 僔僗僥儉ID丄夛幮ID丄儐乕僓ID=僙僢僔儑儞
		l_SQL = l_SQL & " AND WL.SYSTEM_ID = " & "'" & Session("User").Item("SYSTEM_ID") & "'" &_
							" AND WL.COMPANY_ID = " & "'" & Session("User").Item("COMPANY_ID") & "'" &_
							" AND WL.USER_ID = " & "'" & Session("User").Item("USER_ID") & "'" &_
							" AND CD.CLASSIFIED_CODE='" & CD_CLASS1 & "'" &_
							" AND WL.MENU_ID =" & "'" & MENU_DEMAND & "'" &_
							" AND LB.DEL_FLG =" & "'0'"

		'AND 岞奐婜娫撪
		l_SQL = l_SQL & " AND LB.OPEN_PERIOD_START <= SYSDATE " &_
							" AND LB.OPEN_PERIOD_END >= SYSDATE "

		'帒椏惪媮婜娫弴偵僜乕僩
		l_SQL = l_SQL & " ORDER BY WL.REG_YMD DESC"
'response.write l_SQL
		debug_t(l_SQL)

		'DB傛傝堦棗傪庢摼偟偰曉偡
		Set SearchDemandWish = l_dbaccess.ProcRecordset(l_SQL,MAXROW_DEMAND_FORM_LIST,1)
	End Function

	'/*******************************************************
	'/* 僂傿僢僔儏儕僗僩僥乕僽儖偵儗僐乕僪傪僀儞僒乕僩偡傞
	'/* param丗l_dbaccess(DBAccess) 	DB傾僋僙僗
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function InsertDemandWish(l_dbaccess,l_indata)
		Dim l_SQL	'String
		Dim l_execute

		'SQL暥嶌惉
		'INSERT
		l_SQL = "insert into WISHLIST_T"
		l_SQL = l_SQL & " (SYSTEM_ID,COMPANY_ID,USER_ID,LIST_CD,LIST_EDA,MENU_ID,REG_YMD,DEL_FLG)"
		'VALUES
		l_SQL = l_SQL & " VALUES(" & "'" & Session("User").Item("SYSTEM_ID") & "'" & "," &_
		"'" & Session("User").Item("COMPANY_ID") & "'" & "," &_
		"'" & Session("User").Item("USER_ID") & "'"  & ","&_
		"'" & l_indata.Item("listcd") & "'"  & "," &_
		"'" & l_indata.Item("listeda") & "'" & ",'" & MENU_DEMAND & "',sysdate,0)"

		Call l_dbaccess.ProcBeginTrans
		l_execute =  l_dbaccess.ProcExecute(l_SQL)

		If l_execute Then
			Call l_dbaccess.ProcCommit()
		Else
			Call l_dbaccess.ProcRollBack()
		End If
	End Function

	'/*******************************************************
	'/* 僂傿僢僔儏儕僗僩僥乕僽儖偐傜儗僐乕僪傪僨儕乕僩偡傞
	'/* param丗l_dbaccess(DBAccess) 	DB傾僋僙僗
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function DeleteDemandWish(l_dbaccess,l_indata)
		Dim l_SQL	'String
		Dim l_execute

		'SQL暥嶌惉
		'DELETE
		l_SQL = "delete from WISHLIST_T"

		'WHERE 僔僗僥儉ID丄夛幮ID丄儐乕僓ID
		l_SQL = l_SQL & " WHERE SYSTEM_ID =" & "'" & Session("User").Item("SYSTEM_ID") & "'" &_
							" AND COMPANY_ID =" & "'" & Session("User").Item("COMPANY_ID") & "'" &_
							" AND USER_ID =" & "'" & Session("User").Item("USER_ID") & "'" &_
							" AND MENU_ID =" & "'" & MENU_DEMAND & "'"

		'AND 挔昜斣崋丄巬斣
		l_SQL = l_SQL & " AND LIST_CD =" & "'" & l_indata.Item("listcd") & "'" &_
							" AND LIST_EDA =" & "'" & l_indata.Item("listeda") & "'"

		Call l_dbaccess.ProcBeginTrans
		l_execute =  l_dbaccess.ProcExecute(l_SQL)

		If l_execute Then
			Call l_dbaccess.ProcCommit()
		Else
			Call l_dbaccess.ProcRollBack()
		End If
	End Function

	'/*******************************************************
	'/* 僂傿僢僔儏儕僗僩僥乕僽儖偺奩摉儗僐乕僪傪扵偡
	'/* param丗l_dbaccess(DBAccess) 	DB傾僋僙僗
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function WishSearch(l_dbaccess,l_listcd,l_listeda)
		Dim l_SQL	'String

		'SQL暥嶌惉
		'SELECT
		l_SQL = "select COUNT(*) "

		'FROM
		l_SQL = l_SQL & " from WISHLIST_T"

		'WHERE
		l_SQL = l_SQL & " WHERE SYSTEM_ID =" & "'" & Session("User").Item("SYSTEM_ID") & "'" &_
							" AND COMPANY_ID =" & "'" & Session("User").Item("COMPANY_ID") & "'" &_
							" AND USER_ID =" & "'" & Session("User").Item("USER_ID") & "'" &_
							" AND MENU_ID =" & "'" & MENU_DEMAND & "'"

		'AND
		l_SQL = l_SQL & " AND LIST_CD =" & "'" & l_listcd & "'" &_
							" AND LIST_EDA =" & "'" & l_listeda & "'"

		'DB傛傝堦棗傪庢摼偟偰曉偡
		Set WishSearch = l_dbaccess.ProcRecordset(l_SQL,1,0)

	End Function

	'/*******************************************************
	'/* 攝憲愭僐乕僪傪扵偡
	'/* param丗l_dbaccess(DBAccess) 	DB傾僋僙僗
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function SearchInitOrder(l_dbaccess,l_inCd)
		Dim l_SQL	'String

		'SQL暥嶌惉
		'SELECT
		l_SQL = "select *"
		'FROM
		l_SQL = l_SQL & " from RECEIVEADDRESS_M"
		'WHERE
		l_SQL = l_SQL & " WHERE SYSTEM_ID =" & "'" & Session("User").Item("SYSTEM_ID") & "'" &_
		" AND RECEIVE_ADDRESS_ID='" & l_inCd & "'"

		'DB傛傝堦棗傪庢摼偟偰曉偡
		Set SearchInitOrder = l_dbaccess.ProcRecordset(l_SQL,20,0)

	End Function

	'/******************************************************
	'/* 攝憲愭懚嵼僠僃僢僋
	'/* param丗
	'/******************************************************
	Public Function SearchReceive(l_db,l_inCd)
		Dim l_SQL

		l_SQL = "SELECT COUNT(*) AS COUNT " &_
				   "  FROM RECEIVEADDRESS_M " &_
				   " WHERE SYSTEM_ID = '" & Session("User").Item("SYSTEM_ID") & "'" &_
				   "   AND RECEIVE_ADDRESS_ID = '" & l_inCd & "' "

		Set SearchReceive = l_db.ProcRecordset(l_SQL,1,0)

	End Function

End Class
%>