wareinmain.asp

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

<%
'/************************************
'/擖屔巜帵忣曬擖椡儊僀儞僋儔僗
'/************************************
Class WareinMain
	
	Dim l_db				'DBAccess DB傾僋僙僗梡
	Dim l_cutil				'暥帤儐乕僥傿儕僥傿
	Dim l_cmn				'嫟捠僋儔僗(Common)
	Dim l_chkUtil			'嫟捠僋儔僗(CheckUtil)
	Dim l_wdmdl				'忦審曐帩(WarehousingUpMdl)
	Dim l_wh				'WareinMaster
	Dim l_mn				'ManageNoMaster
	Dim l_btnRegist			'搊榐儃僞儞墴壓忣曬
	Dim l_btnDelete			'嶍彍儃僞儞墴壓忣曬
	Dim p_ListCd
	Dim p_ListEda
	Dim l_UpFlg
	
	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Set l_cmn = New Common
		Set l_wdmdl = New WareinMdl
		Set l_wh = New WareinMaster
		Set l_mn = New ManageNoMaster
		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_wdmdl.l_sysId = Session("User").Item("SYSTEM_ID")			'僔僗僥儉ID
		l_wdmdl.l_coId = Session("User").Item("COMPANY_ID")			'夛幮ID
		l_wdmdl.l_sectionId = Session("User").Item("SECTION_ID")	'晹彁俬俢
		l_wdmdl.l_userId = Session("User").Item("USER_ID")			'儐乕僓乕ID

		'慜夋柺儃僞儞墴壓忬嫷庢摼
		l_btnRegist = Request.QueryString("regist")
		l_btnDelete = Request.QueryString("delete")
		p_ListCd = Request.QueryString("pListCD")
		p_ListEda = Request.QueryString("pListEda")
		
	End Function

	'/********************************************
	'/* 擖屔巜帵忣曬擖椡夋柺偺夋柺僷儔儊僞庢摼
	'/********************************************
	Public Function GetFormParam()
		Dim l_baspobj
		Set l_baspobj = Server.Createobject("basp21")

		GetFormParam = True

		'========================
		'擖椡僠僃僢僋(搊榐儃僞儞墴壓帪)
		'========================
		If l_btnRegist <> ""  Then
			If Not CheckInput() Then
				'僄儔乕偺応崌擖椡抣傪僙僢僔儑儞偵愝掕
				SetSessionInData()
				GetFormParam = False
				Exit Function
			End If
		End If
		
		'搊榐偡傞儃僞儞墴壓帪
		If l_btnRegist <> ""  Then
			'慜夋柺傛傝忣曬庢摼
			'挔昜斣崋
			l_wdmdl.l_listCd = Request.Form("listcd")
			'巬斣
			l_wdmdl.l_listEda = Request.Form("listeda")
			'挔昜柤
			l_wdmdl.l_listName = Request.Form("listname")
			'擺昳応強侾
			l_wdmdl.l_place1 = Request.Form("place1")
			'悢検侾
			l_wdmdl.l_num1 = Request.Form("num1")
			'擖屔梊掕擔晅侾
			l_wdmdl.l_scheduleYMD1 = Request.Form("delivery1YY")
			l_wdmdl.l_scheduleYMD1 = l_wdmdl.l_scheduleYMD1 & MakePadDate(Request.Form("delivery1MM"))
			l_wdmdl.l_scheduleYMD1 = l_wdmdl.l_scheduleYMD1 & MakePadDate(Request.Form("delivery1DD"))
			l_wdmdl.l_scheduleYMD1 = l_wdmdl.l_scheduleYMD1 & MakePadDate(Request.Form("delivery1HH"))
			'擺昳応強俀
			l_wdmdl.l_place2 = Request.Form("place2")
			'悢検俀
			l_wdmdl.l_num2 = Request.Form("num2")
			'擖屔梊掕擔晅俀
			l_wdmdl.l_scheduleYMD2 = Request.Form("delivery2YY")
			l_wdmdl.l_scheduleYMD2 = l_wdmdl.l_scheduleYMD2 & MakePadDate(Request.Form("delivery2MM"))
			l_wdmdl.l_scheduleYMD2 = l_wdmdl.l_scheduleYMD2 & MakePadDate(Request.Form("delivery2DD"))
			l_wdmdl.l_scheduleYMD2 = l_wdmdl.l_scheduleYMD2 & MakePadDate(Request.Form("delivery2HH"))
			'擺昳応強俁
			l_wdmdl.l_place3 = Request.Form("place3")
			'悢検俁
			l_wdmdl.l_num3 = Request.Form("num3")
			'擖屔梊掕擔晅俁
			l_wdmdl.l_scheduleYMD3 = Request.Form("delivery3YY")
			l_wdmdl.l_scheduleYMD3 = l_wdmdl.l_scheduleYMD3 & MakePadDate(Request.Form("delivery3MM"))
			l_wdmdl.l_scheduleYMD3 = l_wdmdl.l_scheduleYMD3 & MakePadDate(Request.Form("delivery3DD"))
			l_wdmdl.l_scheduleYMD3 = l_wdmdl.l_scheduleYMD3 & MakePadDate(Request.Form("delivery3HH"))

			'僨乕僞僔乕働儞僗悢愝掕丄敪拲悢
			l_wdmdl.loopCnt = 1
			l_wdmdl.l_orderAmount = l_cutil.GetNumSql(Request.Form("num1"))
			If l_wdmdl.l_place2 <> "" And l_wdmdl.l_num2 <> "" And l_wdmdl.l_scheduleYMD2 <> "" Then
				If l_wdmdl.l_place3 <> "" And l_wdmdl.l_num3 <> "" And l_wdmdl.l_scheduleYMD3 <> "" Then
					l_wdmdl.loopCnt = 3
					l_wdmdl.l_orderAmount = l_wdmdl.l_orderAmount + CDbl(l_cutil.GetNumSql(Request.Form("num2")))
					l_wdmdl.l_orderAmount = l_wdmdl.l_orderAmount + CDbl(l_cutil.GetNumSql(Request.Form("num3")))
				Else
					l_wdmdl.loopCnt = 2
					l_wdmdl.l_orderAmount = l_wdmdl.l_orderAmount + CDbl(l_cutil.GetNumSql(Request.Form("num2")))
				End If
			End If

			'擺昳忣曬ID
			If Request.Form("DeliInfo") <> "" Then
				l_wdmdl.l_deliveryInfo = Request.Form("DeliInfo")
				l_UpFlg = "1"
			Else		
				'擺昳忣曬ID傪敪斣偡傞
				l_wdmdl.l_deliveryInfo = l_mn.GetManageNo(l_db,l_wdmdl.l_sysId,l_wdmdl.l_coId,MNGNO_KIND_DELIVERY)
				l_UpFlg = "0"
			End If

		'嶍彍儃僞儞墴壓帪
		ElseIf l_btnDelete <> ""  Then
			'挔昜斣崋
			l_wdmdl.l_listCd = Request.Form("listcd")
			'巬斣
			l_wdmdl.l_listEda = Request.Form("listeda")
		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

		'擺昳婓朷擔帪1僠僃僢僋
		If Request.Form("delivery1YY") <> "" or _
		   Request.Form("delivery1MM") <> "" or _
		   Request.Form("delivery1DD") <> "" or _
		   Request.Form("delivery1HH") <> "" Then

			If Not l_chkUtil.IsYMD( _
						Request.Form("delivery1YY"), _
						Request.Form("delivery1MM"), _
						Request.Form("delivery1DD")) Then

				'擺昳婓朷擔帪侾偺巜掕偑晄惓偱偡
				Redim Preserve l_errarray(l_element)
				l_errarray(l_element) = IG08016E
				l_element = l_element + 1
				CheckInput = false
			End If

		End If

		'悢検1丒悢抣僠僃僢僋
		If Request.Form("num1") <> "" Then
			If l_chkUtil.number_chk(l_baspobj, Request.Form("num1")) = 0 Then
				'悢検1偼敿妏悢帤偱偡
				Redim Preserve l_errarray(l_element)
				l_errarray(l_element) = IG08019E
				l_element = l_element + 1
				CheckInput = false
			Else
				'悢検1丒乽0乿僠僃僢僋 051227捛壛
				'悢検1偵0偼搊榐偱偒傑偣傫
				If Request.Form("num1") = 0 Then
					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG08035E
					l_element = l_element + 1
					CheckInput = false
				End If
			End If
		End If
		
		

		'擺昳応強侾丄俀僠僃僢僋
		If Request.Form("place1") <> "" And Request.Form("place2") <> "" And _
			Request.Form("place1") = Request.Form("place2") And _
			Request.Form("place1") <> Request.Form("place3") Then
			'擺昳応強侾丄俀偑摨堦偱偡
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG11081E
			l_element = l_element + 1
			CheckInput = false
		End If

		'擺昳応強侾丄俁僠僃僢僋
		If Request.Form("place1") <> "" And Request.Form("place3") <> "" And _
			Request.Form("place1") <> Request.Form("place2") And _
			Request.Form("place1") = Request.Form("place3") Then
			'擺昳応強侾丄俁偑摨堦偱偡
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG11082E
			l_element = l_element + 1
			CheckInput = false
		End If

		'擺昳応強俀丄俁僠僃僢僋
		If Request.Form("place2") <> "" And Request.Form("place3") <> "" And _
			Request.Form("place1") <> Request.Form("place2") And _
			Request.Form("place2") = Request.Form("place3") Then
			'擺昳応強俀丄俁偑摨堦偱偡
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG11083E
			l_element = l_element + 1
			CheckInput = false
		End If

		'擺昳応強侾丄俀丄俁僠僃僢僋
		If Request.Form("place1") <> "" And Request.Form("place2") <> "" And Request.Form("place3") <> "" And _
			Request.Form("place1") = Request.Form("place2") And _
			Request.Form("place2") = Request.Form("place3") Then
			'擺昳応強侾丄俀丄俁偑摨堦偱偡
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG11084E
			l_element = l_element + 1
			CheckInput = false
		End If

		'擺昳応強俀丂擖椡桳柍僠僃僢僋
		If (Request.Form("place2") = "") And _
		   ((Request.Form("delivery2YY") <> ""or _
		   Request.Form("delivery2MM") <> "" or _
		   Request.Form("delivery2DD") <> "" or _
		   Request.Form("delivery2HH") <> "") Or _
		   (Request.Form("num2") <> ""))  Then

			'擺昳応強俀傪擖椡偟偰偔偩偝偄
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG08022E
			l_element = l_element + 1
			CheckInput = false
		End If

		'擺昳婓朷擔帪2丂擖椡桳柍僠僃僢僋
		If (Request.Form("delivery2YY") = ""And _
		   Request.Form("delivery2MM") = "" And _
		   Request.Form("delivery2DD") = "" And _
		   Request.Form("delivery2HH") = "") And _
		   ((Request.Form("place2") <> "") Or _
		    (Request.Form("num2") <> ""))  Then

			'擺昳婓朷擔帪2傪擖椡偟偰偔偩偝偄
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG08024E
			l_element = l_element + 1
			CheckInput = false
		End If


		'擺昳婓朷擔帪2僠僃僢僋
		If Request.Form("delivery2YY") <> "" or _
		   Request.Form("delivery2MM") <> ""or _
		   Request.Form("delivery2DD") <> "" or _
		   Request.Form("delivery2HH") <> "" Then

			If Not l_chkUtil.IsYMD( _
						Request.Form("delivery2YY"), _
						Request.Form("delivery2MM"), _
						Request.Form("delivery2DD")) Then

				'擺昳婓朷擔帪2偺巜掕偑晄惓偱偡
				Redim Preserve l_errarray(l_element)
				l_errarray(l_element) = IG08017E
				l_element = l_element + 1
				CheckInput = false
			End If

		End If

		'悢検俀丂擖椡桳柍僠僃僢僋
		If (Request.Form("num2") = "") And _
		   ((Request.Form("delivery2YY") <> ""or _
		   Request.Form("delivery2MM") <> "" or _
		   Request.Form("delivery2DD") <> "" or _
		   Request.Form("delivery2HH") <> "") Or _
		   (Request.Form("place2") <> ""))  Then