wareinmain.asp

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

			'悢検2傪擖椡偟偰偔偩偝偄
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG08023E
			l_element = l_element + 1
			CheckInput = false
		End If

		'悢検2丒悢抣僠僃僢僋
		If Request.Form("num2") <> "" Then
			If l_chkUtil.number_chk(l_baspobj, Request.Form("num2")) = 0 Then
				'悢検2偼敿妏悢帤偱偡
				Redim Preserve l_errarray(l_element)
				l_errarray(l_element) = IG08020E
				l_element = l_element + 1
				CheckInput = false
			Else
				'悢検2丒乽0乿僠僃僢僋 051227捛壛
				'悢検2偵0偼搊榐偱偒傑偣傫
				If Request.Form("num2") = 0 Then
					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG08036E
					l_element = l_element + 1
					CheckInput = false
				End If
			End If
		End If
		
		'擺昳応強俁丂擖椡桳柍僠僃僢僋
		If (Request.Form("place3") = "") And _
		   ((Request.Form("delivery3YY") <> ""or _
		   Request.Form("delivery3MM") <> "" or _
		   Request.Form("delivery3DD") <> "" or _
		   Request.Form("delivery3HH") <> "") Or _
		   (Request.Form("num3") <> ""))  Then

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

		'擺昳婓朷擔帪3丂擖椡桳柍僠僃僢僋
		If (Request.Form("delivery3YY") = ""And _
		   Request.Form("delivery3MM") = "" And _
		   Request.Form("delivery3DD") = "" And _
		   Request.Form("delivery3HH") = "") And _
		   ((Request.Form("place3") <> "") Or _
		    (Request.Form("num3") <> ""))  Then

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

		'擺昳婓朷擔帪3僠僃僢僋
		If Request.Form("delivery3YY") <> "" or _
		   Request.Form("delivery3MM") <> "" or _
		   Request.Form("delivery3DD") <> "" or _
		   Request.Form("delivery3HH") <> "" Then

			If Not l_chkUtil.IsYMD( _
						Request.Form("delivery3YY"), _
						Request.Form("delivery3MM"), _
						Request.Form("delivery3DD")) Then

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

		End If

		'悢検俁丂擖椡桳柍僠僃僢僋
		If (Request.Form("num3") = "") And _
		   ((Request.Form("delivery3YY") <> ""or _
		   Request.Form("delivery3MM") <> "" or _
		   Request.Form("delivery3DD") <> "" or _
		   Request.Form("delivery3HH") <> "") Or _
		   (Request.Form("place3") <> ""))  Then

			'悢検俁傪擖椡偟偰偔偩偝偄
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG08026E
			l_element = l_element + 1
			CheckInput = false
		End If

		'悢検3丒悢抣僠僃僢僋
		If Request.Form("num3") <> "" Then
			If l_chkUtil.number_chk(l_baspobj, Request.Form("num3")) = 0 Then
				'悢検3偼敿妏悢帤偱偡
				Redim Preserve l_errarray(l_element)
				l_errarray(l_element) = IG08021E
				l_element = l_element + 1
				CheckInput = false
			Else
				'悢検3丒乽0乿僠僃僢僋 051227捛壛
				'悢検3偵0偼搊榐偱偒傑偣傫
				If Request.Form("num3") = 0 Then
					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG08037E
					l_element = l_element + 1
					CheckInput = false
				End If
			End If
		End If
		
		'僄儔乕儊僢僙乕僕傪僙僢僔儑儞偵曐帩
		If CheckInput = false Then
			Session("ErrMsgWare") = l_errarray
		End If

	End Function

	'/********************************************
	'/* 擖椡抣傪僙僢僔儑儞偵愝掕偡傞
	'/********************************************
	Public Function SetSessionInData()
		Dim l_dic
		Set l_dic = CreateObject("Scripting.Dictionary")
		
		'慜夋柺傛傝忣曬庢摼
		'挔昜斣崋
		l_dic.add "listCd", Request.Form("listcd")
		'挔昜斣崋巬斣
		l_dic.add "listEda", Request.Form("listeda")
		'挔昜柤
		l_dic.add "listName", Request.Form("listname")
		'擺昳応強侾
		l_dic.add "place1", Request.Form("place1")
		'悢検侾
		l_dic.add "num1", Request.Form("num1")
		'擖屔梊掕擔晅侾
		l_dic.add "delivery1YY", Request.Form("delivery1YY")
		l_dic.add "delivery1MM", Request.Form("delivery1MM")
		l_dic.add "delivery1DD", Request.Form("delivery1DD")
		l_dic.add "delivery1HH", Request.Form("delivery1HH")
		'擺昳応強俀
		l_dic.add "place2", Request.Form("place2")
		'悢検俀
		l_dic.add "num2", Request.Form("num2")
		'擖屔梊掕擔晅俀
		l_dic.add "delivery2YY", Request.Form("delivery2YY")
		l_dic.add "delivery2MM", Request.Form("delivery2MM")
		l_dic.add "delivery2DD", Request.Form("delivery2DD")
		l_dic.add "delivery2HH", Request.Form("delivery2HH")
		'擺昳応強俁
		l_dic.add "place3", Request.Form("place3")
		'悢検俁
		l_dic.add "num3", Request.Form("num3")
		'擖屔梊掕擔晅俁
		l_dic.add "delivery3YY", Request.Form("delivery3YY")
		l_dic.add "delivery3MM", Request.Form("delivery3MM")
		l_dic.add "delivery3DD", Request.Form("delivery3DD")
		l_dic.add "delivery3HH", Request.Form("delivery3HH")
	
		
		'挔昜柤
