<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim Kitakuriyou Dim KurikoshiEnshuCD Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = Content.Fields("寄託倉庫利用") KurikoshiEnshuCD = Content.Fields("期末繰越先演習CD") End If 'KurikoshiEnshuCD = "" %> <% = 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')", "社長室・総務部", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("社長室・総務部", "")) %>

870<% Else %>750<% End If %>" HEIGHT="1" BORDER="0" CELLSPACING="5" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000">

<% = Spacer(1,10) %>

【社長室・総務部】

<% = Spacer(1,10) %>

<% If KurikoshiEnshuCD <> "" Then %> <% End If %>

【名刺】

名刺作成

名刺マナー

<% 'Kitakuriyou = "1" %> <% If Kitakuriyou = "1" And (Gyosyu <> "K" And Gyosyu <> "B") Then %>

【寄託契約】

寄託契約

<% End If %>

【照会・管理】

<% End If %>

定款

社員台帳

財務諸表

<% If 0=1 And Gyosyu <> "B" Then %>

チェック

<% End If %>

マスター
照会

<% If Gyosyu <> "B" Then %>

銀行
暗証番号
照会

<% End If %>

白紙帳票

勘定科目
管理

摘要管理

<% If GB_IEmode = "1" Then %>

画像加工

トップ画像

【繰越】

期末残高
繰越処理

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