formmakemain.asp

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

		'-----------------
		If l_btnRegist <> "" And _
			(Session("formmk").Item("calc_subject") = "" Or _
			IsNull(Session("formmk").Item("calc_subject"))) Then
			'姩掕壢栚傪擖椡偟偰偔偩偝偄		
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01003E
			l_element = l_element + 1
			CheckInput = false
		End If

		'---------------
		'暘椶侾僠僃僢僋(壓彂偒偼枹僠僃僢僋)
		'---------------
		If l_btnRegist <> "" And _
			(Session("formmk").Item("class1") = "" Or _
			IsNull(Session("formmk").Item("class1"))) Then
			'暘椶傪擖椡偟偰偔偩偝偄		
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01004E
			l_element = l_element + 1
			CheckInput = false
		End If
		
		'---------------------
		'挔昜娗棟扨埵僠僃僢僋(壓彂偒偼枹僠僃僢僋)
		'---------------------
		If l_btnRegist <> "" And _
			(Session("formmk").Item("list_unit") = "" Or _
			IsNull(Session("formmk").Item("list_unit"))) Then
			'挔昜娗棟扨埵傪擖椡偟偰偔偩偝偄		
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01005E
			l_element = l_element + 1
			CheckInput = false
		End If
		'---------------------
		'擖傝悢丒悢抣僠僃僢僋
		'---------------------
		If Session("formmk").Item("packing_count") <> "" and l_chkUtil.number_chk(l_baspobj, Session("formmk").Item("packing_count")) = 0 Then
			'侾崼曪偺擖傝悢偼敿妏悢帤偱偡
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01053E
			l_element = l_element + 1
			CheckInput = false
		End If
		'-----------------
		'岞奐婜娫僠僃僢僋
		'-----------------
		If l_btnRegist <> "" Then
			If Session("formmk").Item("open_period_start_yy") = "" or _
			   IsNull(Session("formmk").Item("open_period_start_yy")) or _
			   Session("formmk").Item("open_period_start_mm") = "" or _
			   IsNull(Session("formmk").Item("open_period_start_mm")) or _
			   Session("formmk").Item("open_period_start_dd") = "" or _
			   IsNull(Session("formmk").Item("open_period_start_dd")) or _
			   Session("formmk").Item("open_period_end_yy") = "" or _
			   IsNull(Session("formmk").Item("open_period_end_yy")) or _
			   Session("formmk").Item("open_period_end_mm") = "" or _
			   IsNull(Session("formmk").Item("open_period_end_mm")) or _
			   Session("formmk").Item("open_period_end_dd") = "" or _
			   IsNull(Session("formmk").Item("open_period_end_dd")) Then
