<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'	名称  :補助簿_当座預金出納帳	
'	作成日:2002/9/6
'	作成者:山崎
'	目的 :補助簿_当座預金出納帳を表示する。
'	概要  :
'	 <<表示>>
'	・補助簿_当座預金出納帳の画面
'################################################
'-->
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim GinkoCD
	GinkoCD = Request("GinkoCD")

	Dim PageType
	PageType = "当座預金出納帳"
		
	Dim RouteType
	RouteType = Request("RouteType")
	
	Dim Query
	Dim Content
	Dim ii,jj	

	Dim AutoZandakaNyuryoku
	AutoZandakaNyuryoku = GetEnshuParam(EnshuCD, "残高自動計算")

	'仕訳日選択モード
	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

%>	
<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="fk_touzayokinsuitotyo_bin.asp" name="form1">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="SendValue" value="">
<%
	If InStr(RouteType, "HojyoboOnly") > 0 Then
		Response.Write(HtmlDesign(2))
	Else
		Response.Write(HtmlDesign(1))
	End If

	Response.Write(HttpL1(3))
	
	If InStr(RouteType, "HojyoboOnly") > 0 Then
		Response.Write(HttpL2("補助簿ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp?RouteType=" & RouteType & "')", 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( '/" & HomeAlias & "/user/bk/hojyobo/fk_touzayokinsuitotyo.asp')", "", ""))
	End If
	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	If GinkoCD <> "" Then
		'※HttpL3_1にボタンを追加する事前処理(210107小野)
		Call HttpL3_1_AddBtn("行↑", "SpreadShiftRowSub(document.vaSpread1, 'Up');", "行↓", "SpreadShiftRowSub(document.vaSpread1, 'Dn');", "", "", "", "", "", "")
		Response.Write(HttpL3_1("保存", "SubmitCheck()", "行追加", "SpreadAddItem2(document.vaSpread1);", "行挿入", "SpreadInsertItem(document.vaSpread1);", "行削除", "SpreadDelItem(document.vaSpread1);", "", ""))
	Else
		Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))		
	End If 

	If GinkoCD <> "" Then
		'Response.Write(HttpL3_2("照会", "tblbtn( 'fk_touzayokinsuitotyo_view.asp?RouteType=" & RouteType & "&GinkoCD=" & GinkoCD & "')", "", "", "", "", "", "", "", ""))
		Response.Write(HttpL3_2("照会", "tblbtn( 'fk_touzayokinsuitotyo_view.asp?RouteType=" & RouteType & "&GinkoCD=" & GinkoCD & "')", "印刷", "tblbtn( 'fk_touzayokinsuitotyo_view.asp?RouteType=" & RouteType & "&GinkoCD=" & GinkoCD & "&AutoPrint=1')", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))			
	End If

	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"> 
		<table width="650" height="100%" border="0" cellspacing="5" cellpadding="15" bgcolor="#ffffff" style="border:1px solid #000000">
		  <tr>
			<td align="center">
			  <table width="723" height="100%" border="0" cellspacing="0" cellpadding="0">
				<tr>
				  <td valign="top" align="center" height="30">
					<table border="0" width="180" cellspacing="0" cellpadding="0">
					  <tr>
						<td class="tx1618" align="center" style="border-bottom: 1px solid black;" nowrap><% = SetStringInsertSpace(PageType) %></td>
					  </tr>
					</table>
				  </td>
				</tr>
				<tr>
				  <td align="center" valign="middle" height="30">

					<table height="30" border="0" cellpadding="0" cellspacing="0">
					  <tr>
						<td align="center" class="tx1416">銀行名: </td>
						<td align="center">
						  <select size="1" name="GinkoCD" onChange="GinkoSelect()" onMouseOver="if(SubmitFlg!=0){this.focus();}" class="tbox4_w">
						  <option value="">    </option>
							<%
								Dim KaishaCDAry
								ReDim KaishaCDAry(0)
								Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & GakuseiNo & "'"	
								Set Content = OpenQuery(Query)	  
								Do While Not(Content.BOF Or Content.EOF)
									'サイバー会計では全会社表示(091110小野)
									If PackageMode = "1" Or Content.Fields("業種CD") = "B" Then 
										ReDim PreServe KaishaCDAry(UBound(KaishaCDAry) + 1)	'配列+1
										KaishaCDAry(UBound(KaishaCDAry)) = Content.Fields("会社CD")
										Response.Write("<option value=""" & Content.Fields("会社CD") & """")
										If Content.Fields("会社CD") = GinkoCD Then
											Response.Write(" selected")
										End If
										Response.Write(">" & Content.Fields("会社名称") & "</option>" & vbCrLf)
									End If
									Content.MoveNext
								Loop
								'ゴミデータにもアクセス出来るようにする(091119小野)
								Dim TmpKaishaCD
								TmpKaishaCD = ""
								Query = "exec SPK補助簿_当座預金出納帳取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', ''"	'全取得
								Set Content = OpenQuery(Query)	  
								Do While Not(Content.BOF Or Content.EOF)
									If TmpKaishaCD <> Content.Fields("銀行CD") Then
										TmpKaishaCD = Content.Fields("銀行CD")
										Dim SonzaiChk
										Dim TmpCnt
										SonzaiChk = 0
										For TmpCnt = 1 To UBound(KaishaCDAry)
											If Content.Fields("銀行CD") = KaishaCDAry(TmpCnt) Then 
												SonzaiChk = 1
												Exit For
											End If
										Next
										If SonzaiChk = 0 Then
											Response.Write("<option value=""" & Content.Fields("銀行CD") & """")
											If Content.Fields("銀行CD") = GinkoCD Then
												Response.Write(" selected")
											End If
											Response.Write(">" & ConvKaisyaRyakuMeisyoDx(EnshuCD, Content.Fields("銀行CD")) & "</option>" & vbCrLf)
										End If
									End If
									Content.MoveNext
								Loop
							%>
						  </select>
						</td>
					  </tr>
					</table>
						
				  </td>
				</tr>
				<tr>
				  <td align="center" valign="middle">
				<% If GinkoCD <> "" Then %>
					<table width="612" height="100%" border="0" cellspacing="0" cellpadding="0">
					  <tr> 
						<td valign="middle"> 
						  <object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
							  <param name="lpkpath" value="spread6.lpk">
						  </object>
						  <object width="746" 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>
						</td>
					  </tr>
					</table>
				<% 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>

<SCRIPT LANGUAGE="JavaScript">


	function GinkoSelect(){
		var v,i;
		i = form1.GinkoCD.selectedIndex;
		v = form1.GinkoCD.options[i].value;
		tblbtn("fk_touzayokinsuitotyo.asp?RouteType=<% = RouteType %>&GinkoCD=" + v);
	}	


	var PlusCelNo, MinusCelNo, TotalCelNo,TaisyakuCelNo;
	var Zandaka , PlusMinus;
	PlusCelNo = 4;
	MinusCelNo = 5;
	TaisyakuCelNo = 6;
	TotalCelNo = 7;

	function SubmitCheck() {
	
		////////残高チェックここから
		Zandaka = 0;
		////////残高チェックここまで

		form1.SendValue.value = "";
		var tmp1;
		for(jj = 1; jj <= document.vaSpread1.MaxRows; jj++) {
			document.vaSpread1.Row = jj;

			var RowText;
			RowText = "";
			var bCheck;
			PlusMinus = 0;
			PlusMinusFlg = 0;	//残高補完フラグ(080620小野)
			bCheck = Array();
			for(ii = 1; ii <= document.vaSpread1.MaxCols; ii++) {
				document.vaSpread1.Col = ii;

				//収入・支出の0入力はクリア
				if ((ii == MinusCelNo || ii == PlusCelNo) && document.vaSpread1.Text == "0") {
					document.vaSpread1.Text = "";
				}
<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
//残高自動設定
				//収入・支出がNULLで無ければ残高補完フラグを立てる(080620小野)
				if ((ii == MinusCelNo || ii == PlusCelNo) && document.vaSpread1.Text != "") {
					PlusMinusFlg = 1;
				}
				//残高補完フラグが立っていれば補完する(080620小野)
				if (ii == TaisyakuCelNo && PlusMinusFlg == 1) {
					if(Zandaka >= 0)document.vaSpread1.Text = "借";
					else document.vaSpread1.Text = "貸";
				}
				if (ii == TotalCelNo && PlusMinusFlg == 1) {
					document.vaSpread1.Text = Math.abs(Zandaka);
				}
<% End If %>

				bCheck[ii] = 0;				
				var Text1;
				Text1 = document.vaSpread1.Text;

				//文字型・適用型フィールドの半角カンマ・セミコロンを代替文字に変換する処理(070201小野)
				if(document.vaSpread1.ColID == 1 || document.vaSpread1.ColID == 18 || document.vaSpread1.ColID == 22 || document.vaSpread1.ColID == 44)
				{
					Text1 = ReplaceStr(Text1, ",", "CommammoC")
					Text1 = ReplaceStr(Text1, ";", "SemicolonolocimeS")
				}
				//文字型・適用型フィールドの半角カンマ・セミコロンを代替文字に変換する処理(070201小野)

				if(document.vaSpread1.ColID == 12)
				{
					Text1 = ReplaceStr(Text1, ",", "")
				}
				
				RowText = RowText + Text1;
				RowText = RowText + ",";
				
				if(Text1 == "")
				{
					bCheck[ii] = 1;
					
				}
				
				
				////////残高チェックここから
				if(Text1 != "")
				{
					if(ii == PlusCelNo)
					{
						Zandaka = Zandaka + Math.floor(Text1);
					}
					else if(ii == MinusCelNo)
					{
						Zandaka = Zandaka - Math.floor(Text1);
					}
					else if(ii == TaisyakuCelNo)
					{
						PlusMinus = 0;
						if(Text1=="借")
						{
							PlusMinus = 1;
						}
						else if(Text1=="貸")
						{
							PlusMinus = -1;
						}
					}
					if(ii == TotalCelNo)
					{
						var GamenZandaka = Math.floor(Text1) * PlusMinus;
						if(Zandaka != GamenZandaka)
						{	
							alert("残高が合いません");
							if(Zandaka == Math.abs(GamenZandaka))
							{
								ii = TaisyakuCelNo;
							} 								
							document.vaSpread1.SetActiveCell(ii, jj);
							document.vaSpread1.focus();
							document.vaSpread1.EditMode = true;
							return;
						}					
					}

				}					
				
				////////残高チェックここまで
				
				if (((ii == 4) || (ii == 5)) && (Text1 == "0"))  
				{
					bCheck[ii] = 1;
				}
				
				
			}
			if(ReplaceStr(RowText, ",", "") != "")
			{
				if(bCheck[1] == 1)
				{
					alert("取引日を入力して下さい");								
					document.vaSpread1.SetActiveCell(1, jj);
					document.vaSpread1.focus();
					document.vaSpread1.EditMode = true;
					return;
				}
				if(bCheck[4] == 1 && bCheck[5] == 1)
				{
					alert("預入または引出を入力して下さい");
					document.vaSpread1.SetActiveCell(4, jj);
					document.vaSpread1.focus();
					document.vaSpread1.EditMode = true;
					return;
				}
				if(bCheck[4] == 0 && bCheck[5] == 0)
				{
					alert("預入・引出両方には入力できません");								
					document.vaSpread1.SetActiveCell(4, jj);
					document.vaSpread1.focus();
					document.vaSpread1.EditMode = true;
					return;
				}
				if(bCheck[6] == 1)
				{
					alert("貸借を入力して下さい");				
					document.vaSpread1.SetActiveCell(6, jj);
					document.vaSpread1.focus();
					document.vaSpread1.EditMode = true;
					return;
				}
				if(bCheck[7] == 1)
				{
					alert("残高を入力して下さい");				
					document.vaSpread1.SetActiveCell(7, jj);
					document.vaSpread1.focus();
					document.vaSpread1.EditMode = true;
					return;
				}

				form1.SendValue.value = form1.SendValue.value + RowText + ";"	
			}			

		
		}
		
		SubmitReal(form1);
		return true;
	}



	function SpreadInit(fpSpread)
	{
		fpSpread.MaxRows = 0;
<%
		ii = 0

		Query = "exec SPK補助簿_当座預金出納帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & GinkoCD & "'"
		Set Content = OpenQuery(Query)	  

		'選択行の色を変える動作を停止(090624小野)
		Response.Write("		SpreadRowColorMode = false;" & vbCrLf)
		Do While Not(Content.BOF Or Content.EOF)
			ii = ii + 1   					
			Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf) 		
			Response.Write("		fpSpread.Row = " & ii & ";" & vbCrLf)
			Response.Write("		fpSpread.Col = 1;" & vbCrLf)			
			'仕訳日選択モード
			If Shiwakebi = "1" Then
				'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加
				If InStr(TmpShiwakebiAry, SetTimeYYYYMMDD(Content.Fields("取引日"))) < 1 Then
					Response.Write("		fpSpread.TypeComboBoxList = """ & SetTimeYYYYMMDD(Content.Fields("取引日")) & "\t" & TmpShiwakebiAry & """;" & vbCrLf)
				End If
			End If
			Response.Write("		fpSpread.Text = """ & SetTimeYYYYMMDD(Content.Fields("取引日")) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 2;" & vbCrLf)						
			Response.Write("		fpSpread.Text = """ & Replace(Replace(Content.Fields("摘要"), "\", "\\"), """", "”") & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 3;" & vbCrLf)						
			Response.Write("		fpSpread.Text = """ & Replace(Replace(Content.Fields("小切手NO"), "\", "\\"), """", "”") & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 4;" & vbCrLf)			
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Content.Fields("預入金額"), false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 5;" & vbCrLf)			
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Content.Fields("払出金額"), false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 6;" & vbCrLf)			
			Response.Write("		fpSpread.Text = """ & ConvKubunMeisyo("貸借略区分", Content.Fields("貸借区分")) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 7;" & vbCrLf)			
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Content.Fields("残高"), false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 0;" & vbCrLf)						
			Response.Write("		fpSpread.Text = "" "";" & vbCrLf)	
			Content.MoveNext
		Loop

		'空白行を5行追加し1行目を選択状態にする(080620小野)
		ii = ii + 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, " & ii & ");" & vbCrLf)
		Response.Write("		fpSpread.EditMode=true;" & vbCrLf)
		'選択行の色を変える動作を再開(090624小野)
		Response.Write("		SpreadRowColorMode = true;" & vbCrLf)
		Response.Write("		SpreadRowColor(fpSpread);")	'選択行の色を変える(090624小野)

  %>
  	}
	
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="KeyDown(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript"> 
//	SpreadKeyDown(this, KeyAsciiCode, KeyShift);
</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 LANGUAGE="JavaScript">
	function SetRenewCell(obj, ColNo, RowNo) {
		<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
		//残高自動設定(080704小野)
		tmp = 0;
		for (jj = 1; jj <= obj.MaxRows; jj++) {
			ErrFlg = 0;
			obj.Row = jj;
			obj.Col = PlusCelNo;
			if ('' + obj.Text != '') {
				tmp = tmp + Math.floor(ConvMoneyToInt(obj.Text));
			} else {
				ErrFlg = 1;
			}
			obj.Col = MinusCelNo;
			if ('' + obj.Text != '') {
				tmp = tmp - Math.floor(ConvMoneyToInt(obj.Text));
			} else if (ErrFlg == 1) {
				ErrFlg = 2;
			}
			if (ErrFlg < 2) {
				obj.Col = TaisyakuCelNo;
				if (tmp < 0) {
					obj.Text = "貸";
				} else {
					obj.Text = "借";
				}
				obj.Col = TotalCelNo;
				obj.Text = Math.abs(tmp);
			}
		}
		<% End If %>
	}


	//スプレッドシート行移動(210107小野)
	function SpreadShiftRowSub(obj, Mode) {
		if (SpreadShiftRow(obj, Mode)) { //includesj.js
			//勘定科目名はSetRenewCellが必要
//			var KanjoCDCol = 1; //勘定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);
//			}
		}
	}

</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="ComboCloseUp(ColNo, RowNo)" LANGUAGE="JavaScript">
	this.focus();
</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>

<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript"> 
<% If GinkoCD <> "" Then %>
	document.vaSpread1.Redraw = false;
	<% If Shiwakebi = "1" Then %>
	//仕訳日選択モード
	SpreadLoad(document.vaSpread1, "取引日", 8, 12.5, "摘要", 44, 25, "小切手NO", 18, 12, "預入", 12, 12, "引出", 12, 12, "貸借", 8, 4.4, "残高", 12, 12);
	<% Else %>
	SpreadLoad(document.vaSpread1, "取引日", 0, 10.5, "摘要", 44, 25, "小切手NO", 18, 12, "預入", 12, 12, "引出", 12, 12, "貸借", 8, 4.4, "残高", 12, 12);
	<% End If %>
	
	document.vaSpread1.ScriptEnhanced = true;

	document.vaSpread1.Col = -1;
	document.vaSpread1.Row = -1;
	document.vaSpread1.fontsize = 11;
	document.vaSpread1.Col = 3;
	document.vaSpread1.Row = 0;
	document.vaSpread1.fontsize = 11;	
	
	if(typeof(form1.dummy) == "object")form1.dummy.focus();
	//	SpreadInit 第 3n + 1 引数 (nは整数)
	//	0:日付型 1:文字型 8:コンボボックス型 10:チェックボックス型 12:通貨型 13:数値型 21:勘定科目 22:摘要 44:摘要100byte

	<% If Shiwakebi = "1" Then %>
	//仕訳日選択モード
	document.vaSpread1.Row = -1;
	document.vaSpread1.Col = 1;
	document.vaSpread1.TypeComboBoxList = "<% = TmpShiwakebiAry %>"
	<% End If %>

	document.vaSpread1.Row = -1;
	document.vaSpread1.Col = 6;
	document.vaSpread1.TypeComboBoxList = "\t借\t貸"

//残高自動設定
<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
	document.vaSpread1.Row = -1;
	document.vaSpread1.Col = 7;
	document.vaSpread1.BackColorStyle = 1;
	document.vaSpread1.BackColor = 0xE6E6E6;
	document.vaSpread1.Lock = true;
<% End If %>

	document.vaSpread1.RetainSelBlock = false;

	SpreadInit(document.vaSpread1);	
	document.vaSpread1.Redraw = true;

<% End If %>
</SCRIPT>

<% = HtmlFooter %>
</html>
<% 
End Sub
%>