toppage.asp

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

					 "<td width=""412"">&nbsp;</td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr bgcolor=""#555555""> " & l_CRLF &_
					 "<td colspan=""3"">" &_
					 "<img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "</table>" & l_CRLF 
		End If

		GetSystemEmploy = l_html
	End Function


	'/*************************************
	'/ 憅屔娗棟儊僯儏乕
	'/ 栠傝抣丗憅屔娗棟儊僯儏乕Html
	'/*************************************
	Public Function GetWarehouseEmploy
		Dim l_html		'憅屔娗棟儊僯儏乕Html
		Dim l_CRLF		'夵峴僐乕僪

		l_CRLF = Chr(13) & Chr(10)

		'尃尷偑偁傞応崌偺傒
		If Session("User").Item("WAREHOUSE_EMPLOY") = FLG_ON Then
			l_html = "<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" class=""txt_m"">" & l_CRLF &_
					 "<tr> " & l_CRLF &_
					 "<td rowspan=""6"" width=""40"">" &_
					 "<img src=""img/warehouse.gif"" width=""32"" height=""32"" alt=""嬈柋娗棟""></td>" & l_CRLF &_
					 "<td height=""24"" colspan=""2"">" &_
					 "<img src=""img/title_warehouse_m.gif"" width=""250"" height=""20"" alt=""嬈柋娗棟""></td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr>" & l_CRLF &_
					 "<td class=""top_submenu"" width=""70"" align=""right"">" &_
					 "<b><font color=""#777777"">擖屔丗</font></b></td>" & l_CRLF &_
					 "<td class=""top_submenu"">" & l_CRLF &_
					 "<p><a class=""menu"" href=""../warehouse/in_list.asp?sessave=1&sortkey=1&seqdesc=1"">擖屔堦棗</a>丂-丂" &_
					 "<a class=""menu"" href=""../warehouse/in_indi_dl.asp"">擖屔巜帵忣曬 拪弌</a>丂-丂" &_
					 "<a class=""menu"" href=""../warehouse/in_report_up.asp"">擖屔曬崘忣曬 搳擖</a></p>" & l_CRLF &_
					 "</td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr> " & l_CRLF &_
					 "<td width=""70"" align=""right"">" &_
					 "<b><font color=""#777777"">弌屔丗</font></b></td>" & l_CRLF &_
					 "<td><a class=""menu"" href=""../warehouse/out_list.asp?sessave=1&sortkey=1&seqdesc=1"">弌屔堦棗</a>丂-丂" &_
					 "<a class=""menu"" href=""../warehouse/out_indi_dl.asp"">弌屔巜帵忣曬 拪弌</a>丂-丂" &_
					 "<a class=""menu"" href=""../warehouse/out_report_up.asp"">弌屔曬崘忣曬 搳擖</a></td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr>" & l_CRLF &_
					 "<td width=""70"" align=""right""><b><font color=""#777777"">嵼屔丗</font></b></td>" & l_CRLF &_
					 "<td><a class=""menu"" href=""../warehouse/stock_list.asp?stock_status2=" & STSTS_ODR_POINT & "&stock_status3=" & STSTS_URGODR_POINT & "&sessave=1&sortkey=1&seqdesc=1"">嵼屔堦棗</a>" &_
					 "乮<a class=""menu"" href=""../warehouse/stock_list.asp?stock_status1="& STSTS_OK &"&sessave=1&sortkey=1&seqdesc=1"">惓忢</a>乛" &_
					 "<a class=""menu"" href=""../warehouse/stock_list.asp?stock_status2=" & STSTS_ODR_POINT & "&sessave=1&sortkey=1&seqdesc=1"">敪拲揰愗傟</a>乛" &_
					 "<a class=""menu"" href=""../warehouse/stock_list.asp?stock_status3=" & STSTS_URGODR_POINT & "&sessave=1&sortkey=1&seqdesc=1"">嬞媫敪拲揰愗傟</a>乯丂-丂" &_
					 "<a class=""menu"" href=""../warehouse/stock_reg.asp"">嵼屔堦妵搊榐</a></td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr>" & l_CRLF &_
					 "<td width=""70"" align=""right"">" &_
					 "<b><font color=""#777777"">帒椏惪媮丗</font></b></td>" & l_CRLF &_
					 "<td><a class=""menu"" href=""../warehouse/direct_order.asp"">捈愙拲暥</a>丂-丂" &_
					 "<a class=""menu"" href=""../warehouse/init_order.asp"">弶婜堦惸攝晍</a>丂-丂" &_
					 "<a class=""menu"" href=""../warehouse/search_history.asp"">帒椏惪媮棜楌堦棗</a></td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr>" & l_CRLF &_
					 "<td width=""70"" align=""right"">" &_
					 "<b><font color=""#777777"">憲晅愭丗</font></b></td>" & l_CRLF &_
					 "<td><a class=""menu"" href=""../warehouse/delivery_list.asp"">憲晅愭堦棗</a>丂-丂" &_
					 "<a class=""menu"" href=""../warehouse/delivery_reg.asp"">憲晅愭堦妵搊榐</a></td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr>" & l_CRLF &_
					 "<td>&nbsp;</td>" & l_CRLF &_
					 "<td width=""70""><b><font color=""#777777""></font></b></td>" & l_CRLF &_
					 "<td width=""412"">&nbsp;</td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr bgcolor=""#555555""> " & l_CRLF &_
					 "<td colspan=""3""><img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "</table>"  & l_CRLF &_
					 "<br>"  & l_CRLF 

		End If

		GetWarehouseEmploy = l_html
	End Function

	'/*************************************
	'/ 挔昜娗棟(憅屔梡)儊僯儏乕
	'/ 栠傝抣丗挔昜娗棟(憅屔梡)儊僯儏乕Html
	'/*************************************
	Public Function GetWareListManage
		Dim l_html		'挔昜娗棟儊僯儏乕HTML
		Dim l_CRLF		'夵峴僐乕僪

		l_CRLF = Chr(13) & Chr(10)
		'尃尷偑偁傞応崌偺傒
		If Session("User").Item("WAREHOUSE_LIST_MANAGE") = FLG_ON Then

			l_html = "<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" class=""txt_m"">" & l_CRLF &_
					 "<tr> " & l_CRLF &_
					 "<td rowspan=""2"" width=""40"">" &_
					 "<img src=""img/bdoc.gif"" width=""32"" height=""32"" alt=""挔昜娗棟""></td>" & l_CRLF &_
					 "<td height=""24"" colspan=""2"">" &_
					 "<img src=""img/title_newpaper.gif"" width=""250"" height=""20"" alt=""挔昜娗棟""></td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr>" & l_CRLF &_ 
					 "<td class=""top_submenu"" width=""70"" align=""right"">" &_
					 "<b><font color=""#777777"">挔昜丗</font></b></td>" & l_CRLF &_
					 "<td class=""top_submenu"">" &_
					 "<a class=""menu"" href=""../formmk/form_make.asp"">挔昜嶌惉</a>丂-丂" &_
					 "<a class=""menu"" href=""../formmk/form_list.asp?sessave=1&pdliststatus=000001&sortkey=1&sortdesc=1"">挔昜堦棗</a>" &_
					 "乮<a class=""menu"" href=""../formmk/form_list.asp?sessave=1&pdliststatus=000001&sortkey=1&sortdesc=1"">壓彂偒</a>乛" &_
					 "<a class=""menu"" href=""../formmk/form_list.asp?sessave=1&pdliststatus=000003&sortkey=1&sortdesc=1"">桳岠</a>乛" &_
					 "<a class=""menu"" href=""../formmk/form_list.asp?sessave=1&pdliststatus=100000&sortkey=1&sortdesc=1"">攑巭</a>乯丂-丂" &_
					 "<a class=""menu"" href=""../formmk/form_formimg.asp"">挔昜僀儊乕僕搊榐</a> <br>" & l_CRLF &_
					 "<a class=""menu"" href=""../formmk/form_import.asp"">挔昜堦妵搊榐</a></td>"& l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr>" & l_CRLF &_
					 "<td width=""34"">&nbsp;</td>" & l_CRLF &_
					 "<td width=""70"" align=""right""><b><font color=""#777777"">嵼屔丗</font></b></td>" & l_CRLF &_
					 "<td><a class=""menu"" href=""../formmk/form_stocklist.asp?chkststatus=" & STSTS_ODR_POINT & "," & STSTS_URGODR_POINT & "&sessave=1&sortkey=1&sortdesc=1"">嵼屔堦棗</a>" & l_CRLF &_
					 "</td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr> " & l_CRLF &_
					 "<td width=""34"">&nbsp;</td>" & l_CRLF &_
					 "<td>&nbsp;</td>" & l_CRLF &_
					 "<td width=""412"">&nbsp;</td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr bgcolor=""#555555""> " & l_CRLF &_
					 "<td colspan=""3""><img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "</table>"  & l_CRLF &_
					 "<br>" & l_CRLF 
		End If

		GetWareListManage = l_html
	End Function

	'/*************************************
	'/ 僔僗僥儉娗棟(憅屔)儊僯儏乕
	'/ 栠傝抣丗僔僗僥儉娗棟(憅屔)儊僯儏乕Html
	'/*************************************
	Public Function GetWareSystemEmploy
		Dim l_html		'庢堷愭娗棟儊僯儏乕Html
		Dim l_CRLF		'夵峴僐乕僪

		l_CRLF = Chr(13) & Chr(10)
	
		If Session("User").Item("WAREHOUSE_SYSTEM_EMPLOY") = FLG_ON Then
			l_html = "<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" class=""txt_m"">" & l_CRLF &_
					 "<tr> " & l_CRLF &_
					 "<td rowspan=""3"" width=""40"">" &_
					 "<img src=""img/user2.gif"" width=""32"" height=""32"" alt=""僔僗僥儉娗棟""></td>" & l_CRLF &_
					 "<td height=""24"" colspan=""2"">" &_
					 "<img src=""img/title_system_w.gif"" width=""310"" height=""20"" alt=""僔僗僥儉娗棟""></td>"  & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr>" & l_CRLF &_
					 "<td class=""top_submenu"" width=""70"" align=""right"">" &_
					 "<b><font color=""#777777"">儐乕僓丗</font></b></td>" & l_CRLF &_
					 "<td class=""top_submenu"">" & l_CRLF &_
					 "<p><a class=""menu"" href=""../warehouse_mainte/post_list.asp?sessave=1&sortkey=1&sortdesc=1"">晹栧堦棗</a>丂-丂" &_
					 "<a class=""menu"" href=""../warehouse_mainte/user_list.asp"">儐乕僓堦棗</a></p>" & l_CRLF &_
					 "</td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr>" & l_CRLF &_
					 "<td width=""70"" align=""right"">" &_
					 "<b><font color=""#777777"">偦偺懠丗</font></b></td>" & l_CRLF &_
					 "<td><a class=""menu"" href=""../warehouse_mainte/ware_cal.asp"">憅屔僇儗儞僟乕</a>丂-丂" &_
					 "<a class=""menu"" href=""../warehouse_mainte/info_list.asp"">僀儞僼僅儊乕僔儑儞堦棗乮憅屔Top乯</a></td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr> " & l_CRLF &_
					 "<td>&nbsp;</td>" & l_CRLF &_
					 "<td width=""70""><b><font color=""#777777""></font></b></td>" & l_CRLF &_
					 "<td width=""412"">&nbsp;</td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr bgcolor=""#555555""> " & l_CRLF &_
					 "<td colspan=""3"">" &_
					 "<img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "</table>" & l_CRLF 
			
		End If

		GetWareSystemEmploy = l_html
	End Function

	'/*************************************
	'/ 儐乕僓娗棟儊僯儏乕
	'/ 栠傝抣丗儐乕僓娗棟儊僯儏乕Html
	'/*************************************
	Public Function GetUserEmploy
		Dim l_html		'偦偺懠儊僯儏乕Html
		Dim l_CRLF		'夵峴僐乕僪

		l_CRLF = Chr(13) & Chr(10)
		'尃尷偑偁傞応崌偺傒
		If Session("User").Item("USER_EMPLOY") = FLG_ON Then
			l_html = "<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" class=""txt_m"">"  & l_CRLF &_
					 "<tr> " & l_CRLF &_
					 "<td rowspan=""3"" width=""40"">" &_
					 "<img src=""img/user.gif"" width=""32"" height=""32"" alt=""儐乕僓娗棟""></td>" & l_CRLF &_
					 "<td height=""24"" colspan=""2"">" &_
					 "<img src=""img/title_user.gif"" width=""250"" height=""20"" alt=""儐乕僓娗棟""></td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr>" & l_CRLF &_
					 "<td class=""top_submenu"" width=""70"" align=""right"">" &_
					 "<b><font color=""#777777"">庢堷愭丗</font></b></td>" & l_CRLF &_
					 "<td class=""top_submenu"">" & l_CRLF &_
					 "<p><a class=""menu"" href=""../mainte/post_list.asp?sessave=1&sortkey=1&seqdesc=1"">庢堷愭晹栧堦棗</a>丂-丂" &_
					 "<a class=""menu"" href=""../mainte/user_list.asp"">庢堷愭儐乕僓堦棗</a></p>" & l_CRLF &_
					 "</td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr> " & l_CRLF &_
					 "<td width=""70"" align=""right"">" &_
					 "<b><font color=""#777777"">憅屔丗</font></b></td>" & l_CRLF &_
					 "<td><a class=""menu"" href=""../mainte/ware_list.asp"">憅屔夛幮堦棗</a>丂-丂" &_
					 "<a class=""menu"" href=""../mainte/ware_post_list.asp?sessave=1&sortkey=1&seqdesc=1"">憅屔晹栧堦棗</a>丂丂-丂" &_
					 "<a class=""menu"" href=""../mainte/ware_user_list.asp"">憅屔儐乕僓堦棗</a>丂</td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr>" & l_CRLF &_
					 "<td>&nbsp;</td>" & l_CRLF &_
					 "<td>&nbsp;</td>" & l_CRLF &_
					 "<td width=""412"">&nbsp;</td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr bgcolor=""#555555""> " & l_CRLF &_
					 "<td colspan=""3""><img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "</table>" & l_CRLF &_
					 "<br>" & l_CRLF

		End If

		GetUserEmploy = l_html
	End Function

	'/*************************************
	'/ 偦偺懠儊僯儏乕
	'/ 栠傝抣丗偦偺懠儊僯儏乕Html
	'/*************************************
	Public Function GetOtherEmploy
		Dim l_html		'偦偺懠儊僯儏乕Html
		Dim l_CRLF		'夵峴僐乕僪

		l_CRLF = Chr(13) & Chr(10)
		'尃尷偑偁傞応崌偺傒
		If Session("User").Item("OTHERE_EMPLOY") = FLG_ON Then
			l_html = "<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" class=""txt_m"">" & l_CRLF &_
					 "<tr> " & l_CRLF &_
					 "<td rowspan=""2"" width=""40"">" &_
					 "<img src=""img/mainte.gif"" width=""32"" height=""32"" alt=""偦偺懠""></td>" & l_CRLF &_
					 "<td height=""24"" colspan=""2"">" &_
					 "<img src=""img/title_etc.gif"" width=""160"" height=""20"" alt=""偦偺懠""></td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr>" & l_CRLF &_
					 "<td class=""top_submenu"" width=""70"" align=""right"">" &_
					 "<b><font color=""#777777"">偦偺懠丗</font></b></td>" & l_CRLF &_
					 "<td class=""top_submenu"">" & l_CRLF &_
					 "<p><a class=""menu"" href=""../other/mainte_list.asp"">儅僗僞儊儞僥僫儞僗堦棗</a></p>" & l_CRLF &_
					 "</td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr> " & l_CRLF &_
					 "<td>&nbsp;</td>" & l_CRLF &_
					 "<td>&nbsp;</td>" & l_CRLF &_
					 "<td width=""412"">&nbsp;</td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "<tr bgcolor=""#555555""> " & l_CRLF &_
					 "<td colspan=""3"">" &_
					 "<img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
					 "</tr>" & l_CRLF &_
					 "</table>" & l_CRLF