<!-- #include file="../../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：勘定情報設定
' 作成日：2002/9/18
' 作成者：徳田
' 目的 ：勘定情報画面を表示する。
' 概要 ：
' <<表示>>
' <<入力チェック>>
' ・ＮＵＬＬチェック
'
' 修正:
'################################################
'-->
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
'サイバー会計のユーザー科目表示時の絞込みフラグ
Dim HyojiFlg2
HyojiFlg2 = Request("HyojiFlg2")
Dim KanriKubun
Dim EnshuName , GyoshuKubun '演習コード、業種区分
Dim KamokuCD , Kamokumei , KamokuRyakumei '勘定コード、勘定名称 、勘定略名称
Dim KanjyoKubun , SaimokuKubun , TaisyakuKubun '勘定区分 、勘定細目 、貸借区分
Dim DataKubun , HiyoKubun , BunsekiKubun 'データ区分、費用区分 、分析用区分
Dim SyukeiCD '諸表集計CD
Dim KanjyoKubunMeisyo , SaimokuKubunMeisyo , TaisyakuKubunMeisyo '勘定区分名、勘定細目名 、貸借区分名
Dim DataKubunMeisyo , HiyoKubunMeisyo , BunsekiKubunMeisyo 'データ区分名、費用区分名、分析用区分名
Dim CheckKubun, CheckKubunMeisyo
Dim TokubetsuKanjyoKubun, TokubetsuKanjyoKubunMeisyo
Dim SyukeiMeisyo '諸表集計名称
Dim SyoyuKaisyaCD, SyoyuKaisyaMeisyo
Dim CSyukeiCD 'キャッシュフロー計算書集計CD
Dim CSyukeiMeisyo 'キャッシュフロー計算書集計名称
Dim GSyukeiCD '製造原価報告書集計CD
Dim GSyukeiMeisyo '製造原価報告書集計名称
Dim SSyukeiCD '株主資本等変動計算書集計CD
Dim SSyukeiBunrui0 '株主資本等変動計算書集計分類1
Dim SSyukeiBunrui1 '株主資本等変動計算書集計分類2
Dim SSyukeiBunrui2 '株主資本等変動計算書集計分類3
Dim SSyukeiBunrui3 '株主資本等変動計算書集計区分
Dim SSyukeiBunrui4 '株主資本等変動計算書変動額細目
Dim Query
Dim Content
GyoshuKubun = Request("GyoshuKubun")
KamokuCD = Request("KamokuCD")
Dim QuerySaimokuKubun
QuerySaimokuKubun = Request("SaimokuKubun")
Dim Rename
Rename = Request("Rename")
Dim EnshuKubun
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
EnshuName = Content.Fields("演習名称")
EnshuKubun = Content.Fields("演習区分")
End If
'対象データＧＥＴ
'取得範囲を決定する
'会社学生科目の場合のみ所有者が必要
Dim KaishaGakuseiCD
If GB_Admin < 1 Then
KaishaGakuseiCD = GB_GakuseiNo
If EnshuKubun = "G" Then
KaishaGakuseiCD = GB_KaisyaCD
End If
End If
Query = "exec SPM勘定科目詳細取得全部 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GyoshuKubun & "', '" & KamokuCD & "', '" & KaishaGakuseiCD & "'"
' Query = "exec SPM勘定科目詳細取得2 '" & GB_SystemCD & "','" & EnshuCD & "','" & GyoshuKubun & "','" & KamokuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Kamokumei = Content.Fields("勘定名称")
KamokuRyakumei = Content.Fields("勘定略名称")
KanjyoKubun = Content.Fields("勘定区分")
SaimokuKubun = Content.Fields("勘定細目")
TaisyakuKubun = Content.Fields("貸借区分")
DataKubun = Content.Fields("データ区分")
HiyoKubun = Content.Fields("費用区分")
BunsekiKubun = Content.Fields("分析用区分")
CheckKubun = Content.Fields("チェック区分")
TokubetsuKanjyoKubun = Content.Fields("特別勘定区分")
SyukeiCD = Content.Fields("諸表集計CD")
KanjyoKubunMeisyo = Content.Fields("勘定区分名称")
SaimokuKubunMeisyo = Content.Fields("勘定細目名称")
TaisyakuKubunMeisyo = Content.Fields("貸借区分名称")
HiyoKubunMeisyo = Content.Fields("費用区分名称")
BunsekiKubunMeisyo = Content.Fields("分析区分名称")
CheckKubunMeisyo = Content.Fields("チェック区分名称")
TokubetsuKanjyoKubunMeisyo = Content.Fields("特別勘定区分名称")
SyukeiMeisyo = Content.Fields("諸表集計名称")
SyoyuKaisyaCD = Content.Fields("所有会社CD")
SyoyuKaisyaMeisyo = Content.Fields("所有会社略名称")
CSyukeiCD = Content.Fields("キャッシュフロー計算書集計CD")
CSyukeiMeisyo = Content.Fields("キャッシュフロー計算書集計名称")
GSyukeiCD = Content.Fields("製造原価報告書集計CD")
GSyukeiMeisyo = Content.Fields("製造原価報告書集計名称")
SSyukeiCD = Content.Fields("株主資本等変動計算書集計CD")
SSyukeiBunrui0 = Content.Fields("集計分類1")
SSyukeiBunrui1 = Content.Fields("集計分類2")
SSyukeiBunrui2 = Content.Fields("集計分類3")
SSyukeiBunrui3 = Content.Fields("集計区分")
SSyukeiBunrui4 = Content.Fields("変動額細目")
End If
'取得されたデータの区分を取得する
KaishaGakuseiCD = SyoyuKaisyaCD
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 RouteType
RouteType = Request("RouteType")
%>
<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)" method="POST" name="form1" >
<input type="hidden" name="KanriKubun" value="<% = KanriKubun %>">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="Action" value="2">
<input type="hidden" name="OldKamokuCD" value="<% = KamokuCD %>">
<input type="hidden" name="QuerySaimokuKubun" value="<% = QuerySaimokuKubun %>">
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(4))
If GB_Admin >= 1 Then
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "勘定科目マスター", "", "", "", "", "", "", ""))
Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
'マスター編集のため一時削除
If EnshuCD <> "SYSORIGN" Then
Response.Write(HttpL3_1("修正", "UpdateCall()", "削除", "DeleteCheck()", "", "", "", "", "", ""))
End If
If Request("MsgFlg") = "3" Then
Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_kamoku_ichiran.asp?KanriKubun=" & KanriKubun & "&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & QuerySaimokuKubun & "&KamokuCD=" & KamokuCD & "&HyojiFlg2=" & HyojiFlg2 & "')", "追加", "tblbtn( 'fm_kamoku.asp?Action=1&GyoshuKubun=" & GyoshuKubun & "&HyojiFlg2=" & HyojiFlg2 & "')", "コピー元として追加", "MimicCall()", "", "", "", ""))
Else
Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_kamoku_ichiran.asp?KanriKubun=" & KanriKubun & "&GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & QuerySaimokuKubun & "&KamokuCD=" & KamokuCD & "&HyojiFlg2=" & HyojiFlg2 & "')", "追加", "tblbtn( 'fm_kamoku.asp?Action=1&GyoshuKubun=" & GyoshuKubun & "&HyojiFlg2=" & HyojiFlg2 & "')", "コピー元として追加", "MimicCall()", "", "", "", ""))
End If
Else
Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
If RouteType = "KaisyaAdd" Then
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_1("修正", "UpdateCall()", "削除", "DeleteCheck()", "", "", "", "", "", ""))
ElseIf PackageMode = 1 Then
Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "勘定科目マスター", "", "", "", "", "", "", "", "", ""))
'所有者ならば修正・削除可能
If KaishaGakuseiCD <> "" Then
Response.Write(HttpL3_1("修正", "UpdateCall()", "削除", "DeleteCheck()", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
End If
Else
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "マスター照会", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s43.asp')", "勘定科目マスター", "", "", ""))
'所有者ならば修正・削除可能
If KaishaGakuseiCD <> "" Then
Response.Write(HttpL3_1("修正", "UpdateCall()", "削除", "DeleteCheck()", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
End If
End If
' If PackageMode = 1 Then
Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_kamoku_ichiran.asp?GyoshuKubun=" & GyoshuKubun & "&KamokuCD=" & KamokuCD & "&RouteType=" & RouteType & "&HyojiFlg2=" & HyojiFlg2 & "')", "追加", "tblbtn( 'fm_kamoku.asp?Action=1&GyoshuKubun=" & GyoshuKubun & "&HyojiFlg2=" & HyojiFlg2 & "')", "コピー元として追加", "MimicCall()", "", "", "", ""))
' Else
' Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_kamoku_ichiran.asp?GyoshuKubun=" & GyoshuKubun & "&KamokuCD=" & KamokuCD & "&RouteType=" & RouteType & "&HyojiFlg2=" & HyojiFlg2 & "')", "", "", "", "", "", "", "", ""))
' End If
End If
Dim Title
Title = ""
If GyoshuKubun = "B" Then
Title = "銀行勘定"
ElseIf GyoshuKubun = "G" Then
Title = "製造原価"
Else
Title = "勘定"
End If
Response.Write(HttpL4(Title & "科目マスター", "照会"))
If Request("MsgFlg") = "1" Then
Response.Write(HttpL5("削除しました。次の勘定科目を表示しています。"))
ElseIf Request("MsgFlg") = "2" Then
Response.Write(HttpL5("修正しました。次の勘定科目を表示しています。"))
ElseIf EnshuCD = "SYSORIGN" Then
Response.Write(HttpL5("演習コード SYSORIGN の演習は修正出来ません"))
End If
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<table width="1" height="1" border="0" cellspacing="5" cellpadding="15" bgcolor="#ffffff" style="border:1px solid #000000">
<tr>
<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<TABLE WIDTH="1" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
<% If GB_Admin >= "1" Then %>
<TR>
<TD HEIGHT="30" VALIGN="BOTTOM">
<TABLE WIDTH="100%" HEIGHT="30" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1618" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD HEIGHT="30" bgcolor="#FFEE88">対象演習名</TD>
<TD HEIGHT="30"><% = EnshuName %></TD>
<TD HEIGHT="30" bgcolor="#FFEE88">演習コード</TD>
<TD HEIGHT="30"><% = EnshuCD %></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<td height="10"></td>
</TR>
<% End If %>
<TR>
<TD HEIGHT="20" VALIGN="TOP" WIDTH="620">
<TABLE WIDTH="1" BORDER="1" CELLPADDING="5" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1618" STYLE="border-collapse: collapse">
<% If KanriKubun = "kanri" Then %>
<TR ALIGN="CENTER">
<TD width="220" height="25" bgcolor="#FFEE88" nowrap>対象演習名</TD>
<TD height="25" nowrap><%= EnshuName %></TD>
</TR>
<% End If %>
<tr>
<td bgcolor="#FFEE88" nowrap>勘定コード</td>
<td colspan="3" nowrap><% = KamokuCD %></td>
</tr>
<tr>
<td bgcolor="#FFEE88" nowrap>勘定名称</td>
<td width="180" nowrap><% = Kamokumei %></td>
<td bgcolor="#FFEE88" nowrap>貸借区分</td>
<TD nowrap><%= TaisyakuKubunMeisyo %></TD>
</tr>
<tr>
<td bgcolor="#FFEE88" nowrap>勘定細目区分</td>
<TD nowrap><%= SaimokuKubunMeisyo %></TD>
<td bgcolor="#FFEE88" nowrap>勘定区分</td>
<TD nowrap><%= KanjyoKubunMeisyo %></TD>
</tr>
<tr>
<td bgcolor="#FFEE88" nowrap>分析用区分</td>
<TD nowrap><%= BunsekiKubunMeisyo %></TD>
<td bgcolor="#FFEE88" nowrap>費用区分</td>
<TD nowrap><%= HiyoKubunMeisyo %></TD>
</tr>
<tr>
<td bgcolor="#FFEE88" nowrap>チェック区分</td>
<TD nowrap><%= CheckKubunMeisyo %></TD>
<% If GB_Admin >= "1" Then %>
<td bgcolor="#FFEE88" nowrap>特別勘定区分</td>
<TD nowrap><%= TokubetsuKanjyoKubunMeisyo %></TD>
<% Else %>
<td colspan="2" nowrap> </td>
<% End If %>
</tr>
<tr>
<td bgcolor="#FFEE88" class="tx1214" nowrap><NOBR>損益計算書・貸借対照表の集計先</NOBR></td>
<TD colspan="3" nowrap><%= SyukeiCD %> <%= SyukeiMeisyo %></TD>
</tr>
<tr>
<td class="tx1214" bgcolor="#FFEE88" nowrap><NOBR>キャッシュフロー計算書の集計先</NOBR></td>
<TD colspan="3" nowrap><%= CSyukeiCD %> <%= CSyukeiMeisyo %></TD>
</tr>
<tr>
<td class="tx1214" bgcolor="#FFEE88" nowrap><NOBR>株主資本等変動計算書の集計先</NOBR></td>
<TD colspan="3" nowrap><%= SSyukeiCD %> <%= SSyukeiBunrui0 %> <%= SSyukeiBunrui1 %> <%= SSyukeiBunrui2 %> <%= SSyukeiBunrui3 %> <%= SSyukeiBunrui4 %></TD>
</tr>
<% If GyoshuKubun = "G" Then %>
<tr>
<td bgcolor="#FFEE88" class="tx1214" nowrap>製造原価報告書の集計先</td>
<TD colspan="3" nowrap><%= GSyukeiCD %> <%= GSyukeiMeisyo %></TD>
</tr>
<% End If %>
<% If GB_Admin >= "1" And 1 = 0 Then %>
<tr>
<td bgcolor="#FFEE88" nowrap>所有会社</td>
<TD colspan="3" nowrap><%= SyoyuKaisyaMeisyo %></TD>
</tr>
<% End If %>
</TABLE>
</td>
</tr>
</table>
</td>
<!--3x3中段右 -->
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
</body>
<% = HtmlFooter %>
</html>
<SCRIPT LANGUAGE="JavaScript">
function DeleteCheck() {
tkkmessage = "";
<% If TokubetsuKanjyoKubun <> "" Then %>
tkkmessage = "当勘定科目は特別勘定区分「<% = TokubetsuKanjyoKubunMeisyo %>」に設定されています。 \n\n";
tkkmessage = tkkmessage + "削除した場合、特別勘定区分「<% = TokubetsuKanjyoKubunMeisyo %>」が消滅し、 \n";
tkkmessage = tkkmessage + "正しい会計処理が行われなくなる可能性があります。\n\n";
<% End If %>
tkkmessage = tkkmessage + "削除してよろしいですか？ \n"
if (!confirm(tkkmessage)) {
return false;
}
tblbtn("fm_kamoku_bin.asp?Action=4&GyoshuKubun=<% =GyoshuKubun %>&SaimokuKubun=<% = QuerySaimokuKubun %>&KamokuCD=<% = KamokuCD %>&RouteType=<% = RouteType %>&OldKamokuCD=<% = KamokuCD %>&HyojiFlg2=<% = HyojiFlg2 %>");
return true;
}
function UpdateCall()
{
tblbtn( "fm_kamoku.asp?Action=2&nr=n&GyoshuKubun=<% = GyoshuKubun %>&SaimokuKubun=<% = QuerySaimokuKubun %>&KamokuCD=<% = KamokuCD %>&RouteType=<% = RouteType %>&Rename=<% = Rename %>&OldKamokuCD=<% = KamokuCD %>&HyojiFlg2=<% = HyojiFlg2 %>");
return true;
}
function MimicCall()
{
tblbtn( "fm_kamoku.asp?Action=1&nr=n&GyoshuKubun=<% = GyoshuKubun %>&SaimokuKubun=<% = QuerySaimokuKubun %>&CopyMoto=<% = KamokuCD %>&RouteType=<% = RouteType %>&OldKamokuCD=<% = KamokuCD %>&HyojiFlg2=<% = HyojiFlg2 %>");
return true;
}
</script>
<%
End Sub
%>