<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim InputShiwaketyoKyuVersionRiyo Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then InputShiwaketyoKyuVersionRiyo = Content.Fields("手入力仕訳帳旧バージョン利用") end If %> <% = HtmlHeader("") %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "白紙帳票", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("白紙帳票", "")) %>

【伝票】

入金伝票

出金伝票

振替伝票

仕入伝票

売上伝票

【小切手】

小切手

【手形】

約束手形

為替手形

【領収書】

領収書

【帳簿】

<% If InputShiwaketyoKyuVersionRiyo = "1" Then %> <% Else %>

<% End If %>

仕訳帳

仕訳集計表

八桁精算表

合計残高
試算表

<% If GetEnshuParam(EnshuCD, "総勘定元帳標準式利用") = "1" Then %>

総勘定元帳

<% Else %>

総勘定元帳

<% End If %>

貸借対照表

損益計算書

【仕入書類】

見積依頼書

注文書

物品受領書

【販売書類】

見積書

注文請書

納品請求書

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