<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query, Content Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo Dim RiyoDenpyoSu Dim GenkaKaikeiRiyo Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then RiyoDenpyoSu = Content.Fields("利用伝票数区分") InputShiwaketyo = Content.Fields("手動仕訳帳表示") InputShiwakeShukeihyo = Content.Fields("手動仕訳集計表表示") InputGokeiZandakaShisanhyo = Content.Fields("手動合計残高試算表表示") InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示") InputTaisyakuTaisyohyo = Content.Fields("手動貸借対照表表示") InputSonekiKeisansyo = Content.Fields("手動損益計算書表示") InputHachiketaSeisanhyo = Content.Fields("手動8桁精算表表示") AutoShiwaketyo = Content.Fields("自動転記仕訳帳表示") AutoShiwakeShukeihyo = Content.Fields("自動転記仕訳集計表表示") AutoGokeiZandakaShisanhyo = Content.Fields("自動転記合計残高試算表表示") AutoSokanjyoMototyo = Content.Fields("自動転記総勘定元帳表示") AutoTaisyakuTaisyohyo = Content.Fields("自動転記貸借対照表表示") AutoSonekiKeisansyo = Content.Fields("自動転記損益計算書表示") AutoHachiketaSeisanhyo = Content.Fields("自動転記8桁精算表表示") GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用") End If %> <% = HtmlHeader("") %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) If PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "伝票", "", "", "", "", "", "", "", "", "")) 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')", "", "", "伝票", "", "", "")) 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')", "伝票", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("伝票", "")) Response.Write(HttpL5("")) %>

<% If Genkavariable > 0 And GenkaKaikeiRiyo = "1" And GB_Gyosyu = "S" Then %> <% End If %>

640<% Else %>400<% End If %>">

【伝票】

600<% Else %>360<% End If %>" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="60"> <% If GB_Gyosyu <> "B" Then %> <% End If %>

<% If RiyoDenpyoSu = "5" Or RiyoDenpyoSu = "3" Then %>

入金伝票

<% End If %>

<% If RiyoDenpyoSu = "5" Or RiyoDenpyoSu = "3" Then %>

出金伝票

<% End If %>

振替伝票

<% If RiyoDenpyoSu = "5" Then %>

仕入伝票

<% End If %>

<% If RiyoDenpyoSu = "5" Then %>

売上伝票

<% End If %>

【製造部】

材料
仕入伝票

<% = HtmlFooter %> <% End Sub %>