<!-- #include file="../../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：補助簿_受取・支払手形記入帳
' 作成日：2002/9/13
' 作成者：川崎
' 目的 ：受取・支払手形記入帳を表示する。
' 概要 ：
' <<表示>>
' ・受取・支払手形記入帳の画面
'
'################################################
'-->
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim PageType
PageType = Request("PageType")
Dim Label
If PageType = "Uketori" Then
Label = "受取手形記入帳"
Else
Label = "支払手形記入帳"
End If
Dim Title
If PageType = "Uketori" Then
Title = "受取手形記入帳"
Else
Title = "支払手形記入帳"
End If
Dim RouteType
RouteType = Request("RouteType")
'仕訳日選択モード
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_uketorisiharaitegatatyo_bin.asp" name="form1">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="SendValue">
<input type="hidden" name="PageType" value="<% = PageType %>">
<%
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 & "')", Label, "", "", "", "", "","", "", "", ""))
ElseIf PackageMode = 1 Then
Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "手入力帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac3.asp')", Label, "", "", "", "", "", "", ""))
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')", Label, "tblbtn( '/" & HomeAlias & "/user/bk/hojyobo/fk_uketorisiharaitegatatyo.asp?PageType=" & PageType & "')", "", ""))
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
'※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);", "", ""))
'Response.Write(HttpL3_2("照会", "tblbtn( 'fk_uketorisiharaitegatatyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "')", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("照会", "tblbtn( 'fk_uketorisiharaitegatatyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "')", "印刷", "tblbtn( 'fk_uketorisiharaitegatatyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "&AutoPrint=1')", "", "", "", "", "", ""))
Response.Write(HttpL4(Label, ""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="2">
<tr>
<td align="center" valign="middle">
<table width="785" height="100%" border="0" cellspacing="2" cellpadding="5" bgcolor="#ffffff" style="border:1px solid #000000">
<tr>
<td align="center">
<table width="785" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" align="center" height="30">
<table border="0" width="120" cellspacing="0" cellpadding="0">
<tr>
<td class="tx1618" align="center" style="border-bottom: 1px solid black;" nowrap><% = SetStringInsertSpace(Label) %></td>
</tr>
</table>
</td>
</tr>
<% If PackageMode = 1 Then %>
<% Else %>
<tr>
<td align="center" valign="top" height="25">
<table border="0" cellpadding="0" cellspacing="0" class="tx1416">
<tr>
<td align="center">支払人市場 </td>
<td align="center">
<select size="1" name="SShijoCD" class="tbox4_w" onChange="SetShijoList(this);" onMouseOver="if(SubmitFlg!=0){this.focus();}">
<option value="">全て表示</option>
<%
Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("<option value=""" & Content.Fields("市場CD") & """>" & Content.Fields("市場名称") & "</option>" & vbCrLf)
Content.MoveNext
Loop
%>
</select>
</td>
<td align="center"> 振出人市場 </td>
<td align="center">
<select size="1" name="FShijoCD" class="tbox4_w" onChange="SetShijoList(this);" onMouseOver="if(SubmitFlg!=0){this.focus();}">
<option value="">全て表示</option>
<%
Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("<option value=""" & Content.Fields("市場CD") & """>" & Content.Fields("市場名称") & "</option>" & vbCrLf)
Content.MoveNext
Loop
%>
</select>
</td>
</tr>
</table>
</td>
</tr>
<% End If %>
<tr>
<td valign="middle">
<object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
<param name="lpkpath" value="spread6.lpk">
</object>
<object width="957" 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>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
</body>
<SCRIPT LANGUAGE="JavaScript">
function SubmitCheck() {
var dtlcnt=0;
form1.SendValue.value = "";
for(jj = 1; jj <= document.vaSpread1.MaxRows; jj++) {
document.vaSpread1.Row = jj;
var RowText;
var bCheck;
bCheck = Array();
RowText = "";
for(ii = 1; ii <= document.vaSpread1.MaxCols; ii++) {
document.vaSpread1.Col = ii;
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")
}
if(document.vaSpread1.ColID == 12) {
Text1 = ReplaceStr(Text1, ",", "")
}
RowText = RowText + Text1;
RowText = RowText + ",";
bCheck[ii] = Text1;
if (ii == 3 && bCheck[ii] == "0") { //金額の0は未入力扱い
bCheck[ii] = "";
}
}
if(ReplaceStr(RowText, ",", "") != "") {
if (bCheck[1] == "" && bCheck[2] == "" && bCheck[3] == "" && bCheck[4] == "" && bCheck[5] == "" && bCheck[6] == "" && bCheck[7] == "" && bCheck[8] == "" && bCheck[9] == "" && bCheck[10] == "" && bCheck[11] == "" && bCheck[12] == "") { //0入力のみでもヒットしてしまうのでここで除外
} else {
if(bCheck[1] == "") {
alert("取引日を入力して下さい");
document.vaSpread1.SetActiveCell(1, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
if(bCheck[3] == "") {
alert("手形金額を入力して下さい");
document.vaSpread1.SetActiveCell(3, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
if(bCheck[4] == "") {
alert("手形種類を入力して下さい");
document.vaSpread1.SetActiveCell(4, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
if(bCheck[5] == "") {
alert("手形番号を入力して下さい");
document.vaSpread1.SetActiveCell(5, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
if(bCheck[6] == "") {
<% If PageType = "Uketori" Then %>
alert("支払人を入力して下さい");
<% Else %>
alert("受取人を入力して下さい");
<% End If %>
document.vaSpread1.SetActiveCell(6, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
if(bCheck[7] == "") {
alert("振出人を入力して下さい");
document.vaSpread1.SetActiveCell(7, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
if(bCheck[8] == "") {
alert("振出日を入力して下さい");
document.vaSpread1.SetActiveCell(8, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
if(bCheck[9] == "") {
alert("満期日を入力して下さい");
document.vaSpread1.SetActiveCell(9, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
var furidasibi = Date.parse(bCheck[8]);
var mankibi = Date.parse(bCheck[9]);
if(furidasibi > mankibi) {
alert("満期日が振出日以前です正しく入力して下さい");
document.vaSpread1.SetActiveCell(9, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
if(bCheck[10] == "") {
alert("支払場所を入力して下さい");
document.vaSpread1.SetActiveCell(10, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
// if(bCheck[11] > bCheck[9]) {
// alert("顛末日は満期日以前で正しく入力して下さい");
// document.vaSpread1.SetActiveCell(11, jj);
// document.vaSpread1.focus();
// document.vaSpread1.EditMode = true;
// return;
// }
if((bCheck[11] != "") && (bCheck[12] == "")) {
alert("顛末摘要を入力して下さい");
document.vaSpread1.SetActiveCell(12, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
if((bCheck[11] == "") && (bCheck[12] != "")) {
alert("顛末日を入力して下さい");
document.vaSpread1.SetActiveCell(11, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
form1.SendValue.value = form1.SendValue.value + RowText + ";"
dtlcnt++
}
}
}
SubmitReal(form1);
return true;
}
<%
'取引先市場配列作成（081111小野）
Dim TorihikisakiMeishoAry
ReDim TorihikisakiMeishoAry(0)
Dim TorihikisakiShijoAry
ReDim TorihikisakiShijoAry(0)
Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("業種CD") <> "B" Then
ReDim PreServe TorihikisakiMeishoAry(UBound(TorihikisakiMeishoAry) + 1)
ReDim PreServe TorihikisakiShijoAry(UBound(TorihikisakiShijoAry) + 1)
TorihikisakiMeishoAry(UBound(TorihikisakiMeishoAry)) = "" & Content.Fields("会社略名称")
TorihikisakiShijoAry(UBound(TorihikisakiShijoAry)) = "" & Content.Fields("市場CD")
End If
Content.MoveNext
Loop
%>
function SetShijoList(obj) { //取引先メニューを選択市場で絞込む（081111小野）
var ShijoCD = obj.value;
var ii;
var Idx;
Idx = 0;
var listout;
listout = "";
document.vaSpread1.Redraw = false;
<%
Dim PreShijoCD
PreShijoCD = ""
Response.Write(" if (1 == 0) {" & vbCrLf) '1行目のダミーネスト
For ii = 1 To UBound(TorihikisakiMeishoAry)
If TorihikisakiShijoAry(ii) <> PreShijoCD Then
Response.Write(" }" & vbCrLf) '上にダミーネストを設けてあるので1行目から閉じてOK
PreShijoCD = TorihikisakiShijoAry(ii)
Response.Write(" if (ShijoCD == """" || ShijoCD == """ & TorihikisakiShijoAry(ii) & """) {" & vbCrLf)
End If
' Response.Write(" if (listout != """") listout = listout + ""\t"";" & vbCrLf)
Response.Write(" listout = listout + ""\t"";" & vbCrLf)
Response.Write(" listout = listout + """ & TorihikisakiMeishoAry(ii) & """;" & vbCrLf)
Next
Response.Write(" }" & vbCrLf) '最終行のネストを閉じる
%>
//イベント発生フォーム名で支払人と振出人をトグルする
if (obj.name == "SShijoCD") {
document.vaSpread1.Col = 6;
} else {
document.vaSpread1.Col = 7;
}
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;
}
function SpreadInit(fpSpread)
{
fpSpread.MaxRows = 0;
<%
Dim Query
Dim Content
Dim ii
ii = 0
Query = "exec SPK補助簿_" & Label & "取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
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 = """ & ConvIntToMoney(Content.Fields("金額"), false, false) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 4;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvKubunMeisyo("手形種類略区分", Content.Fields("手形種類区分")) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 5;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & Replace(Replace(Content.Fields("手形番号"), "\", "\\"), """", "”") & """;" & vbCrLf)
If PageType = "Uketori" Then
Response.Write(" fpSpread.Col = 6;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvKaisyaRyakuMeisyo(Content.Fields("支払人")) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 7;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvKaisyaRyakuMeisyo(Content.Fields("振出人または裏書人")) & """;" & vbCrLf)
Else
Response.Write(" fpSpread.Col = 6;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvKaisyaRyakuMeisyo(Content.Fields("受取人")) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 7;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvKaisyaRyakuMeisyo(Content.Fields("振出人")) & """;" & vbCrLf)
End If
Response.Write(" fpSpread.Col = 8;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & SetTimeYYYYMMDD(Content.Fields("振出日")) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 9;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & SetTimeYYYYMMDD(Content.Fields("満期日")) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 10;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvKaisyaRyakuMeisyo(Content.Fields("支払場所")) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 11;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & SetTimeYYYYMMDD(Content.Fields("顛末日付")) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 12;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & Replace(Replace(Content.Fields("顛末摘要"), "\", "\\"), """", "”") & """;" & 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小野）
%>
}
//スプレッドシート行移動（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="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)
End If
</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(typeof(form1.dummy) == "object")form1.dummy.focus();
// SpreadInit 第 3n + 1 引数 (nは整数)
// 0:日付型 1:文字型 8:コンボボックス型 10:チェックボックス型 12:通貨型 13:数値型 21:勘定科目 22:摘要 23:日付型(会計期間制限無し) 44:摘要100byte
document.vaSpread1.Redraw = false;
<% If Shiwakebi = "1" Then %>
//仕訳日選択モード
<% If PageType = "Uketori" Then %>
SpreadLoad(document.vaSpread1, "取引日", 8, 11, "摘要", 44, 11.6, "金額", 12, 10.4, "種類", 8, 5.6, "手形番号", 1, 8, "支払人" , 8, 10.5, "振出または\r\n裏書人", 8, 10.5, "振出日", 23, 9, "満期日", 23, 9, "支払場所", 8, 10.5, "顛末日付", 23, 9,"顛末摘要", 44, 8.4)
<% Else %>
SpreadLoad(document.vaSpread1, "取引日", 8, 11, "摘要", 44, 11.6, "金額", 12, 10.4, "種類", 8, 5.6, "手形番号", 1, 8, "受取人" , 8, 10.5, "振出人", 8, 10.5, "振出日", 23, 9, "満期日", 23, 9, "支払場所", 8, 10.5, "顛末日付", 23, 9,"顛末摘要", 44, 8.4)
<% End If %>
<% Else %>
<% If PageType = "Uketori" Then %>
SpreadLoad(document.vaSpread1, "取引日", 23, 9, "摘要", 44, 11.6, "金額", 12, 10.4, "種類", 8, 5.6, "手形番号", 1, 10, "支払人" , 8, 10.5, "振出または\r\n裏書人", 8, 10.5, "振出日", 23, 9, "満期日", 23, 9, "支払場所", 8, 10.5, "顛末日付", 23, 9,"顛末摘要", 44, 8.4)
<% Else %>
SpreadLoad(document.vaSpread1, "取引日", 23, 9, "摘要", 44, 11.6, "金額", 12, 10.4, "種類", 8, 5.6, "手形番号", 1, 10, "受取人" , 8, 10.5, "振出人", 8, 10.5, "振出日", 23, 9, "満期日", 23, 9, "支払場所", 8, 10.5, "顛末日付", 23, 9,"顛末摘要", 44, 8.4)
<% End If %>
<% End If %>
document.vaSpread1.ScriptEnhanced = true;
//その他の Spread に関する設定はここに入れる
document.vaSpread1.Col = -1;
document.vaSpread1.Row = -1;
document.vaSpread1.fontsize = 10;
document.vaSpread1.Col = -1;
document.vaSpread1.Row = 0 ;
document.vaSpread1.fontsize = 10;
document.vaSpread1.TypeTextWordWrap = true;
document.vaSpread1.RowHeight(0) = 20;
<% If Shiwakebi = "1" Then %>
//仕訳日選択モード
document.vaSpread1.Row = -1;
document.vaSpread1.Col = 1;
document.vaSpread1.TypeComboBoxList = "<% = TmpShiwakebiAry %>"
<% End If %>
<%
Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
Dim ListText , ListBank
ListText = ""
ListBank = ""
Do While Not(Content.BOF Or Content.EOF)
'サイバー会計モードでは支払場所に全ての会社を表示
If (PackageMode = 1 Or Content.Fields("業種CD") = "B") Then
' If ListBank <> "" Then
ListBank = ListBank & "\t"
' End If
ListBank = ListBank & Content.Fields("会社略名称")
End If
' If ListText <> "" Then
ListText = ListText & "\t"
' End If
ListText = ListText & Content.Fields("会社略名称")
Content.MoveNext
Loop
%>
document.vaSpread1.Row = -1;
document.vaSpread1.Col = 4;
document.vaSpread1.TypeComboBoxList = "\t約束\t為替"
document.vaSpread1.Col = 6;
<% = "document.vaSpread1.TypeComboBoxList = """ & ListText & """" %>
document.vaSpread1.Col = 7;
<% = "document.vaSpread1.TypeComboBoxList = """ & ListText & """" %>
document.vaSpread1.Col = 10;
<% = "document.vaSpread1.TypeComboBoxList = """ & ListBank & """" %>
document.vaSpread1.RetainSelBlock = false;
SpreadInit(document.vaSpread1);
document.vaSpread1.Redraw = true;
</SCRIPT>
<% = HtmlFooter %>
</html>
<%
End Sub
%>