fmlistbasemaster.asp

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

			"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.REG_YMD," &_
			"LB.UPDATE_YMD," &_
			"LB.DEL_FLG," &_
			"ODR.ORDER_MANAGE_NO," &_
			"ODR.ORDER_STATUS AS ORDER_STATUS," &_
       		"(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) AS CLASS1_NAME" 

		'FROM LISTBSE_T
		l_strsql = l_strsql & " FROM LISTBASE_T LB, ORDER_T ODR "

		'WHERE 
		l_strsql  = l_strsql & "WHERE LB.SYSTEM_ID = ODR.SYSTEM_ID(+) " &_
					"  AND LB.COMPANY_ID = ODR.COMPANY_ID(+) " &_
					"  AND LB.SYSTEM_ID = '" & l_sysid & "' " &_
					"  AND LB.COMPANY_ID = '" & l_coid & "' " &_
					"  AND LB.LIST_CD = ODR.LIST_CD(+) " &_
					"  AND LB.LIST_EDA = ODR.LIST_EDA(+) " &_
					"  AND LB.DEL_FLG <> '1' " &_
					"  AND ODR.ORDER_MANAGE_NO = (SELECT MAX(ODR2.ORDER_MANAGE_NO) AS ORDER_MANAGE_NO " &_
					"                               FROM ORDER_T ODR2, LISTBASE_T LB2 " &_
					"                               WHERE LB2.SYSTEM_ID = ODR2.SYSTEM_ID " &_
					"		                          AND LB2.COMPANY_ID = ODR2.COMPANY_ID " &_
					"                                 AND LB.LIST_CD = LB2.LIST_CD " &_
					"                                 AND LB.LIST_EDA = LB2.LIST_EDA " &_
					"		                          AND LB2.LIST_CD = ODR2.LIST_CD " &_
					"		                    AND LB2.LIST_EDA = ODR2.LIST_EDA) "

		'挔昜僗僥乕僞僗亖彸擣懸偪
		l_strsql = l_strsql & " AND LB.LIST_STATUS='" & LSTS_CONF & "'"
		

		'奩摉彸擣幰
		l_strsql = l_strsql & " AND (ODR.RECOGNITION_PERSON1 = '" & l_userid & "' " &_ 
							  "  OR ODR.RECOGNITION_PERSON2 = '" & l_userid & "' " &_
							  "  OR ODR.RECOGNITION_PERSON3 = '" & l_userid & "')" 

		'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
		'DB傛傝堦棗傪庢摼偟偰曉偡(1儁乕僕亖10峴傪愝掕)
		Set SearchApproveList = l_dbaccess.ProcRecordset(l_strsql,MAXROW_APPROVE_LIST,0)
		
	End Function
	'/*******************************************************
	'/* 挔昜婎杮忣曬懚嵼僠僃僢僋
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        sysid(String) 僔僗僥儉ID
	'/*        coid(String) 夛幮ID
	'/*        l_listManageNo(String) 挔昜娗棟斣崋
	'/* return boolean True丗巜掕儗僐乕僪偑懚嵼偡傞丄False丗懚嵼偟側偄
	'/*******************************************************
	Public Function CheckListBaseRec(l_dbaccess, l_sysId, l_coId, l_listManageNo)
		Dim l_recSet
		Dim l_sql

		CheckListBaseRec = False

		'SQL暥惗惉
		l_sql = "SELECT COUNT(*) FROM LISTBASE_T" & _
				" WHERE SYSTEM_ID  = '" & l_sysId & "'"  & _
				"   AND COMPANY_ID = '" & l_coId & "'" & _
				"   AND LIST_MANAGE_NO = '" & l_listManageNo & "'" & _
				"   AND DEL_FLG <> '1'"
