fmlistbasemaster.asp

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

		'SQL暥惗惉
		'UPDATE  LISTBASE_T SET 
		l_sql = "UPDATE LISTBASE_T SET "

		'岞奐婜娫(奐巒)	
		l_sql = l_sql & "OPEN_PERIOD_START= TO_DATE('" & l_inrec.l_openPeriodStartYY  & _
				l_inrec.l_openPeriodStartMM & l_inrec.l_openPeriodStartDD & "', 'YYYYMMDD'),"

		'岞奐婜娫(廔椆)	
		l_sql = l_sql & "OPEN_PERIOD_END= TO_DATE('" & l_inrec.l_openPeriodEndYY  & _
				l_inrec.l_openPeriodEndMM & l_inrec.l_openPeriodEndDD & "', 'YYYYMMDD'),"	

		'惪媮婜娫(奐巒)
		If l_inrec.l_claimPeriodFlag = FLG_OFF Then
			l_sql = l_sql & "CLAIM_PERIOD_START= TO_DATE('" & l_inrec.l_claimPeriodStartYY  & _
					l_inrec.l_claimPeriodStartMM & l_inrec.l_claimPeriodStartDD & "', 'YYYYMMDD'),"
		Else
			l_sql = l_sql & "CLAIM_PERIOD_START=NULL,"
		End If
		'惪媮婜娫(廔椆)
		l_sql = l_sql & "CLAIM_PERIOD_END= TO_DATE('" & l_inrec.l_claimPeriodEndYY  & _
				l_inrec.l_claimPeriodEndMM & l_inrec.l_claimPeriodEndDD & "', 'YYYYMMDD'),"

		'惪媮婜娫(擺昳師戞惪媮奐巒)僼儔僌,擖壸懸偪
		l_sql = l_sql & "CLAIM_PERIOD_FLAG= '" & l_inrec.l_claimPeriodFlag & "'," & _
			"ARRIVAL_WAIT= '" & l_inrec.l_arrivalWait & "'," 						
		
		'攝晩扨壙
		l_sql = l_sql & "UNIT_PRICE= " & l_fmCmn.GetNumSql(l_inrec.l_unitPrice) & "," 

		'巊梡壜擻婜尷(奐巒)
		l_sql = l_sql & "USEPOSSIBLE_TERM_START= TO_DATE('" & l_inrec.l_usepossibleTermStartYY  & _
				l_inrec.l_usepossibleTermStartMM & l_inrec.l_usepossibleTermStartDD & "', 'YYYYMMDD'),"

		'巊梡壜擻婜尷(奐巒)
		l_sql = l_sql & "USEPOSSIBLE_TERM_END= TO_DATE('" & l_inrec.l_usepossibleTermEndYY  & _
				l_inrec.l_usepossibleTermEndMM & l_inrec.l_usepossibleTermEndDD & "', 'YYYYMMDD'),"

		'挔昜庬暿丄曐娗婜娫丄曐娗婜娫(偦偺懠)丄杮幮曐懚応強偺1乣3丄戝検弌屔巜帵
		l_sql = l_sql & _
			"LIST_CLASS1= '" & l_inrec.l_listClass1 & "'," & _	
			"STORAGE_PERIOD1= '" & l_inrec.l_storagePeriod1 & "'," & _	
			"STORAGE_PERIOD_OTHER1= '" & l_inrec.l_storagePeriodOther1 & "'," & _
			"HEADOFFICE_KEEP1= '" & l_inrec.l_headofficeKeep1 & "'," & _
			"LIST_CLASS2= '" & l_inrec.l_listClass2 & "'," & _	
			"STORAGE_PERIOD2= '" & l_inrec.l_storagePeriod2 & "'," & _	
			"STORAGE_PERIOD_OTHER2= '" & l_inrec.l_storagePeriodOther2 & "'," & _	
			"HEADOFFICE_KEEP2= '" & l_inrec.l_headofficeKeep2 & "'," & _
			"LIST_CLASS3= '" & l_inrec.l_listClass3 & "'," & _	
			"STORAGE_PERIOD3= '" & l_inrec.l_storagePeriod3 & "'," & _	
			"STORAGE_PERIOD_OTHER3= '" & l_inrec.l_storagePeriodOther3 & "'," & _	
			"HEADOFFICE_KEEP3= '" & l_inrec.l_headofficeKeep3 & "'," & _
			"LEAV_DIRECTION= '" & l_inrec.l_leavDirection & "',"

		'戝検弌屔巜帵悢
		l_sql = l_sql & "LEAV_DIRECTION_COUNT= " & l_fmCmn.GetNumSql(l_inrec.l_leavDirectionCount) & "," 

		l_sql = l_sql & _
			"OPEN_IMAGE_FLAG= '" & l_inrec.l_openImageFlag & "'," & _		
			"OPEN_AUTH_LIST= '" & l_inrec.l_openAuthList & "'," & _			
			"OPEN_AUTH_LEAV= '" & l_inrec.l_openAuthLeav & "'," & _			
			"LISTNUMBER_NEW1= '" & l_inrec.l_listNumberNew1 & "'," & _		
			"LISTNUMBER_NEW2= '" & l_inrec.l_listNumberNew2 & "'," & _		
			"LISTNUMBER_NEW3= '" & l_inrec.l_listNumberNew3 & "'," & _		
			"LISTNUMBER_OLD1= '" & l_inrec.l_listNumberOld1 & "'," & _		
			"LISTNUMBER_OLD2= '" & l_inrec.l_listNumberOld2 & "'," & _		
			"LISTNUMBER_OLD3= '" & l_inrec.l_listNumberOld3 & "'," & _		
			"RELATED_LIST1= '" & l_inrec.l_relatedList1 & "'," & _			
			"RELATED_LIST2= '" & l_inrec.l_relatedList2 & "'," & _			
			"RELATED_LIST3= '" & l_inrec.l_relatedList3 & "'," & _			
			"RELATED_LIST4= '" & l_inrec.l_relatedList4 & "'," & _			
			"RELATED_LIST5= '" & l_inrec.l_relatedList5 & "'," & _			
			"RELATED_LIST6= '" & l_inrec.l_relatedList6 & "'," & _			
			"CATEGORY1= '" & l_inrec.l_category1 & "'," & _	
			"CATEGORY2= '" & l_inrec.l_category2 & "'," & _	
			"CATEGORY3= '" & l_inrec.l_category3 & "'," & _	
			"CATEGORY4= '" & l_inrec.l_category4 & "'," & _	
			"CATEGORY5= '" & l_inrec.l_category5 & "'," & _	
			"DATACLAIM_NOTE= '" & l_inrec.l_dataclaimNote & "'," & _
			"UPDATE_YMD=SYSDATE"

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

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

	End Function

	'/**********************************************************
	'/* 挔昜傪傾僢僾僨乕僩偡傞(挔昜僐乕僪偑敪斣偝傟偰偄側偄傕偺)
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        l_listmanage_no丂挔昜娗棟斣崋
	'/**********************************************************
	Public Function ProcUpdateList(l_db,l_listmanage_no,l_list_cd)
		Dim l_strSql

		ProcUpdateList = True

		l_strSql = "UPDATE LISTBASE_T SET LIST_CD = '" &_
				    l_list_cd & "',LIST_EDA = '00', " &_
				   "UPDATE_YMD = SYSDATE " &_
				   "WHERE SYSTEM_ID = '" & Session("User").Item("SYSTEM_ID") & "' " &_
				   "AND COMPANY_ID = '" & Session("User").Item("COMPANY_ID") & "' " &_
				   "AND LIST_MANAGE_NO = '" & l_listmanage_no & "'"

		Call l_db.ProcBeginTrans

		If l_db.ProcExecute(l_strSql) Then
			Call l_db.ProcCommit
			Exit Function
		Else
			ProcUpdateList = False
			Call l_db.ProcRollBack
			Response.Write "幐攕"
		End If
	End Function

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

		UpdateMake1Set = True

		'SQL暥嶌惉
		'UPDATE LISTBASE_T
		l_strsql = "UPDATE LISTBASE_T SET " & _
					"LIST_CD = '" & l_listCd & "'," & _
					"LIST_EDA = '" & l_listEda & "'," & _
					"LIST_STATUS = '" & l_listStatus & "'," & _
					"SETLIST_FLG = '1',UPDATE_YMD=SYSDATE"
		'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
			UpdateMake1Set = False
			Exit Function
		End If

	End Function

	'/*******************************************************
	'/* 挔昜婎杮忣曬傪侾儗僐乕僪搊榐偡傞(慡偰偺崁栚)
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        l_inRec(MakeStep1Mdl) 搊榐儗僐乕僪
	'/*        l_listmanage_no	娗棟斣崋
	'/*        l_listcd			挔昜僐乕僪
	'/*        l_listeda		挔昜巬斣
	'/*        l_pageSpecId		儁乕僕巇條ID
	'/*        l_processingSpecId	壛岺巇條ID
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function InsertListBaseRecAll(l_db,l_sysid,l_coid,l_inRec,l_listmanage_no,l_listcd,l_listeda,l_pageSpecId,l_processingSpecId)
		Dim l_strSql

		InsertListBaseRecAll = true

		l_strSql = "INSERT INTO LISTBASE_T VALUES('" &_
				   l_sysid & "','" &_
				   l_coid & "'," &_
				   l_listmanage_no & ",'" &_
				   l_listcd & "','" &_
				   l_listeda & "','" &_
				   l_inRec.Item("LIST_NAME") & "','" &_
				   l_inRec.Item("SECTION_ID") & "','" &_
				   l_inRec.Item("USER_ID") & "','" &_
				   l_inRec.Item("APPLICANT") & "','" &_
				   LSTS_DRAFT & "','" &_
				   l_inRec.Item("CALC_SUBJECT") & "','" &_
				   l_inRec.Item("CLASS1") & "','" &_
				   l_inRec.Item("CLASS2") & "','" &_
				   l_inRec.Item("CLASS3") & "','" &_
				   l_inRec.Item("LIST_UNIT") & "','" &_
				   l_inRec.Item("SECRET_FLG") & "','" &_
				   l_inRec.Item("SECRET_PASSWORD") & "','" &_
				   l_inRec.Item("TEMPLATE_ID") & "','" &_
				   l_inRec.Item("SUBTEMPLATE_ID") & "','" &_
				   l_inRec.Item("PRINT_CLASS") & "'," 
		
		If l_inRec.Item("PAGE_COUNT") <> "" Then
			l_strSql = l_strSql & l_inRec.Item("PAGE_COUNT") & "," 
		Else
			l_strSql = l_strSql & "0,"
		End If

		If l_inRec.Item("SET_COUNT") <> "" Then
			l_strSql = l_strSql & l_inRec.Item("SET_COUNT") & ",'" 
		Else
			l_strSql = l_strSql & "0,'"
		End If
			l_strSql = l_strSql & l_inRec.Item("RESULT_SIZE") & "'," 

		If l_inRec.Item("RESULT_ROW") <> "" Then
			l_strSql = l_strSql & l_inRec.Item("RESULT_ROW") & ","
		Else
			l_strSql = l_strSql & "0,"
		End If

		If l_inRec.Item("RESULT_COL") <> "" Then
			l_strSql = l_strSql & l_inRec.Item("RESULT_COL") & ",'"
		Else
			l_strSql = l_strSql & "0,'"
		End If

			l_strSql = l_strSql & l_inRec.Item("RESULT_UNIT") & "','" &_
				   l_inRec.Item("DEPLOY_SIZE") & "'," 

		If l_inRec.Item("DEPLOY_ROW") <> "" Then
			l_strSql = l_strSql & l_inRec.Item("DEPLOY_ROW") & ","
		Else
			l_strSql = l_strSql & "0,"
		End If

		If l_inRec.Item("DEPLOY_COL") <> "" Then
			l_strSql = l_strSql & l_inRec.Item("DEPLOY_COL") & ",'"
		Else
			l_strSql = l_strSql & "0,'"
		End If
			l_strSql = l_strSql & l_inRec.Item("DEPLOY_UNIT") & "','" &_
				   l_inRec.Item("BOOKBINDING") & "','" &_
				   l_inRec.Item("BOOKBINDING_OTHER") & "','" &_
				   l_pageSpecId & "','" &_
				   l_processingSpecId & "','" &_
				   l_inRec.Item("PROCESSING_NOTE") & "','" &_
				   l_inRec.Item("PACKING_FORM") & "'," 

		If l_inRec.Item("PACKING_COUNT") <> "" Then
			l_strSql = l_strSql & l_inRec.Item("PACKING_COUNT") & ",'"
		Else
			l_strSql = l_strSql & "0,'"
		End If
			l_strSql = l_strSql & l_inRec.Item("SPECIAL_MATTER") & "','" &_
				   l_inRec.Item("OPEN_PERIOD_START") & "','" &_
				   l_inRec.Item("OPEN_PERIOD_END") & "','" &_
				   l_inRec.Item("CLAIM_PERIOD_START") & "','" &_
				   l_inRec.Item("CLAIM_PERIOD_END") & "','" &_
				   l_inRec.Item("CLAIM_PERIOD_FLAG") & "','" &_
				   l_inRec.Item("ARRIVAL_WAIT") & "'," 

		If l_inRec.Item("UNIT_PRICE") <> "" Then
			l_strSql = l_strSql & l_inRec.Item("UNIT_PRICE") & ",'" 
		Else
			l_strSql = l_strSql & "0,'"
		End If
			l_strSql = l_strSql & l_inRec.Item("USEPOSSIBLE_TERM_START") & "','" &_
				   l_inRec.Item("USEPOSSIBLE_TERM_END") & "','" &_
				   l_inRec.Item("LIST_CLASS1") & "','" &_
				   l_inRec.Item("STORAGE_PERIOD1") & "','" &_
				   l_inRec.Item("STORAGE_PERIOD_OTHER1") & "','" &_
				   l_inRec.Item("HEADOFFICE_KEEP1") & "','" &_
				   l_inRec.Item("LIST_CLASS2") & "','" &_
				   l_inRec.Item("STORAGE_PERIOD2") & "','" &_
				   l_inRec.Item("STORAGE_PERIOD_OTHER2") & "','" &_
				   l_inRec.Item("HEADOFFICE_KEEP2") & "','" &_
				   l_inRec.Item("LIST_CLASS3") & "','" &_
				   l_inRec.Item("STORAGE_PERIOD3") & "','" &_
				   l_inRec.Item("STORAGE_PERIOD_OTHER3") & "','" &_
				   l_inRec.Item("HEADOFFICE_KEEP3") & "','" &_
				   l_inRec.Item("LEAV_DIRECTION") & "'," 

		If l_inRec.Item("LEAV_DIRECTION_COUNT") <> "" Then
			l_strSql = l_strSql & l_inRec.Item("LEAV_DIRECTION_COUNT") & ",'"
		Else
			l_strSql = l_strSql & "0,'"
		End If
			l_strSql = l_strSql & l_inRec.Item("OPEN_IMAGE_FLAG") & "','" &_
				   l_inRec.Item("OPEN_AUTH_LIST") & "','" &_
				   l_inRec.Item("OPEN_AUTH_LEAV") & "','" &_
				   l_inRec.Item("LISTNUMBER_NEW1") & "'