<!-- #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 %>