'Response.Write l_sql & "<br>"
		Set l_recSet = l_dbaccess.ProcRecordset(l_sql,10,0)

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

	'/*******************************************************
	'/* 挔昜婎杮忣曬懚嵼僠僃僢僋
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        sysid(String) 		僔僗僥儉ID
	'/*        coid(String) 		夛幮ID
	'/*        ListCd(String) 		挔昜斣崋
	'/*        ListEda(String) 		挔昜斣崋巬斣
	'/* return boolean True丗巜掕儗僐乕僪偑懚嵼偡傞丄False丗懚嵼偟側偄
	'/*******************************************************
	Public Function HasListCd(p_dbaccess, p_sysId, p_coId, p_ListCd, p_ListEda)
		Dim l_rs, l_sql

		HasListCd = False
				
		l_sql = "select count(*) count from LISTBASE_T "
		l_sql = l_sql & "where SYSTEM_ID = '" 	& p_sysId & "'"
		l_sql = l_sql & "  and COMPANY_ID = '" 	& p_coId & "'"
		l_sql = l_sql & "  and LIST_CD = '" 	& p_ListCd & "'"
		l_sql = l_sql & "  and LIST_EDA = '" 	& p_ListEda & "'"

		Set l_rs = p_dbaccess.ProcRecordset(l_sql, 10, 0)

		'懚嵼偡傟偽True丄側偗傟偽False
		If l_rs.Fields.Item("count") <> 0 Then
			HasListCd = True
		End If

	End Function

	'/*******************************************************
	'/* 嵟怴偺敪拲儗僐乕僪(敪拲娗棟斣崋丄擺昳忣曬ID)傪拪弌偡傞
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        sysid(String) 僔僗僥儉ID
	'/*        coid(String) 夛幮ID
	'/*        l_listCd(String) 挔昜斣崋
	'/*        l_listEda(String) 挔昜巬斣
	'/* return 拪弌儗僐乕僪
	'/*******************************************************
	Public Function SelectMaxOrderRec(l_dbaccess, l_sysId, l_coId, l_listManageNo)
		Dim l_recSet
		Dim l_sql

		SelectMaxOrderRec = False

		'SQL暥惗惉
		l_sql = "SELECT MAX(ODR.ORDER_MANAGE_NO) AS ORDER_MANAGE_NO, MAX(ODR.DELIVERY_INFO) AS DELIVERY_INFO"

		'FROM LISTBSE_T LB, ORDER_T ODR,USER_M USR
		l_sql = l_sql & " FROM LISTBASE_T LB, ORDER_T ODR,USER_M USR"

		'WHERE 寢崌忦審(挔昜婎杮忣曬僥乕僽儖丒敪拲僥乕僽儖)
		l_sql  = l_sql & " WHERE LB.SYSTEM_ID = ODR.SYSTEM_ID(+)" & _
					" AND LB.SYSTEM_ID = USR.SYSTEM_ID(+)" & _
					" AND LB.COMPANY_ID = ODR.COMPANY_ID(+)" & _
					" AND LB.COMPANY_ID = USR.COMPANY_ID(+)" & _
					" AND LB.USER_ID = USR.USER_ID(+)" & _
					" AND LB.LIST_CD = ODR.LIST_CD(+)" & _
					" AND LB.LIST_EDA = ODR.LIST_EDA(+)"

		'僔僗僥儉ID AND 夛幮ID AND 挔昜娗棟斣崋 AND 嶍彍僼儔僌亗1
		l_sql = l_sql & " AND LB.SYSTEM_ID = '" & l_sysId & "' AND LB.COMPANY_ID = " & _
				"'" & l_coId & "' AND LB.LIST_MANAGE_NO = " & l_listManageNo & " AND LB.DEL_FLG <> '1'" 

		'DB傛傝儗僐乕僪傪庢摼偟偰曉偡
		Set SelectMaxOrderRec = l_dbaccess.ProcRecordset(l_sql,1,0)
	End Function

	'/*******************************************************
	'/* 挔昜婎杮忣曬丄敪拲忣曬傪侾儗僐乕僪拪弌偡傞
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        sysid(String) 僔僗僥儉ID
	'/*        coid(String) 夛幮ID
	'/*		   l_listManageNo 挔昜娗棟斣崋
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function SearchListBaseRec(l_db, l_sysid, l_coid, l_listManageNo, l_orderManageNo)
		Dim l_strsql	'String
		Dim l_recSet, l_maxOrderRs, l_wkDeliveryInfo

		'嵟怴偺敪拲儗僐乕僪偺擺昳忣曬ID傪拪弌偡傞丅擺昳忣曬偑懚嵼偟側偗傟偽専嶕忦審偵擖傟側偄
