<% ' ' %> <% main() Sub main() 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") Dim Mode Mode = Request("Mode") Dim Title Dim TmpGyosyu If Mode = "Seizo" Then Title = "製造部" TmpGyosyu = "G" Else Title = "" TmpGyosyu = ConvKaisyaGyosyuKubun(KaisyaCD) End If If Mode = "Seizo" Then '製造部 DenpyoKubun = "D8" '伝票区分　8：製造部振替伝票　 Else DenpyoKubun = "D5" '伝票区分　5：振替伝票　 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 & "', '" & TmpGyosyu & "'" 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 & "', '" & DenpyoKubun & "', '1', '" & 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 & "', '" & DenpyoKubun & "', '1', '" & Torihikibi & "', '" & DenpyoNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then PrevDenpyoNo = Content.Fields("伝票番号") End If End If End If %> <% = HtmlHeader("") %> <% 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')", "経理部", "", "伝票", "", "振替伝票", "", "", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "伝票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s11.asp')", Title & "振替伝票", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "Hakushi") > 0 Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "白紙帳票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s42.asp')", "振替伝票", "", "", "")) ElseIf Mode = "Seizo" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", Title & "振替伝票", "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_furikae.asp?DenpyoNo=" & DenpyoNo & "&Mode=" & Mode & "&ShowDel=" & ShowDel & "')", "", "", "", "")) 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')", "伝票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s11.asp')", "振替伝票", "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_furikae.asp?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')", "伝票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s11.asp')", "振替伝票", "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_furikae.asp?ShowDel=" & ShowDel & "')", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If SakujyoFlg = "0" And RouteType <> "ViewOnly" And InStr(RouteType, "Hakushi") < 1 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "修正", "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_furikae.asp?DenpyoNo=" & DenpyoNo & "&Mode=" & Mode & "&ShowDel=" & ShowDel & "')", "削除", "SakujyoBtn()","", "", "", "")) Else Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) End If Dim NextTitle, NextCmd, PrevTitle, PrevCmd If NextDenpyoNo <> "" Then NextTitle = "次へ" NextCmd = "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_furikae_view.asp?RouteType=" & RouteType & "&DenpyoNo=" & NextDenpyoNo & "&Mode=" & Mode & "')" End If If PrevDenpyoNo <> "" Then PrevTitle = "前へ" PrevCmd = "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_furikae_view.asp?RouteType=" & RouteType & "&DenpyoNo=" & PrevDenpyoNo & "&Mode=" & Mode & "')" End If If InStr(RouteType, "Hakushi") > 0 Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) ElseIf 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?RouteType=" & RouteType & "&DenpyoNo=" & DenpyoNo & "&Mode=" & Mode & "&ShowDel=" & ShowDel & "')", PrevTitle, PrevCmd, NextTitle, NextCmd, "", "", "", "")) Else Response.Write(HttpL3_2("追加","tblbtn( 'fk_furikae.asp?Mode=" & Mode & "')" ,"一覧表示", "tblbtn( 'fk_furikae_ichiran.asp?DenpyoNo=" & DenpyoNo & "&Mode=" & Mode & "&ShowDel=" & ShowDel & "')", PrevTitle, PrevCmd, NextTitle, NextCmd, "", "")) End If If InStr(RouteType, "Hakushi") > 0 Then Response.Write(HttpL4(Title & "振替伝票", "")) Else Response.Write(HttpL4(Title & "振替伝票", "照会")) End If %> <% = HtmlFooter %> <% End Sub %>