<!-- #include file="../../../include.asp" -->
<!-- #include file="../../../user/bk/tyobo/fk_sokanjyomototyohyojyun_view_main_in.asp" -->
<%
'<!--
'################################################
' 名称 ：帳簿_総勘定元帳の照会
' 作成日：2003/1/23
' 作成者：山崎
' 目的 ：帳簿_総勘定元帳の照会画面を表示する。
' 概要 ：
' <<表示>>
' ・帳簿_総勘定元帳の照会
'################################################
'-->
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query
Dim Content
Dim PageType
PageType = "総勘定元帳"
Dim RouteType
RouteType = Request("RouteType")
Dim KanjyoCD
KanjyoCD = Request("KanjyoCD")
Dim Url
Url = Request.ServerVariables("URL")
Dim AutoPrint
AutoPrint = Request("AutoPrint")
'記帳の有無を確認するフラグ（照会集計画面用）
Dim KichoFlg
Set KichoFlg = Server.CreateObject("Scripting.Dictionary")
Query = ""
Query = Query & " "
Query = Query & " SELECT 勘定CD, COUNT(総勘定元帳CD) AS 記帳数 "
Query = Query & " FROM TSK帳簿_総勘定元帳F "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & GB_KaisyaCD & "' "
Query = Query & " GROUP BY 勘定CD "
Query = Query & " "
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
' 引数は確実に文字列指定しないとダメ
KichoFlg("" & Content.Fields("勘定CD")) = "" & Content.Fields("記帳数")
'Response.Write(KichoFlg(Content.Fields("勘定CD")))
Content.MoveNext
Loop
'Response.Write(KichoFlg("1111"))
%>
<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">
<link href="../../../binx/sj3tyobored11.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)"<% If AutoPrint = "1" Then %> onLoad="PrintoutReal();"<% End If %> bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)" method="POST" action="<% = Replace(Url, ".asp", "_bin.asp") %>" name="form1">
<%
If InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HtmlDesign(4))
ElseIf InStr(RouteType, "HojyoboOnly") > 0 Then
Response.Write(HtmlDesign(2))
Else
Response.Write(HtmlDesign(1))
End If
Response.Write(HttpL1(3))
If InStr(RouteType, "Hakushi") > 0 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')", "白紙帳票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s42.asp')", PageType, "", "", ""))
ElseIf InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "経理部", "", "帳簿", "", PageType, "","", "", "", ""))
ElseIf PackageMode = 1 Then
Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "手入力帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac3.asp')", PageType, "", "", "", "", "", "", ""))
Else
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp')", PageType, "tblbtn( '" & Replace(Url, "_view_main.asp", ".asp") & "')", "", ""))
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
If InStr(RouteType, "Hakushi") > 0 Or InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_2("入力", "tblbtn( '" & Replace(Url, "_view_main.asp", ".asp") & "?RouteType=" & RouteType & "&KanjyoCD=" & KanjyoCD & "')", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL4(PageType, ""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="660" HEIGHT="100%">
<% If InStr(RouteType, "Hakushi") = 0 Then %>
<TR>
<TD ALIGN="CENTER" height="30">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" HEIGHT="30" STYLE="BORDER:1px solid #000000; border-collapse:collapse" bgcolor="#FFFFFF">
<TR>
<TD height="30" valign="bottom" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
<table height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" align="CENTER" valign="MIDDLE">
<table height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" class="tx1416" nowrap><% = Spacer(3,1) %>勘定科目
<input type="text" name="TmpKanjyoCD" size="4" value="<% = KanjyoCD %>" onChange="TmpKanjyoCDChk(this)" class="tbox4" maxlength="4" onClick="this.focus();this.focus();"> <!-- 範囲選択時にスプレッドシートをオフフォーカスのためにonClick処理（061225小野）-->
<select size="1" name="Tmp2KanjyoCD" onChange="if(this.value != '<% = KanjyoCD %>')tblbtn('fk_sokanjyomototyohyojyun_view.asp?KanjyoCD=' + this.value + '&RouteType=<% = RouteType %>')" style="width:160" class="tbox4">
<option value=""> </option>
<%
Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
'照会集計画面では記帳の存在する科目に絞り込む 引数は確実に文字列指定しないとダメ
If InStr(RouteType, "ViewOnly") < 1 Or "" & KichoFlg("" & Content.Fields("勘定CD")) <> "" Then
Response.Write("<option value=""" & Content.Fields("勘定CD") & """")
If Content.Fields("勘定CD") = KanjyoCD Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("勘定名称"))
Response.Write("</option>" & vbCrLf)
End If
Content.MoveNext
Loop
%>
</select>
</td>
<td align="center" class="tx1416">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1">
<TR>
<TD id="TDAL" WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"> </TD>
<TD id="TDAC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('A');"><% = Spacer(1,1) %>資産<% = Spacer(3,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TDBC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('B');"><% = Spacer(3,1) %>負債<% = Spacer(3,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TDCC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('C');"><% = Spacer(3,1) %><% If MHMKANJOSAIMOKC <> "" Then Response.Write(MHMKANJOSAIMOKC) Else Response.Write("資本") End If %><% = Spacer(3,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TDDC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('D');"><% = Spacer(3,1) %>収益<% = Spacer(3,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TDEC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('E');"><% = Spacer(3,1) %>費用<% = Spacer(3,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TDFC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('F');"><% = Spacer(3,1) %>営業外<% = Spacer(3,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TDGC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('G');"><% = Spacer(3,1) %>特別損益<% = Spacer(3,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TDHC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('H');"><% = Spacer(3,1) %>その他<% = Spacer(3,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TDC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('');"><% = Spacer(3,1) %>全て<% = Spacer(1,1) %></TD>
<TD id="TDR" WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"> </TD>
</TR>
</TABLE>
</td>
</tr>
</table>
</td>
</tr>
</table>
</TD>
</TR>
</table>
</TD>
</TR>
<% End IF %>
<TR>
<TD ALIGN="CENTER" >
<%
If RouteType = "Hakushi" Then
Response.Write(TyoboSokanjyoMototyoH(EnshuCD, KaisyaCD, KaisyaCD, "LD", KanjyoCD, -1, 0, "", "", ""))
Else
Response.Write(TyoboSokanjyoMototyoH(EnshuCD, KaisyaCD, KaisyaCD, "LD", KanjyoCD, 0, 0, "", "", ""))
End If
%>
</TD>
</TR>
</TABLE>
</div>
</form>
</body>
<SCRIPT LANGUAGE="JavaScript">
//勘定CD配列作成（061127小野）
// var KanjyoCDArray;
KanjyoCDArray = new Array();
<%
Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
Set Content = OpenQuery(Query)
Dim KanjyoCDCnt
KanjyoCDCnt = 0
Do While Not(Content.BOF Or Content.EOF)
KanjyoCDCnt = KanjyoCDCnt + 1
Response.Write("KanjyoCDArray[" & KanjyoCDCnt & "] = '" & Content.Fields("勘定CD") & "';" & vbCrLf)
Content.MoveNext
Loop
%>
//勘定CDチェック（061201小野）
function TmpKanjyoCDChk(obj) {
if (KanjyoCDCheck(obj) == obj.value) {
tblbtn('fk_sokanjyomototyohyojyun_view.asp?KanjyoCD=' + obj.value + '&RouteType=<% = RouteType %>');
return;
}
}
function KanjyoCDCheck(obj) {
if (obj.value == '') {
alert('勘定コードを入力して下さい');
//フォーカスを戻すようにすると正常な値が入るまで抜けられなくなるのでフォーカスは戻さない
// obj.focus();
// obj.select();
// event.returnValue = false;
return;
}
for (kk=1; kk<=<% = KanjyoCDCnt %>; kk++) {
if (obj.value == KanjyoCDArray[kk]) {
return obj.value;
}
}
alert('勘定コード ' + obj.value + ' の勘定科目は存在しません');
//フォーカスを戻すようにすると正常な値が入るまで抜けられなくなるのでフォーカスは戻さない
// obj.focus();
// obj.select();
// event.returnValue = false;
return;
}
var KanjyoMeisaiSelected;
KanjyoMeisaiSelected = "";
function SetKanjyoKamokuList(kanjyomeisai) {
KanjyoMeisaiSelected = kanjyomeisai;
var Meisais;
var ii;
Meisais = Array("A", "B", "C", "D", "E", "F", "G", "H", "");
for (ii=0; ii<Meisais.length; ii++) {
// document.all.item("TD" + Meisais[ii] + "L").background = "/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>";
document.all.item("TD" + Meisais[ii] + "C").background = "/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>";
// document.all.item("TD" + Meisais[ii] + "R").background = "/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>";
}
// document.all.item("TD" + KanjyoMeisaiSelected + "L").background = "/<% = HomeAlias %>/images/dlogbtn_rl.gif?<% = GB_STU %>";
document.all.item("TD" + KanjyoMeisaiSelected + "C").background = "/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>";
// document.all.item("TD" + KanjyoMeisaiSelected + "R").background = "/<% = HomeAlias %>/images/dlogbtn_rr.gif?<% = GB_STU %>";
var ii;
var Idx;
Idx = 0;
//現在選択されているメニュー内容を保持する（090629小野）
var TmpVal = form1.Tmp2KanjyoCD.options[form1.Tmp2KanjyoCD.selectedIndex].value;
var TmpTxt = form1.Tmp2KanjyoCD.options[form1.Tmp2KanjyoCD.selectedIndex].text;
do {
form1.Tmp2KanjyoCD.options[0] = null;
} while(form1.Tmp2KanjyoCD.length != 0)
//現在選択されているメニュー内容があればメニュー1行目に挿入する（090629小野）
if (TmpVal != "" && TmpTxt != "") {
form1.Tmp2KanjyoCD.options[Idx] = new Option(TmpTxt, TmpVal);
Idx = Idx + 1;
}
form1.Tmp2KanjyoCD.options[Idx] = new Option("", "");
Idx = Idx + 1;
<%
Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
Set Content = OpenQuery(Query)
Dim PreKanjyoMeisai
PreKanjyoMeisai = ""
Response.Write("if(1 == 0){" & vbCrLf) '最初のネストを開く（ループ内で常に閉じてから開くためのダミー）
Do While Not(Content.BOF Or Content.EOF)
'現在の科目を除外（100523小野）
If Content.Fields("勘定CD") <> KanjyoCD Then
'照会集計画面では記帳の存在する科目に絞り込む 引数は確実に文字列指定しないとダメ
If InStr(RouteType, "ViewOnly") < 1 Or "" & KichoFlg("" & Content.Fields("勘定CD")) <> "" Then
If PreKanjyoMeisai <> Content.Fields("勘定細目") Then
Response.Write("}" & vbCrLf) 'ネストを閉じて開く
Response.Write("if(kanjyomeisai == """" || kanjyomeisai == """ & Content.Fields("勘定細目") & """){" & vbCrLf)
PreKanjyoMeisai = Content.Fields("勘定細目")
End If
Response.Write("form1.Tmp2KanjyoCD.options[Idx] = new Option(""" & Content.Fields("勘定名称") & """, """ & Content.Fields("勘定CD") & """);")
Response.Write("Idx = Idx + 1;" & vbCrLf)
End If
End If
Content.MoveNext
Loop
Response.Write("}" & vbCrLf) '最後のネストを閉じる
%>
return false;
}
</SCRIPT>
<% = HtmlFooter %>
</html>
<%
End Sub
%>