<!-- #include file="../../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：帳簿_総勘定元帳
' 作成日：2003/1/24
' 作成者：山崎
' 目的 ：総勘定元帳を記帳する。
' 概要 ：
' <<表示>>
'################################################
'-->
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
'MHMKANJOSAIMOKC = ""
Dim RouteType
RouteType = Request("RouteType")
Dim PageType
PageType = "総勘定元帳"
Dim Url
Url = Request.ServerVariables("URL")
Dim KanjyoCD
KanjyoCD = Request("KanjyoCD")
'仕訳日選択モード
Dim Shiwakebi
Shiwakebi = "0"
If ShiwakebiSelect = 1 Then
Shiwakebi = GetEnshuParam(EnshuCD, "日付仕訳日指定")
End If
' Shiwakebi = "0"
' Shiwakebi = "1"
Dim TmpShiwakebiAry
If Shiwakebi = "1" Then
Query = ""
Query = Query & " "
Query = Query & " "
Query = Query & " SELECT 取引日 "
Query = Query & " FROM TSK伝票F "
Query = Query & " WHERE 削除フラグ = 0 "
Query = Query & " AND システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND 演習CD = '" & EnshuCD & "' "
Query = Query & " AND 会社CD = '" & KaisyaCD & "' "
Query = Query & " GROUP BY 取引日 "
Query = Query & " ORDER BY 取引日 DESC "
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
TmpShiwakebiAry = TmpShiwakebiAry & "\t" & SetTimeYYYYMMDD(Content.Fields("取引日"))
Content.MoveNext
Loop
End If
'↓↓↓当該勘定CDに対する勘定科目の存在確認（061116小野）
Dim ChkKanjyoCD
ChkKanjyoCD = 0
Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("勘定CD") = KanjyoCD Then
ChkKanjyoCD = 1
End If
Content.MoveNext
Loop
'↑↑↑当該勘定CDに対する勘定科目の存在確認（061116小野）
%>
<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/sj3tyobored.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 = 2;
-->
</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" action="<% = Replace(Url, ".asp", "_bin.asp") %>" name="form1" autocomplete="off">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="SendValue" value="">
<input type="hidden" name="KanjyoCD" value="<% = KanjyoCD %>">
<%
If InStr(RouteType, "HojyoboOnly") > 0 Then
Response.Write(HtmlDesign(2))
Else
Response.Write(HtmlDesign(1))
End If
Response.Write(HttpL1(3))
If 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, "", "", ""))
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
If KanjyoCD <> "" And ChkKanjyoCD = 1 Then '当該勘定CDに対する勘定科目が存在しなければ保存ボタンを表示しない（061116小野）
'If KanjyoCD <> "" Then
' Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", ""))
' Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);", "借方行削除", "KariKashiDelItem('Kari');", "貸方行削除", "KariKashiDelItem('Kashi');"))
'※HttpL3_1にボタンを追加する事前処理（210107小野）
Call HttpL3_1_AddBtn("借行↑", "SpreadShiftRowSub(document.vaSpread1, 'Up', 1, 5);", "借行↓", "SpreadShiftRowSub(document.vaSpread1, 'Dn', 1, 5);", "貸行↑", "SpreadShiftRowSub(document.vaSpread1, 'Up', 7, 11);", "貸行↓", "SpreadShiftRowSub(document.vaSpread1, 'Dn', 7, 11);", "", "")
Response.Write(HttpL3_1("保存", "SubmitCheck()", "行追加", "SpreadAddItem2(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);", "行挿入", "SpreadInsertItem(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);", "借行削除", "KariKashiDelItem('Kari');", "貸行削除", "KariKashiDelItem('Kashi');"))
End If
'Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&KanjyoCD=" & KanjyoCD & "')", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&KanjyoCD=" & KanjyoCD & "')", "印刷", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&KanjyoCD=" & KanjyoCD & "&AutoPrint=1')", "", "", "", "", "", ""))
Response.Write(HttpL4(PageType, ""))
%>
<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 align="center" valign="middle" height="30" >
<TABLE BORDER="0" width="<% If KanjyoCD <> "" Then %>900<% Else %>450<% End If %>" CELLSPACING="5" CELLPADDING="0" HEIGHT="100%" 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="55" width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="25" align="CENTER" valign="MIDDLE">
<table height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" class="tx1416" nowrap>元帳勘定科目
<input type="text" name="TmpKanjyoCD" size="4" value="<% = KanjyoCD %>" onChange="TmpKanjyoCDChk(this.value)" class="tbox4" maxlength="4" onClick="this.focus();this.focus();"> <!-- 範囲選択時にスプレッドシートをオフフォーカスするためにonClick処理（061225小野）-->
<select size="1" name="Tmp2KanjyoCD" onChange="if(this.value != '<% = KanjyoCD %>')tblbtn('fk_sokanjyomototyohyojyun.asp?KanjyoCD=' + this.value)" style="width:160" class="tbox4">
<option value=""> </option>
<%
Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
Set Content = OpenQuery(Query)
ListText = ""
Do While Not(Content.BOF Or Content.EOF)
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)
Content.MoveNext
Loop
%>
</select>
</td>
</tr>
<tr>
<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(2,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(2,1) %>負債<% = Spacer(2,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(2,1) %><% If MHMKANJOSAIMOKC <> "" Then Response.Write(MHMKANJOSAIMOKC) Else Response.Write("資本") End If %><% = Spacer(2,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(2,1) %>収益<% = Spacer(2,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(2,1) %>費用<% = Spacer(2,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(2,1) %>営業外<% = Spacer(2,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(2,1) %>特別<% = Spacer(2,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(2,1) %>その他<% = Spacer(2,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(2,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>
<% If KanjyoCD <> "" Then %>
<td>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" WIDTH="100%" HEIGHT="100%" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
<tr align="CENTER">
<td class="tx1416" height="21" valign="bottom">相手勘定科目</td>
</tr>
<tr>
<td align="center">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1">
<TR>
<TD id="TEAL" WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"> </TD>
<TD id="TEAC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('A');"><% = Spacer(1,1) %>資産<% = Spacer(2,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TEBC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('B');"><% = Spacer(2,1) %>負債<% = Spacer(2,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TECC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('C');"><% = Spacer(2,1) %><% If MHMKANJOSAIMOKC <> "" Then Response.Write(MHMKANJOSAIMOKC) Else Response.Write("資本") End If %><% = Spacer(2,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TEDC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('D');"><% = Spacer(2,1) %>収益<% = Spacer(2,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TEEC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('E');"><% = Spacer(2,1) %>費用<% = Spacer(2,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TEFC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('F');"><% = Spacer(2,1) %>営業外<% = Spacer(2,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TEGC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('G');"><% = Spacer(2,1) %>特別<% = Spacer(2,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TEHC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('H');"><% = Spacer(2,1) %>その他<% = Spacer(2,1) %></TD>
<TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD>
<TD id="TEC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('');"><% = Spacer(2,1) %>全て<% = Spacer(1,1) %></TD>
<TD id="TER" WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"> </TD>
</TR>
</TABLE>
</td>
</tr>
</TABLE>
</td>
<% End If %>
</tr>
</TABLE>
</td>
</tr>
<tr>
<td align="center" valign="middle">
<table width="720" height="100%" border="0" cellspacing="5" cellpadding="15" bgcolor="#ffffff" style="border:1px solid #000000">
<tr><td HEIGHT="8" onMouseOver="this.focus();this.focus();"></td></tr> <!-- スプレッドシートオフフォーカスのためのダミーテーブル（061225小野）-->
<tr>
<td align="center">
<table width="922" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" align="center" height="30">
<table border="0" width="700" cellspacing="0" cellpadding="0">
<tr>
<td width="230"></td>
<td align="center" class="tx1618" style="border-bottom: 1px solid black;" nowrap height="20"><% = SetStringInsertSpace(PageType) %></td>
<td width="230" align="right"></td>
</tr>
<tr>
<td width="230"></td>
<td align="center" class="tx1618" nowrap height="25"><% = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KanjyoCD) %></td>
<td width="230" align="right"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" valign="middle">
<% If KanjyoCD <> "" Then %>
<object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
<param name="lpkpath" value="spread6.lpk">
</object>
<object width="922" height="100%" onMouseOver="SubmitFlg=1" classid="clsid:41f841c1-ae16-11d5-8817-0050da6ef5e5" codebase="/<% = HomeAlias %>/binx/spr32x60.cab#version=1,1,1,1" id="vaSpread1" border="0">
</object>
<% Else %>
<span class="tx1618"><font color="#ff0000">上のメニューより入力対象の勘定科目を選択してください</font></span>
<BR>
<BR>
<BR>
<BR>
<BR>
<% End If %>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
</body>
<%
Dim KanjyoCDCol1, KanjyoCDCol2
KanjyoCDCol1 = 2
KanjyoCDCol2 = 8
%>
<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(formKanjyoCD) {
if (KanjyoCDCheck(formKanjyoCD) == formKanjyoCD) {
tblbtn('fk_sokanjyomototyohyojyun.asp?KanjyoCD=' + formKanjyoCD);
return;
}
}
function KanjyoCDCheck(obj) {
if (obj == '') {
alert('勘定コードを入力して下さい');
form1.TmpKanjyoCD.focus();
return false;
}
for (kk=1; kk<=<% = KanjyoCDCnt %>; kk++) {
if (obj == KanjyoCDArray[kk]) {
return obj;
}
}
alert('勘定コード ' + obj + ' の勘定科目は存在しません');
form1.TmpKanjyoCD.focus();
return false;
}
function SubmitCheck()
{
if (KanjyoCDCheck(form1.TmpKanjyoCD.value) == form1.TmpKanjyoCD.value) { //勘定CDチェック（061201小野）
////////残高チェックここから
var PlusCelNo, MinusCelNo, TaisyakuCelNo, TotalCelNo;
var Zandaka, PlusMinus;
PlusCelNo = 7;
MinusCelNo = 8;
TaisyakuCelNo = 9;
TotalCelNo = 10;
Zandaka = 0
////////残高チェックここまで
form1.SendValue.value = ""
for(jj = 1; jj <= document.vaSpread1.MaxRows; jj++)
{
document.vaSpread1.Row = jj;
var RowText;
var bCheck;
bCheck = new Array();
RowText = "";
for(ii = 1; ii <= document.vaSpread1.MaxCols; ii++)
{
document.vaSpread1.Col = ii;
//相手勘定CDチェック（061127小野）
if (ii == <% = KanjyoCDCol1 %> && document.vaSpread1.Text != '' || ii == <% = KanjyoCDCol2 %> && document.vaSpread1.Text != '') { //相手勘定CD未入力は容認（061129小野）
bCheck[ii] = 1; //フラグに偽をセット
for (kk=1; kk<=<% = KanjyoCDCnt %>; kk++) {
if (document.vaSpread1.Text == KanjyoCDArray[kk]) {
bCheck[ii] = 0; //勘定CD配列に符合すればフラグに真をセット
break;
}
}
if(bCheck[ii] == 1) {
alert('相手勘定コード ' + document.vaSpread1.Text + ' の勘定科目は存在しません');
document.vaSpread1.SetActiveCell(ii, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
}
var Text1;
Text1 = document.vaSpread1.Text;
if(document.vaSpread1.ColID == 12)
{
Text1 = ReplaceStr(Text1, ",", "")
}
RowText = RowText + Text1;
RowText = RowText + ",";
bCheck[ii] = 0;
if(Text1 == "")
{
bCheck[ii] = 1;
}
}
if(ReplaceStr(RowText, ",", "") != "")
{
RowText = form1.KanjyoCD.value + "," + RowText;
if(bCheck[5] == 1 && bCheck[11] == 1)
{
alert("借方金額もしくは貸方金額を入力して下さい");
document.vaSpread1.SetActiveCell(5, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
form1.SendValue.value = form1.SendValue.value + RowText + ";"
}
}
SubmitReal(form1);
return true;
}
}
//貸借片側のみの行削除（100523小野）
function KariKashiDelItem(Mode) {
var Kijun = <% = KanjyoCDCol1 - 1 %>;
if (Mode == "Kashi") {
Kijun = <% = KanjyoCDCol2 - 1 %>;
}
for (ii = Kijun; ii <= Kijun + 4; ii++) {
document.vaSpread1.Col = ii;
document.vaSpread1.Text = "";
}
//貸借両方が削除されたら実際の行削除を行う
var DelFlg = 1;
for (ii = <% = KanjyoCDCol1 - 1 %>; ii <= <% = KanjyoCDCol2 + 3 %>; ii++) {
document.vaSpread1.Col = ii;
if (document.vaSpread1.Text != "") {
DelFlg = 0;
break;
}
}
if (DelFlg == 1) {
SpreadDelItem(document.vaSpread1);
}
}
//スプレッドシート行移動（210107小野）
function SpreadShiftRowSub(obj, Mode, StartCol, EndCol) {
if (SpreadShiftRow(obj, Mode, StartCol, EndCol)) { //includesj.js
//勘定科目名はSetRenewCellが必要
var KanjoCDCol = StartCol; //勘定CD列を指定
SetRenewCell(obj, KanjoCDCol, obj.ActiveRow);
if (obj.ActiveRow - 1 >= 1) {
SetRenewCell(obj, KanjoCDCol, obj.ActiveRow - 1);
}
if (obj.ActiveRow + 1 <= obj.MaxRows) {
SetRenewCell(obj, KanjoCDCol, obj.ActiveRow + 1);
}
}
}
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 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
Content.MoveNext
Loop
Response.Write("}" & vbCrLf) '最後のネストを閉じる
%>
return false;
}
function SetAiteKanjyoKamokuList(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("TE" + Meisais[ii] + "L").background = "/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>";
document.all.item("TE" + Meisais[ii] + "C").background = "/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>";
// document.all.item("TE" + Meisais[ii] + "R").background = "/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>";
}
// document.all.item("TE" + KanjyoMeisaiSelected + "L").background = "/<% = HomeAlias %>/images/dlogbtn_rl.gif?<% = GB_STU %>";
document.all.item("TE" + KanjyoMeisaiSelected + "C").background = "/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>";
// document.all.item("TE" + KanjyoMeisaiSelected + "R").background = "/<% = HomeAlias %>/images/dlogbtn_rr.gif?<% = GB_STU %>";
var ii;
var Idx;
Idx = 0;
var listout;
listout = "";
document.vaSpread1.Redraw = false;
<%
Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
Set Content = OpenQuery(Query)
PreKanjyoMeisai = ""
Response.Write("if(1 == 0){" & vbCrLf) '最初のネストを開く（ループ内で常に閉じてから開くためのダミー）
Do While Not(Content.BOF Or Content.EOF)
'現在の科目を除外（100523小野）
If Content.Fields("勘定CD") <> KanjyoCD Then
If PreKanjyoMeisai <> Content.Fields("勘定細目") Then
Response.Write("}" & vbCrLf) 'ネストを閉じて開く
Response.Write("if(kanjyomeisai == """" || kanjyomeisai == """ & Content.Fields("勘定細目") & """){" & vbCrLf)
PreKanjyoMeisai = Content.Fields("勘定細目")
End If
' Response.Write("if(listout != """")listout = listout + ""\t"";" & vbCrLf)
Response.Write("listout = listout + ""\t"";" & vbCrLf)
Response.Write("listout = listout + """ & Content.Fields("勘定名称") & """;" & vbCrLf)
End If
Content.MoveNext
Loop
Response.Write("}" & vbCrLf) '最後のネストを閉じる
%>
document.vaSpread1.Col = <% = KanjyoCDCol1 + 1 %>;
for(i=1; i<= document.vaSpread1.MaxRows; i++)
{
document.vaSpread1.Row = i;
if(document.vaSpread1.Text == "")
{
// document.vaSpread1.TypeComboBoxList = "\t" + listout;
document.vaSpread1.TypeComboBoxList = listout;
}
else
{
document.vaSpread1.TypeComboBoxList = document.vaSpread1.Text + "\t" + listout;
}
}
document.vaSpread1.Col = <% = KanjyoCDCol2 + 1 %>;
for(i=1; i<= document.vaSpread1.MaxRows; i++)
{
document.vaSpread1.Row = i;
if(document.vaSpread1.Text == "")
{
// document.vaSpread1.TypeComboBoxList = "\t" + listout;
document.vaSpread1.TypeComboBoxList = listout;
}
else
{
document.vaSpread1.TypeComboBoxList = document.vaSpread1.Text + "\t" + listout;
}
}
document.vaSpread1.Redraw = true;
return false;
}
<%
Dim ListText
Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
Set Content = OpenQuery(Query)
ListText = ""
Do While Not(Content.BOF Or Content.EOF)
'現在の科目を除外（100523小野）
If Content.Fields("勘定CD") <> KanjyoCD Then
' If ListText <> "" Then
ListText = ListText & "\t"
' End If
ListText = ListText & Content.Fields("勘定名称")
End If
Content.MoveNext
Loop
%>
function SpreadInit(fpSpread) {
fpSpread.MaxRows = 0;
<%
Dim Query
Dim ContentKarikata, ContentKashikata
Dim ii, jj
jj = 0
Query = "exec SPK帳簿_総勘定元帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KanjyoCD & "'"
Set ContentKarikata = OpenQuery(Query)
Set ContentKashikata = OpenQuery(Query)
'選択行の色を変える動作を停止（090624小野）
Response.Write(" SpreadRowColorMode = false;" & vbCrLf)
Dim bExist
bExist = 2
Do While bExist > 0
bExist = 2
Dim KarikataTorihikibi, KarikataTekiyo1, KarikataTekiyo2, KarikataAiteKanjyo, KarikataShityo, KarikataKingaku, KarikataTaisyakuKubun, KarikataZandaka
Dim KashikataTorihikibi, KashikataTekiyo1, KashikataTekiyo2, KashikataAiteKanjyo, KashikataShityo, KashikataKingaku, KashikataTaisyakuKubun, KashikataZandaka
KarikataTorihikibi = ""
KarikataTekiyo1 = ""
KarikataTekiyo2 = ""
KarikataAiteKanjyo = ""
KarikataShityo = ""
KarikataKingaku = ""
KarikataTaisyakuKubun = ""
KarikataZandaka = ""
KashikataTorihikibi = ""
KashikataTekiyo1 = ""
KashikataTekiyo2 = ""
KashikataAiteKanjyo = ""
KashikataShityo = ""
KashikataKingaku = ""
KashikataTaisyakuKubun = ""
KashikataZandaka = ""
For ii = 1 To 1000
If (ContentKarikata.BOF Or ContentKarikata.EOF) Then
bExist = bExist - 1
Exit For
ElseIf IsNull(ContentKarikata.Fields("借方金額")) Then
ContentKarikata.MoveNext
Else
KarikataTorihikibi = SetTimeYYYYMMDD(ContentKarikata.Fields("取引日"))
KarikataAiteKanjyo = ContentKarikata.Fields("相手勘定CD")
KarikataShityo = ContentKarikata.Fields("仕丁")
KarikataKingaku = ContentKarikata.Fields("借方金額")
ContentKarikata.MoveNext
Exit For
End If
Next
For ii = 1 To 1000
If (ContentKashikata.BOF Or ContentKashikata.EOF) Then
bExist = bExist - 1
Exit For
ElseIf IsNull(ContentKashikata.Fields("貸方金額")) Then
ContentKashikata.MoveNext
Else
KashikataTorihikibi = SetTimeYYYYMMDD(ContentKashikata.Fields("取引日"))
KashikataAiteKanjyo = ContentKashikata.Fields("相手勘定CD")
KashikataShityo = ContentKashikata.Fields("仕丁")
KashikataKingaku = ContentKashikata.Fields("貸方金額")
ContentKashikata.MoveNext
Exit For
End If
Next
If bExist = 0 Then
Exit Do
End If
jj = jj + 1
Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf)
Response.Write(" fpSpread.Row = " & jj & ";" & vbCrLf)
Response.Write(" fpSpread.Col = 1;" & vbCrLf)
'仕訳日選択モード
If Shiwakebi = "1" Then
'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加
If InStr(TmpShiwakebiAry, SetTimeYYYYMMDD(KarikataTorihikibi)) < 1 Then
Response.Write(" fpSpread.TypeComboBoxList = """ & SetTimeYYYYMMDD(KarikataTorihikibi) & "\t" & TmpShiwakebiAry & """;" & vbCrLf)
End If
End If
Response.Write(" fpSpread.Text = """ & KarikataTorihikibi & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 2;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & KarikataAiteKanjyo & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 3;" & vbCrLf)
'元帳勘定科目と同一の相手勘定科目はメニューから除外されるが
'すでに保存されてしまっている同一科目は表示する必要があるのでメニューに追加する（100523小野）
If KarikataAiteKanjyo = KanjyoCD Then
Response.Write(" document.vaSpread1.TypeComboBoxList = """ & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KarikataAiteKanjyo) & "\t" & ListText & """;" & vbCrLf)
End If
Response.Write(" fpSpread.Text = """ & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KarikataAiteKanjyo) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 4;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & KarikataShityo & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 5;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(KarikataKingaku, false ,false) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 7;" & vbCrLf)
'仕訳日選択モード
If Shiwakebi = "1" Then
'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加
If InStr(TmpShiwakebiAry, SetTimeYYYYMMDD(KashikataTorihikibi)) < 1 Then
Response.Write(" fpSpread.TypeComboBoxList = """ & SetTimeYYYYMMDD(KashikataTorihikibi) & "\t" & TmpShiwakebiAry & """;" & vbCrLf)
End If
End If
Response.Write(" fpSpread.Text = """ & KashikataTorihikibi & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 8;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & KashikataAiteKanjyo & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 9;" & vbCrLf)
'元帳勘定科目と同一の相手勘定科目はメニューから除外されるが
'すでに保存されてしまっている同一科目は表示する必要があるのでメニューに追加する（100523小野）
If KashikataAiteKanjyo = KanjyoCD Then
Response.Write(" document.vaSpread1.TypeComboBoxList = """ & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KashikataAiteKanjyo) & "\t" & ListText & """;" & vbCrLf)
End If
Response.Write(" fpSpread.Text = """ & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KashikataAiteKanjyo) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 10;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & KashikataShityo & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 11;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(KashikataKingaku, false ,false) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 0;" & vbCrLf)
Response.Write(" fpSpread.Text = "" "";" & vbCrLf)
Loop
'空白行を5行追加し1行目を選択状態にする（080620小野）
jj = jj + 1
Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf)
Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf)
Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf)
Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf)
Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf)
Response.Write(" document.vaSpread1.SetActiveCell(1, " & jj & ");" & vbCrLf) '貸方借方で入力行数の多い方を基準とする
Response.Write(" fpSpread.EditMode=true;" & vbCrLf)
'選択行の色を変える動作を再開（090624小野）
Response.Write(" SpreadRowColorMode = true;" & vbCrLf)
Response.Write(" SpreadRowColor(fpSpread);" & vbCrLf) '選択行の色を変える（090624小野）
%>
}
function ConvKanjyoMeisyo(KanjyoCD) {
<%
Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("if(KanjyoCD == """ & Content.Fields("勘定CD") & """)return """ & Content.Fields("勘定名称") & """;" & vbCrLf)
Content.MoveNext
Loop
%>
return "";
}
function ConvRevKanjyoMeisyo(KanjyoMeisyo) {
<%
Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("if(KanjyoMeisyo == """ & Content.Fields("勘定名称") & """)return """ & Content.Fields("勘定CD") & """;" & vbCrLf)
Content.MoveNext
Loop
%>
return "";
}
</SCRIPT>
<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
<% If KanjyoCD <> "" Then %>
if(typeof(form1.dummy) == "object")form1.dummy.focus();
// SpreadInit 第 3n + 1 引数 (nは整数)
// 0:日付型 1:文字型 8:コンボボックス型 10:チェックボックス型 12:通貨型 13:数値型 21:勘定科目 22:摘要
document.vaSpread1.Redraw = false;
<% If Shiwakebi = "1" Then %>
//仕訳日選択モード
SpreadLoad(document.vaSpread1, "取引日", 8, 12.5, "勘定CD", 21, 6, "勘定名称", 8, 18, "仕丁", 21, 6, "借方金額", 12, 12, " ", 0, 0.3, "取引日", 8, 12.5, "勘定CD", 21, 6, "勘定名称", 8, 18, "仕丁", 21, 6, "貸方金額", 12, 12);
<% Else %>
SpreadLoad(document.vaSpread1, "取引日", 0, 10.5, "勘定CD", 21, 6, "勘定名称", 8, 20, "仕丁", 21, 6, "借方金額", 12, 12, " ", 0, 0.3, "取引日", 0, 10.5, "勘定CD", 21, 6, "勘定名称", 8, 20, "仕丁", 21, 6, "貸方金額", 12, 12);
<% End If %>
document.vaSpread1.ScriptEnhanced = true;
//その他の Spread に関する設定はここに入れる
document.vaSpread1.Row = -1;
document.vaSpread1.Col = -1;
document.vaSpread1.FontSize = 11;
document.vaSpread1.Row = 0;
document.vaSpread1.FontSize = 11;
<% If Shiwakebi = "1" Then %>
//仕訳日選択モード
document.vaSpread1.Row = -1;
document.vaSpread1.Col = 1;
document.vaSpread1.TypeComboBoxList = "<% = TmpShiwakebiAry %>"
document.vaSpread1.Row = -1;
document.vaSpread1.Col = 7;
document.vaSpread1.TypeComboBoxList = "<% = TmpShiwakebiAry %>"
<% End If %>
document.vaSpread1.Row = -1;
document.vaSpread1.Col = 9;
document.vaSpread1.TypeComboBoxList = "借\t貸"
var SpreadHeader;
SpreadHeader = -1000;
document.vaSpread1.AddCellSpan(<% = KanjyoCDCol1 %>, SpreadHeader, 2, 2);
document.vaSpread1.Row = SpreadHeader;
document.vaSpread1.Col = <% = KanjyoCDCol1 %>;
document.vaSpread1.Text = "相手勘定科目";
document.vaSpread1.AddCellSpan(<% = KanjyoCDCol2 %>, SpreadHeader, 2, 2);
document.vaSpread1.Row = SpreadHeader;
document.vaSpread1.Col = <% = KanjyoCDCol2 %>;
document.vaSpread1.Text = "相手勘定科目";
document.vaSpread1.Row = -1;
document.vaSpread1.Col = <% = KanjyoCDCol1 + 1 %>;
document.vaSpread1.TypeComboBoxList = "<% = ListText %>";
document.vaSpread1.Col = <% = KanjyoCDCol2 + 1 %>;
document.vaSpread1.TypeComboBoxList = "<% = ListText %>";
//ダミー区切り線表示用（090423小野）
document.vaSpread1.Col = 6;
document.vaSpread1.BackColor = 0xC0C0C0;
document.vaSpread1.Lock = true;
document.vaSpread1.RetainSelBlock = false;
SpreadInit(document.vaSpread1);
document.vaSpread1.ReDraw = true;
<% End If%>
</SCRIPT>
<SCRIPT FOR="vaSpread1" EVENT="KeyUp(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
SpreadKeyUp(this, KeyAsciiCode, KeyShift);
</SCRIPT>
<SCRIPT FOR="vaSpread1" EVENT="ScriptLeaveCell(ColNo, RowNo, NewColNo, NewRowNo, Cancel)" LANGUAGE="VBScript">
Dim tmp
tmp = SpreadChange(Me, ColNo, RowNo)
If tmp = "ERR" Then
Cancel = true
SpreadReFocus(Me)
Else
Call SetRenewCell(Me, ColNo, RowNo)
End If
</SCRIPT>
<SCRIPT FOR="vaSpread1" EVENT="ComboCloseUp(ColNo, RowNo)" LANGUAGE="JavaScript">
SetRenewCell(this, ColNo, RowNo)
this.focus();
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function SetRenewCell(obj, ColNo, RowNo)
{
if(ColNo == <% = KanjyoCDCol1 %>)
{
var tmp;
obj.Col = <% = KanjyoCDCol1 %>;
obj.Row = RowNo;
tmp = "" + obj.value;
tmp = ConvKanjyoMeisyo(tmp);
obj.Col = <% = KanjyoCDCol1 + 1 %>;
obj.Row = RowNo;
obj.TypeComboBoxRemoveItem(<% = KanjyoCDCol1 + 1 %>, RowNo, 0);
obj.TypeComboBoxIndex = 0;
obj.TypeComboBoxString = tmp;
obj.Text = tmp;
//相手勘定科目メニューの一列目が上書きされてしまうのでここでメニューを更新する（080930小野）
SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);
}
else if(ColNo == <% = KanjyoCDCol1 + 1%>)
{
var tmp;
obj.Col = <% = KanjyoCDCol1 + 1 %>;
obj.Row = RowNo;
tmp = ConvRevKanjyoMeisyo(obj.Text);
obj.Col = <% = KanjyoCDCol1 %>;
obj.Row = RowNo;
obj.value = tmp;
}
if(ColNo == <% = KanjyoCDCol2 %>)
{
var tmp;
obj.Col = <% = KanjyoCDCol2 %>;
obj.Row = RowNo;
tmp = "" + obj.value;
tmp = ConvKanjyoMeisyo(tmp);
obj.Col = <% = KanjyoCDCol2 + 1 %>;
obj.Row = RowNo;
obj.TypeComboBoxRemoveItem(<% = KanjyoCDCol2 + 1 %>, RowNo, 0);
obj.TypeComboBoxIndex = 0;
obj.TypeComboBoxString = tmp;
obj.Text = tmp;
//相手勘定科目メニューの一列目が上書きされてしまうのでここでメニューを更新する（080930小野）
SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);
}
else if(ColNo == <% = KanjyoCDCol2 + 1%>)
{
var tmp;
obj.Col = <% = KanjyoCDCol2 + 1 %>;
obj.Row = RowNo;
tmp = ConvRevKanjyoMeisyo(obj.Text);
obj.Col = <% = KanjyoCDCol2 %>;
obj.Row = RowNo;
obj.value = tmp;
}
}
</SCRIPT>
<SCRIPT FOR="vaSpread1" EVENT="Click(ColNo, RowNo)" LANGUAGE="JavaScript">
// ヘッダー列クリック時にソートしない場合にはコメントアウトする
// SpreadClick(this, ColNo, RowNo);
this.Col = this.ActiveCol;
this.Row = this.ActiveRow;
this.EditMode = true;
</SCRIPT>
<SCRIPT FOR="vaSpread1" EVENT="EditMode(Col, Row, Mode, ChangeMade)" LANGUAGE="JavaScript">
this.Col = Col;
this.Row = Row;
if(this.CellType == 12) {
if(!Mode) {
this.TypeCurrencyLeadingZero = 2;
}
}
SpreadRowColor(this); //選択行の色を変える（090624小野）
this.focus();
</SCRIPT>
<% = HtmlFooter %>
</html>
<%
End Sub
%>