<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：商社-マスター照会メニュー
' 作成日：2002/10/18
' 作成者：山崎
'################################################
'-->
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Session(HomeAlias & "KanriKubun") = ""
Dim Query
Dim Content
Dim GenkaKaikeiRiyo
Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用")
End If
Dim TableWidthPlus
TableWidthPlus = 0
' If GenkaKaikeiRiyo = "1" Then
' TableWidthPlus = 120
' End If
'デバッグ用
'PackageMode = 1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 1;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)" name="form1" method="POST">
<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(3))
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "マスター照会", "", "", "", "", ""))
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("マスター照会", ""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
<tr>
<td align="CENTER" valign="MIDDLE">
<TABLE WIDTH="<% = (560 + TableWidthPlus) %>" HEIGHT="320" BORDER="0" CELLSPACING="5" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000">
<TR>
<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_p.gif?<% = GB_STU %>">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_lup.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
<TD HEIGHT="20" ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hup.gif?<% = GB_STU %>">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hhp.gif?<% = GB_STU %>" style="border-collapse: collapse" bordercolor="#111111">
<TR>
<TD ALIGN="CENTER" VALIGN="BOTTOM" CLASS="tx2022mn"> 【 マスター照会 】 </TD>
</TR>
</TABLE>
</TD>
<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rup.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
</TR>
<TR>
<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlp.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_pd.gif?<% = GB_STU %>">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="160" width="<% = (480 + TableWidthPlus) %>">
<TR ALIGN="CENTER" VALIGN="MIDDLE">
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('kaisya')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2p.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER">会 社<BR>マスター</TD>
</TR>
</TABLE>
</TD>
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('shohin')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2p.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER">商 品<BR>マスター</TD>
</TR>
</TABLE>
</TD>
<% If PackageMode = 1 Then %>
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('sacnt')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2p.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER">勘定科目<BR>マスター</TD>
</TR>
</TABLE>
</TD>
<% Else %>
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('shijyo')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2p.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER">市 場<BR>マスター</TD>
</TR>
</TABLE>
</TD>
<% End If %>
<% If 0=1 Then '表記名称マスタは会社で閲覧する必要が無い %>
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('hyoki')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2p.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER">表記名称<BR>マスター</TD>
</TR>
</TABLE>
</TD>
<% End If %>
<% If 0=1 And GenkaKaikeiRiyo = "1" Then %>
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('zairyo')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2p.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER">材 料<BR>マスター</TD>
</TR>
</TABLE>
</TD>
<% End If %>
</TR>
<% If PackageMode = 1 Then %>
<% Else %>
<TR ALIGN="CENTER" VALIGN="MIDDLE">
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('sacnt')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2p.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER">勘定科目<BR>マスター</TD>
</TR>
</TABLE>
</TD>
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('bacnt')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2p.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER" class="tx1618">銀 行<BR>勘定科目<BR>マスター</TD>
</TR>
</TABLE>
</TD>
<% 'GenkaKaikeiRiyo = "1" %>
<% If GenkaKaikeiRiyo = "1" Then %>
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('sgacnt')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2p.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER" class="tx1618">製造原価<BR>勘定科目<BR>マスター</TD>
</TR>
</TABLE>
</TD>
<% End If %>
<% If GenkaKaikeiRiyo = "1" Then %>
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('gsyukei')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2p.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER" class="tx1618">製造原価 <BR> 報告書<BR>集計マスター</TD>
</TR>
</TABLE>
</TD>
<% End If %>
</TR>
<% End If %>
<TR ALIGN="CENTER" VALIGN="MIDDLE">
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('psyukei')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2p.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER" class="tx1618">損益計算書<BR>集計マスター</TD>
</TR>
</TABLE>
</TD>
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('bsyukei')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2p.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER" class="tx1618">貸借対照表<BR>集計マスター</TD>
</TR>
</TABLE>
</TD>
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('ssyukei')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2p.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER" class="tx1618">株主資本等<BR>変動計算書<BR>集計マスター</TD>
</TR>
</TABLE>
</TD>
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('csyukei')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2p.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER" class="tx1618">キャッシュ <BR>フロー計算書<BR> 集計マスター</TD>
</TR>
</TABLE>
</TD>
<% If 0=1 And GenkaKaikeiRiyo = "1" Then %>
<TD HEIGHT="77" WIDTH="120">
<TABLE WIDTH="110" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="75" BGCOLOR="#FFFFFF" CLASS="tbtn5" onClick="SubmitCheck('gsyukei')" BACKGROUND="/<% = HomeAlias %>/images/mnbtn03_2p.gif?<% = GB_STU %>">
<TR>
<TD ALIGN="CENTER" class="tx1618">製造原価 <BR> 報告書<BR>集計マスター</TD>
</TR>
</TABLE>
</TD>
<% End If %>
</TR>
</TABLE>
</TD>
<TD WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrp.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
</TR>
<!--ボタン下の隙間調節--><tr>
<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vlp.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
<TD HEIGHT="5" BACKGROUND="/<% = HomeAlias %>/images/wdwbk_pd.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
<TD HEIGHT="5" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_vrp.gif?<% = GB_STU %>" CLASS="tx1214"></TD>
</tr>
<TR>
<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_ldp.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
<TD HEIGHT="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_hdp.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
<TD HEIGHT="20" WIDTH="20" BACKGROUND="/<% = HomeAlias %>/images/ndlgline_rdp.gif?<% = GB_STU %>" CLASS="tx1214"> </TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
<% = HtmlFooter %>
</html>
<SCRIPT LANGUAGE="JavaScript">
function SubmitCheck(Kubun)
{
switch(Kubun)
{
case "kaisya": tblbtn( "/<% = HomeAlias %>/admin/master/kaisya/fm_kaisya_ichiran.asp?EnshuCD=" + form1.EnshuCD.value);break;
case "shohin": tblbtn( "/<% = HomeAlias %>/admin/master/shohin/fm_shohin_ichiran.asp?EnshuCD=" + form1.EnshuCD.value);break;
case "zairyo": tblbtn( "/<% = HomeAlias %>/admin/master/shohin/fm_shohin_ichiran.asp?EnshuCD=" + form1.EnshuCD.value + "&Mode=Zairyo");break;
case "sacnt": tblbtn( "/<% = HomeAlias %>/admin/master/kamoku/fm_kamoku_ichiran.asp?EnshuCD=" + form1.EnshuCD.value + "&GyoshuKubun=S&HyojiFlg2=0");break;
case "sgacnt": tblbtn( "/<% = HomeAlias %>/admin/master/kamoku/fm_kamoku_ichiran.asp?EnshuCD=" + form1.EnshuCD.value + "&GyoshuKubun=G&HyojiFlg2=0");break;
case "bacnt": tblbtn( "/<% = HomeAlias %>/admin/master/kamoku/fm_kamoku_ichiran.asp?EnshuCD=" + form1.EnshuCD.value + "&GyoshuKubun=B&HyojiFlg2=0");break;
case "psyukei": tblbtn( "/<% = HomeAlias %>/admin/master/syukei/fm_syukei_view.asp?EnshuCD=" + form1.EnshuCD.value + "&TyohyoKubun=P");break;
case "bsyukei": tblbtn( "/<% = HomeAlias %>/admin/master/syukei/fm_syukei_view.asp?EnshuCD=" + form1.EnshuCD.value + "&TyohyoKubun=B");break;
case "ssyukei": tblbtn( "/<% = HomeAlias %>/admin/master/syukei/fm_stockholder_equity_view.asp?EnshuCD=" + form1.EnshuCD.value);break;
case "gsyukei": tblbtn( "/<% = HomeAlias %>/admin/master/syukei/fm_syukei_view.asp?EnshuCD=" + form1.EnshuCD.value + "&TyohyoKubun=G");break;
case "csyukei": tblbtn( "/<% = HomeAlias %>/admin/master/syukei/fm_syukei_view.asp?EnshuCD=" + form1.EnshuCD.value + "&TyohyoKubun=C");break;
case "group": tblbtn( "/<% = HomeAlias %>/admin/master/group/fm_groupsanka.asp");break;
case "shijyo": tblbtn( "/<% = HomeAlias %>/admin/master/shijyo/fm_shijyo_ichiran.asp?EnshuCD=" + form1.EnshuCD.value);break;
case "hyoki": tblbtn( "/<% = HomeAlias %>/admin/master/hyoki/fm_hyoki.asp?EnshuCD=" + form1.EnshuCD.value);break;
default : return false;
}
return true;
}
</script>
<%
End Sub
%>