<!-- #include file="../../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：補助簿_商品有高帳
' 作成日：2002/9/17
' 作成者：川崎
' 目的 ：補助簿_商品有高帳を表示する。
' 概要 ：
' <<表示>>
' ・補助簿_商品有高帳の画面
' 履歴 ：2002/09/20 川崎 必須入力チェックの追加
' - 受払区分、取引先
' 履歴 ：2012/10/17 小野 材料元帳モードを新設
'################################################
'-->
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim ShijoCD
ShijoCD = Request("ShijoCD")
Dim SyohinCD
SyohinCD = Request("SyohinCD")
Dim Mode
Mode = Request("Mode")
Dim PageType
PageType = "商品有高帳"
If Mode = "Zairyo" Then
PageType = "材料元帳"
End If
Dim RouteType
RouteType = Request("RouteType")
Dim Label
Label = "商品"
If Mode = "Zairyo" Then
Label = "材料"
End If
Dim Query, Content
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
Dim SyohinCDClear
SyohinCDClear = 1
Query = "exec SPM" & Label & "一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If ShijoCD = "" Or ShijoCD = "" & Content.Fields("市場CD") Or (ShijoCD = "higenteietnegih" And "" & Content.Fields("市場CD") = "") Then '市場CDが指定されていれば絞込み（081111小野）
If Content.Fields("" & Label & "CD") = SyohinCD Then
SyohinCDClear = 0
End If
End If
Content.MoveNext
Loop
If SyohinCDClear = 1 Then
SyohinCD = ""
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_syohinaridakatyo_bin.asp" name="form1">
<input type="hidden" name="Mode" value="<% = Mode %>">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="SendValue">
<%
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, "", "", ""))
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
If SyohinCD <> "" 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 SyohinCD <> "" Then
'Response.Write(HttpL3_2("照会", "tblbtn( 'fk_syohinaridakatyo_view.asp?RouteType=" & RouteType & "&Mode=" & Mode & "&SyohinCD=" & SyohinCD & "')", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("照会", "tblbtn( 'fk_syohinaridakatyo_view.asp?RouteType=" & RouteType & "&Mode=" & Mode & "&SyohinCD=" & SyohinCD & "')", "印刷", "tblbtn( 'fk_syohinaridakatyo_view.asp?RouteType=" & RouteType & "&Mode=" & Mode & "&SyohinCD=" & SyohinCD & "&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="2">
<tr>
<td align="center" valign="middle">
<table width="780" height="100%" border="0" cellspacing="2" cellpadding="5" bgcolor="#ffffff" style="border:1px solid #000000">
<tr>
<td align="center">
<table width="954" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" align="center" height="30">
<table border="0" width="954" cellspacing="0" cellpadding="0">
<tr>
<td width="400" align="left" class="tx1416">
<% If SyohinCD <> "" Then %>
計算方法：
<select name="KeisanHoho" size="1" onMouseOver="if(SubmitFlg!=0){this.focus();}" class="tbox4_w">
<option value=""></option>
<option value="SS">先入先出法</option>
<option value="IH">移動平均法</option>
<% 'If Mode = "Zairyo" Then %>
<option value="SH">総平均法</option>
<% 'End If %>
</select>
<% End If %>
</td>
<td class="tx1618" align="center" style="border-bottom: 1px solid black;" nowrap><% = SetStringInsertSpace(PageType) %></td>
<td width="400" align="right" class="tx1416">
<% If SyohinCD <> "" Then %>
単位：
<object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
<param name="lpkpath" value="spread6.lpk">
</object>
<object width="123" height="20" onMouseOver="SubmitFlg=1" classid="clsid:41f841c1-ae16-11d5-8817-0050da6ef5e5" codebase="/<% = HomeAlias %>/binx/spr32x60.cab#version=1,1,1,1" id="vaSpread3" border="0">
</object>
<input type="hidden" name="Tani" value="">
<% End If %>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" valign="top" height="25">
<table border="0" cellpadding="0" cellspacing="0" class="tx1416">
<tr>
<% If PackageMode = 1 Then %>
<% ElseIf Mode = "Zairyo" Then %>
<% Else %>
<% If SyohinCD <> "" Then %>
<td align="center">取引先市場 </td>
<td align="center">
<select size="1" name="TShijoCD" class="tbox4_w" onChange="SetTorihikisakiShijoList(this.value);" 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>
<% End If %>
<td align="center">商品市場 </td>
<td align="center">
<select size="1" name="ShijoCD" class="tbox4_w" onChange="ShijoSelect()" 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") & """")
If Content.Fields("市場CD") = ShijoCD Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("市場名称") & "</option>" & vbCrLf)
Content.MoveNext
Loop
Response.Write("<option value=""higenteietnegih""")
If ShijoCD = "higenteietnegih" Then
Response.Write(" selected")
End If
Response.Write(">市場非限定</option>" & vbCrLf)
%>
</select>
</td>
<td align="center"> </td>
<% End If %>
<td align="center"><% = Label %>名 </td>
<td align="center">
<select size="1" name="SyohinCD" class="tbox4_w" onChange="SyohinSelect()" onMouseOver="if(SubmitFlg!=0){this.focus();}">
<option value="">＜＜ 選択してください ＞＞</option>
<%
Query = "exec SPM" & Label & "一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If ShijoCD = "" Or ShijoCD = "" & Content.Fields("市場CD") Or (ShijoCD = "higenteietnegih" And "" & Content.Fields("市場CD") = "") Then '市場CDが指定されていれば絞込み（081111小野）
Response.Write("<option value=""" & Content.Fields("" & Label & "CD") & """")
If Content.Fields("" & Label & "CD") = SyohinCD Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("" & Label & "名称") & "</option>" & vbCrLf)
End If
Content.MoveNext
Loop
%>
</select>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" valign="middle" style="ime-mode:disabled;">
<% If SyohinCD <> "" Then %>
<table width="770" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="middle" align="center">
<object width="1" height="1" classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
<param name="lpkpath" value="spread6.lpk">
</object>
<br>
<object width="954" 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 SubmitCheck() {
document.vaSpread3.Row = 1;
document.vaSpread3.Col = 1;
form1.Tani.value = document.vaSpread3.Text;
////////残高チェックここから
var PlusCelNo, MinusCelNo, TotalCelNo;
var Zandaka;
PlusCelNo = 4;
MinusCelNo = 7;
TotalCelNo = 10;
Zandaka = 0
////////残高チェックここまで
var ShiireTanka, ShiireSuryo, ShiireKingaku;
var HaraidashiTanka, HaraidashiSuryo, HaraidashiKingaku;
if (form1.KeisanHoho.value == "") {
alert("計算方法を選択してください ");
form1.KeisanHoho.focus();
return;
}
form1.SendValue.value = ""
var tmp1;
for (jj = 1; jj <= document.vaSpread1.MaxRows; jj++) {
document.vaSpread1.Row = jj;
SFlug = 0;
UFlug = 0;
ZFlug = 0;
var RowText;
RowText = "";
var bCheck;
bCheck = Array();
var aText;
aText = Array();
var nscheck=0; //数量・単価の入力チェック用
for (ii = 1; ii <= document.vaSpread1.MaxCols; ii++) {
document.vaSpread1.Col = ii;
bCheck[ii] = 0;
var Text1;
Text1 = document.vaSpread1.Text;
//残高補完フラグ
if ((ii == 4 || ii == 5) && Text1 != "") {
SFlug = 1;
}
if ((ii == 7 || ii == 8) && Text1 != "") {
UFlug = 1;
}
if ((ii == 10 || ii == 11) && Text1 != "") {
ZFlug = 1;
}
//残高自動設定
<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
if (ii == 6 && SFlug == 1) {
document.vaSpread1.Text = Math.floor(aText[4]) * Math.floor(aText[5]);
Text1 = document.vaSpread1.Text;
}
if (ii == 9 && UFlug == 1) {
document.vaSpread1.Text = Math.floor(aText[7]) * Math.floor(aText[8]);
Text1 = document.vaSpread1.Text;
}
<% If AutoZandakaNyuryoku <> "2" Then %>
if (ii == 12 && ZFlug == 1) {
document.vaSpread1.Text = Math.floor(aText[10]) * Math.floor(aText[11]);
Text1 = document.vaSpread1.Text;
}
<% End If %>
<% End If %>
if(document.vaSpread1.ColID == 12) {
Text1 = ReplaceStr(Text1, ",", "")
}
//↓金額・数量が0ならばNULL文字に変換（061115小野）
if(Text1 == "0" && ii > 3) {
Text1 = ""
}
//↑金額・数量が0ならばNULL文字に変換（061115小野）
aText[ii] = Text1;
RowText = RowText + Text1;
RowText = RowText + ",";
if(Text1 == "") {
bCheck[ii] = 1;
} else if (ii > 4) {
nscheck = 1;
}
}
if(ReplaceStr(RowText, ",", "") != "") {
// 取引日の未入力を許可（170821小野）
// if(bCheck[1] == 1) {
// alert("取引日を入力してください ");
// document.vaSpread1.SetActiveCell(1, jj);
// document.vaSpread1.focus();
// document.vaSpread1.EditMode = true;
// return;
// }
// 受払区分の未入力を許可（170821小野）
// if(bCheck[2] == 1) {
// alert("受払区分を入力してください ");
// document.vaSpread1.SetActiveCell(2, jj);
// document.vaSpread1.focus();
// document.vaSpread1.EditMode = true;
// return;
// }
//移動平均法のみ
if(form1.KeisanHoho.value == "IH") {
// if(bCheck[3] == 1)
// {
// alert("取引先を入力してください ");
// document.vaSpread1.SetActiveCell(3, jj);
// document.vaSpread1.focus();
// document.vaSpread1.EditMode = true;
// return;
// }
if(nscheck == 0) {
alert("受払いの明細を入力してください ");
document.vaSpread1.SetActiveCell(4, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
}
if(bCheck[4] == 0 || bCheck[5] == 0 || bCheck[6] == 0) {
if(bCheck[4] == 1) {
alert("受入の数量を入力してください ");
document.vaSpread1.SetActiveCell(4, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
if(bCheck[5] == 1) {
alert("受入の単価を入力してください ");
document.vaSpread1.SetActiveCell(5, 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(Math.floor(aText[4]) * Math.floor(aText[5]) != Math.floor(aText[6])) {
alert("正しい受入の金額を入力してください ");
document.vaSpread1.SetActiveCell(6, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
}
if(bCheck[7] == 0 || bCheck[8] == 0 || bCheck[9] == 0) {
if(bCheck[7] == 1) {
alert("払出の数量を入力してください ");
document.vaSpread1.SetActiveCell(7, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
//総平均法のみ
if (form1.KeisanHoho.value != "SH") {
if(bCheck[8] == 1)
{
alert("払出の単価を入力してください ");
document.vaSpread1.SetActiveCell(8, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
if(bCheck[9] == 1) {
alert("払出の金額を入力してください ");
document.vaSpread1.SetActiveCell(9, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
if(Math.floor(aText[7]) * Math.floor(aText[8]) != Math.floor(aText[9])) {
alert("正しい払出の金額を入力してください ");
document.vaSpread1.SetActiveCell(9, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
}
}
if(bCheck[10] == 0 || bCheck[11] == 0 || bCheck[12] == 0) {
if(bCheck[10] == 1) {
alert("残高の数量を入力してください ");
document.vaSpread1.SetActiveCell(10, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
if (form1.KeisanHoho.value != "SH") {
if(bCheck[11] == 1) {
alert("残高の単価を入力してください ");
document.vaSpread1.SetActiveCell(11, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
if(bCheck[12] == 1) {
alert("残高の金額を入力してください ");
document.vaSpread1.SetActiveCell(12, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
if(Math.floor(aText[10]) * Math.floor(aText[11]) != Math.floor(aText[12])) {
alert("正しい残高の金額を入力してください ");
document.vaSpread1.SetActiveCell(12, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
}
}
//移動平均法のみ
if(form1.KeisanHoho.value == "IH") {
////////残高チェックここから
if(aText[PlusCelNo] != "") {
Zandaka = Zandaka + Math.floor(aText[PlusCelNo]);
}
if(aText[MinusCelNo] != "") {
Zandaka = Zandaka - Math.floor(aText[MinusCelNo]);
}
if(Zandaka != Math.floor(aText[TotalCelNo])) {
alert("残高の数量が合いません ");
document.vaSpread1.SetActiveCell(10, jj);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
////////残高チェックここまで
}
form1.SendValue.value = form1.SendValue.value + RowText + ";"
}
}
SubmitReal(form1);
return true;
}
function ShijoSelect(){
var v,i;
i = form1.ShijoCD.selectedIndex;
v = form1.ShijoCD.options[i].value;
tblbtn("fk_syohinaridakatyo.asp?RouteType=<% = RouteType %>&ShijoCD=" + v + "&SyohinCD=<% = SyohinCD %>");
}
function SyohinSelect(){
var v,i;
i = form1.SyohinCD.selectedIndex;
v = form1.SyohinCD.options[i].value;
tblbtn("fk_syohinaridakatyo.asp?RouteType=<% = RouteType %>&Mode=<% = Mode %>&ShijoCD=<% = ShijoCD %>&SyohinCD=" + v);
}
<%
'取引先市場配列作成（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") <> KaisyaCD And (PackageMode = 1 Or Content.Fields("業種CD") <> "B") Then '（081111小野）
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
'小売販売
If KourihanbaiRiyo() > 0 Then
ReDim PreServe TorihikisakiMeishoAry(UBound(TorihikisakiMeishoAry) + 1)
ReDim PreServe TorihikisakiShijoAry(UBound(TorihikisakiShijoAry) + 1)
TorihikisakiMeishoAry(UBound(TorihikisakiMeishoAry)) = "" & ConvKaisyaMeisyo("SJ4KOURIHANBAI")
TorihikisakiShijoAry(UBound(TorihikisakiShijoAry)) = ""
End If
%>
function SetTorihikisakiShijoList(ShijoCD) { //取引先メニューを選択市場で絞込む（081111小野）
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) '最終行のネストを閉じる
%>
document.vaSpread1.Col = 3;
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 ii
ii = 0
Dim Torihikibi, UkebaraiKubun, TorihikisakiCD
Dim UkeireSuryo, UkeireTanka, UkeireKingaku
Dim HaraidasiSuryo, HaraidasiTanka, HaraidasiKingaku
Dim ZandakaSuryo, ZandakaTanka, ZandakaKingaku
Dim KeisanHoho
Dim Tani
Query = "exec SPK補助簿_" & PageType & "取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & SyohinCD & "'"
Set Content = OpenQuery(Query)
'選択行の色を変える動作を停止（090624小野）
Response.Write(" SpreadRowColorMode = false;" & vbCrLf)
Do While Not(Content.BOF Or Content.EOF)
ii = ii + 1
KeisanHoho = Content.Fields("" & PageType & "計算区分")
Tani = Replace(Replace(Content.Fields("単位"), "\", "\\"), """", "”")
Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
UkebaraiKubun = Content.Fields("受払区分")
TorihikisakiCD = Content.Fields("取引先CD")
UkeireTanka = Content.Fields("受入単価")
UkeireSuryo = Content.Fields("受入数量")
UkeireKingaku = Content.Fields("受入金額")
HaraidasiTanka = Content.Fields("払出単価")
HaraidasiSuryo = Content.Fields("払出数量")
HaraidasiKingaku = Content.Fields("払出金額")
ZandakaTanka = Content.Fields("残高単価")
ZandakaSuryo = Content.Fields("残高数量")
ZandakaKingaku = Content.Fields("残高金額")
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(Torihikibi)) < 1 Then
Response.Write(" fpSpread.TypeComboBoxList = """ & SetTimeYYYYMMDD(Torihikibi) & "\t" & TmpShiwakebiAry & """;" & vbCrLf)
End If
End If
Response.Write(" fpSpread.Text = """ & Torihikibi & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 2;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvKubunMeisyo("受払区分", UkebaraiKubun) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 3;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvKaisyaRyakuMeisyo(TorihikisakiCD) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 4;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(UkeireSuryo, false ,false) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 5;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(UkeireTanka , false ,false) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 6;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(UkeireKingaku , false ,false) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 7;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(HaraidasiSuryo, false ,false) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 8;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(HaraidasiTanka , false ,false) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 9;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(HaraidasiKingaku , false ,false) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 10;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(ZandakaSuryo, false ,false) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 11;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(ZandakaTanka , false ,false) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 12;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(ZandakaKingaku , false ,false) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 0;" & vbCrLf)
Response.Write(" fpSpread.Text = "" "";" & vbCrLf)
Content.MoveNext
Loop
Response.Write(" form1.Tani.value = """ & Tani & """;" & vbCrLf)
'空白行を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>
<%
Dim iii
For iii = 1 To 3
If iii <> 2 Then
%>
<SCRIPT FOR="vaSpread<% = iii %>" EVENT="KeyDown(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
// SpreadKeyDown(this, KeyAsciiCode, KeyShift);
</SCRIPT>
<SCRIPT FOR="vaSpread<% = iii %>" EVENT="KeyUp(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
SpreadKeyUp(this, KeyAsciiCode, KeyShift);
</SCRIPT>
<SCRIPT FOR="vaSpread<% = iii %>" EVENT="ScriptLeaveCell(ColNo, RowNo, NewColNo, NewRowNo, Cancel)" LANGUAGE="VBScript">
Dim tmp
tmp = SpreadChange(Me, ColNo, RowNo)
If tmp = "ERR" Then
Cancel = true
SpreadReFocus(Me)
<% If iii = 1 Then %>
Else
Call SetRenewCell(Me, ColNo, RowNo)
<% End If %>
End If
</SCRIPT>
<SCRIPT FOR="vaSpread<% = iii %>" EVENT="Click(ColNo, RowNo)" LANGUAGE="JavaScript">
// SpreadClick(this, ColNo, RowNo);
this.Col = this.ActiveCol;
this.Row = this.ActiveRow;
this.EditMode = true;
</SCRIPT>
<%
End If
Next
%>
<SCRIPT LANGUAGE="JavaScript">
function SetRenewCell(obj, ColNo, RowNo) {
<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
//残高自動設定（100921小野）
obj.Row = RowNo;
<% If AutoZandakaNyuryoku <> "2" Then %>
if (ColNo >= 4 && ColNo <= 12) {
<% Else %>
if (ColNo >= 4 && ColNo <= 9) {
<% End If %>
var SuryoCol;
var TankaCol;
var ZandakaCol;
if (ColNo >= 4 && ColNo <= 6) {
SuryoCol = 4;
TankaCol = 5;
ZandakaCol = 6;
} else if (ColNo >= 7 && ColNo <= 9) {
SuryoCol = 7;
TankaCol = 8;
ZandakaCol = 9;
} else if (ColNo >= 10 && ColNo <= 12) {
SuryoCol = 10;
TankaCol = 11;
ZandakaCol = 12;
}
var Suryo;
var Tanka;
var Zandaka;
obj.Col = SuryoCol;
Suryo = obj.Text;
Suryo = ReplaceStr(Suryo, ",", "")
obj.Col = TankaCol;
Tanka = obj.Text;
Tanka = ReplaceStr(Tanka, ",", "")
if (Suryo != "" && Tanka != "") {
obj.Col = ZandakaCol;
obj.Text = Math.floor(Suryo) * Math.floor(Tanka);
}
}
<% 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="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 SyohinCD <> "" Then %>
form1.KeisanHoho.value = "<% = KeisanHoho %>";
<% If Not(IsNull(Tani)) Then %>
form1.Tani.value = "<% = Tani %>";
<% End If %>
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.3, "受払区分", 8, 9.8, "取引先", 8, 11.8, "数量", 12, 5.4, "単価", 12, 9.4, "金額", 12, 11.8, "数量", 12, 5.4, "単価", 12, 9.4, "金額", 12, 11.8, "数量", 12, 5.4, "単価", 12, 9.4, "金額", 12, 11.8);
<% Else %>
SpreadLoad(document.vaSpread1, "取引日", 0, 10.2, "受払区分", 8, 9.8, "取引先", 8, 11.8, "数量", 12, 6, "単価", 12, 9.4, "金額", 12, 11.8, "数量", 12, 6, "単価", 12, 9.4, "金額", 12, 11.8, "数量", 12, 6, "単価", 12, 9.4, "金額", 12, 11.8);
<% End If %>
SpreadLoad(document.vaSpread3, "摘要", 22, 15);
SpreadColumn(document.vaSpread1, 4, 99999)
SpreadColumn(document.vaSpread1, 5, 99999999)
SpreadColumn(document.vaSpread1, 6, 9999999999)
SpreadColumn(document.vaSpread1, 7, 99999)
SpreadColumn(document.vaSpread1, 8, 99999999)
SpreadColumn(document.vaSpread1, 9, 9999999999)
SpreadColumn(document.vaSpread1, 10, 99999)
SpreadColumn(document.vaSpread1, 11, 99999999)
SpreadColumn(document.vaSpread1, 12, 9999999999)
document.vaSpread1.ScriptEnhanced = true;
document.vaSpread3.ScriptEnhanced = true;
document.vaSpread3.BackColor = 0xFeFeFe;
document.vaSpread3.RowHeadersShow = false;
document.vaSpread3.ColHeadersShow = false;
document.vaSpread3.MaxRows = 1;
document.vaSpread3.MaxCols = 1;
document.vaSpread3.Row = 0;
document.vaSpread3.Col = 0;
var SpreadHeader;
SpreadHeader = -1000;
document.vaSpread1.Col = -1;
document.vaSpread1.Row = -1;
document.vaSpread1.fontsize = 11;
document.vaSpread1.Col = -1;
document.vaSpread1.Row = 0 ;
document.vaSpread1.fontsize = 11;
document.vaSpread1.RowHeight(0) = 10;
document.vaSpread1.ColHeaderRows = 2;
document.vaSpread1.AddCellSpan(1, SpreadHeader, 1, 2);
document.vaSpread1.AddCellSpan(2, SpreadHeader, 2, 1);
document.vaSpread1.AddCellSpan(4, SpreadHeader, 3, 1);
document.vaSpread1.AddCellSpan(7, SpreadHeader, 3, 1);
document.vaSpread1.AddCellSpan(10, SpreadHeader, 3, 1);
document.vaSpread1.Row = SpreadHeader;
document.vaSpread1.Col = -1;
document.vaSpread1.fontsize = 9;
document.vaSpread1.Col = 1;
document.vaSpread1.Text = "取引日";
document.vaSpread1.Col = 2;
document.vaSpread1.Text = "摘要";
document.vaSpread1.Col = 4;
document.vaSpread1.Text = "受入";
document.vaSpread1.Col = 7;
document.vaSpread1.Text = "払出";
document.vaSpread1.Col = 10;
document.vaSpread1.Text = "残高";
document.vaSpread1.Row = SpreadHeader + 1;
document.vaSpread1.Col = -1;
document.vaSpread1.fontsize = 9;
document.vaSpread1.Col = 2;
document.vaSpread1.Text = "受払区分";
document.vaSpread1.Col = 3;
document.vaSpread1.Text = "取引先";
document.vaSpread1.Col = 4;
document.vaSpread1.Text = "数量";
document.vaSpread1.Col = 5;
document.vaSpread1.Text = "単価";
document.vaSpread1.Col = 6;
document.vaSpread1.Text = "金額";
document.vaSpread1.Col = 7;
document.vaSpread1.Text = "数量";
document.vaSpread1.Col = 8;
document.vaSpread1.Text = "単価";
document.vaSpread1.Col = 9;
document.vaSpread1.Text = "金額";
document.vaSpread1.Col = 10;
document.vaSpread1.Text = "数量";
document.vaSpread1.Col = 11;
document.vaSpread1.Text = "単価";
document.vaSpread1.Col = 12;
document.vaSpread1.Text = "金額";
document.vaSpread1.Row = -1;
<% If Shiwakebi = "1" Then %>
//仕訳日選択モード
document.vaSpread1.Row = -1;
document.vaSpread1.Col = 1;
document.vaSpread1.TypeComboBoxList = "<% = TmpShiwakebiAry %>"
<% End If %>
document.vaSpread1.Col = 2;
<% If Mode = "Zairyo" Then %>
document.vaSpread1.TypeComboBoxList = "\t繰越\t仕入\t払出"
<% Else %>
document.vaSpread1.TypeComboBoxList = "\t繰越\t仕入\t仕入返品\t売上\t売上返品"
<% End If %>
document.vaSpread1.Col = 3;
<%
Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
Dim ListText
' ListText = " \t"
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("会社CD") <> KaisyaCD And (PackageMode = 1 Or Content.Fields("業種CD") <> "B") Then '銀行を除外（080618小野）
' If ListText <> "" Then
ListText = ListText & "\t"
' End If
ListText = ListText & Content.Fields("会社略名称")
End If
Content.MoveNext
Loop
'小売販売
If KourihanbaiRiyo() > 0 Then
If ListText <> "" Then
ListText = ListText & "\t"
End If
ListText = ListText & ConvKaisyaMeisyo("SJ4KOURIHANBAI")
End If
Response.Write("document.vaSpread1.TypeComboBoxList = """ & ListText & """")
%>
//残高自動設定
<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
document.vaSpread1.Row = -1;
document.vaSpread1.Col = 6;
document.vaSpread1.BackColorStyle = 1;
document.vaSpread1.BackColor = 0xE6E6E6;
document.vaSpread1.Lock = true;
document.vaSpread1.Col = 9;
document.vaSpread1.BackColorStyle = 1;
document.vaSpread1.BackColor = 0xE6E6E6;
document.vaSpread1.Lock = true;
<% If AutoZandakaNyuryoku <> "2" Then %>
document.vaSpread1.Col = 12;
document.vaSpread1.BackColorStyle = 1;
document.vaSpread1.BackColor = 0xE6E6E6;
document.vaSpread1.Lock = true;
<% End If %>
<% End If %>
document.vaSpread1.RetainSelBlock = false;
SpreadInit(document.vaSpread1);
document.vaSpread3.Row = 1;
document.vaSpread3.Col = 1;
document.vaSpread3.TypeMaxEditLen = 40;
document.vaSpread3.Text = "<% = Tani %>";
document.vaSpread1.Redraw = true;
document.vaSpread3.Redraw = true;
<% End If %>
</SCRIPT>
<% = HtmlFooter %>
</html>
<%
End Sub
%>