makestep3main.asp

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

			'巊梡壜擻婜尷(廔椆)偺巜掕偑晄惓偱偡
			l_errarray(l_element) = IG01060E
			l_element = l_element + 1
			CheckInput = false
		End If

		'攝晩扨壙丒悢抣僠僃僢僋
		If l_mkmdl.l_unitPrice <> "" and l_chkUtil.number_chk(l_baspobj, l_mkmdl.l_unitPrice) = 0 Then
			'攝晩扨壙偼敿妏悢帤偱偡
			l_errarray(l_element) = IG01061E
			l_element = l_element + 1
			CheckInput = false
		End If

		'戝検弌屔巜帵悢丒悢抣僠僃僢僋
		If l_mkmdl.l_leavDirectionCount <> "" and l_chkUtil.number_chk(l_baspobj, l_mkmdl.l_leavDirectionCount) = 0 Then
			'戝検弌屔巜帵悢偼敿妏悢帤偱偡
			l_errarray(l_element) = IG01062E
			l_element = l_element + 1
			CheckInput = false
		End If

		'怴婯挔昜斣崋(侾乣俁乯丒悢抣僠僃僢僋
		If (l_mkmdl.l_listNumberNew1 <> "" and l_chkUtil.number_chk(l_baspobj, l_mkmdl.l_listNumberNew1) = 0) or _
 		   (l_mkmdl.l_listNumberNew2 <> "" and l_chkUtil.number_chk(l_baspobj, l_mkmdl.l_listNumberNew2) = 0) or _
           (l_mkmdl.l_listNumberNew3 <> "" and l_chkUtil.number_chk(l_baspobj, l_mkmdl.l_listNumberNew3) = 0) Then
			l_errarray(l_element) = IG01100E
			l_element = l_element + 1
			CheckInput = false
		End If

		'媽挔昜斣崋(侾乣俁乯丒悢抣僠僃僢僋
		If (l_mkmdl.l_listNumberOld1 <> "" and l_chkUtil.number_chk(l_baspobj, l_mkmdl.l_listNumberOld1) = 0) or _
		   (l_mkmdl.l_listNumberOld2 <> "" and l_chkUtil.number_chk(l_baspobj, l_mkmdl.l_listNumberOld2) = 0) or _
           (l_mkmdl.l_listNumberOld3 <> "" and l_chkUtil.number_chk(l_baspobj, l_mkmdl.l_listNumberOld3) = 0) Then
			'媽挔昜斣崋偼敿妏悢帤偱偡
			l_errarray(l_element) = IG01101E
			l_element = l_element + 1
			CheckInput = false
		End If

		'娭楢挔昜(侾乣俇乯丒悢抣僠僃僢僋
		If (l_mkmdl.l_relatedList1 <> "" and l_chkUtil.number_chk(l_baspobj, l_mkmdl.l_relatedList1) = 0) or _
		   (l_mkmdl.l_relatedList2 <> "" and l_chkUtil.number_chk(l_baspobj, l_mkmdl.l_relatedList2) = 0) or _
		   (l_mkmdl.l_relatedList3 <> "" and l_chkUtil.number_chk(l_baspobj, l_mkmdl.l_relatedList3) = 0) or _
		   (l_mkmdl.l_relatedList4 <> "" and l_chkUtil.number_chk(l_baspobj, l_mkmdl.l_relatedList4) = 0) or _
		   (l_mkmdl.l_relatedList5 <> "" and l_chkUtil.number_chk(l_baspobj, l_mkmdl.l_relatedList5) = 0) or _
           (l_mkmdl.l_relatedList6 <> "" and l_chkUtil.number_chk(l_baspobj, l_mkmdl.l_relatedList6) = 0) Then
			'娭楢挔昜偼敿妏悢帤偱偡
			l_errarray(l_element) = IG01102E
			l_element = l_element + 1
			CheckInput = false
		End If

		'帒椏惪媮旛峫丒嵟戝暥帤悢僠僃僢僋
		If Len(l_mkmdl.l_dataclaimNote) > 250 Then
			'帒椏惪媮旛峫偑250暥帤傪挻偊偰偄傑偡
			'l_errarray(l_element) = IG01097E
			l_element = l_element + 1
			CheckInput = false
		End If
