<!-- #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 Cnt 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 TorihikisakiCDAry Dim TorihikisakiAry ReDim TorihikisakiCDAry(0) ReDim TorihikisakiAry(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 '銀行を除外(080618小野) ReDim PreServe TorihikisakiCDAry(UBound(TorihikisakiCDAry) + 1) ReDim PreServe TorihikisakiAry(UBound(TorihikisakiAry) + 1) TorihikisakiCDAry(UBound(TorihikisakiCDAry)) = "" & Content.Fields("会社CD") TorihikisakiAry(UBound(TorihikisakiAry)) = "" & Content.Fields("会社略名称") End If Content.MoveNext Loop '小売販売 If KourihanbaiRiyo() > 0 Then ReDim PreServe TorihikisakiCDAry(UBound(TorihikisakiCDAry) + 1) ReDim PreServe TorihikisakiAry(UBound(TorihikisakiAry) + 1) TorihikisakiCDAry(UBound(TorihikisakiCDAry)) = "SJ4KOURIHANBAI" TorihikisakiAry(UBound(TorihikisakiAry)) = "" & ConvKaisyaMeisyo(TorihikisakiCDAry(UBound(TorihikisakiCDAry))) End If '取引先市場配列作成(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 '仕訳日選択モード Dim Shiwakebi Shiwakebi = "0" If ShiwakebiSelect = 1 Then Shiwakebi = GetEnshuParam(EnshuCD, "日付仕訳日指定") End If ' Shiwakebi = "0" ' Shiwakebi = "1" Dim TmpShiwakebiAry Dim ShiwakebiAry '自前フォーム用配列 ReDim ShiwakebiAry(0) 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("取引日")) ReDim PreServe ShiwakebiAry(UBound(ShiwakebiAry) + 1) '配列+1 ShiwakebiAry(UBound(ShiwakebiAry)) = "" & 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 Dim HeightCell Dim WidthCell0, WidthCell1, WidthCell2, WidthCell3, WidthCell4, WidthCell5, WidthParent, WidthParent2 Dim SpreadCls Dim BaseText1214 Dim BaseText1416 HeightCell = 20 WidthCell0 = 84 WidthCell1 = 80 WidthCell2 = 96 WidthCell3 = 48 WidthCell4 = 78 WidthCell5 = 98 WidthParent = 968 WidthParent2 = 946 If Shiwakebi = "1" Then WidthCell0 = WidthCell0 + 10 WidthParent = WidthParent + 10 End If SpreadCls = "Spread4" BaseText1214 = "tx1416" BaseText1416 = "tx1618" Dim ii Dim Torihikibi, UkebaraiKubun, TorihikisakiCD Dim UkeireSuryo, UkeireTanka, UkeireKingaku Dim HaraidasiSuryo, HaraidasiTanka, HaraidasiKingaku Dim ZandakaSuryo, ZandakaTanka, ZandakaKingaku Dim KeisanHoho Dim Tani %> <html> <% = HtmlHeader("sj3tyobored11") %> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 2; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)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" autocomplete="off"> <!-- testフォームが単一だとEnterでsubmitされてしまうのでダミーフォームを設置 --> <input type="text" name="dummydummydummydummydummydummydummy" style="display:none;"> <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);", "", "")) If GB_IEmode = "1" 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 '※HttpL3_1にボタンを追加する事前処理(210107小野) Call HttpL3_1_AddBtn( "", "", "", "", "", "", "", "", "", "") Response.Write(HttpL3_1("保存", "SubmitCheck()", "行挿入", "SpRowInsertSub();", "行削除", "SpRowDeleteSub();", "行↑", "SpRowShiftSub('Up');", "行↓", "SpRowShiftSub('Dn');")) End If 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="<% = WidthParent %>" height="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top" align="center" height="30"> <table border="0" width="<% = WidthParent %>" cellspacing="0" cellpadding="0"> <tr> <td width="400" align="left" class="tx1416"> <% If SyohinCD <> "" Then %> 計算方法: <select name="KeisanHoho" size="1"<% If GB_IEmode = "1" Then %> onMouseOver="if(SubmitFlg!=0){this.focus();}"<% End If %> 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> <% If GB_IEmode = "1" Then %> <td class="tx1618" align="center" style="border-bottom: 1px solid black;" nowrap><% = SetStringInsertSpace(PageType) %></td> <% Else %> <td align="center" width="30%" class="bb2" nowrap><% = SetStringInsertSpace(PageType) %></td> <% End If %> <td width="400" align="right" class="tx1416"> <% If SyohinCD <> "" Then %> 単位: <% If GB_IEmode = "1" 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=""> <% Else %> <input type="text" name="Tani" size="12" value="<% = Tani %>" class="tbox4_ime" style="background-color:#ffffff;" onBlur="FormStrLeftIME(this,100,true);"> <% End If %> <% End If %> </td> </tr> </table> <% If GB_IEmode <> "1" Then %> <div><% = Spacer(1, 5) %></div> <% End If %> </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);"<% If GB_IEmode = "1" Then %> onMouseOver="if(SubmitFlg!=0){this.focus();}"<% End If %>> <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()"<% If GB_IEmode = "1" Then %> onMouseOver="if(SubmitFlg!=0){this.focus();}"<% End If %>> <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()"<% If GB_IEmode = "1" Then %> onMouseOver="if(SubmitFlg!=0){this.focus();}"<% End If %>> <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> <% If GB_IEmode = "1" Then %> <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> <% Else %> <% If SyohinCD <> "" Then %> <TR> <TD HEIGHT="20" VALIGN="BOTTOM"> <TABLE HEIGHT="20" BORDER="0" class="bt3" CELLPADDING="0" CELLSPACING="0" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER"> <TD WIDTH="<% = WidthCell0 %>" rowspan="2" class="br1b1">取引日</TD> <TD HEIGHT="<% = HeightCell %>" colspan="2" class="br3b1">摘 要</TD> <TD HEIGHT="<% = HeightCell %>" colspan="3" class="br3b1">受 入</TD> <TD HEIGHT="<% = HeightCell %>" colspan="3" class="br3b1">払 出</TD> <TD HEIGHT="<% = HeightCell %>" colspan="3" class="bb1">残 高</TD> </TR> <TR ALIGN="CENTER"> <TD WIDTH="<% = WidthCell1 %>" HEIGHT="<% = HeightCell %>" class="br1b1" nowrap>受払区分</TD> <TD WIDTH="<% = WidthCell2 %>" HEIGHT="<% = HeightCell %>" class="br3b1" nowrap>取引先</TD> <TD WIDTH="<% = WidthCell3 %>" HEIGHT="<% = HeightCell %>" class="br1b1">数量</TD> <TD WIDTH="<% = WidthCell4 %>" HEIGHT="<% = HeightCell %>" class="br1b1">単価</TD> <TD WIDTH="<% = WidthCell5 %>" HEIGHT="<% = HeightCell %>" class="br3b1">金額</TD> <TD WIDTH="<% = WidthCell3 %>" HEIGHT="<% = HeightCell %>" class="br1b1">数量</TD> <TD WIDTH="<% = WidthCell4 %>" HEIGHT="<% = HeightCell %>" class="br1b1">単価</TD> <TD WIDTH="<% = WidthCell5 %>" HEIGHT="<% = HeightCell %>" class="br3b1">金額</TD> <TD WIDTH="<% = WidthCell3 %>" HEIGHT="<% = HeightCell %>" class="br1b1">数量</TD> <TD WIDTH="<% = WidthCell4 %>" HEIGHT="<% = HeightCell %>" class="br1b1">単価</TD> <TD WIDTH="<% = WidthCell5 %>" HEIGHT="<% = HeightCell %>" class="bb1">金額</TD> </TR> </TABLE> </TD> </TR> <TR> <TD HEIGHT="1" VALIGN="BOTTOM"></TD><!--これがないと見出しのボトムラインが消える--> </TR> <TR> <TD VALIGN="TOP"> <DIV ID="Layer1" STYLE="position:relative; left:0px; top:-1px; width:<% = WidthParent %>; height:100%; z-index:3; overflow: auto;"> <TABLE ID="SyoukaiList" BORDER="0" CELLSPACING="0" CELLPADDING="0" CLASS="<% = BaseText1214 %>" STYLE="border-collapse: collapse"> <% 'スプレッドシート定義 ※全行共通なのでループ外 Dim SpMaxRow Dim SpRowCnt Dim SpMaxCol SpRowCnt = 0 SpMaxRow = SpRowCnt 'フォーム名 SpFormName = "SpCell" ' '行定義 SpRowHeight = "23" '高さ(pixel指定) SpRowCls = "" '行スタイルclass SpRowStyle = "" '行スタイル '列1定義 SpCellType(1) = "0" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(1) = WidthCell0 'セル幅(pixel指定) SpCellCls(1) = "br1" 'セルスタイルclass SpCellStyle(1) = "" 'セルスタイル SpInputCls(1) = SpreadCls & "C" 'フォームスタイルclass SpInputStyle(1) = "" 'フォームスタイル SpInputFocus(1) = "" 'onFocusで作動させるスクリプト SpInputBlur(1) = "SetDate(this, 1, true);" 'onBlurで作動させるスクリプト SpInputRO(1) = "" 'フォームreadonlyフラグ("1") If Shiwakebi = "1" Then SpCellType(1) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン) SpCellWidth(1) = WidthCell0 'セル幅(pixel指定) SpInputBlur(1) = "" 'onBlurで作動させるスクリプト End If '列2定義 SpCellType(2) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン) SpCellWidth(2) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(2) = "br1" 'セルスタイルclass SpCellStyle(2) = "" 'セルスタイル SpInputCls(2) = SpreadCls & "L" 'フォームスタイルclass SpInputStyle(2) = "" 'フォームスタイル SpInputFocus(2) = "" 'onFocusで作動させるスクリプト SpInputBlur(2) = "" 'onBlurで作動させるスクリプト SpInputRO(2) = "" 'フォームreadonlyフラグ("1") '列3定義 SpCellType(3) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン) SpCellWidth(3) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(3) = "br3" 'セルスタイルclass SpCellStyle(3) = "" 'セルスタイル SpInputCls(3) = SpreadCls & "L" 'フォームスタイルclass SpInputStyle(3) = "" 'フォームスタイル SpInputFocus(3) = "" 'onFocusで作動させるスクリプト SpInputBlur(3) = "" 'onBlurで作動させるスクリプト SpInputRO(3) = "" 'フォームreadonlyフラグ("1") '列4定義 SpCellType(4) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(4) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(4) = "br1" 'セルスタイルclass SpCellStyle(4) = "" 'セルスタイル SpInputCls(4) = SpreadCls & "R" 'フォームスタイルclass SpInputStyle(4) = "" 'フォームスタイル SpInputFocus(4) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(4) = "FormStrFloatEdge(this,5,0,true);FormStrFloatCutoff(this,true);SpSetZandaka('U');" 'onBlurで作動させるスクリプト SpInputRO(4) = "0" 'フォームreadonlyフラグ("1") '列5定義 SpCellType(5) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(5) = WidthCell4 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(5) = "br1" 'セルスタイルclass SpCellStyle(5) = "" 'セルスタイル SpInputCls(5) = SpreadCls & "R" 'フォームスタイルclass SpInputStyle(5) = "" 'フォームスタイル SpInputFocus(5) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(5) = "FormStrFloatEdge(this,8,0,true);FormStrFloatCutoff(this,true);SpSetZandaka('U');" 'onBlurで作動させるスクリプト SpInputRO(5) = "0" 'フォームreadonlyフラグ("1") '列6定義 SpCellType(6) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(6) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(6) = "br3" 'セルスタイルclass SpCellStyle(6) = "" 'セルスタイル SpInputCls(6) = SpreadCls & "R" 'フォームスタイルclass SpInputStyle(6) = "" 'フォームスタイル SpInputFocus(6) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(6) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト SpInputRO(6) = "0" 'フォームreadonlyフラグ("1") If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then SpInputCls(6) = SpreadCls & "Rro" 'フォームスタイルclass SpInputStyle(6) = "" 'フォームスタイル SpInputFocus(6) = "this.blur();" 'onFocusで作動させるスクリプト SpInputBlur(6) = "" 'onBlurで作動させるスクリプト SpInputRO(6) = "1" 'フォームreadonlyフラグ("1") End If '列7定義 SpCellType(7) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(7) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(7) = "br1" 'セルスタイルclass SpCellStyle(7) = "" 'セルスタイル SpInputCls(7) = SpreadCls & "R" 'フォームスタイルclass SpInputStyle(7) = "" 'フォームスタイル SpInputFocus(7) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(7) = "FormStrFloatEdge(this,5,0,true);FormStrFloatCutoff(this,true);SpSetZandaka('H');" 'onBlurで作動させるスクリプト SpInputRO(7) = "0" 'フォームreadonlyフラグ("1") '列8定義 SpCellType(8) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(8) = WidthCell4 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(8) = "br1" 'セルスタイルclass SpCellStyle(8) = "" 'セルスタイル SpInputCls(8) = SpreadCls & "R" 'フォームスタイルclass SpInputStyle(8) = "" 'フォームスタイル SpInputFocus(8) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(8) = "FormStrFloatEdge(this,8,0,true);FormStrFloatCutoff(this,true);SpSetZandaka('H');" 'onBlurで作動させるスクリプト SpInputRO(8) = "0" 'フォームreadonlyフラグ("1") '列9定義 SpCellType(9) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(9) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(9) = "br3" 'セルスタイルclass SpCellStyle(9) = "" 'セルスタイル SpInputCls(9) = SpreadCls & "R" 'フォームスタイルclass SpInputStyle(9) = "" 'フォームスタイル SpInputFocus(9) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(9) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト SpInputRO(9) = "0" 'フォームreadonlyフラグ("1") If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then SpInputCls(9) = SpreadCls & "Rro" 'フォームスタイルclass SpInputStyle(9) = "" 'フォームスタイル SpInputFocus(9) = "this.blur();" 'onFocusで作動させるスクリプト SpInputBlur(9) = "" 'onBlurで作動させるスクリプト SpInputRO(9) = "1" 'フォームreadonlyフラグ("1") End If '列10定義 SpCellType(10) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(10) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(10) = "br1" 'セルスタイルclass SpCellStyle(10) = "" 'セルスタイル SpInputCls(10) = SpreadCls & "R" 'フォームスタイルclass SpInputStyle(10) = "" 'フォームスタイル SpInputFocus(10) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(10) = "FormStrFloatEdge(this,5,0,true);FormStrFloatCutoff(this,true);SpSetZandaka('Z');" 'onBlurで作動させるスクリプト SpInputRO(10) = "0" 'フォームreadonlyフラグ("1") '列11定義 SpCellType(11) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(11) = WidthCell4 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(11) = "br1" 'セルスタイルclass SpCellStyle(11) = "" 'セルスタイル SpInputCls(11) = SpreadCls & "R" 'フォームスタイルclass SpInputStyle(11) = "" 'フォームスタイル SpInputFocus(11) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(11) = "FormStrFloatEdge(this,8,0,true);FormStrFloatCutoff(this,true);SpSetZandaka('Z');" 'onBlurで作動させるスクリプト SpInputRO(11) = "0" 'フォームreadonlyフラグ("1") '列12定義 SpCellType(12) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(12) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(12) = "b0" 'セルスタイルclass SpCellStyle(12) = "" 'セルスタイル SpInputCls(12) = SpreadCls & "R" 'フォームスタイルclass SpInputStyle(12) = "" 'フォームスタイル SpInputFocus(12) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(12) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト SpInputRO(12) = "0" 'フォームreadonlyフラグ("1") If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then SpInputCls(12) = SpreadCls & "Rro" 'フォームスタイルclass SpInputStyle(12) = "" 'フォームスタイル SpInputFocus(12) = "this.blur();" 'onFocusで作動させるスクリプト SpInputBlur(12) = "" 'onBlurで作動させるスクリプト SpInputRO(12) = "1" 'フォームreadonlyフラグ("1") End If ii = 0 Query = "exec SPK補助簿_" & PageType & "取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & SyohinCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ii = ii + 1 KeisanHoho = Content.Fields("" & PageType & "計算区分") ' Tani = Replace(Replace(Content.Fields("単位"), "\", "\\"), """", "”") Tani = "" & 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("残高金額") 'スプレッドシート行生成 ※此処で値のみ代入 SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映) SpMaxRow = SpRowCnt If Shiwakebi = "1" Then SpInputOption(1) = "" 'フォーム初期値(selectプルダウンのoptionタグ) 'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加 If InStr(TmpShiwakebiAry, Torihikibi) < 1 Then SpInputOption(1) = SpInputOption(1) & "<option value=""" & Torihikibi & """ selected>" & Torihikibi & "</option>"' & vbCrLf End If SpInputOption(1) = SpInputOption(1) & "<option value=""""></option>"' & vbCrLf For Cnt = 1 To UBound(ShiwakebiAry) SpInputOption(1) = SpInputOption(1) & "<option value=""" & ShiwakebiAry(Cnt) & """" If ShiwakebiAry(Cnt) = Torihikibi Then SpInputOption(1) = SpInputOption(1) & " selected" End If SpInputOption(1) = SpInputOption(1) & ">" & ShiwakebiAry(Cnt) & "</option>"' & vbCrLf Next Else SpInputValue(1) = Torihikibi 'フォーム初期値 End If ' SpInputValue(2) = TaisyakuKubun 'フォーム初期値 SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(2) = SpInputOption(2) & "<option value=""""></option>"' & vbCrLf SpInputOption(2) = SpInputOption(2) & "<option value=""繰越""" If UkebaraiKubun = "K" Then SpInputOption(2) = SpInputOption(2) & " selected" End If SpInputOption(2) = SpInputOption(2) & ">繰越</option>"' & vbCrLf SpInputOption(2) = SpInputOption(2) & "<option value=""仕入""" If UkebaraiKubun = "S" Then SpInputOption(2) = SpInputOption(2) & " selected" End If SpInputOption(2) = SpInputOption(2) & ">仕入</option>"' & vbCrLf If Mode = "Zairyo" Then SpInputOption(2) = SpInputOption(2) & "<option value=""払出""" If UkebaraiKubun = "H" Then SpInputOption(2) = SpInputOption(2) & " selected" End If SpInputOption(2) = SpInputOption(2) & ">払出</option>"' & vbCrLf Else SpInputOption(2) = SpInputOption(2) & "<option value=""仕入返品""" If UkebaraiKubun = "X" Then SpInputOption(2) = SpInputOption(2) & " selected" End If SpInputOption(2) = SpInputOption(2) & ">仕入返品</option>"' & vbCrLf SpInputOption(2) = SpInputOption(2) & "<option value=""売上""" If UkebaraiKubun = "U" Then SpInputOption(2) = SpInputOption(2) & " selected" End If SpInputOption(2) = SpInputOption(2) & ">売上</option>"' & vbCrLf SpInputOption(2) = SpInputOption(2) & "<option value=""売上返品""" If UkebaraiKubun = "Y" Then SpInputOption(2) = SpInputOption(2) & " selected" End If SpInputOption(2) = SpInputOption(2) & ">売上返品</option>"' & vbCrLf End If 'SpInputValue(3) = ConvKaisyaRyakuMeisyo(TorihikisakiCD) 'フォーム初期値 SpInputOption(3) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(3) = SpInputOption(3) & "<option value=""""></option>"' & vbCrLf For Cnt = 1 To UBound(TorihikisakiAry) SpInputOption(3) = SpInputOption(3) & "<option value=""" & TorihikisakiAry(Cnt) & """" If TorihikisakiCD = TorihikisakiCDAry(Cnt) Then SpInputOption(3) = SpInputOption(3) & " selected" End If SpInputOption(3) = SpInputOption(3) & ">" & TorihikisakiAry(Cnt) & "</option>"' & vbCrLf Next SpInputValue(4) = ConvIntToMoney(UkeireSuryo , false, false) 'フォーム初期値 SpInputValue(5) = ConvIntToMoney(UkeireTanka , false, false) 'フォーム初期値 SpInputValue(6) = ConvIntToMoney(UkeireKingaku , false, false) 'フォーム初期値 SpInputValue(7) = ConvIntToMoney(HaraidasiSuryo , false, false) 'フォーム初期値 SpInputValue(8) = ConvIntToMoney(HaraidasiTanka , false, false) 'フォーム初期値 SpInputValue(9) = ConvIntToMoney(HaraidasiKingaku , false, false) 'フォーム初期値 SpInputValue(10) = ConvIntToMoney(ZandakaSuryo , false, false) 'フォーム初期値 SpInputValue(11) = ConvIntToMoney(ZandakaTanka , false, false) 'フォーム初期値 SpInputValue(12) = ConvIntToMoney(ZandakaKingaku , false, false) 'フォーム初期値 'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される If 0=1 Then Response.Write(" fpSpread.Text = """ & ConvIntToMoney(UkeireSuryo, false ,false) & """;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(UkeireTanka , false ,false) & """;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(UkeireKingaku , false ,false) & """;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(HaraidasiSuryo, false ,false) & """;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(HaraidasiTanka , false ,false) & """;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(HaraidasiKingaku , false ,false) & """;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(ZandakaSuryo, false ,false) & """;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(ZandakaTanka , false ,false) & """;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(ZandakaKingaku , false ,false) & """;" & vbCrLf) End If Content.MoveNext Loop 'スプレッドシートの空白行を発生させる If Shiwakebi = "1" Then SpInputOption(1) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(1) = SpInputOption(1) & "<option value=""""></option>"' & vbCrLf For Cnt = 1 To UBound(ShiwakebiAry) SpInputOption(1) = SpInputOption(1) & "<option value=""" & ShiwakebiAry(Cnt) & """>" & ShiwakebiAry(Cnt) & "</option>"' & vbCrLf Next Else SpInputValue(1) = "" 'フォーム初期値 End If SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(2) = SpInputOption(2) & "<option value=""""></option>"' & vbCrLf SpInputOption(2) = SpInputOption(2) & "<option value=""繰越"">繰越</option>"' & vbCrLf SpInputOption(2) = SpInputOption(2) & "<option value=""仕入"">仕入</option>"' & vbCrLf If Mode = "Zairyo" Then SpInputOption(2) = SpInputOption(2) & "<option value=""払出"">払出</option>"' & vbCrLf Else SpInputOption(2) = SpInputOption(2) & "<option value=""仕入返品"">仕入返品</option>"' & vbCrLf SpInputOption(2) = SpInputOption(2) & "<option value=""売上"">売上</option>"' & vbCrLf SpInputOption(2) = SpInputOption(2) & "<option value=""売上返品"">売上返品</option>"' & vbCrLf End If SpInputOption(3) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(3) = SpInputOption(3) & "<option value=""""></option>"' & vbCrLf For Cnt = 1 To UBound(TorihikisakiAry) SpInputOption(3) = SpInputOption(3) & "<option value=""" & TorihikisakiAry(Cnt) & """>" & TorihikisakiAry(Cnt) & "</option>"' & vbCrLf Next SpInputValue(4) = "" 'フォーム初期値 SpInputValue(5) = "" 'フォーム初期値 SpInputValue(6) = "" 'フォーム初期値 SpInputValue(7) = "" 'フォーム初期値 SpInputValue(8) = "" 'フォーム初期値 SpInputValue(9) = "" 'フォーム初期値 SpInputValue(10) = "" 'フォーム初期値 SpInputValue(11) = "" 'フォーム初期値 SpInputValue(12) = "" 'フォーム初期値 For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow 'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される SpMaxRow = Cnt Next %> </TABLE> </DIV> </TD> </TR> <TR> <TD colspan="10" height="1" align="center" class="tx1214"> ※入力行が足りない場合は一度「保存」してください </td> </TR> <% Else %> <TR> <TD align="center"> <span class="tx1618"><font color="#ff0000">上のメニューより入力対象の商品を選択してください</font><br><br><br><br><br><br><br></span> </TD> </TR> <% End If %> <% End If %> </table> </td> </tr> </table> </td> </tr> </table> </div> </form> </body> <SCRIPT LANGUAGE="JavaScript"> //↓ブラウザ不問の共通関数 function ShijoSelect(){ //alert("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); } var PlusCelNo, MinusCelNo, TotalCelNo var Zandaka </SCRIPT> <% If GB_IEmode <> "1" Then %> <SCRIPT LANGUAGE="JavaScript"> SpMinRow = 1; SpMaxRow = <% = SpMaxRow %>; <% '最大セル番号を取得 SpMaxCol = 0 For Cnt = 1 To UBound(SpCellType) If "" & SpCellType(Cnt) <> "" Then SpMaxCol = Cnt End If Next %> SpMaxCol = <% = SpMaxCol %>; Zandaka; PlusCelNo = 4; //数量 MinusCelNo = 5; //単価 TotalCelNo = 6; //金額 //残高自動設定 function SpSetZandaka(Mode) { <% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %> //alert("残高自動設定"); Zandaka = 0; PlusCelNo = 4; //数量 MinusCelNo = 5; //単価 TotalCelNo = 6; //金額 if (Mode == "H") { PlusCelNo = 7; //数量 MinusCelNo = 8; //単価 TotalCelNo = 9; //金額 } else if (Mode == "Z") { PlusCelNo = 10; //数量 MinusCelNo = 11; //単価 TotalCelNo = 12; //金額 } Target = "SpCell" + SpSelRow + "_" //セル番号を除くフォーム名 //alert("残高自動設定"); if (form1[Target + PlusCelNo].value != "" && form1[Target + MinusCelNo].value != "") { //alert("残高自動設定"); Zandaka = eval(ConvMoneyToInt(form1[Target + PlusCelNo].value) * ConvMoneyToInt(form1[Target + MinusCelNo].value)); form1[Target + TotalCelNo].value = NumComma(Zandaka, false); //NumCommaはマイナスを許容&文字列引数で動作する } else { form1[Target + TotalCelNo].value = ""; } <% End If %> } function SpRowInsertSub() { //プルダウンの内容をスライドするため一旦取引先市場の絞込みを解除する <% If PackageMode <> 1 And Mode <> "Zairyo" Then %> //現在の絞込み状態を保持 TmpTorihikisakiShijo = form1.TShijoCD.value; //絞込みを解除(全て表示は除く) if (TmpTorihikisakiShijo != "") { SetTorihikisakiShijoList(""); } <% End If %> //行挿入 SpRowInsert(); <% If PackageMode <> 1 And Mode <> "Zairyo" Then %> //絞込みを復元(全て表示は除く) if (TmpTorihikisakiShijo != "") { SetTorihikisakiShijoList(TmpTorihikisakiShijo); } <% End If %> } function SpRowDeleteSub() { //プルダウンの内容をスライドするため一旦取引先市場の絞込みを解除する <% If PackageMode <> 1 And Mode <> "Zairyo" Then %> //現在の絞込み状態を保持 TmpTorihikisakiShijo = form1.TShijoCD.value; //絞込みを解除(全て表示は除く) if (TmpTorihikisakiShijo != "") { SetTorihikisakiShijoList(""); } <% End If %> //行削除 SpRowDelete(); <% If PackageMode <> 1 And Mode <> "Zairyo" Then %> //絞込みを復元(全て表示は除く) if (TmpTorihikisakiShijo != "") { SetTorihikisakiShijoList(TmpTorihikisakiShijo); } <% End If %> } function SpRowShiftSub(UpDown) { //プルダウンの内容をスライドするため一旦取引先市場の絞込みを解除する <% If PackageMode <> 1 And Mode <> "Zairyo" Then %> //現在の絞込み状態を保持 TmpTorihikisakiShijo = form1.TShijoCD.value; //絞込みを解除(全て表示は除く) if (TmpTorihikisakiShijo != "") { SetTorihikisakiShijoList(""); } <% End If %> //行入れ替え SpRowShift(UpDown); <% If PackageMode <> 1 And Mode <> "Zairyo" Then %> //絞込みを復元(全て表示は除く) if (TmpTorihikisakiShijo != "") { SetTorihikisakiShijoList(TmpTorihikisakiShijo); } <% End If %> } function SetTorihikisakiShijoList(ShijoCD) { for (ii = SpMinRow; ii <= SpMaxRow; ii++) { Target = "<% = SpFormName %>" + ii + "_3"; elm = document.getElementsByName(Target)[0]; //現在選択されている摘要を保持する TmpValue = elm.options[elm.selectedIndex].value; //プルダウン項目を全クリア do { elm.options[0] = null; } while (elm.length != 0) Idx = 0; if (TmpValue != "") { //先頭項目に追加 elm.options[Idx] = new Option(TmpValue, TmpValue); Idx = Idx + 1; } elm.options[Idx] = new Option("", ""); //空白項目 Idx = Idx + 1; <% PreShijoCD = "" Response.Write("if (1 == 0) {" & vbCrLf) '最初のネストを開く(ループ内で常に閉じてから開くためのダミー) For Cnt = 1 To UBound(TorihikisakiMeishoAry) If PreShijoCD <> TorihikisakiShijoAry(Cnt) Then '勘定科目が変わったらネストを閉じて開く Response.Write("}" & vbCrLf) Response.Write("if (ShijoCD == """" || ShijoCD == """ & TorihikisakiShijoAry(Cnt) & """) {" & vbCrLf) PreShijoCD = TorihikisakiShijoAry(Cnt) End If Response.Write("elm.options[Idx] = new Option(""" & TorihikisakiMeishoAry(Cnt) & """, """ & TorihikisakiMeishoAry(Cnt) & """);") Response.Write("Idx = Idx + 1;" & vbCrLf) Next Response.Write("}" & vbCrLf) '最後のネストを閉じる %> // elm.selectedIndex = 0; //常に先頭行を選択する elm.value = TmpValue; //該当項目を選択 } } function SubmitCheck() { //alert("SubmitCheck"); Zandaka = 0; var ShiireTanka, ShiireSuryo, ShiireKingaku; var HaraidashiTanka, HaraidashiSuryo, HaraidashiKingaku; if (form1.KeisanHoho.value == "") { alert("計算方法を選択してください "); form1.KeisanHoho.focus(); return; } form1.SendValue.value = "" for (jj = SpMinRow; jj <= SpMaxRow; jj++) { Target = "SpCell" + jj + "_" //セル番号を除くフォーム名 var RowText; RowText = ""; var bCheck; bCheck = Array(); var aText; //金額確認用 aText = Array(); for (ii = 1; ii <= SpMaxCol; ii++) { //収入・支出の0入力はクリア(onBlurで処理しているが念のため) if (ii >= 4 && ii <= 12 && form1[Target + ii].value == "0") { form1[Target + ii].value = ""; } bCheck[ii] = 0; var Text1; Text1 = form1[Target + ii].value; //通貨のカンマ区切りを外す if (ii >= 4 && ii <= 12) { Text1 = ReplaceStr(Text1, ",", "") } RowText = RowText + Text1; RowText = RowText + ","; if(Text1 == "") { bCheck[ii] = 1; } aText[ii] = Text1; //金額確認用 } if (ReplaceStr(RowText, ",", "") != "") { if (bCheck[4] == 0 || bCheck[5] == 0 || bCheck[6] == 0) { if (bCheck[4] == 1) { alert("受入の数量を入力してください "); form1[Target + 4].focus(); return; } if (bCheck[5] == 1) { alert("受入の単価を入力してください "); form1[Target + 5].focus(); return; } if (bCheck[6] == 1) { alert("受入の金額を入力してください "); form1[Target + 6].focus(); return; } if (Math.floor(aText[4]) * Math.floor(aText[5]) != Math.floor(aText[6])) { alert("正しい受入の金額を入力してください "); form1[Target + 6].focus(); return; } } if (bCheck[7] == 0 || bCheck[8] == 0 || bCheck[9] == 0) { if (bCheck[7] == 1) { alert("払出の数量を入力してください "); form1[Target + 7].focus(); return; } //総平均法のみ if (form1.KeisanHoho.value != "SH") { if (bCheck[8] == 1) { alert("払出の単価を入力してください "); form1[Target + 8].focus(); return; } if (bCheck[9] == 1) { alert("払出の金額を入力してください "); form1[Target + 9].focus(); return; } if (Math.floor(aText[7]) * Math.floor(aText[8]) != Math.floor(aText[9])) { alert("正しい払出の金額を入力してください "); form1[Target + 9].focus(); return; } } } if (bCheck[10] == 0 || bCheck[11] == 0 || bCheck[12] == 0) { if (bCheck[10] == 1) { alert("残高の数量を入力してください "); form1[Target + 10].focus(); return; } if (form1.KeisanHoho.value != "SH") { if (bCheck[11] == 1) { alert("残高の単価を入力してください "); form1[Target + 11].focus(); return; } if (bCheck[12] == 1) { alert("残高の金額を入力してください "); form1[Target + 11].focus(); return; } if (Math.floor(aText[10]) * Math.floor(aText[11]) != Math.floor(aText[12])) { alert("正しい残高の金額を入力してください "); form1[Target + 12].focus(); return; } } } form1.SendValue.value = form1.SendValue.value + RowText + ";" } } //alert(form1.SendValue.value); SubmitReal(form1); return true; } window.onload = function() { <% If SyohinCD <> "" Then %> form1.KeisanHoho.value = "<% = KeisanHoho %>"; form1.Tani.value = "<% = Tani %>"; <% End If %> form1.SpCell<% = (SpRowCnt + 1) %>_1.focus(); } </SCRIPT> <% Else 'IEモード %> <SCRIPT LANGUAGE="JavaScript"> function SubmitCheck() { document.vaSpread3.Row = 1; document.vaSpread3.Col = 1; form1.Tani.value = document.vaSpread3.Text; ////////残高チェックここから 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 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; <% ii = 0 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> <% End If %> <% = HtmlFooter %> </html> <% End Sub %>