'		Set l_maxOrderRs = SelectMaxOrderRec(l_db, l_sysid, l_coid, l_listManageNo)
'		l_wkDeliveryInfo = ""
'		If IsObject(l_maxOrderRs) Then
'			l_wkDeliveryInfo  = l_maxOrderRs.Fields.Item("DELIVERY_INFO")
'		End If
		
		'SQL暥嶌惉
		'SELECT
		l_strsql = "SELECT LB.SYSTEM_ID,LB.COMPANY_ID,LB.LIST_CD,LB.LIST_EDA," &_
			"LB.LIST_NAME,LB.SECTION_ID,LB.USER_ID,USR.NAME,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.SUBTEMPLATE_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," & _
			"TO_CHAR(LB.OPEN_PERIOD_START,'yyyy') OPEN_PERIOD_START_YY," &_
			"TO_CHAR(LB.OPEN_PERIOD_START,'mm') OPEN_PERIOD_START_MM," &_
			"TO_CHAR(LB.OPEN_PERIOD_START,'dd') OPEN_PERIOD_START_DD," &_
			"TO_CHAR(LB.OPEN_PERIOD_END,'yyyy') OPEN_PERIOD_END_YY," &_
			"TO_CHAR(LB.OPEN_PERIOD_END,'mm') OPEN_PERIOD_END_MM," &_
			"TO_CHAR(LB.OPEN_PERIOD_END,'dd') OPEN_PERIOD_END_DD," &_
			"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," &_
			"TO_CHAR(LB.USEPOSSIBLE_TERM_START,'yyyy') USEPOSSIBLE_TERM_START_YY," &_
			"TO_CHAR(LB.USEPOSSIBLE_TERM_START,'mm') USEPOSSIBLE_TERM_START_MM," &_
			"TO_CHAR(LB.USEPOSSIBLE_TERM_START,'dd') USEPOSSIBLE_TERM_START_DD," &_
			"TO_CHAR(LB.USEPOSSIBLE_TERM_END,'yyyy') USEPOSSIBLE_TERM_END_YY," &_
			"TO_CHAR(LB.USEPOSSIBLE_TERM_END,'mm') USEPOSSIBLE_TERM_END_MM," &_
			"TO_CHAR(LB.USEPOSSIBLE_TERM_END,'dd') USEPOSSIBLE_TERM_END_DD," &_
			"TO_CHAR(LB.CLAIM_PERIOD_START,'yyyy') CLAIM_PERIOD_START_YY," &_
			"TO_CHAR(LB.CLAIM_PERIOD_START,'mm') CLAIM_PERIOD_START_MM," &_
			"TO_CHAR(LB.CLAIM_PERIOD_START,'dd') CLAIM_PERIOD_START_DD," &_
			"TO_CHAR(LB.CLAIM_PERIOD_END,'yyyy') CLAIM_PERIOD_END_YY," &_
			"TO_CHAR(LB.CLAIM_PERIOD_END,'mm') CLAIM_PERIOD_END_MM," &_
			"TO_CHAR(LB.CLAIM_PERIOD_END,'dd') CLAIM_PERIOD_END_DD," &_
			"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," & _
			"ODR.ORDER_MANAGE_NO,ODR.ORDER_ID,ODR.ORDER_STATUS,ODR.ORDER_AMOUNT,ODR.REF_EST1,ODR.REF_EST2," &_
			"ODR.CONTRI_YMD,ODR.CONTRI_FORM_ID,ODR.SECTION_ID1,ODR.COSTSHARE_RATE1,ODR.SECTION_ID2," &_
			"ODR.COSTSHARE_RATE2,ODR.SECTION_ID3,ODR.COSTSHARE_RATE3,ODR.SECTION_ID4,ODR.COSTSHARE_RATE4," &_
			"ODR.SECTION_ID5,ODR.COSTSHARE_RATE5,ODR.SECTION_ID6,ODR.COSTSHARE_RATE6,ODR.CONTACT," &_
			"ODR.REFERENCE_FILE1,ODR.REFERENCE_FILE2,ODR.REFERENCE_FILE3,ODR.REFERENCE_FILE4,ODR.REFERENCE_FILE5," &_
			"ODR.LISTIMAGE_TAKING,ODR.LISTSCAN_KIND,ODR.DELIVERY_INFO,ODR.DELIVERY_NOTE,ODR.RECOGNITION_PERSON1," &_
		    "ODR.RECOGNITION_FLG1,ODR.RECOGNITION_NOTE1,ODR.RECOGNITION_YMD1,ODR.RC_FLG1," & _
			"ODR.RECOGNITION_PERSON2,ODR.RECOGNITION_FLG2,ODR.RECOGNITION_NOTE2,ODR.RECOGNITION_YMD2,ODR.RC_FLG2," & _
			"ODR.RECOGNITION_PERSON3,ODR.RECOGNITION_FLG3,ODR.RECOGNITION_NOTE3,ODR.RECOGNITION_YMD3,ODR.RC_FLG3," & _
			"ODR.LAST_DELIVERY_YMD,EXP_ESTIMATE," &_
			"ODR.REG_YMD AS ODR_REG_YMD,ODR.UPDATE_YMD AS ODR_UPDATE_YMD,ODR.DEL_FLG AS ODR_DEL_FLG "

		'FROM LISTBSE_T LB, ORDER_T ODR,USER_M USR
		l_strsql = l_strsql & " FROM LISTBASE_T LB, ORDER_T ODR,USER_M USR"

		'WHERE 寢崌忦審(挔昜婎杮忣曬僥乕僽儖丒敪拲僥乕僽儖)
		l_strsql  = l_strsql & " WHERE LB.SYSTEM_ID = ODR.SYSTEM_ID(+)" & _
					" AND LB.SYSTEM_ID = USR.SYSTEM_ID(+)" & _
					" AND LB.COMPANY_ID = ODR.COMPANY_ID(+)" & _
					" AND LB.COMPANY_ID = USR.COMPANY_ID(+)" & _
					" AND LB.USER_ID = USR.USER_ID(+)" & _
					" AND LB.LIST_CD = ODR.LIST_CD(+)" & _
					" AND LB.LIST_EDA = ODR.LIST_EDA(+)"

		'僔僗僥儉ID AND 夛幮ID AND 挔昜娗棟斣崋 AND 嶍彍僼儔僌亗1
		l_strsql = l_strsql & " AND LB.SYSTEM_ID = '" & l_sysId &_
				   "' AND LB.LIST_MANAGE_NO = " & l_listManageNo & " AND LB.DEL_FLG <> '1' "
		'AND 擺昳忣曬ID
'		If l_wkDeliveryInfo <> "" Then
'			l_strsql = l_strsql & " AND ODR.DELIVERY_INFO=" & l_wkDeliveryInfo
'		End If

		'AND 敪拲娗棟斣崋
		If Not IsNull(l_orderManageNo) Then
			If l_orderManageNo <> "" Then
				l_strsql = l_strsql & " AND ODR.ORDER_MANAGE_NO=" & l_orderManageNo
			End If
		End If
'response.write l_strsql
debug_t(l_strsql)
		'DB傛傝儗僐乕僪傪庢摼偟偰曉偡
		Set SearchListBaseRec = l_db.ProcRecordset(l_strsql,1,0)
	End Function

	'/*******************************************************
	'/* 挔昜婎杮忣曬丄敪拲忣曬傪侾儗僐乕僪拪弌偡傞(僶僢僋傾僢僾丒偁偲偱晄梫偵側傟偽徚偡両)
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        sysid(String) 僔僗僥儉ID
	'/*        coid(String) 夛幮ID