l_errarray(l_element) = Len(l_mkmdl.l_dataclaimNote)
		'僄儔乕儊僢僙乕僕傪僙僢僔儑儞偵曐帩
		If l_element > 0 Then
			Session("ErrMsg") = l_errarray
		End If
	End Function

	'/********************************************
	'/* 擖椡抣傪僙僢僔儑儞偵愝掕偡傞
	'/********************************************
	Public Function SetSessionInData()
		Dim l_dic
		Set l_dic = CreateObject("Scripting.Dictionary")
		
		'慜夋柺傛傝忣曬庢摼
		'岞奐婜娫(奐巒)
		l_dic.add "openPeriodStartYY", Request.Form("openperiodstartYY")
		l_dic.add "openPeriodStartMM", Request.Form("openperiodstartMM")
		l_dic.add "openPeriodStartDD", Request.Form("openperiodstartDD")
		l_dic.add "openPeriodEndYY", Request.Form("openperiodendYY")			'岞奐婜娫(廔椆)(擭)
		l_dic.add "openPeriodEndMM", Request.Form("openperiodendMM")			'岞奐婜娫(廔椆)(寧)
		l_dic.add "openPeriodEndDD", Request.Form("openperiodendDD")			'岞奐婜娫(廔椆)(擔)
		l_dic.add "claimPeriodStartYY", Request.Form("claimperiodstartYY")	'惪媮婜娫(奐巒)(擭)
		l_dic.add "claimPeriodStartMM", Request.Form("claimperiodstartMM")	'惪媮婜娫(奐巒)(寧)
		l_dic.add "claimPeriodStartDD", Request.Form("claimperiodstartDD")	'惪媮婜娫(奐巒)(擔)
		l_dic.add "claimPeriodEndYY", Request.Form("claimperiodendYY")		'惪媮婜娫(廔椆)(擭)
		l_dic.add "claimPeriodEndMM", Request.Form("claimperiodendMM")		'惪媮婜娫(廔椆)(寧)
		l_dic.add "claimPeriodEndDD", Request.Form("claimperiodendDD")		'惪媮婜娫(廔椆)(擔)
		l_dic.add "claimPeriodFlag", Request.Form("claimperiodflag")		'惪媮婜娫(擺昳師戞惪媮奐巒)僼儔僌
		l_dic.add "arrivalWait", Request.Form("arrivalwait")				'擖壸懸偪
		l_dic.add "unitPrice", Request.Form("unitprice")					'攝晩扨壙
		l_dic.add "usepossibleTermStartYY", Request.Form("usepossibletermstartYY")	'巊梡壜擻婜尷(奐巒)(擭)
		l_dic.add "usepossibleTermStartMM", Request.Form("usepossibletermstartMM")	'巊梡壜擻婜尷(奐巒)(寧)
		l_dic.add "usepossibleTermStartDD", Request.Form("usepossibletermstartDD")	'巊梡壜擻婜尷(奐巒)(擔)
		l_dic.add "usepossibleTermEndYY", Request.Form("usepossibletermendYY")	'巊梡壜擻婜尷(廔椆)(擭)
		l_dic.add "usepossibleTermEndMM", Request.Form("usepossibletermendMM")	'巊梡壜擻婜尷(廔椆)(寧)
		l_dic.add "usepossibleTermEndDD", Request.Form("usepossibletermendDD")	'巊梡壜擻婜尷(廔椆)(擔)

		l_dic.add "listClass1", Request.Form("listclass1")						'挔昜庬暿1
		l_dic.add "storagePeriod1", Request.Form("storageperiod1")				'曐娗婜娫1
		l_dic.add "storagePeriodOther1", Request.Form("storageperiodother1")	'曐娗婜娫(偦偺懠)1
		l_dic.add "headOfficeKeep1", Request.Form("headofficekeep1")			'杮幮曐懚応強1

		l_dic.add "listClass2", Request.Form("listclass2")						'挔昜庬暿2
		l_dic.add "storagePeriod2", Request.Form("storageperiod2")				'曐娗婜娫2
		l_dic.add "storagePeriodOther2", Request.Form("storageperiodother2")	'曐娗婜娫(偦偺懠)2
		l_dic.add "headOfficeKeep2", Request.Form("headofficekeep2")			'杮幮曐懚応強2

		l_dic.add "listClass3", Request.Form("listclass3")						'挔昜庬暿3
		l_dic.add "storagePeriod3", Request.Form("storageperiod3")				'曐娗婜娫3
		l_dic.add "storagePeriodOther3", Request.Form("storageperiodother3")	'曐娗婜娫(偦偺懠)3
		l_dic.add "headOfficeKeep3", Request.Form("headofficekeep3")			'杮幮曐懚応強3

		l_dic.add "leavDirection", Request.Form("leavdirection")				'戝検弌屔巜帵
		l_dic.add "leavDirectionCount", Request.Form("leavdirectioncount")	'戝検弌屔巜帵悢
		l_dic.add "openImageFlag", Request.Form("openimageflag")			'岞奐夋憸岞奐僼儔僌
		l_dic.add "openAuthList", Request.Form("openauthlist")			'岞奐尃尷(挔昜徠夛(岞奐))
		l_dic.add "openAuthLeav", Request.Form("openauthleav")			'岞奐尃尷(弌屔埶棅(惪媮))
		l_dic.add "listNumberNew1", Request.Form("listnumbernew1")		'怴挔昜斣崋1
		l_dic.add "listNumberNew2", Request.Form("listnumbernew2")		'怴挔昜斣崋2
		l_dic.add "listNumberNew3", Request.Form("listnumbernew3")		'怴挔昜斣崋3
		l_dic.add "listNumberOld1", Request.Form("listnumberold1")		'媽挔昜斣崋1
		l_dic.add "listNumberOld2", Request.Form("listnumberold2")		'媽挔昜斣崋2
		l_dic.add "listNumberOld3", Request.Form("listnumberold3")		'媽挔昜斣崋3
		l_dic.add "relatedList1", Request.Form("relatedlist1")			'娭楢挔昜1
		l_dic.add "relatedList2", Request.Form("relatedlist2")			'娭楢挔昜2
		l_dic.add "relatedList3", Request.Form("relatedlist3")			'娭楢挔昜3
		l_dic.add "relatedList4", Request.Form("relatedlist4")			'娭楢挔昜4
		l_dic.add "relatedList5", Request.Form("relatedlist5")			'娭楢挔昜5
		l_dic.add "relatedList6", Request.Form("relatedlist6")			'娭楢挔昜6
		l_dic.add "category1", Request.Form("category1")					'僇僥僑儕1
		l_dic.add "category2", Request.Form("category2")					'僇僥僑儕2
		l_dic.add "category3", Request.Form("category3")					'僇僥僑儕3
		l_dic.add "category4", Request.Form("category4")					'僇僥僑儕4
		l_dic.add "category5", Request.Form("category5")					'僇僥僑儕5
		l_dic.add "dataclaimNote", Request.Form("dataclaimnote")			'帒椏惪媮旛峫

		Set Session("InputData") = l_dic
	End Function

	'/********************************************
	'/* 挔昜婎杮忣曬擖椡夋柺偺撪梕傪俢俛偵搊榐丄峏怴偡傞
	'/********************************************
	Public Function MakeStep3Update()
		Dim l_errarray(1), l_element
		l_element = 0
		
		MakeStep3Update = True

		'擖椡偟偨巇條忣曬(婎杮忣曬)傪搊榐偡傞(UPDATE)
		If Not l_lb.UpdateListBaseStep3(l_db,l_mkmdl) Then
			'擖椡偝傟偨忣曬偺峏怴偵幐攕偟傑偟偨
			l_errarray(l_element) = IG11042E
			l_element = l_element + 1
			MakeStep3Update = false
		End If

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

	End Function

	'/********************************************
	'/* 挔昜忣曬傪攑巭偵偡傞
	'/********************************************
	Public Function MakeStep3Delete()
		Dim l_errarray(1), l_element
		l_element = 0

		MakeStep3Delete = True

		'挔昜僗僥乕僞僗傪攑巭偵偡傞
		If Not l_lb.UpdateListStatus(l_db,l_mkmdl.l_sysId,l_mkmdl.l_coId,l_listManageNo,LSTS_ABOL) Then
			'擖椡偝傟偨忣曬偺峏怴偵幐攕偟傑偟偨
			l_errarray(l_element) = IG11042E
			l_element = l_element + 1
			MakeStep3Update = false
		End If

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

	End Function

	'/********************************************
	'/* 僋儘乕僘
	'/********************************************
	Public Function Close
		Call l_db.CloseRecodeset
		Call l_db.CloseConnection
	End Function

End Class


%>