<% ' ' %> <% main() Sub main() Dim PageType PageType = "決算整理仕訳" '決算振替仕訳にトグルするためのフラグ（081021小野） Dim Kimatsu Kimatsu = Request("Kimatsu") If Kimatsu = "Kurikoshi" Then PageType = "決算振替仕訳" End If Dim DenpyoNo, Torihikibi, DenpyoTekiyo Dim KanjyoCD(10) Dim Kanjyomei(10) Dim Kingaku(10) Dim TekiyoCD(10) Dim Tekiyo(10) Dim KarikataGokei, KashikataGokei Dim Query Dim Content Dim Shimei Dim SakujyoFlg Dim GakuseiBango Dim RouteType Dim DenpyoKubun Dim ShowDel ShowDel = Request("ShowDel") ' DenpyoKubun = "D5" '伝票区分は非利用なので伝票処理区分に転用 If Kimatsu = "Kurikoshi" Then DenpyoKubun = "10" Else DenpyoKubun = "9" End If RouteType = Request("RouteType") DenpyoNo = Request("DenpyoNo") KashikataGokei = 0 KarikataGokei = 0 SakujyoFlg = 0 Dim NextDenpyoNo, PrevDenpyoNo NextDenpyoNo = "" PrevDenpyoNo = "" If DenpyoNo <> "" Then Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoNo & "', '" & ConvKaisyaGyosyuKubun(KaisyaCD) & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Torihikibi = Content.Fields("取引日") DenpyoTekiyo = Content.Fields("伝票摘要") SakujyoFlg = Content.Fields("削除フラグ") Shimei = Content.Fields("氏名") GakuseiBango = Content.Fields("学生番号") Do While Not(Content.BOF Or Content.EOF) Dim DenpyoSEQ DenpyoSEQ = Content.Fields("伝票SEQ") KanjyoCD(DenpyoSEQ) = Content.Fields("勘定CD") Kanjyomei(DenpyoSEQ) = ConvKanjyoMeisyo(Content.Fields("勘定CD")) If DenpyoSEQ mod 2 = 0 Then Kingaku(DenpyoSEQ) = Content.Fields("貸方金額") KashikataGokei = KashikataGokei + Content.Fields("貸方金額") Else Kingaku(DenpyoSEQ) = Content.Fields("借方金額") KarikataGokei = KarikataGokei + Content.Fields("借方金額") End If TekiyoCD(DenpyoSEQ) = Content.Fields("摘要CD") Tekiyo(DenpyoSEQ) = Content.Fields("摘要") Content.MoveNext Loop Query = "exec SPK伝票次番号 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'D5', '" & DenpyoKubun & "', '" & Torihikibi & "', '" & DenpyoNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then NextDenpyoNo = Content.Fields("伝票番号") End If Query = "exec SPK伝票前番号 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'D5', '" & DenpyoKubun & "', '" & Torihikibi & "', '" & DenpyoNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then PrevDenpyoNo = Content.Fields("伝票番号") End If End If End If %> <% = AppTitle %> <% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(2)) If InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "受信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "発信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "経理部", "", PageType & "伝票", "", "", "", "", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", PageType, "", "", "", "", "", "", "", "", "")) 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_s1.asp')", PageType & "伝票", "tblbtn( 'fk_furikae.asp?Kimatsu=" & Kimatsu & "&ShowDel=" & ShowDel & "')", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp')", PageType & "伝票", "tblbtn( 'fk_furikae.asp?Kimatsu=" & Kimatsu & "&ShowDel=" & ShowDel & "')", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If SakujyoFlg = "0" And RouteType <> "ViewOnly" Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "修正", "tblbtn( 'fk_furikae.asp?Kimatsu=" & Kimatsu & "&DenpyoNo=" & DenpyoNo & "&ShowDel=" & ShowDel & "')", "削除", "SakujyoBtn()","", "", "", "")) Else Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) End If Dim NextTitle, NextCmd, PrevTitle, PrevCmd If NextDenpyoNo <> "" Then NextTitle = "次へ" NextCmd = "tblbtn( 'fk_furikae_view.asp?Kimatsu=" & Kimatsu & "&RouteType=" & RouteType & "&DenpyoNo=" & NextDenpyoNo & "')" End If If PrevDenpyoNo <> "" Then PrevTitle = "前へ" PrevCmd = "tblbtn( 'fk_furikae_view.asp?Kimatsu=" & Kimatsu & "&RouteType=" & RouteType & "&DenpyoNo=" & PrevDenpyoNo & "')" End If If InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=受信文書')", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=発信文書')", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fk_furikae_ichiran.asp?Kimatsu=" & Kimatsu & "&RouteType=" & RouteType & "&ShowDel=" & ShowDel & "')", PrevTitle, PrevCmd, NextTitle, NextCmd, "", "", "", "")) Else Response.Write(HttpL3_2("追加","tblbtn( 'fk_furikae.asp?Kimatsu=" & Kimatsu & "')" ,"一覧表示", "tblbtn( 'fk_furikae_ichiran.asp?Kimatsu=" & Kimatsu & "&ShowDel=" & ShowDel & "')", PrevTitle, PrevCmd, NextTitle, NextCmd, "", "")) End If Response.Write(HttpL4(PageType & "伝票", "照会")) %> <% = HtmlFooter %> <% End Sub %>