formmakemain.asp

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

					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG01100E
					l_element = l_element + 1
					CheckInput = false
				End If
			End If

			If Session("formmk").Item("listnumber_new2") <> "" Then
				If Not l_chkUtil.IsNumericAlpha(Session("formmk").Item("listnumber_new2")) Then
					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG01128E
					l_element = l_element + 1
					CheckInput = false
				End If
			End If

	        If Session("formmk").Item("listnumber_new3") <> "" Then
				If Not l_chkUtil.IsNumericAlpha(Session("formmk").Item("listnumber_new3")) Then
					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG01129E
					l_element = l_element + 1
					CheckInput = false
				End If
			End If

			'---------------------------------
			'媽挔昜斣崋(侾乣俁)丒悢抣僠僃僢僋
			'---------------------------------
			If Session("formmk").Item("listnumber_old1") <> "" Then
				If Not l_chkUtil.IsNumericAlpha(Session("formmk").Item("listnumber_old1")) Then
					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG01101E
					l_element = l_element + 1
					CheckInput = false
				End If
			End If

			If Session("formmk").Item("listnumber_old2") <> "" Then
				If Not l_chkUtil.IsNumericAlpha(Session("formmk").Item("listnumber_old2")) Then
					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG01130E
					l_element = l_element + 1
					CheckInput = false
				End If
			End If

	        If Session("formmk").Item("listnumber_old3") <> "" Then
				If Not l_chkUtil.IsNumericAlpha(Session("formmk").Item("listnumber_old3")) Then
					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG01131E
					l_element = l_element + 1
					CheckInput = false
				End If
			End If

			'---------------------------------
			'娭楢挔昜崋(侾乣俇)丒悢抣僠僃僢僋RELATED_LIST1
			'---------------------------------
			If Session("formmk").Item("related_list1") <> "" Then
				If Not l_chkUtil.IsNumericAlpha(Session("formmk").Item("related_list1")) Then
					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG01102E
					l_element = l_element + 1
					CheckInput = false
				End If
			End If

			If Session("formmk").Item("related_list2") <> "" Then
				If Not l_chkUtil.IsNumericAlpha(Session("formmk").Item("related_list2")) Then
					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG01132E
					l_element = l_element + 1
					CheckInput = false
				End If
			End If

	        If Session("formmk").Item("related_list3") <> "" Then
				If Not l_chkUtil.IsNumericAlpha(Session("formmk").Item("related_list3")) Then
					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG01133E
					l_element = l_element + 1
					CheckInput = false
				End If
			End If

			If Session("formmk").Item("related_list4") <> "" Then
				If Not l_chkUtil.IsNumericAlpha(Session("formmk").Item("related_list4")) Then
					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG01134E
					l_element = l_element + 1
					CheckInput = false
				End If
			End If

			If Session("formmk").Item("related_list5") <> "" Then
				If Not l_chkUtil.IsNumericAlpha(Session("formmk").Item("related_list5")) Then
					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG01135E
					l_element = l_element + 1
					CheckInput = false
				End If
			End If

	        If Session("formmk").Item("related_list6") <> "" Then
				If Not l_chkUtil.IsNumericAlpha(Session("formmk").Item("related_list6")) Then
					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG01136E
					l_element = l_element + 1
					CheckInput = false
				End If
			End If
		End If

		'---------------------------------
		'帒椏惪媮旛峫丒嵟戝暥帤悢僠僃僢僋
		'---------------------------------
		If Len(Session("formmk").Item("dataclaim_note")) > 250 Then
			'帒椏惪媮旛峫偑250暥帤傪挻偊偰偄傑偡
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01097E
			l_element = l_element + 1
			CheckInput = false
		End If

		'僄儔乕儊僢僙乕僕傪僙僢僔儑儞偵曐帩
		If l_element > 0 Then
			Session("ErrMsgForm") = l_errarray
		End If

	End Function

	'/********************************************
	'/* 擖椡抣傪僙僢僔儑儞偵愝掕偡傞
	'/********************************************
	Public Function SetSessionInData()
		Dim l_dic
		Set l_dic = CreateObject("Scripting.Dictionary")
		
		'慜夋柺傛傝忣曬庢摼
		'挔昜柤
		l_dic.add "list_name", Request.Form("listname")
		'庡娗晹栧
		l_dic.add "section_id", Request.Form("pdsel")
		'怽惪幰
		l_dic.add "applicant", Request.Form("applicant")
		'姩掕壢栚
		l_dic.add "calc_subject", Request.Form("pdcalcsubject")
		'暘椶侾
		l_dic.add "class1", Request.Form("pdclass1")
		'暘椶俀
		l_dic.add "class2", Request.Form("pdclass2")
		'暘椶俁
		l_dic.add "class3", Request.Form("pdclass3")
		'挔昜娗棟扨埵
		l_dic.add "list_unit", Request.Form("pdlistunit")

		Set Session("InputData") = l_dic
		
	End Function
	
	'/********************************************
	'/* 挔昜婎杮忣曬擖椡夋柺偺撪梕傪俢俛偵搊榐丄峏怴偡傞
	'/********************************************
	Public Function MakeStep1Update(l_status)
		Dim l_errarray(1), l_element
		l_element = 0

		MakeStep1Update = True

		'僷儔儊乕僞偺挔昜娗棟斣崋傪愝掕偡傞
		l_mkmdl.l_listManageNo = l_listManageNo

		'儗僐乕僪懚嵼僠僃僢僋
		If Not l_lb.CheckListBaseRec(l_db,l_mkmdl.l_sysId, l_mkmdl.l_coId, l_mkmdl.l_listManageNo) Then
			'挔昜娗棟斣崋傪敪斣崋偡傞
			l_mkmdl.l_listManageNo = l_mn.GetManageNo(l_db,l_mkmdl.l_sysId,l_mkmdl.l_coId, MNGNO_KIND_LIST)
			'儗僐乕僪憓擖
			If l_mkmdl.l_listManageNo > 0 Then
				If Not l_lb.InsertListBaseRec(l_db,l_mkmdl,l_status) Then
					'擖椡偝傟偨忣曬偺搊榐偵幐攕偟傑偟偨
					l_errarray(l_element) = IG11041E
					l_element = l_element + 1
					MakeStep1Update = false
				End If
				
			Else
				'擖椡偝傟偨忣曬偺搊榐偵幐攕偟傑偟偨
				l_errarray(l_element) = IG11041E
				l_element = l_element + 1
				MakeStep1Update = false
			End If

		Else
		'峏怴帪

			If Not l_lb.UpdateListBaseRec(l_db,l_mkmdl,l_status) Then
				'擖椡偝傟偨忣曬偺峏怴偵幐攕偟傑偟偨
				l_errarray(l_element) = IG11042E
				l_element = l_element + 1
				MakeStep1Update = false
			End If

		End If

		'桳岠偱嵼屔偵僨乕僞偑柍偄応崌丄嬻僨乕僞搊榐
		If MakeStep1Update And _
			l_status = LSTS_APPROVE And _
			Not l_sm.ExistStockT(l_db,l_mkmdl.l_sysId,Session("formmk").Item("list_cd"),Session("formmk").Item("list_eda")) Then
			'憅屔夛幮1乣3庢摼
			Set l_fsmdl = l_fcm.GetCompanyStock(l_db,l_mkmdl.l_sysId)
			l_fsmdl.l_sysId = l_mkmdl.l_sysId
			l_fsmdl.l_coId = l_mkmdl.l_coId
			l_fsmdl.l_listCd = Session("formmk").Item("list_cd")
			l_fsmdl.l_listEda = Session("formmk").Item("list_eda")

			'嵼屔嬻僨乕僞搊榐
			If Not l_sm.InsertStockRec(l_db,l_fsmdl) Then
				l_errarray(l_element) = IG11042E
				l_element = l_element + 1
				MakeStep1Update = false
			End If

		End If

		'僄儔乕偺応崌僄儔乕夋柺傪昞帵
		If l_element > 0 Then
			Session("ErrMsgForm") = l_errarray
			Response.ReDirect "../error.asp"
		End If
		
	End Function

	'/********************************************
	'/* 寧丄擔傪2寘偵偡傞
	'/********************************************
	Public Function MakePadDate(i_date)
		If i_date = "" Or isnull(i_date) Then
			MakePadDate = i_date
		Else
			MakePadDate = Right("0" & i_date, 2)
		End If
	End Function
	
	'/********************************************
	'/* 僋儘乕僘
	'/********************************************
	Public Function Close
		Call l_db.CloseRecodeset
		Call l_db.CloseConnection
	End Function

