<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Cnt Dim TorihikisakiCD Dim ShijoCD Dim PageType TorihikisakiCD = Request("TorihikisakiCD") ShijoCD = Request("ShijoCD") PageType = Request("PageType") Dim Label If PageType = "Urikake" Then Label = "売掛金元帳" Else Label = "買掛金元帳" End If Dim RouteType RouteType = Request("RouteType") Dim AutoZandakaNyuryoku AutoZandakaNyuryoku = GetEnshuParam(EnshuCD, "残高自動計算") Dim UrikaikakekintyoCD, Torihikibi, Tekiyo, KarikataKingaku, KashikataKingaku Dim TaisyakuKubun, Zandaka Dim DbKarikataKingakuTotal Dim DbKashikataKingakuTotal DbKarikataKingakuTotal = 0 DbKashikataKingakuTotal = 0 Dim KarikataKingakuTotal Dim KashikataKingakuTotal KarikataKingakuTotal = 0 KashikataKingakuTotal = 0 '仕訳日選択モード 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 'Shiwakebi = "1" %> <% = HtmlHeader("sj3tyobored11") %>
<% If InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HtmlDesign(2)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HttpL2("補助簿ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp?RouteType=" & RouteType & "')", Label, "", "", "", "", "","", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "手入力帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac3.asp')", Label, "", "", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp')", Label, "tblbtn( '/" & HomeAlias & "/user/bk/hojyobo/fk_urikaikakekintyo.asp?PageType=" & PageType & "')", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If TorihikisakiCD <> "" Then 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()", "行挿入", "SpRowInsert();", "行削除", "SpRowDelete();SpSetZandaka();", "行↑", "SpRowShift('Up');SpSetZandaka();", "行↓", "SpRowShift('Dn');SpSetZandaka();")) End If '※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 PackageMode = 1 Then 'Response.Write(HttpL3_2("照会", "tblbtn( 'fk_urikaikakekintyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "&TorihikisakiCD=" & TorihikisakiCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("照会", "tblbtn( 'fk_urikaikakekintyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "&TorihikisakiCD=" & TorihikisakiCD & "')", "印刷", "tblbtn( 'fk_urikaikakekintyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "&TorihikisakiCD=" & TorihikisakiCD & "&AutoPrint=1')", "", "", "", "", "", "")) ElseIf TorihikisakiCD <> "" Then 'Response.Write(HttpL3_2("照会", "tblbtn( 'fk_urikaikakekintyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "&TorihikisakiCD=" & TorihikisakiCD & "')", "取引先別残高一覧", "wopen('fk_urikaikakekintyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "&TorihikisakiCD=" & TorihikisakiCD & "&ViewMode=All','syoukai')", "", "", "", "", "", "")) Response.Write(HttpL3_2("照会", "tblbtn( 'fk_urikaikakekintyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "&TorihikisakiCD=" & TorihikisakiCD & "')", "取引先別残高一覧", "wopen('fk_urikaikakekintyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "&TorihikisakiCD=" & TorihikisakiCD & "&ViewMode=All','syoukai')", "印刷", "tblbtn( 'fk_urikaikakekintyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "&TorihikisakiCD=" & TorihikisakiCD & "&AutoPrint=1')", "", "", "", "")) Else Response.Write(HttpL3_2("取引先別残高一覧", "wopen('fk_urikaikakekintyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "&TorihikisakiCD=" & TorihikisakiCD & "&ViewMode=All','syoukai')", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4(Label, "")) Dim ii Dim Query, Content %>
<% If GB_IEmode <> "1" Then %> <% Else 'IEモード %> <% End If %> <% = HtmlFooter %> <% End Sub %>