fmlistbasemaster_bk.asp

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

		'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.COMPANY_ID = " & _
				"'" & l_coId & "' AND LB.LIST_MANAGE_NO = " & l_listManageNo & " AND LB.DEL_FLG <> '1'" 

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

	'/*******************************************************
	'/* 挔昜婎杮忣曬傪侾儗僐乕僪搊榐偡傞
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        l_inRec(MakeStep1Mdl) 搊榐儗僐乕僪
	'/* return boolean True丗惓忢丄False丗堎忢
	'/*******************************************************
	Public Function InsertListBaseRec(l_dbaccess, l_inrec, l_status)
		Dim l_sql 

		InsertListBaseRec = True

		'SQL暥惗惉
		l_sql = "INSERT INTO LISTBASE_T(" & _
				"SYSTEM_ID,COMPANY_ID,LIST_MANAGE_NO,LIST_CD,LIST_EDA,LIST_NAME,SECTION_ID," & _
				"USER_ID,APPLICANT,LIST_STATUS,CALC_SUBJECT,CLASS1,CLASS2,CLASS3,LIST_UNIT," & _
				"RESULT_SIZE,PACKING_COUNT,SECRET_FLG,SECRET_PASSWORD," & _
				"OPEN_PERIOD_START,OPEN_PERIOD_END," & _
				"CLAIM_PERIOD_START,CLAIM_PERIOD_END,CLAIM_PERIOD_FLAG,ARRIVAL_WAIT,UNIT_PRICE," & _
				"USEPOSSIBLE_TERM_START,USEPOSSIBLE_TERM_END," & _
				"LEAV_DIRECTION,LEAV_DIRECTION_COUNT,OPEN_IMAGE_FLAG,OPEN_AUTH_LIST,OPEN_AUTH_LEAV," & _
				"LISTNUMBER_NEW1,LISTNUMBER_NEW2,LISTNUMBER_NEW3," & _
				"LISTNUMBER_OLD1,LISTNUMBER_OLD2,LISTNUMBER_OLD3," & _
				"RELATED_LIST1,RELATED_LIST2,RELATED_LIST3," & _
				"RELATED_LIST4,RELATED_LIST5,RELATED_LIST6," & _
				"DATACLAIM_NOTE,REG_YMD,UPDATE_YMD,DEL_FLG) VALUES ('" 	& _
				l_inrec.l_sysId								& "','" & _
				l_inrec.l_coId								& "'," & _
				l_inrec.l_listManageNo						& ",'" & _
				Session("formmk").Item("list_cd")			& "','" & _
				Session("formmk").Item("list_eda")			& "','" & _
				Session("formmk").Item("list_name")			& "','" & _
				Session("formmk").Item("section_id")			& "','" & _
				l_inrec.l_userId							& "','" & _
				Session("formmk").Item("applicant")			& "','" & _
				l_status									& "','" & _
				Session("formmk").Item("calc_subject")		& "','" & _
				Session("formmk").Item("class1")			& "','" & _
				Session("formmk").Item("class2")			& "','" & _
				Session("formmk").Item("class3")			& "','" & _
				Session("formmk").Item("list_unit")			& "','" & _
				Session("formmk").Item("result_size")		& "',"	& _
				Session("formmk").Item("packing_count")		& ",'"	& _
				Session("formmk").Item("secretFlg")			& "','" & _
				Session("formmk").Item("secretPassword")	& "',"
				
		If Session("formmk").Item("openPeriodStartYY") <> "" And _
		   Session("formmk").Item("openPeriodStartMM") <> "" And _
		   Session("formmk").Item("openPeriodStartDD") <> "" Then
	
			l_sql = l_sql & "TO_DATE('" & Session("formmk").Item("openPeriodStartYY") & _
			        Session("formmk").Item("openPeriodStartMM") & Session("formmk").Item("openPeriodStartDD") & "', 'YYYYMMDD'),"
		Else
			l_sql = l_sql & "NULL,"
		End If
		
		If Session("formmk").Item("openPeriodEndYY") <> "" And _
		   Session("formmk").Item("openPeriodEndMM") <> "" And _
		   Session("formmk").Item("openPeriodEndDD") <> "" Then

			l_sql = l_sql & "TO_DATE('" & Session("formmk").Item("openPeriodEndYY") & _
					Session("formmk").Item("openPeriodEndMM") & Session("formmk").Item("openPeriodEndDD") & "', 'YYYYMMDD'),"
		Else
			l_sql = l_sql & "NULL,"
		End If
		
		If Session("formmk").Item("claimPeriodStartYY") <> "" And _
		   Session("formmk").Item("claimPeriodStartMM") <> "" And _
		   Session("formmk").Item("claimPeriodStartDD") <> "" Then
		
			l_sql = l_sql & "TO_DATE('" & Session("formmk").Item("claimPeriodStartYY") & _
					Session("formmk").Item("claimPeriodStartMM") & Session("formmk").Item("claimPeriodStartDD") & "', 'YYYYMMDD'),"
		Else
			l_sql = l_sql & "NULL,"
		End If

		If Session("formmk").Item("claimPeriodEndYY") <> "" And _
		   Session("formmk").Item("claimPeriodEndMM") <> "" And _
		   Session("formmk").Item("claimPeriodEndDD") <> "" Then
		   
			l_sql = l_sql & "TO_DATE('" & Session("formmk").Item("claimPeriodEndYY") & _
					Session("formmk").Item("claimPeriodEndMM") & Session("formmk").Item("claimPeriodEndDD") & "', 'YYYYMMDD'),'"
		Else
			l_sql = l_sql & "NULL,'"
		End If
		
		l_sql = l_sql & Session("formmk").Item("claimPeriodFlag")	& "','" & _
						Session("formmk").Item("arrival_wait")		& "'," & _
						Session("formmk").Item("unitPrice")			& ","

		If Session("formmk").Item("usepossibleTermStartYY") <> "" And _
		   Session("formmk").Item("usepossibleTermStartMM") <> "" And _
		   Session("formmk").Item("usepossibleTermStartDD") <> "" Then
						
			l_sql = l_sql & "TO_DATE('" & Session("formmk").Item("usepossibleTermStartYY") & _
					Session("formmk").Item("usepossibleTermStartMM") & Session("formmk").Item("usepossibleTermStartDD") & "', 'YYYYMMDD'),"
		Else
			l_sql = l_sql & "NULL,"
		End If

		If Session("formmk").Item("usepossibleTermEndYY") <> "" And _
		   Session("formmk").Item("usepossibleTermEndMM") <> "" And _
		   Session("formmk").Item("usepossibleTermEndDD") <> "" Then

			l_sql = l_sql & "TO_DATE('" & Session("formmk").Item("usepossibleTermEndYY") & _
					Session("formmk").Item("usepossibleTermEndMM") & Session("formmk").Item("usepossibleTermEndDD") & "', 'YYYYMMDD'),'"
		Else
			l_sql = l_sql & "NULL,'"
		End If
					
		l_sql = l_sql & Session("formmk").Item("leavDirection")	& "'," & _
				Session("formmk").Item("leavDirectionCount")	& ",'" & _
				Session("formmk").Item("openImageFlag")			& "','" & _
				Session("formmk").Item("openAuthList")			& "','" & _
				Session("formmk").Item("openAuthLeav")			& "','" & _
				Session("formmk").Item("listNumberNew1")		& "','" & _
				Session("formmk").Item("listNumberNew2")		& "','" & _
				Session("formmk").Item("listNumberNew3")		& "','" & _
				Session("formmk").Item("listNumberOld1")		& "','" & _
				Session("formmk").Item("listNumberOld2")		& "','" & _
				Session("formmk").Item("listNumberOld3")		& "','" & _
				Session("formmk").Item("relatedList1")			& "','" & _
				Session("formmk").Item("relatedList2")			& "','" & _
				Session("formmk").Item("relatedList3")			& "','" & _
				Session("formmk").Item("relatedList4")			& "','" & _
				Session("formmk").Item("relatedList5")			& "','" & _
				Session("formmk").Item("relatedList6")			& "','" & _
				Session("formmk").Item("dataClaimNote")			& "'," & _
				"SYSDATE, NULL, '0')"

		'SQL敪峴
		If l_dbaccess.ProcExecute(l_sql) Then
			'Call l_dbaccess.ProcCommit
			Exit Function
		Else
			'僄儔乕偺応崌偼儘乕儖僶僢僋
			l_dbaccess.ProcRollBack
			InsertListBaseRec = False
			Exit Function
		End If

	End Function

	'/*******************************************************
	'/* 嵼屔僥乕僽儖偵侾儗僐乕僪搊榐偡傞
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        l_inRec(MakeStep1Mdl) 搊榐儗僐乕僪
	'/* return boolean True丗惓忢丄False丗堎忢
	'/*******************************************************
