<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Cnt Dim RouteType RouteType = Request("RouteType") '振替記入にトグルするためのフラグ(081021小野) Dim Kimatsu Kimatsu = Request("Kimatsu") Dim PageType Dim Label PageType = "精算表整理記入" Label = "整理" If Kimatsu = "Kurikoshi" Then PageType = "精算表振替記入" Label = "振替" End If Dim Kaishibi Dim Syuryobi Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If '勘定科目一覧を配列化 Dim KamokuCDAry Dim KamokuMeiAry Dim KamokuSaimokuAry Dim KamokuKubunAry ReDim KamokuCDAry(0) ReDim KamokuMeiAry(0) ReDim KamokuSaimokuAry(0) ReDim KamokuKubunAry(0) Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ReDim PreServe KamokuCDAry(UBound(KamokuCDAry) + 1) '配列+1 ReDim PreServe KamokuMeiAry(UBound(KamokuMeiAry) + 1) '配列+1 ReDim PreServe KamokuSaimokuAry(UBound(KamokuSaimokuAry) + 1) '配列+1 ReDim PreServe KamokuKubunAry(UBound(KamokuKubunAry) + 1) '配列+1 KamokuCDAry(UBound(KamokuCDAry)) = "" & Content.Fields("勘定CD") KamokuMeiAry(UBound(KamokuMeiAry)) = "" & Content.Fields("勘定名称") KamokuSaimokuAry(UBound(KamokuSaimokuAry)) = "" & Content.Fields("勘定細目") KamokuKubunAry(UBound(KamokuKubunAry)) = "" & Content.Fields("勘定区分") Content.MoveNext Loop Dim PreKanjyoMeisai %> <% = 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 & "')", PageType, "", "", "", "", "","", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", PageType, "", "", "", "", "", "", "", "", "")) 'ElseIf RouteType = "Ginko" Then ElseIf GB_Gyosyu = "B" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_b1.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')", PageType, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If GB_IEmode = "1" Then If GetEnshuParam(EnshuCD, "整理記入精算表利用") = "1" Then Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem3(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem2(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の削除", "SpreadDelItem2(document.vaSpread1);", "", "")) Else Response.Write(HttpL3_1("行の追加", "SpreadAddItem3(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem2(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の削除", "SpreadDelItem2(document.vaSpread1);", "", "", "", "")) End If Else If GetEnshuParam(EnshuCD, "整理記入精算表利用") = "1" Then Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) End If End If Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %>
<% Dim KanjyoCDCol KanjyoCDCol = 1 %> <% If GB_IEmode <> "1" Then %> <% Else %> <% End If %> <% = HtmlFooter %> <% End Sub %>