fmlistbasemaster.asp

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

<%
'/
'/挔昜娗棟婡擻
'/挔昜婎杮僥乕僽儖傾僋僙僗僋儔僗
'/
Class FmListBaseMaster
	'/*******************************************************
	'/* 挔昜堦棗夋柺偵昞帵偡傞儗僐乕僪傪拪弌偡傞
	'/* param丗l_dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        l_sysid(String) 僔僗僥儉ID
	'/*        l_coid(String) 夛幮ID
	'/*        l_secId(String) 晹栧ID
	'/*        l_menuAuth(String) 儊僯儏乕尃尷乮挔昜娗棟尃尷)
	'/*		   l_indata(Scripting.Dictionary) 夋柺擖椡抣
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function SearchListBase(l_dbaccess, l_cutil, l_sysid, l_coid, l_secId, l_menuAuth, l_indata)
		Dim l_strsql

		'SQL暥嶌惉
		'SELECT
		l_strsql = "SELECT LB.SYSTEM_ID," &_
			"LB.COMPANY_ID," &_
			"LB.LIST_MANAGE_NO," &_
			"LB.LIST_CD," &_
			"LB.LIST_EDA," &_
			"LB.LIST_NAME," &_
			"LB.SECTION_ID," &_
			"LB.USER_ID," &_
			"LB.APPLICANT," &_
			"LB.LIST_STATUS," &_
			"LB.CALC_SUBJECT," &_
			"LB.CLASS1," &_
			"LB.CLASS2," &_
			"LB.CLASS3," &_
			"LB.LIST_UNIT," &_
			"LB.SECRET_FLG," &_
			"LB.SECRET_PASSWORD," &_
			"LB.TEMPLATE_ID," &_
			"LB.PRINT_CLASS," &_
			"LB.PAGE_COUNT," &_
			"LB.SET_COUNT," &_
			"LB.RESULT_SIZE," &_
			"LB.RESULT_ROW," &_
			"LB.RESULT_COL," &_
			"LB.RESULT_UNIT," &_
			"LB.DEPLOY_SIZE," &_
			"LB.DEPLOY_ROW," &_
			"LB.DEPLOY_COL," &_
			"LB.DEPLOY_UNIT," &_
			"LB.BOOKBINDING," &_
			"LB.BOOKBINDING_OTHER," &_
			"LB.PAGE_SPEC_ID," &_
			"LB.PROCESSING_SPEC_ID," &_
			"LB.PROCESSING_NOTE," &_
			"LB.PACKING_FORM," &_
			"LB.PACKING_COUNT," &_
			"LB.SPECIAL_MATTER," &_
			"LB.OPEN_PERIOD_START," &_
			"LB.OPEN_PERIOD_END," &_
			"LB.CLAIM_PERIOD_START," &_
			"LB.CLAIM_PERIOD_END," &_
			"LB.CLAIM_PERIOD_FLAG," &_
			"LB.ARRIVAL_WAIT," &_
			"LB.UNIT_PRICE," &_
			"LB.USEPOSSIBLE_TERM_START," &_
			"LB.USEPOSSIBLE_TERM_END," &_
			"LB.LIST_CLASS1," &_
			"LB.STORAGE_PERIOD1," &_
			"LB.STORAGE_PERIOD_OTHER1," &_
			"LB.HEADOFFICE_KEEP1," &_
			"LB.LIST_CLASS2," &_
			"LB.STORAGE_PERIOD2," &_
			"LB.STORAGE_PERIOD_OTHER2," &_
			"LB.HEADOFFICE_KEEP2," &_
			"LB.LIST_CLASS3," &_
			"LB.STORAGE_PERIOD3," &_
			"LB.STORAGE_PERIOD_OTHER3," &_
			"LB.HEADOFFICE_KEEP3," &_
			"LB.LEAV_DIRECTION," &_
			"LB.LEAV_DIRECTION_COUNT," &_
			"LB.OPEN_IMAGE_FLAG," &_
			"LB.OPEN_AUTH_LIST," &_
			"LB.OPEN_AUTH_LEAV," &_
			"LB.LISTNUMBER_NEW1," &_
			"LB.LISTNUMBER_NEW2," &_
			"LB.LISTNUMBER_NEW3," &_
			"LB.LISTNUMBER_OLD1," &_
			"LB.LISTNUMBER_OLD2," &_
			"LB.LISTNUMBER_OLD3," &_
			"LB.RELATED_LIST1," &_
			"LB.RELATED_LIST2," &_
			"LB.RELATED_LIST3," &_
			"LB.RELATED_LIST4," &_
			"LB.RELATED_LIST5," &_
			"LB.RELATED_LIST6," &_
			"LB.CATEGORY1," &_
			"LB.CATEGORY2," &_
			"LB.CATEGORY3," &_
			"LB.CATEGORY4," &_
			"LB.CATEGORY5," &_
			"LB.DATACLAIM_NOTE," &_
			"LB.SETLIST_FLG," &_
			"LB.REG_YMD," &_
			"LB.UPDATE_YMD," &_
			"LB.DEL_FLG," &_
       		"(SELECT NAME " &_
       		"   FROM CODE_M " &_
            "   WHERE SYSTEM_ID = LB.SYSTEM_ID " &_
	        "    AND CLASSIFIED_CODE = '" & CD_LIST_STATUS & "' " &_
       		"    AND CODE=LB.LIST_STATUS) AS LIST_STATUS_NAME," &_
      		"(SELECT SECTION_NAME " &_
		    "   FROM SECTION_M " &_ 
        	"  WHERE SYSTEM_ID = LB.SYSTEM_ID " &_   
          	"    AND COMPANY_ID=LB.COMPANY_ID " &_
          	"    AND SECTION_ID=LB.SECTION_ID) AS SECTION_NAME," &_
	        "(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 CLASS1_NAME " 

		'FROM LISTBSE_T
		l_strsql = l_strsql & " FROM LISTBASE_T LB "

		'僔僗僥儉ID AND 夛幮ID AND 嶍彍僼儔僌<>'1'
		l_strsql = l_strsql & " WHERE LB.SYSTEM_ID =" & "'" & l_sysid & _
				   "' AND LB.DEL_FLG <> '1'"

		'娗棟尃尷偑偁傞応崌偼慡僨乕僞昞帵丅
		'尃尷偑側偄応崌偼丄帺暘偺晹栧偺僨乕僞偲丄岞奐壜擻側挔昜傪堦棗昞帵偡傞
		'If l_menuAuth <> FLG_ON Then
		'	l_strsql = l_strsql & "AND (LB.SECTION_ID='" & l_secId & "' OR LB.SECRET_FLG = '1')"
		'End If

		'夋柺擖椡偟偨撪梕傪愝掕
		If IsObject(l_indata) Then
			'AND 儊僯儏乕挔昜斣崋
			If l_indata.Item("menulistcd") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_CD=" & "'" & l_indata.Item("menulistcd") & "'"
			End If
			'AND 挔昜斣崋
			If l_indata.Item("listcd") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_CD=" & "'" & l_indata.Item("listcd") & "'"
			End If
			'AND 挔昜斣崋巬斣
			If l_indata.Item("listeda") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_EDA=" & "'" & l_indata.Item("listeda") & "'"
			End If
			'AND 挔昜柤 2006/1/11 慜曽堦抳偵廋惓
			If l_indata.Item("listname") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_NAME LIKE('" & l_cutil.chg_HantoZen(l_indata.Item("listname")) & "%')"
			End If
			'AND 僥儞僾儗乕僩
			If l_indata.Item("pdtemplate") <> "" Then
				l_strsql = l_strsql & " AND LB.TEMPLATE_ID=" & "'" & l_indata.Item("pdtemplate") & "'"
			End If
			'AND 挔昜僗僥乕僞僗
			If l_indata.Item("pdliststatus") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_STATUS=" & "'" & l_indata.Item("pdliststatus") & "'"
			End If
			'AND 庡娗晹栧
			If l_indata.Item("pdsel") <> "" Then
				l_strsql = l_strsql & " AND LB.SECTION_ID=" & "'" & l_indata.Item("pdsel") & "'"
			End If
			'AND 搊榐擔亖嶌惉擔(FROM)乣嶌惉擔(TO)
			Dim l_fromymd
			Dim l_toymd
			l_fromymd = Trim(l_indata.Item("pdfromyear") & l_indata.Item("pdfrommonth") & l_indata.Item("pdfromday"))
			l_toymd = Trim(l_indata.Item("pdtoyear") & l_indata.Item("pdtomonth") & l_indata.Item("pdtoday"))

			If l_fromymd <> "" and l_toymd <> "" Then	'REG_YMD BETWEEN l_fromymd AND l_toymd
				l_strsql = l_strsql & " AND TO_CHAR(LB.REG_YMD, 'yyyymmdd') BETWEEN '" & l_fromymd & _
					 "' AND '" & l_toymd  & "'"
			ElseIf l_fromymd <> "" Then				'REG_YMD = fromymd
				l_strsql = l_strsql & " AND TO_CHAR(LB.REG_YMD, 'yyyymmdd') >= '" & l_fromymd & "'"
			ElseIf l_toymd <> "" Then					'REG_YMD = toymd
				l_strsql = l_strsql & " AND TO_CHAR(LB.REG_YMD, 'yyyymmdd') <= '" & l_toymd & "'"
			End If
		End If


		'ORDER BY
		If IsObject(l_indata) Then
			'ORDER BY
			l_strsql = l_strsql & " ORDER BY " & GetOrderByStr(l_indata.Item("sortkey"),l_indata.Item("sortdesc"))
		Else
			'ORDER BY (擖椡抣偑側偄応崌偼僨僼僅儖僩偺僜乕僩弴愝掕)
			l_strsql = l_strsql & " ORDER BY LB.REG_YMD DESC, LB.LIST_CD DESC, LB.LIST_EDA DESC"
		End If
