warestructmain.asp

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

	'/********************************************
	Public Function GetSortParmHtml(l_sortkey,l_oldSortDesc)
		Dim l_retStr
		Dim l_newSortDesc

		'僜乕僩弴偺愝掕(徃弴佁崀弴愗傝懼偊)
		If l_oldSortDesc = FLG_ON Then
			l_newSortDesc = FLG_OFF		'崀弴仺徃弴
		Else 
			l_newSortDesc =  FLG_ON		'徃弴仺崀弴
		End If

		'僷儔儊乕僞亖僜乕僩僉乕丄専嶕忦審
		l_retStr = "sessave=" & "2"  &_
			"&sortkey=" & l_sortkey &_
			"&sortdesc=" & l_newSortDesc 
		GetSortParmHtml = l_retStr
	End Function

	'/********************************************
	'/* 擖椡僠僃僢僋
	'/* param丗l_mdl 擖椡儗僐乕僪
	'/* return丗True:惓忢丄False丗僄儔乕
	'/********************************************
	Public Function CheckInput(l_mdl)
		Dim l_Index, l_baspobj
		Set l_baspobj = Server.Createobject("basp21")

		CheckInput = True

		l_Index = 0

		'擖屔梊掕擔偑乽偦偺懠乿偺応崌丄僠僃僢僋
		If l_mdl.l_inRdoDeliveryYMD = "1" Then
		
			'擖屔梊掕擔(奐巒)僠僃僢僋
			If Not l_chkUtil.IsYMD(l_mdl.l_inPdFromYear,l_mdl.l_inPdFromMonth,l_mdl.l_inPdFromDay) Then
				'擖屔梊掕擔(奐巒)偺巜掕偑晄惓偱偡
				l_errarray(l_Index) = IG11071E
				l_Index = l_Index + 1
				CheckInput = False
			End If
	
			'擖屔梊掕擔(廔椆)僠僃僢僋
			If Not l_chkUtil.IsYMD(l_mdl.l_inPdToYear,l_mdl.l_inPdToMonth,l_mdl.l_inPdToDay) Then
				'擖屔梊掕擔(廔椆)偺巜掕偑晄惓偱偡
				l_errarray(l_Index) = IG11072E
				l_Index = l_Index + 1
				CheckInput = False
			End If
			
			'2005/12/12捛壛
			'擖屔梊掕擔(奐巒偲廔椆)僠僃僢僋
			If l_flmdl.l_inPdFromYear <> "" And l_flmdl.l_inPdFromMonth <> "" And l_flmdl.l_inPdFromDay <> "" And _
				l_flmdl.l_inPdToYear <> "" And l_flmdl.l_inPdToMonth <> "" And l_flmdl.l_inPdFromDay <> "" Then
				If l_flmdl.l_inPdFromYear & l_flmdl.l_inPdFromMonth& l_mdl.l_inPdFromDay > _
					l_flmdl.l_inPdToYear & l_flmdl.l_inPdToMonth & l_flmdl.l_inPdToDay Then
						l_errarray(l_Index) = IG11105E
						l_Index = l_Index + 1
						CheckInput = False
				End If
			End If
			
		End If
		
	End Function

	'/*************************************
	'/ 堦棗僿僢僟
	'/ return:html
	'/*************************************
	Public Function ListHeadDsp
		Dim l_html
		Dim l_CRLF
		Dim l_sortdsp

		l_CRLF = Chr(13) & Chr(10)

		'僜乕僩弴丂徃弴丗(仾)丂崀弴丗(伀)
		If l_flmdl.l_sortdesc = FLG_ON Then
			l_sortdsp = "(伀)"
		Else
			l_sortdsp = "(仾)"
		End If

		l_html = "<tr align=""center""> " & l_CRLF &_
				 "<td class=""txt_m"" width=""80"" height=""20"" bgcolor=""#CC6666"">" &_
				 "<a href=""ware_struct.asp?" & GetSortParmHtml("2",l_flmdl.l_sortdesc) & """>" &_
				 "<font color=""#FFFFFF"">擖屔梊掕擔"

		'擖屔梊掕擔偱僜乕僩偺応崌
		If l_flmdl.l_sortkey = "2" Then
			l_html = l_html & l_sortdsp
		End If

		l_html = l_html & "</font></a></td>" & l_CRLF &_
				 "<td class=""txt_m"" width=""95"" height=""20"" bgcolor=""#CC6666"">" &_
				 "<a href=""ware_struct.asp?" & GetSortParmHtml("3",l_flmdl.l_sortdesc) & """>" &_
				 "<font color=""#FFFFFF"">挔昜斣崋"

		'挔昜斣崋偱僜乕僩偺応崌
		If l_flmdl.l_sortkey = "3" Then
			l_html = l_html & l_sortdsp
		End If

		l_html = l_html & "</font></a></td>" & l_CRLF &_
				 "<td class=""txt_m"" height=""20"" bgcolor=""#CC6666"">" &_
				 "<a href=""ware_struct.asp?" & GetSortParmHtml("4",l_flmdl.l_sortdesc) & """>" &_
				 "<font color=""#FFFFFF"">挔昜柤"

		'挔昜柤偱僜乕僩偺応崌
		If l_flmdl.l_sortkey = "4" Then
			l_html = l_html & l_sortdsp
		End If

		l_html = l_html & "</font></a></td>" & l_CRLF &_
				 "<td class=""txt_m"" height=""20"" width=""50"" bgcolor=""#CC6666"">" &_
				 "<a href=""ware_struct.asp?" & GetSortParmHtml("5",l_flmdl.l_sortdesc) & """>" &_
				 "<font color=""#FFFFFF"">擖屔悢"

		'擖屔悢偱僜乕僩偺応崌
		If l_flmdl.l_sortkey = "5" Then
			l_html = l_html & l_sortdsp
		End If

		l_html = l_html & "</font></a></td>" & l_CRLF &_
				 "<td class=""txt_m"" height=""20"" width=""120"" bgcolor=""#CC6666"">" &_
				 "<a href=""ware_struct.asp?" & GetSortParmHtml("6",l_flmdl.l_sortdesc) & """>" &_
				 "<font color=""#FFFFFF"">擺昳応強"

		'擺昳応強偱僜乕僩偺応崌
		If l_flmdl.l_sortkey = "6" Then
			l_html = l_html & l_sortdsp
		End If

		l_html = l_html & "</font></a></td>" & l_CRLF &_
				 "</tr>" & l_CRLF


		ListHeadDsp = l_html
	End Function

	'/********************************************
	'/* 僋儘乕僘
	'/********************************************
	Public Function Close
		Call l_db.CloseRecodeset
		Call l_db.CloseConnection
	End Function

	'/**********************************************************
	'/* 娗棟尃尷傪庢摼偡傞
	'/* return丗"0":娗棟尃尷側偟
	'/*         "1"丗娗棟尃尷偁傝(塣梡娗棟尃尷偑偁傞応崌)
	'/**********************************************************
	Public Function GetMenuAuth()

			GetMenuAuth = FLG_OFF

			If Session("User").Item("EMPLOY_AUCTION") = EMPLOY_AUCTION and _
			  	Session("User").Item("EMPLOY_ORDER_MANAGE") = EMPLOY_ORDER_MANAGE and _
				Session("User").Item("EMPLOY_ACCOUNTING") = EMPLOY_ACCOUNTING and _
				Session("User").Item("EMPLOY_STOCK") = EMPLOY_STOCK and _
				Session("User").Item("EMPLOY_DATA_CLAIM") = EMPLOY_DATA_CLAIM and  _
				Session("User").Item("EMPLOY_GOODS_PROMOTION") = EMPLOY_GOODS_PROMOTION and _
				Session("User").Item("EMPLOY_ORDER_PROMOTION") = EMPLOY_ORDER_PROMOTION and _
				Session("User").Item("EMPLOY_LIST_EXT") = EMPLOY_LIST_EXT and _
				Session("User").Item("EMPLOY_ORDER_EXT") = EMPLOY_ORDER_EXT and _
				Session("User").Item("EMPLOY_ORDER_IN") = EMPLOY_ORDER_IN and _
				Session("User").Item("EMPLOY_RATE_REPORT") = EMPLOY_RATE_REPORT Then

				'塣梡娗棟尃尷偑偁傞応崌
				GetMenuAuth = FLG_ON
				
			End If

	End Function

End Class

'/************************************
'/挔昜堦棗専嶕忦審曐帩梡僋儔僗
'/************************************
Class FormListMdl
	Dim l_sysId				'僔僗僥儉ID(String)
	Dim l_coId				'夛幮ID(String)
	Dim l_userId			'儐乕僓乕ID(String)
	Dim l_secId				'晹栧俬俢(String)
	Dim l_sortkey			'僜乕僩僉乕
	Dim l_sortdesc			'僜乕僩弴
	
	'専嶕忦審擖椡棑昞帵崁栚
	Dim l_inRdoDeliveryYMD	'擖椡棑梡(儔僕僆儃僞儞丒擖屔梊掕擔)
	Dim l_inPdFromYear 		'擖椡棑梡(僾儖僟僂儞丒FROM擔晅(擭))
	Dim l_inPdFromMonth 	'擖椡棑梡(僾儖僟僂儞丒FROM擔晅(寧))
	Dim l_inPdFromDay 		'擖椡棑梡(僾儖僟僂儞丒FROM擔晅(擔))
	Dim l_inPdToYear		'擖椡棑梡(僾儖僟僂儞丒To擔晅(擭))
	Dim l_inPdToMonth 		'擖椡棑梡(僾儖僟僂儞丒To擔晅(寧))
	Dim l_inPdToDay	 		'擖椡棑梡(僾儖僟僂儞丒To擔晅(擔))
	Dim l_inPddeliPlace		'擖椡棑梡(擺昳応強)

	'専嶕忦審昞帵崁栚
	Dim l_srhListCdDsp 		'挔昜僐乕僪(挔昜僐乕僪-挔昜巬斣)
	Dim l_srhListName		'挔昜柤
	Dim l_srhRdoDeliveryYMD	'擖屔梊掕擔(儔僕僆儃僞儞)
	Dim l_srhDeliYmdDsp 	'擖屔梊掕擔(FROM擔晅乣TO擔晅)
	Dim l_srhdeliPlace		'擺昳応強
	
	'堦棗儗僐乕僪昞帵
	Dim l_DeliYmdDsp		'儗僐乕僪昞帵梡(擖屔梊掕擔)
	Dim l_listCdDsp			'儗僐乕僪昞帵梡(挔昜僐乕僪)
	Dim l_listName			'儗僐乕僪昞帵梡(挔昜柤)
	Dim l_deliNum			'儗僐乕僪昞帵梡(擖屔悢)
	Dim l_deliPlace			'儗僐乕僪昞帵梡(擺昳応強)
	Dim l_listUnit			'儗僐乕僪昞帵梡(挔昜娗棟扨埵)
	Dim l_listCd			'儗僐乕僪昞帵梡(挔昜僐乕僪)
	Dim l_listEda			'儗僐乕僪昞帵梡(挔昜巬斣)
	Dim l_orderManageNo		'儗僐乕僪昞帵梡(敪拲娗棟斣崋)

End Class
%>