'	Public Function InsertStockRec(l_dbaccess, l_inrec)
'		Dim l_sql 

'		InsertStockRec = True

		'SQL暥惗惉
'		l_sql = "INSERT INTO STOCK_T(" & _
'				"SYSTEM_ID,COMPANY_ID,LIST_CD,LIST_EDA,STOCK_NUM,STOCK_STATUS," & _
'				"ABC_RANK,ORDER_POINT,ORDER_POINT_YMD," & _
'				"URGENT_ORDER_POINT,URGENT_ORDER_POINT_YMD,ORDER_YMD,STOCK_RUN_OUT_YMD," & _
'				"DELIVERY_PLACE1,NUM1,RESERVE_STOCK_NUM1," & _
'				"DELIVERY_PLACE2,NUM2,RESERVE_STOCK_NUM2," & _
'				"DELIVERY_PLACE3,NUM3,RESERVE_STOCK_NUM3," & _
'				"REG_YMD,UPDATE_YMD,DEL_FLG) VALUES ('" & _
'				l_inrec.l_sysId					& "','" & _
'				l_inrec.l_coId					& "','" & _
'				l_inrec.l_listCd				& "','" & _
'				l_inrec.l_listEda				& "'," & _
'				"0,NULL,NULL,0,NULL,0,NULL,NULL,NULL,NULL,0,0,NULL,0,0,NULL,0,0,SYSDATE,SYSDATE,'0')"

		'SQL敪峴