'		l_dic.add "listName", Request.Form("listname")
		'庡娗晹栧
'		l_dic.add "sectionId", Request.Form("pdsel")
		'怽惪幰
'		l_dic.add "applicant", Request.Form("applicant")
		'姩掕壢栚
'		l_dic.add "calcSubject", 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 "listUnit", Request.Form("pdlistunit")
		'敪拲忬嫷
		l_dic.add "orderStatus",Request.Form("orderstatus")
		Set Session("InputData") = l_dic
		
	End Function
	
	'/********************************************
	'/* 挔昜婎杮忣曬擖椡夋柺偺撪梕傪俢俛偵搊榐丄峏怴偡傞
	'/********************************************
	Public Function WarehousingUpdate(l_mode)
		Dim l_errarray(1), l_element
		l_element = 0

		WarehousingUpdate = True

		'搊榐張棟
		If l_UpFlg = "0" Then

			'敪拲娗棟斣崋傪敪斣偡傞
			l_wdmdl.l_orderManageNo = l_mn.GetManageNo(l_db,l_wdmdl.l_sysId,l_wdmdl.l_coId,MNGNO_KIND_ORDER)

			'擺昳忣曬ID傪敪斣偡傞
			'l_wdmdl.l_deliveryInfo = l_mn.GetManageNo(l_db,l_wdmdl.l_sysId,l_wdmdl.l_coId,MNGNO_KIND_DELIVERY)

			'儗僐乕僪憓擖
			If l_wdmdl.l_orderManageNo > 0 Then 
				If l_wdmdl.l_deliveryInfo > 0 Then 
					If Not l_wh.InsertWarehousingRec(l_db, l_wdmdl) Then
						'擖椡偝傟偨忣曬偺搊榐偵幐攕偟傑偟偨
						l_errarray(l_element) = IG11041E
						l_element = l_element + 1
						WarehousingUpdate = false
					End If
				Else
					'擖椡偝傟偨忣曬偺搊榐偵幐攕偟傑偟偨
					l_errarray(l_element) = IG11041E
					l_element = l_element + 1
					WarehousingUpdate = false			
				End If			
			Else
				'擖椡偝傟偨忣曬偺搊榐偵幐攕偟傑偟偨
				l_errarray(l_element) = IG11041E
				l_element = l_element + 1
				WarehousingUpdate = false
			End If

		Else
			If l_wdmdl.l_deliveryInfo > 0 Then 
				If Not l_wh.UpdateWarehousingRec(l_db, l_wdmdl) Then
					'擖椡偝傟偨忣曬偺搊榐偵幐攕偟傑偟偨
					l_errarray(l_element) = IG11041E
					l_element = l_element + 1
					WarehousingUpdate = false
				End If
			Else
				'擖椡偝傟偨忣曬偺搊榐偵幐攕偟傑偟偨
				l_errarray(l_element) = IG11041E
				l_element = l_element + 1
				WarehousingUpdate = false			
			End If			
		End If
		
		'僄儔乕偺応崌僄儔乕夋柺傪昞帵
		If l_element > 0 Then
			Session("ErrMsgWare") = 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 WareinMdl
	Dim l_sysId				'僔僗僥儉ID(String)
	Dim l_coId				'夛幮ID(String)
	Dim l_userId			'儐乕僓乕ID(String)
	Dim l_sectionId			'晹彁ID
	
	Dim l_orderManageNo		'敪拲娗棟斣崋
	Dim l_deliveryInfo		'擺昳忣曬ID
	Dim l_listCd			'挔昜斣崋
	Dim l_listEda			'巬斣
	Dim l_listName			'挔昜柤
	Dim l_orderAmount		'敪拲悢
	Dim l_place1			'擺昳応強侾
	Dim l_num1				'悢検侾
	Dim l_scheduleYMD1		'擖屔梊掕擔晅侾
	Dim l_place2			'擺昳応強俀
	Dim l_num2				'悢検俀
	Dim l_scheduleYMD2		'擖屔梊掕擔晅俀
	Dim l_place3			'擺昳応強俁
	Dim l_num3				'悢検俁
	Dim l_scheduleYMD3		'擖屔梊掕擔晅俁
	
	Dim loopCnt				'僨乕僞僔乕働儞僗悢
	
End Class

%>