'response.write l_strsql
		'僨僶僢僌暥
		debug_t("SQL丗" & l_strsql)
		'DB傛傝堦棗傪庢摼偟偰曉偡(1儁乕僕亖10峴傪愝掕)
		Set SearchListBase = l_dbaccess.ProcRecordset(l_strsql,MAXROW_FORM_LIST,0)

	End Function

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

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

		'僜乕僩暥嶌惉
		If l_sortkey = SORT_KEY1 Then				'僨僼僅儖僩(嶌惉擔(崀弴)亄挔昜斣崋(崀弴))
			l_retStr = "LB.REG_YMD DESC, LB.LIST_CD DESC, LB.LIST_EDA DESC"
		ElseIf l_sortkey = SORT_KEY2 Then			'嶌惉擔弴
			l_retStr = "LB.REG_YMD" & l_seq			
		ElseIf l_sortkey = SORT_KEY3 Then			'挔昜斣崋弴
			l_retStr = "LB.LIST_CD" & l_seq & ", "&_
					   "LB.LIST_EDA" & l_seq			
		ElseIf  l_sortkey = SORT_KEY4 Then			'挔昜柤弴
			l_retStr = "LB.LIST_NAME" & l_seq			
		End If

		GetOrderByStr = l_retStr
	End Function

	'/*******************************************************
	'/* 挔昜彸擣堦棗夋柺偵昞帵偡傞儗僐乕僪傪拪弌偡傞
	'/* param丗l_dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        l_sysid(String) 			僔僗僥儉ID
	'/*        l_coid(String) 			夛幮ID
	'/*		   l_indata(Scripting.Dictionary) 夋柺擖椡抣
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function SearchApproveList(l_dbaccess, l_sysid, l_coid, l_userid, l_indata)
		Dim l_strsql	'String
		
		'SQL暥嶌惉
		'SELECT
		l_strsql = "SELECT LB.SYSTEM_ID," &_
			"LB.COMPANY_ID," &_
			"LB.LIST_MANAGE_NO," &_
			"LB.LIST_CD," &_
			"LB.LIST_EDA," &_
			"LB.LIST_NAME," &_
			"LB.SECTION_ID," &_
			"LB.USER_ID," &_
			"LB.APPLICANT," &_
			"LB.LIST_STATUS," &_
			"LB.CALC_SUBJECT," &_
			"LB.CLASS1," &_
			"LB.CLASS2," &_
			"LB.CLASS3," &_
			"LB.LIST_UNIT," &_
			"LB.SECRET_FLG," &_
			"LB.SECRET_PASSWORD," &_
			"LB.TEMPLATE_ID," &_
			"LB.PRINT_CLASS," &_
			"LB.PAGE_COUNT," &_
			"LB.SET_COUNT," &_
			"LB.RESULT_SIZE," &_
			"LB.RESULT_ROW," &_
			"LB.RESULT_COL," &_
			"LB.RESULT_UNIT," &_
			"LB.DEPLOY_SIZE," &_
			"LB.DEPLOY_ROW," &_
			"LB.DEPLOY_COL," &_
			"LB.DEPLOY_UNIT," &_
			"LB.BOOKBINDING," &_
			"LB.BOOKBINDING_OTHER," &_
			"LB.PAGE_SPEC_ID," &_
			"LB.PROCESSING_SPEC_ID," &_
			"LB.PROCESSING_NOTE," &_
			"LB.PACKING_FORM," &_
			"LB.PACKING_COUNT," &_
			"LB.SPECIAL_MATTER," &_
			"LB.OPEN_PERIOD_START," &_
			"LB.OPEN_PERIOD_END," &_
			"LB.CLAIM_PERIOD_START," &_
			"LB.CLAIM_PERIOD_END," &_
			"LB.CLAIM_PERIOD_FLAG," &_
			"LB.ARRIVAL_WAIT," &_
			"LB.UNIT_PRICE," &_
			"LB.USEPOSSIBLE_TERM_START," &_
			"LB.USEPOSSIBLE_TERM_END," &_
			"LB.LIST_CLASS1," &_
			"LB.STORAGE_PERIOD1," &_
			"LB.STORAGE_PERIOD_OTHER1," &_
			"LB.HEADOFFICE_KEEP1," &_
			"LB.LIST_CLASS2," &_
			"LB.STORAGE_PERIOD2," &_