formmakemain.asp

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

<%
'/************************************
'/挔昜婎杮忣曬擖椡儊僀儞僋儔僗
'/************************************
Class FormMakeMain
	
	Dim l_db				'DBAccess DB傾僋僙僗梡
	Dim l_cutil				'暥帤儐乕僥傿儕僥傿
	Dim l_cmn				'嫟捠僋儔僗(Common)
	Dim l_chkUtil			'嫟捠僋儔僗(CheckUtil)
	Dim l_mkmdl				'忦審曐帩(MakeStep1Mdl)
	Dim l_lb				'FmListBaseMaster
	Dim l_mn				'FmManageNoMaster
	Dim l_sm				'FmStockMaster
	Dim l_fsmdl				'FormStockMdl
	Dim l_fcm				'FmCommon
	Dim l_btnRegist
	Dim l_btnConf
	Dim l_btnSave
	Dim l_btnPrev
	Dim l_btnDelete
	Dim l_Abol
	Dim l_Param
	Dim l_update
	Dim l_listManageNo
	Dim l_orderManageNo

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Set l_cmn = New Common
		Set l_mkmdl = New MakeStep1Mdl
		Set l_lb = New FmListBaseMaster
		Set l_mn = New ManageNoMaster
		Set l_chkUtil = New CheckUtil
		Set l_cutil = New CharUtil
		Set l_sm = New FmStockMaster
		Set l_fcm = New FmCommon

		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_coId = l_cmn.GetCustomerCompIdRec(l_db,l_mkmdl.l_sysId)		'夛幮ID(庢堷愭)
		l_mkmdl.l_sectionId = Session("User").Item("SECTION_ID")	'晹彁俬俢
		l_mkmdl.l_userId = Session("User").Item("USER_ID")		'儐乕僓乕ID

		'慜夋柺儃僞儞墴壓忬嫷庢摼
		l_btnRegist = Request.Form("regist")
		l_btnConf = Request.Form("conf")		'妋擣夋柺
		l_btnSave = Request.Form("save")		'壓彂偒
		l_btnDelete = Request.Form("del")		'嶍彍
		l_Abol = Request.Form("abol")			'攑巭
		l_btnPrev = Request.Form("prev")	'俽俿俤俹俀夋柺偺儃僞儞
		l_Param = Request.Form("param")
		l_update = Request.Form("upmode")
		l_listManageNo =  Request.Form("listmanageno")
		l_orderManageNo =  Request.Form("ordermanageno")