'		If l_dbaccess.ProcExecute(l_sql) Then
			'Call l_dbaccess.ProcCommit
'			Exit Function
'		Else
			'僄儔乕偺応崌偼儘乕儖僶僢僋
'			l_dbaccess.ProcRollBack
'			InsertStockRec = False
'			Exit Function
'		End If

'	End Function

	'/*******************************************************
	'/* 挔昜斣崋傪敪斣偡傞
	'/* param丗l_dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        l_sysId(String) 僔僗僥儉ID
	'/*        l_coId(String) 夛幮ID丂仸枹巊梡
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function GetListCd(l_dbaccess, l_sysId, l_coId)
		Dim l_sql 
		Dim l_recSet

		'儘僢僋傪偐偗傞
		l_sql = "SELECT * FROM LISTBASE_T WHERE SYSTEM_ID = '" & l_sysId & _
				"' FOR UPDATE"
		Call l_dbaccess.ProcRecordset(l_sql,10,1)

		'挔昜斣崋傪敪斣偡傞(挔昜娗棟僥乕僽儖偺嵟戝抣挔昜斣崋亄侾傪庢摼)
		l_sql = "SELECT TRIM(TO_CHAR(NVL(MAX(LIST_CD),0)+1,'0000000')) AS LIST_CD FROM LISTBASE_T " & _
				" WHERE SYSTEM_ID = '" & l_sysId & "'"
		Set l_recSet = l_dbaccess.ProcRecordset(l_sql,10,0)

		GetListCd = l_recSet.Fields.Item("LIST_CD")

	End Function

	'/*******************************************************
	'/* 挔昜僗僥乕僞僗傪峏怴偡傞
	'/* param丗l_dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        l_sysid(String) 僔僗僥儉ID
	'/*        l_coid(String) 夛幮ID
	'/*		   l_listManageNo 挔昜娗棟斣崋
	'/*		   l_listStatus 挔昜僗僥乕僞僗
	'/* return boolean True丗惓忢丄False丗堎忢
	'/*******************************************************
	Public Function UpdateListStatus(l_dbaccess, l_sysid, l_coid, l_listManageNo, l_listStatus)
		Dim l_strsql	'String

		UpdateListStatus = True

		'SQL暥嶌惉
		l_strsql = "UPDATE LISTBASE_T SET LIST_STATUS = '" & l_listStatus & "'"

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

		'SQL敪峴
		If Not l_dbaccess.ProcExecute(l_strsql) Then
			'僄儔乕偺応崌偼儘乕儖僶僢僋
			l_dbaccess.ProcRollBack
			UpdateListStatus = False
			Exit Function
		End If

	End Function

	'/*******************************************************
	'/* 挔昜婎杮忣曬(俽俿俤俹侾)傪峏怴偡傞
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        l_inRec(MakeStep1Mdl) 峏怴儗僐乕僪
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function UpdateListBaseStep1(l_dbaccess, l_inrec)
		Dim l_sql 
		Dim l_fmCmn

		Set l_fmCmn = New FmCommon

		UpdateListBaseStep1 = True

		'SQL暥惗惉
		l_sql = "UPDATE LISTBASE_T SET "
		l_sql = l_sql & "LIST_NAME= '" 			& Session("formmk").Item("list_name") 	& "',"
		l_sql = l_sql & "SECTION_ID= '" 		& Session("formmk").Item("section_id") 	& "',"
		l_sql = l_sql & "USER_ID= '" 			& Session("formmk").Item("userId") 		& "',"
		l_sql = l_sql & "APPLICANT= '" 			& Session("formmk").Item("applicant") 	& "',"
		l_sql = l_sql & "CALC_SUBJECT= '" 		& Session("formmk").Item("calc_subject") & "',"
		l_sql = l_sql & "CLASS1= '" 			& Session("formmk").Item("class1") 		& "',"
		l_sql = l_sql & "CLASS2= '" 			& Session("formmk").Item("class2") 		& "',"
		l_sql = l_sql & "CLASS3= '" 			& Session("formmk").Item("class3") 		& "',"
		l_sql = l_sql & "LIST_UNIT= '" 			& Session("formmk").Item("list_unit") 	& "',"
		l_sql = l_sql & "RESULT_SIZE= '" 		& Session("formmk").Item("result_size") 	& "',"
		l_sql = l_sql & "PACKING_COUNT= " 		& l_fmCmn.GetNumSql(Session("formmk").Item("packing_count")) & ","
		l_sql = l_sql & "SECRET_FLG= '"			& Session("formmk").Item("secretFlg") 	& "',"
		l_sql = l_sql & "SECRET_PASSWORD= '"	& Session("formmk").Item("secretPassword") 	& "',"
		
		'岞奐婜娫(奐巒)	
		l_sql = l_sql & "OPEN_PERIOD_START= TO_DATE('" & Session("formmk").Item("openPeriodStartYY")  & _
				Session("formmk").Item("openPeriodStartMM") & Session("formmk").Item("openPeriodStartDD") & "', 'YYYYMMDD'),"

		'岞奐婜娫(廔椆)	
		l_sql = l_sql & "OPEN_PERIOD_END= TO_DATE('" & Session("formmk").Item("openPeriodEndYY")  & _
				Session("formmk").Item("openPeriodEndMM") & Session("formmk").Item("openPeriodEndDD") & "', 'YYYYMMDD'),"	

		'惪媮婜娫(奐巒)
		If Session("formmk").Item("claimPeriodFlag") = FLG_OFF Then
			l_sql = l_sql & "CLAIM_PERIOD_START= TO_DATE('" & Session("formmk").Item("claimPeriodStartYY")  & _
					Session("formmk").Item("claimPeriodStartMM") & Session("formmk").Item("claimPeriodStartDD") & "', 'YYYYMMDD'),"
		Else
			l_sql = l_sql & "CLAIM_PERIOD_START= NULL,"
		End If
		
		'惪媮婜娫(廔椆)
		l_sql = l_sql & "CLAIM_PERIOD_END= TO_DATE('" & Session("formmk").Item("claimPeriodEndYY")  & _
				Session("formmk").Item("claimPeriodEndMM") & Session("formmk").Item("claimPeriodEndDD") & "', 'YYYYMMDD'),"

		'惪媮婜娫(擺昳師戞惪媮奐巒)僼儔僌, 擖壸懸偪
		l_sql = l_sql & "CLAIM_PERIOD_FLAG= '" & Session("formmk").Item("claimPeriodFlag") & "'," & _
			"ARRIVAL_WAIT= '" & Session("formmk").Item("arrival_wait") & "'," 						
		
		'攝晩扨壙
		l_sql = l_sql & "UNIT_PRICE= " & l_fmCmn.GetNumSql(Session("formmk").Item("unitPrice")) & "," 

		'巊梡壜擻婜尷(奐巒)
		l_sql = l_sql & "USEPOSSIBLE_TERM_START= TO_DATE('" & Session("formmk").Item("usePossibleTermStartYY") & _
				Session("formmk").Item("usePossibleTermStartMM") & Session("formmk").Item("usePossibleTermStartDD") & "', 'YYYYMMDD'),"

		'巊梡壜擻婜尷(奐巒)
		l_sql = l_sql & "USEPOSSIBLE_TERM_END= TO_DATE('" & Session("formmk").Item("usePossibleTermEndYY") & _
				Session("formmk").Item("usePossibleTermEndMM") & Session("formmk").Item("usePossibleTermEndDD") & "', 'YYYYMMDD'),"				'"SECRET_FLG= '" & l_inrec.l_secretFlg & "'," & _
		
		'戝検弌屔巜帵
		l_sql = l_sql & "LEAV_DIRECTION= '" & Session("formmk").Item("leavDirection") & "'," 
		
		'戝検弌屔巜帵悢
		l_sql = l_sql & "LEAV_DIRECTION_COUNT= " & l_fmCmn.GetNumSql(Session("formmk").Item("leavDirectionCount")) & "," 

		l_sql = l_sql & _
			"OPEN_IMAGE_FLAG= '" 	& Session("formmk").Item("openImageFlag") 	& "'," & _		
			"OPEN_AUTH_LIST= '"		& Session("formmk").Item("openAuthList") 	& "'," & _			
			"OPEN_AUTH_LEAV= '" 	& Session("formmk").Item("openAuthLeav") 	& "'," & _			
			"LISTNUMBER_NEW1= '" 	& Session("formmk").Item("listNumberNew1") 	& "'," & _		
			"LISTNUMBER_NEW2= '" 	& Session("formmk").Item("listNumberNew2") 	& "'," & _		
			"LISTNUMBER_NEW3= '" 	& Session("formmk").Item("listNumberNew3") 	& "'," & _		
			"LISTNUMBER_OLD1= '" 	& Session("formmk").Item("listNumberOld1") 	& "'," & _		
			"LISTNUMBER_OLD2= '" 	& Session("formmk").Item("listNumberOld2") 	& "'," & _		
			"LISTNUMBER_OLD3= '" 	& Session("formmk").Item("listNumberOld3") 	& "'," & _
			"RELATED_LIST1= '" 		& Session("formmk").Item("relatedList1") 	& "'," & _		
			"RELATED_LIST2= '" 		& Session("formmk").Item("relatedList2") 	& "'," & _		
			"RELATED_LIST3= '" 		& Session("formmk").Item("relatedList3") 	& "'," & _		
			"RELATED_LIST4= '" 		& Session("formmk").Item("relatedList4") 	& "'," & _		
			"RELATED_LIST5= '" 		& Session("formmk").Item("relatedList5") 	& "'," & _