makestep3main.asp

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

<%
'/************************************
'/岞奐忣曬擖椡儊僀儞僋儔僗
'/************************************
Class MakeStep3Main
	
	Dim l_db				'DBAccess DB傾僋僙僗梡
	Dim l_cutil				'暥帤儐乕僥傿儕僥傿
	Dim l_cmn				'嫟捠僋儔僗(Common)
	Dim l_chkUtil			'嫟捠僋儔僗(CheckUtil)
	Dim l_mkmdl				'僨乕僞曐帩(MakeStep3Mdl)
	
	Dim l_lb				'FmListBaseMaster
	Dim l_btnSave
	Dim l_btnNext
	Dim l_btnPrev
	Dim l_btnDelete
	Dim l_btnPrevList
	Dim l_update
	Dim l_listManageNo
	Dim l_orderManageNo

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Set l_cmn = New Common
		Set l_mkmdl = New MakeStep3Mdl
		Set l_lb = New FmListBaseMaster
		Set l_chkUtil = New CheckUtil
		Set l_cutil = New CharUtil

		Call l_cmn.SearchSession()

		'DB僐僱僋僔儑儞庢摼
		Set l_db = New DbAccess
		Call l_db.ProcConnection(DSN, USERID, PASSWD)

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_mkmdl.l_sysId = Session("User").Item("SYSTEM_ID")		'僔僗僥儉ID
		l_mkmdl.l_coId = Session("User").Item("COMPANY_ID")		'夛幮ID
		l_mkmdl.l_sectionId = Session("User").Item("SECTION_ID")	'晹彁俬俢
		l_mkmdl.l_userId = Session("User").Item("USER_ID")		'儐乕僓乕ID

		'慜夋柺儃僞儞墴壓忬嫷庢摼
		l_btnSave = Request.Form("save")
		l_btnNext = Request.Form("next")
		l_btnPrev = Request.Form("prev")
		l_btnDelete = Request.Form("delete")
		l_btnPrevList = Request.Form("prevlist")

		'僷儔儊乕僞偺挔昜娗棟斣崋傪愝掕偡傞
		l_listManageNo =  Request.QueryString("P1") 	'挔昜娗棟斣崋
		l_mkmdl.l_listManageNo = l_listManageNo	
		l_orderManageNo =  Request.QueryString("ordermanageno") 	'敪拲娗棟斣崋

	End Function

	'/********************************************
	'/* 巇條忣曬擖椡夋柺偺夋柺僷儔儊僞庢摼
	'/********************************************
	Public Function GetFormParam()

		GetFormParam = True

		'曐懚偡傞儃僞儞墴壓帪
		If l_btnSave <> "" or l_btnNext <> "" or l_btnPrev <> "" Then
			'慜夋柺傛傝忣曬庢摼
			l_mkmdl.l_openPeriodStartYY = Request.Form("openperiodstartYY")		'岞奐婜娫(奐巒)(擭)
			l_mkmdl.l_openPeriodStartMM = Request.Form("openperiodstartMM")		'岞奐婜娫(奐巒)(寧)
			l_mkmdl.l_openPeriodStartDD = Request.Form("openperiodstartDD")		'岞奐婜娫(奐巒)(擔)
			l_mkmdl.l_openPeriodEndYY = Request.Form("openperiodendYY")			'岞奐婜娫(廔椆)(擭)
			l_mkmdl.l_openPeriodEndMM = Request.Form("openperiodendMM")			'岞奐婜娫(廔椆)(寧)
			l_mkmdl.l_openPeriodEndDD = Request.Form("openperiodendDD")			'岞奐婜娫(廔椆)(擔)
			l_mkmdl.l_claimPeriodStartYY = Request.Form("claimperiodstartYY")	'惪媮婜娫(奐巒)(擭)
			l_mkmdl.l_claimPeriodStartMM = Trim(Request.Form("claimperiodstartMM"))	'惪媮婜娫(奐巒)(寧)
			l_mkmdl.l_claimPeriodStartDD = Trim(Request.Form("claimperiodstartDD"))	'惪媮婜娫(奐巒)(擔)
			l_mkmdl.l_claimPeriodEndYY = Request.Form("claimperiodendYY")		'惪媮婜娫(廔椆)(擭)
			l_mkmdl.l_claimPeriodEndMM = Trim(Request.Form("claimperiodendMM"))		'惪媮婜娫(廔椆)(寧)
			l_mkmdl.l_claimPeriodEndDD = Trim(Request.Form("claimperiodendDD"))		'惪媮婜娫(廔椆)(擔)
			l_mkmdl.l_claimPeriodFlag = Request.Form("claimperiodflag")		'惪媮婜娫(擺昳師戞惪媮奐巒)僼儔僌
			l_mkmdl.l_arrivalWait = Request.Form("arrivalwait")				'擖壸懸偪
			l_mkmdl.l_unitPrice = Request.Form("unitprice")					'攝晩扨壙
			l_mkmdl.l_usepossibleTermStartYY = Request.Form("usepossibletermstartYY")	'巊梡壜擻婜尷(奐巒)(擭)
			l_mkmdl.l_usepossibleTermStartMM = Request.Form("usepossibletermstartMM")	'巊梡壜擻婜尷(奐巒)(寧)
			l_mkmdl.l_usepossibleTermStartDD = Request.Form("usepossibletermstartDD")	'巊梡壜擻婜尷(奐巒)(擔)
			l_mkmdl.l_usepossibleTermEndYY = Request.Form("usepossibletermendYY")	'巊梡壜擻婜尷(廔椆)(擭)
			l_mkmdl.l_usepossibleTermEndMM = Request.Form("usepossibletermendMM")	'巊梡壜擻婜尷(廔椆)(寧)
			l_mkmdl.l_usepossibleTermEndDD = Request.Form("usepossibletermendDD")	'巊梡壜擻婜尷(廔椆)(擔)
			'曐娗婜娫侾
			l_mkmdl.l_listClass1 = Request.Form("listclass1")
			l_mkmdl.l_storagePeriod1 = Request.Form("storageperiod1")
			l_mkmdl.l_storagePeriodOther1 = l_cutil.chg_HantoZen(Request.Form("storageperiodother1"))
			l_mkmdl.l_headOfficeKeep1 = Request.Form("headofficekeep1")
			'曐娗婜娫俀
			l_mkmdl.l_listClass2 = Request.Form("listclass2")
			l_mkmdl.l_storagePeriod2 = Request.Form("storageperiod2")
			l_mkmdl.l_storagePeriodOther2 = l_cutil.chg_HantoZen(Request.Form("storageperiodother2"))
			l_mkmdl.l_headOfficeKeep2 = Request.Form("headofficekeep2")
			'曐娗婜娫俁
			l_mkmdl.l_listClass3 = Request.Form("listclass3")
			l_mkmdl.l_storagePeriod3 = Request.Form("storageperiod3")
			l_mkmdl.l_storagePeriodOther3 = l_cutil.chg_HantoZen(Request.Form("storageperiodother3"))
			l_mkmdl.l_headOfficeKeep3 = Request.Form("headofficekeep3")

			l_mkmdl.l_leavDirection = Request.Form("leavdirection")				'戝検弌屔巜帵
			l_mkmdl.l_leavDirectionCount = Request.Form("leavdirectioncount")	'戝検弌屔巜帵悢
			l_mkmdl.l_openImageFlag = Request.Form("openimageflag")			'岞奐夋憸岞奐僼儔僌
			l_mkmdl.l_openAuthList = Request.Form("openauthlist")			'岞奐尃尷(挔昜徠夛(岞奐))
			l_mkmdl.l_openAuthLeav = Request.Form("openauthleav")			'岞奐尃尷(弌屔埶棅(惪媮))
			l_mkmdl.l_listNumberNew1 = Request.Form("listnumbernew1")		'怴挔昜斣崋1
			l_mkmdl.l_listNumberNew2 = Request.Form("listnumbernew2")		'怴挔昜斣崋2
			l_mkmdl.l_listNumberNew3 = Request.Form("listnumbernew3")		'怴挔昜斣崋3
			l_mkmdl.l_listNumberOld1 = Request.Form("listnumberold1")		'媽挔昜斣崋1
			l_mkmdl.l_listNumberOld2 = Request.Form("listnumberold2")		'媽挔昜斣崋2
			l_mkmdl.l_listNumberOld3 = Request.Form("listnumberold3")		'媽挔昜斣崋3
			l_mkmdl.l_relatedList1 = Request.Form("relatedlist1")			'娭楢挔昜1
			l_mkmdl.l_relatedList2 = Request.Form("relatedlist2")			'娭楢挔昜2
			l_mkmdl.l_relatedList3 = Request.Form("relatedlist3")			'娭楢挔昜3
			l_mkmdl.l_relatedList4 = Request.Form("relatedlist4")			'娭楢挔昜4
			l_mkmdl.l_relatedList5 = Request.Form("relatedlist5")			'娭楢挔昜5
			l_mkmdl.l_relatedList6 = Request.Form("relatedlist6")			'娭楢挔昜6
			l_mkmdl.l_category1 = Request.Form("category1")					'僇僥僑儕1
			l_mkmdl.l_category2 = Request.Form("category2")					'僇僥僑儕2
			l_mkmdl.l_category3 = Request.Form("category3")					'僇僥僑儕3
			l_mkmdl.l_category4 = Request.Form("category4")					'僇僥僑儕4
			l_mkmdl.l_category5 = Request.Form("category5")					'僇僥僑儕5
			l_mkmdl.l_dataclaimNote = l_cutil.chg_HantoZen(Request.Form("dataclaimnote"))			'帒椏惪媮旛峫
		End If

		'========================
		'擖椡僠僃僢僋
		'========================
		If Not CheckInput() Then
			'僄儔乕偺応崌擖椡抣傪僙僢僔儑儞偵愝掕
			SetSessionInData()
			GetFormParam = False
			Exit Function
		End If

	End Function

	'/********************************************
	'/* 擖椡僠僃僢僋
	'/* 僄儔乕偺応崌偼僄儔乕攝楍偵僄儔乕儊僢僙乕僕傪捛壛
	'/* return: true:惓忢丄false丗僄儔乕
	'/********************************************
	Public Function CheckInput()

		Dim l_errarray(20),l_element,l_baspobj,l_wkDate
		Set l_baspobj = Server.Createobject("basp21")

		CheckInput = true
		l_element = 0

		'岞奐婜娫(奐巒)丒擔晅僠僃僢僋
		If Not l_chkUtil.IsYMD(Request.Form("openperiodstartYY"),Request.Form("openperiodstartMM"),Request.Form("openperiodstartDD")) Then

			'岞奐婜娫(奐巒)偺巜掕偑晄惓偱偡
			l_errarray(l_element) = IG01055E
			l_element = l_element + 1
			CheckInput = false
		End If

		'岞奐婜娫(廔椆)丒擔晅僠僃僢僋
		If Not l_chkUtil.IsYMD(Request.Form("openperiodendYY"),Request.Form("openperiodendMM"),Request.Form("openperiodendDD")) Then

			'岞奐婜娫(廔椆)偺巜掕偑晄惓偱偡
			l_errarray(l_element) = IG01056E
			l_element = l_element + 1
			CheckInput = false
		End If

		If Request.Form("claimperiodflag") = FLG_OFF Then

			'惪媮婜娫(奐巒)丒擔晅僠僃僢僋
			If Not l_chkUtil.IsYMD(Request.Form("claimperiodstartYY"),Request.Form("claimperiodstartMM"),Request.Form("claimperiodstartDD")) Then

				'惪媮婜娫(奐巒)偺巜掕偑晄惓偱偡
				l_errarray(l_element) = IG01057E
				l_element = l_element + 1
				CheckInput = false
			End If
		End If

		'惪媮婜娫(廔椆)丒擔晅僠僃僢僋
		If Not l_chkUtil.IsYMD(Request.Form("claimperiodendYY"),Request.Form("claimperiodendMM"),Request.Form("claimperiodendDD")) Then

			'惪媮婜娫(廔椆)偺巜掕偑晄惓偱偡
			l_errarray(l_element) = IG01058E
			l_element = l_element + 1
			CheckInput = false
		End If

		'巊梡壜擻婜尷(奐巒)丒擔晅僠僃僢僋
		If Not l_chkUtil.IsYMD(Request.Form("usepossibletermstartYY"),Request.Form("usepossibletermstartMM"),Request.Form("usepossibletermstartDD")) Then

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

		'巊梡壜擻婜尷(廔椆)丒擔晅僠僃僢僋
		If Not l_chkUtil.IsYMD(Request.Form("usepossibletermendYY"),Request.Form("usepossibletermendMM"),Request.Form("usepossibletermendDD")) Then