'		l_mkmdl.l_listManageNo = l_listManageNo

	End Function

	'/********************************************
	'/* 挔昜婎杮忣曬擖椡夋柺偺夋柺僷儔儊僞庢摼
	'/********************************************
	Public Function GetFormParam()
		Dim l_baspobj
		Dim l_dic

		Set l_baspobj = Server.Createobject("basp21")
		Set l_dic = CreateObject("Scripting.Dictionary")

		GetFormParam = True
		'搊榐偡傞儃僞儞墴壓帪
		If l_Param <> "" And (l_btnSave <> "" Or l_btnConf <> "") Then
			'挔昜忬嫷
			l_dic.add "list_status", Request.Form("liststatus")
			'慜夋柺傛傝忣曬庢摼
			'挔昜斣崋
			l_dic.add "list_cd", Request.Form("listno")
			'挔昜巬斣
			l_dic.add "list_eda", Request.Form("listeda")
			'挔昜柤
			l_dic.add "list_name", l_cutil.chg_HantoZen(Request.Form("listname"))
			'庡娗晹栧
			l_dic.add "section_id", Request.Form("pdsel")
			'怽惪幰
			l_dic.add "applicant", l_cutil.chg_HantoZen(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")
			'巇忋偘僒僀僘庬椶
			l_dic.add "result_size", l_cutil.chg_HantoZen(Request.Form("resultsize"))
			'1崼曪偺擖傝悢
			If Request.Form("packingcount") = "" or IsNull(Request.Form("packingcount")) Then
				l_dic.add "packing_count",CStr(1)
			Else
				l_dic.add "packing_count",CStr(Request.Form("packingcount"))
			End If
			'晹奜旈岞奐僼儔僌
			If Request.Form("chksecretflg") <> "" Then
				l_dic.add "secretFlg", FLG_ON
			Else
				l_dic.add "secretFlg", FLG_OFF
			End If
			'晹奜旈岞奐僷僗儚乕僪
			l_dic.add "secretPassword", Request.Form("secretpassword")
			'岞奐婜娫
			l_dic.add "open_period_start_yy", Request.Form("openperiodstartYY")
			l_dic.add "open_period_start_mm", MakePadDate(Request.Form("openperiodstartMM"))
			l_dic.add "open_period_start_dd", MakePadDate(Request.Form("openperiodstartDD"))
			l_dic.add "open_period_end_yy", Request.Form("openperiodendYY")
			l_dic.add "open_period_end_mm", MakePadDate(Request.Form("openperiodendMM"))
			l_dic.add "open_period_end_dd", MakePadDate(Request.Form("openperiodendDD"))
			'惪媮婜娫
			l_dic.add "claim_period_start_yy", Request.Form("claimperiodstartYY")
			l_dic.add "claim_period_start_mm", MakePadDate(Trim(Request.Form("claimperiodstartMM")))
			l_dic.add "claim_period_start_dd", MakePadDate(Trim(Request.Form("claimperiodstartDD")))
			l_dic.add "claim_period_end_yy", Request.Form("claimperiodendYY")
			l_dic.add "claim_period_end_mm", MakePadDate(Trim(Request.Form("claimperiodendMM")))
			l_dic.add "claim_period_end_dd", MakePadDate(Trim(Request.Form("claimperiodendDD")))
			'擺昳師戞惪媮奐巒僼儔僌
			l_dic.add "claim_period_flag", Request.Form("claimperiodflag")
			'攝晩扨壙
			l_dic.add "unit_price", l_cutil.GetNumSql(Request.Form("unitprice"))
			'擖壸懸偪
			If Request.Form("arrivalwait") <> "" Then
				l_dic.add "arrival_wait", FLG_ON
			Else
				l_dic.add "arrival_wait", FLG_OFF
			End If
			'巊梡壜擻婜尷
			l_dic.add "usepossible_term_start_yy", Request.Form("usepossibletermstartYY")	'巊梡壜擻婜尷(奐巒)(擭)
			l_dic.add "usepossible_term_start_mm", MakePadDate(Request.Form("usepossibletermstartMM")) '巊梡壜擻婜尷(奐巒)(寧)
			l_dic.add "usepossible_term_start_dd", MakePadDate(Request.Form("usepossibletermstartDD")) '巊梡壜擻婜尷(奐巒)(擔)
			l_dic.add "usepossible_term_end_yy", Request.Form("usepossibletermendYY")		'巊梡壜擻婜尷(廔椆)(擭)
			l_dic.add "usepossible_term_end_mm", MakePadDate(Request.Form("usepossibletermendMM"))	'巊梡壜擻婜尷(廔椆)(寧)
			l_dic.add "usepossible_term_end_dd", MakePadDate(Request.Form("usepossibletermendDD"))	'巊梡壜擻婜尷(廔椆)(擔)
			'戝検弌屔巜帵
			l_dic.add "leav_direction", Request.Form("leavdirection")
			'戝検弌屔巜帵悢
			If l_dic.Item("leav_direction") <> "" Then
				l_dic.add "leav_direction_count", l_cutil.GetNumSql(Request.Form("leavdirectioncount"))
			Else
				l_dic.add "leav_direction_count", 0
			End If
			'岞奐尃尷亅挔昜徠夛(岞奐)
			l_dic.add "open_auth_list", Request.Form("openauthlist")
			'岞奐尃尷亅弌屔埶棅(惪媮)
			l_dic.add "open_auth_leav", Request.Form("openauthleav")
			'怴挔昜斣崋侾
			l_dic.add "listnumber_new1", Request.Form("listnumbernew1")
			'怴挔昜斣崋俀
			l_dic.add "listnumber_new2", Request.Form("listnumbernew2")
			'怴挔昜斣崋俁
			l_dic.add "listnumber_new3", Request.Form("listnumbernew3")
			'媽挔昜斣崋侾
			l_dic.add "listnumber_old1", Request.Form("listnumberold1")
			'媽挔昜斣崋俀
			l_dic.add "listnumber_old2", Request.Form("listnumberold2")
			'媽挔昜斣崋俁
			l_dic.add "listnumber_old3", Request.Form("listnumberold3")
			'娭楢挔昜
			l_dic.add "related_list1", Request.Form("relatedlist1")
			l_dic.add "related_list2", Request.Form("relatedlist2")
			l_dic.add "related_list3", Request.Form("relatedlist3")
			l_dic.add "related_list4", Request.Form("relatedlist4")
			l_dic.add "related_list5", Request.Form("relatedlist5")
			l_dic.add "related_list6", Request.Form("relatedlist6")
			'帒椏惪媮旛峫
			l_dic.add "dataclaim_note", l_cutil.chg_HantoZen(Request.Form("dataclaimnote"))
			l_dic.add "openImageFlag",FLG_ON
			'僙僢僔儑儞偵僙僢僩
			Set Session("formmk") = l_dic

			'========================
			'擖椡僠僃僢僋(搊榐儃僞儞墴壓)
			'========================
			'If l_btnConf <> "" Then
			'	If Not CheckInput() Then
					'僄儔乕偺応崌擖椡抣傪僙僢僔儑儞偵愝掕
				'	SetSessionInData()
			'		GetFormParam = False
			'		Exit Function
			'	End If
			'End If
		End If
	End Function

	'/********************************************
	'/* 擖椡僠僃僢僋
	'/* 僄儔乕偺応崌偼僄儔乕攝楍偵僄儔乕儊僢僙乕僕傪捛壛
	'/* return: true:惓忢丄false丗僄儔乕
	'/********************************************
	Public Function CheckInput()
		Dim l_errarray(), l_element, l_baspobj
		Set l_baspobj = Server.Createobject("basp21")

		CheckInput = true
		l_element = 0

		'-----------------
		'挔昜斣崋僠僃僢僋
		'-----------------
		If l_btnRegist <> "" And _
			(Session("formmk").Item("list_cd") = "" Or _
			IsNull(Session("formmk").Item("list_cd"))) Then
			'挔昜斣崋傪擖椡偟偰偔偩偝偄		
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG11004E
			l_element = l_element + 1
			CheckInput = false
		End If

		If l_btnRegist <> "" And _
			(Session("formmk").Item("list_eda") = "" Or _
			IsNull(Session("formmk").Item("list_eda"))) Then
			'挔昜斣崋巬斣傪擖椡偟偰偔偩偝偄		
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG11023E
			l_element = l_element + 1
			CheckInput = false
		End If
'response.write 1
		If Session("formmk").Item("list_cd") <> "" Then
			If l_chkUtil.IsNumericAlpha(Session("formmk").Item("list_cd")) = False Then
				'挔昜斣崋偼敿妏悢帤偱偡		
				Redim Preserve l_errarray(l_element)
				l_errarray(l_element) = IG11001E
				l_element = l_element + 1
				CheckInput = false
			End If
		End If

		If Session("formmk").Item("list_eda") <> "" Then
			If l_chkUtil.number_chk(l_baspobj,Session("formmk").Item("list_eda")) = 0 Then
				'挔昜巬斣偼敿妏悢帤偱偡		
				Redim Preserve l_errarray(l_element)
				l_errarray(l_element) = IG11021E
				l_element = l_element + 1
				CheckInput = false
			End If
		End If

		'廳暋僠僃僢僋乮怴婯搊榐偺応崌偺傒偍偙側偆乯
		If l_listManageNo = "" And _
			CheckInput Then

			If l_lb.HasListCd(l_db, l_mkmdl.l_sysId, l_mkmdl.l_coId, _
					Session("formmk").Item("list_cd"), Session("formmk").Item("list_eda")) Then
				'擖椡偝傟偨挔昜偼偡偱偵搊榐嵪傒偱偡		
				Redim Preserve l_errarray(l_element)
				l_errarray(l_element) = IG01111E
				l_element = l_element + 1
				CheckInput = false
			End If
			
		End If

		'---------------
		'挔昜柤僠僃僢僋(壓彂偒偼枹僠僃僢僋)
		'---------------
		If l_btnRegist <> "" And _
			(Session("formmk").Item("list_name") = "" Or _
			IsNull(Session("formmk").Item("list_name"))) Then
			'挔昜柤傪擖椡偟偰偔偩偝偄		
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG11028E
			l_element = l_element + 1
			CheckInput = false
		End If
		
		'-----------------
		'庡娗晹栧僠僃僢僋(壓彂偒偼枹僠僃僢僋)
		'-----------------
		If l_btnRegist <> "" And _
			(Session("formmk").Item("section_id") = "" Or _
			IsNull(Session("formmk").Item("section_id"))) Then
			'庡娗晹栧傪擖椡偟偰偔偩偝偄		
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01001E
			l_element = l_element + 1
			CheckInput = false
		End If
		
		'---------------
		'怽惪幰僠僃僢僋(壓彂偒偼枹僠僃僢僋)
		'---------------
		If l_btnRegist <> "" And _
			(Session("formmk").Item("applicant") = "" Or _
			IsNull(Session("formmk").Item("applicant"))) Then
			'怽惪幰傪擖椡偟偰偔偩偝偄		
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01002E
			l_element = l_element + 1
			CheckInput = false
		End If

		'-----------------
		'姩掕壢栚僠僃僢僋(壓彂偒偼枹僠僃僢僋)