End Class

'/************************************
'/挔昜婎杮忣曬擖椡夋柺僨乕僞曐帩梡僋儔僗
'/************************************
Class MakeStep1Mdl
	Dim l_sysId						'僔僗僥儉ID(String)
	Dim l_coId						'夛幮ID(String)
	Dim l_userId					'儐乕僓乕ID(String)

	Dim l_listCd					'挔昜斣
	Dim l_listEda					'挔昜巬斣
	Dim l_listName					'挔昜柤
	Dim l_sectionId					'庡娗晹栧
	Dim l_applicant					'怽惪幰
	Dim l_calcSubject				'姩掕壢栚
	Dim l_class1					'暘椶侾
	Dim l_class2					'暘椶俀
	Dim l_class3					'暘椶俁
	Dim l_listUnit					'挔昜娗棟扨埵
	Dim l_listManageNo				'挔昜娗棟斣崋
	Dim l_listStatus				'挔昜忬嫷
	Dim l_listCdDsp					'挔昜僐乕僪(挔昜僐乕僪-挔昜巬斣)
	Dim l_resultSize				'巇忋偘僒僀僘
	Dim l_packingCount				'1崼曪偺擖傝悢
	Dim l_openPeriodStartYY			'岞奐婜娫乮奐巒乯乮擭乯
	Dim l_openPeriodStartMM			'岞奐婜娫乮奐巒乯乮寧乯
	Dim l_openPeriodStartDD			'岞奐婜娫乮奐巒乯乮擔乯
	Dim l_openPeriodEndYY			'岞奐婜娫乮廔椆乯乮擭乯
	Dim l_openPeriodEndMM			'岞奐婜娫乮廔椆乯乮寧乯
	Dim l_openPeriodEndDD			'岞奐婜娫乮廔椆乯乮擔乯
	Dim l_claimPeriodStartYY		'惪媮婜娫乮奐巒乯乮擭乯
	Dim l_claimPeriodStartMM		'惪媮婜娫乮奐巒乯乮寧乯
	Dim l_claimPeriodStartDD		'惪媮婜娫乮奐巒乯乮擔乯
	Dim l_claimPeriodEndYY			'惪媮婜娫乮廔椆乯乮擭乯
	Dim l_claimPeriodEndMM			'惪媮婜娫乮廔椆乯乮寧乯
	Dim l_claimPeriodEndDD			'惪媮婜娫乮廔椆乯乮擔乯
	Dim l_claimPeriodFlag			'擺昳師戞惪媮奐巒僼儔僌
	Dim l_unitPrice					'攝晩扨壙
	Dim l_arrivalWait				'擖壸懸偪
	Dim l_usePossibleTermStartYY	'巊梡壜擻婜尷乮奐巒乯乮擭乯
	Dim l_usePossibleTermStartMM	'巊梡壜擻婜尷乮奐巒乯乮寧乯
	Dim l_usePossibleTermStartDD	'巊梡壜擻婜尷乮奐巒乯乮擔乯
	Dim l_usePossibleTermEndYY		'巊梡壜擻婜尷乮廔椆乯乮擭乯
	Dim l_usePossibleTermEndMM		'巊梡壜擻婜尷乮廔椆乯乮寧乯
	Dim l_usePossibleTermEndDD		'巊梡壜擻婜尷乮廔椆乯乮擔乯
	Dim l_leavDirection				'戝検弌屔巜帵
	Dim l_leavDirectionCount		'戝検弌屔巜帵悢
	Dim l_openImageFlag				'岞奐夋憸岞奐僼儔僌
	Dim l_openAuthList				'岞奐尃尷乮挔昜徠夛乮岞奐乯乯
	Dim l_openAuthLeav				'岞奐尃尷乮弌屔埶棅乮惪媮乯乯
	Dim l_listNumberNew1			'怴挔昜斣崋侾
	Dim l_listNumberNew2			'怴挔昜斣崋俀
	Dim l_listNumberNew3			'怴挔昜斣崋俁
	Dim l_listNumberOld1			'媽挔昜斣崋侾
	Dim l_listNumberOld2			'媽挔昜斣崋俀
	Dim l_listNumberOld3			'媽挔昜斣崋俁
	Dim l_dataClaimNote				'帒椏惪媮旛峫

End Class

%>