'response.write "幐攕"
				'岞奐婜娫傪擖椡偟偰偔偩偝偄		
				Redim Preserve l_errarray(l_element)
				l_errarray(l_element) = IG01026E
				l_element = l_element + 1
				CheckInput = false
			End If
		End If

		'擔晅僠僃僢僋
		If Not l_chkUtil.IsYMD( _
						Session("formmk").Item("open_period_start_yy"), _
						Session("formmk").Item("open_period_start_mm"), _
						Session("formmk").Item("open_period_start_dd")) Then

			'岞奐婜娫乮奐巒乯偺擖椡偑晄惓偱偡
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01055E
			l_element = l_element + 1
			CheckInput = false

		End If


		'擔晅僠僃僢僋
		If Not l_chkUtil.IsYMD( _
						Session("formmk").Item("open_period_end_yy"), _
						Session("formmk").Item("open_period_end_mm"), _
						Session("formmk").Item("open_period_end_dd")) Then

			'岞奐婜娫乮廔椆乯偺擖椡偑晄惓偱偡
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01056E
			l_element = l_element + 1
			CheckInput = false

		End If

		If Session("formmk").Item("open_period_start_yy") <> "" And _
		   Session("formmk").Item("open_period_start_mm") <> "" And _
		   Session("formmk").Item("open_period_start_dd") <> "" And _
		   Session("formmk").Item("open_period_end_yy") <> "" And _
		   Session("formmk").Item("open_period_end_mm") <> "" And _
		   Session("formmk").Item("open_period_end_dd") <> "" And _
		   (Session("formmk").Item("open_period_start_yy") & _
		   MakePadDate(Session("formmk").Item("open_period_start_mm")) & _
		   MakePadDate(Session("formmk").Item("open_period_start_dd")) > _
		   Session("formmk").Item("open_period_end_yy") & _
		   MakePadDate(Session("formmk").Item("open_period_end_mm")) & _
		   MakePadDate(Session("formmk").Item("open_period_end_dd"))) Then
			'岞奐婜娫偺擖椡偑晄惓偱偡		
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01027E
			l_element = l_element + 1
			CheckInput = false
		End If

		'-----------------
		'惪媮婜娫僠僃僢僋
		'-----------------
		If l_btnRegist <> "" Then
			If Session("formmk").Item("claim_period_flag") = "0" And _
			  (Session("formmk").Item("claim_period_start_yy") = "" or _
			   IsNull(Session("formmk").Item("claim_period_start_yy")) or _
			   Session("formmk").Item("claim_period_start_mm") = "" or _
			   IsNull(Session("formmk").Item("claim_period_start_mm")) or _
			   Session("formmk").Item("claim_period_start_dd") = "" or _
			   IsNull(Session("formmk").Item("claim_period_start_dd"))) Then
				'惪媮婜娫(奐巒)傪擖椡偟偰偔偩偝偄	
				Redim Preserve l_errarray(l_element)
				l_errarray(l_element) = IG01028E
				l_element = l_element + 1
				CheckInput = false
			End If
		End If
	'	If Session("formmk").Item("claim_period_flag") <> "1" Then
			If Not l_chkUtil.IsYMD( _
					Session("formmk").Item("claim_period_start_yy"), _
					Session("formmk").Item("claim_period_start_mm"), _
					Session("formmk").Item("claim_period_start_dd")) Then
				'051226 擔晅僠僃僢僋丂擺昳師戞惪媮僼儔僌 1埲奜丗僄儔乕儊僢僙乕僕丂1:Session傪嬻 
				If Session("formmk").Item("claim_period_flag") <> "1" Then
					'僄儔乕儊僢僙乕僕偺廋惓 060106
					'惪媮婜娫(奐巒)偺巜掕偑晄惓偱偡
					Redim Preserve l_errarray(l_element)
					l_errarray(l_element) = IG01057E
					l_element = l_element + 1
					CheckInput = false
				Else
					Session("formmk").Item("claim_period_start_yy") = ""
					Session("formmk").Item("claim_period_start_mm") = ""
					Session("formmk").Item("claim_period_start_dd") = ""
				End If
			End If
	'	End If

		If l_btnRegist <> "" Then
			If Session("formmk").Item("claim_period_end_yy") = "" or _
			   IsNull(Session("formmk").Item("claim_period_end_yy")) or _
			   Session("formmk").Item("claim_period_end_mm") = "" or _
			   IsNull(Session("formmk").Item("claim_period_end_mm")) or _
			   Session("formmk").Item("claim_period_end_dd") = "" or _
			   IsNull(Session("formmk").Item("claim_period_end_dd")) Then
				'惪媮婜娫(廔椆)傪擖椡偟偰偔偩偝偄		
				Redim Preserve l_errarray(l_element)
				l_errarray(l_element) = IG01029E
				l_element = l_element + 1
				CheckInput = false
			End If
		End If

		If Not l_chkUtil.IsYMD( _
					Session("formmk").Item("claim_period_end_yy"), _
					Session("formmk").Item("claim_period_end_mm"), _
					Session("formmk").Item("claim_period_end_dd")) Then
			'僄儔乕儊僢僙乕僕偺廋惓 060106
			'惪媮婜娫(廔椆)偺巜掕偑晄惓偱偡
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01058E
			l_element = l_element + 1
			CheckInput = false

		End If

		If Session("formmk").Item("claim_period_flag") = "0" And _
		   Session("formmk").Item("claim_period_start_yy") <> "" And _
		   Session("formmk").Item("claim_period_start_mm") <> "" And _
		   Session("formmk").Item("claim_period_start_dd") <> "" And _
   		   Session("formmk").Item("claim_period_end_yy") <> "" And _
		   Session("formmk").Item("claim_period_end_mm") <> "" And _
		   Session("formmk").Item("claim_period_end_dd") <> "" And _
		   (Session("formmk").Item("claim_period_start_yy") & _
		   MakePadDate(Session("formmk").Item("claim_period_start_mm")) & _
		   MakePadDate(Session("formmk").Item("claim_period_start_dd")) > _
		   Session("formmk").Item("claim_period_end_yy") & _
		   MakePadDate(Session("formmk").Item("claim_period_end_mm")) & _
		   MakePadDate(Session("formmk").Item("claim_period_end_dd"))) Then
			'惪媮婜娫偑晄惓偱偡		
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01030E
			l_element = l_element + 1
			CheckInput = false
		End If
		'-----------------------
		'攝晩扨壙丒悢抣僠僃僢僋
		'-----------------------
		If Session("formmk").Item("unit_price") <> "" and Not l_chkUtil.IsDoubleData(l_baspobj, Session("formmk").Item("unit_price"),6,2) Then
			'攝晩扨壙偼敿妏悢帤偱偡
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01061E
			l_element = l_element + 1
			CheckInput = false
		End If
		'-----------------------------
		'戝検弌屔巜帵悢丒悢抣僠僃僢僋
		'-----------------------------
		If Session("formmk").Item("leav_direction_count") <> "" and l_chkUtil.number_chk(l_baspobj, Session("formmk").Item("leav_direction_count")) = 0 Then
			'戝検弌屔巜帵悢偼敿妏悢帤偱偡
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01062E
			l_element = l_element + 1
			CheckInput = false
		End If
		
		'-----------------------------------
		'岞奐尃尷(挔昜徠夛)僠僃僢僋
		'-----------------------------------
		If l_btnRegist <> "" Then
			If Session("formmk").Item("open_auth_list") = "" or _
			   IsNull(Session("formmk").Item("open_auth_list")) Then
	
				Redim Preserve l_errarray(l_element)
				l_errarray(l_element) = IG01031E
				l_element = l_element + 1
				CheckInput = false

			End If
		End If

		'-----------------------------------
		'岞奐尃尷(弌屔埶棅)僠僃僢僋
		'-----------------------------------
		If l_btnRegist <> "" Then
			If Session("formmk").Item("open_auth_leav") = "" or _
			   IsNull(Session("formmk").Item("open_auth_leav")) Then

				Redim Preserve l_errarray(l_element)
				l_errarray(l_element) = IG01032E
				l_element = l_element + 1
				CheckInput = false

			End If
		End If
		
		'---------------------
		'巊梡壜擻婜尷僠僃僢僋
		'---------------------
		If Not l_chkUtil.IsYMD( _
					Session("formmk").Item("usepossible_term_start_yy"), _
					Session("formmk").Item("usepossible_term_start_mm"), _
					Session("formmk").Item("usepossible_term_start_dd")) Then

			'巊梡壜擻婜尷偺擖椡偑晄惓偱偡
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01059E
			l_element = l_element + 1
			CheckInput = false

		End If
		
		If Not l_chkUtil.IsYMD( _
					Session("formmk").Item("usepossible_term_end_yy"), _
					Session("formmk").Item("usepossible_term_end_mm"), _
					Session("formmk").Item("usepossible_term_end_dd")) Then

			'巊梡壜擻婜尷偺擖椡偑晄惓偱偡
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01060E
			l_element = l_element + 1
			CheckInput = false

		End If

		If Session("formmk").Item("usepossible_term_start_yy") <> "" And _
		   Session("formmk").Item("usepossible_term_start_mm") <> "" And _
		   Session("formmk").Item("usepossible_term_start_dd") <> "" And _
   		   Session("formmk").Item("usepossible_term_end_yy") <> "" And _
		   Session("formmk").Item("usepossible_term_end_mm") <> "" And _
		   Session("formmk").Item("usepossible_term_end_dd") <> "" And _
		   (Session("formmk").Item("usepossible_term_start_yy") & _
		   MakePadDate(Session("formmk").Item("usepossible_term_start_mm")) & _
		   MakePadDate(Session("formmk").Item("usepossible_term_start_dd")) > _
		   Session("formmk").Item("usepossible_term_end_yy") & _
		   MakePadDate(Session("formmk").Item("usepossible_term_end_mm")) & _
		   MakePadDate(Session("formmk").Item("usepossible_term_end_dd"))) Then
			'巊梡壜擻婜尷偺巜掕偑晄惓偱偡		
			Redim Preserve l_errarray(l_element)
			l_errarray(l_element) = IG01110E
			l_element = l_element + 1
			CheckInput = false
		End If

		'-----------------------------------
		'搊榐儃僞儞墴壓帪僠僃僢僋 怴媽娭楢挔昜
		'-----------------------------------
		If l_btnRegist <> "" Then
			'-----------------------------------
			'怴婯挔昜斣崋(侾乣俁)丒悢抣僠僃僢僋
			'-----------------------------------
			If Session("formmk").Item("listnumber_new1") <> "" Then
				If Not l_chkUtil.IsNumericAlpha(Session("formmk").Item("listnumber_new1")) Then