%
'
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim EnshuCD, EnshuName, FromYmd, ToYmd, EnshuKubun, TaxRate
Dim DenpyoKubun, GinkoKozaToza, GinkoKozaFutu, GinkoKozaBetsudan, GinkoKozaTsumitate, GinkoKozaTeiki
Dim SeiriKinyuKeisiki, MotoEnshuCD
Dim MasterEnshu
Dim ErrMsg
Dim CopyMotoName
Dim Query, Content
EnshuCD = Request("EnshuCD")
If EnshuCD <> "" Then
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Dim YobiB
EnshuName = Content.Fields("演習名称")
EnshuKubun = Content.Fields("演習区分")
FromYmd = Content.Fields("会計開始日")
ToYmd = Content.Fields("会計終了日")
TaxRate = Content.Fields("消費税")
DenpyoKubun = Content.Fields("利用伝票数区分")
YobiB = Content.Fields("利用銀行口座種類")
GinkoKozaToza = Mid(YobiB , 1, 1)
GinkoKozaFutu = Mid(YobiB , 2, 1)
GinkoKozaBetsudan = Mid(YobiB , 3, 1)
GinkoKozaTsumitate = Mid(YobiB , 4, 1)
GinkoKozaTeiki = Mid(YobiB , 5, 1)
SeiriKinyuKeisiki = Content.Fields("整理記入精算表利用")
MasterEnshu = Content.Fields("マスター演習")
CopyMotoName = "" & Content.Fields("コピー元演習名称")
End If
Else
FromYmd = DateSerial(Year(Date()), 4, 1)
ToYmd = DateSerial(Year(DateAdd("yyyy", 1, Date())), 3, 31)
End If
'演習管理者IDを再取得(書類一覧後の対処)(221201小野美)
If GB_Admin = "2" And EnshuCD <> "" Then
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Session(HomeAlias & "GakuseiNo") = "" & Content.Fields("演習管理者ID")
GB_GakuseiNo = Session(HomeAlias & "GakuseiNo")
GakuseiNo = GB_GakuseiNo
End If
End If
Dim RouteType
RouteType = Request("RouteType")
Dim SankaCheck
SankaCheck = 0
Query = "exec SPM演習_参加グループ一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
SankaCheck = 1
Else
Query = "exec SPM演習_参加ユーザー一覧2 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
SankaCheck = 1
End If
End If
'バックアップフォルダの確認
Dim KyotsuPath
Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KyotsuPath = Content.Fields("共通データパス")
End If
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Not(fso.FolderExists(KyotsuPath)) Then
KyotsuPath = ""
End If
Dim NextPage
NextPage = "2"
If PackageMode = 1 Then
NextPage = "22"
End If
%>
<% = HtmlHeader("") %>
<% If EnshuKubun <> "P" Then Response.Write("個人モード") Else Response.Write("個人モード") End If %>
<% If EnshuKubun <> "G" Then Response.Write("グループモード") Else Response.Write("グループモード") End If %>
<% Else %>
<% If EnshuKubun <> "G" Then Response.Write("模擬実践演習") Else Response.Write("模擬実践演習") End If %>
<% If EnshuKubun <> "P" Then Response.Write("同時同業演習") Else Response.Write("同時同業演習") End If %>
<% End If %>
消費税
<% If TaxRate < 1 Then %>内税<% Else %>外税 <% = TaxRate %>%<% End If %>
<% If PackageMode = 1 Then %>仕訳の<% Else %>利用伝票<% End If %>方式
<% If DenpyoKubun <> "5" Then Response.Write("5伝票") Else Response.Write("5伝票") End If %>
<% If DenpyoKubun <> "3" Then Response.Write("3伝票") Else Response.Write("3伝票") End If %>
<% If DenpyoKubun <> "1" Then Response.Write("振替伝票のみ") Else Response.Write("振替伝票のみ") End If %>
<% If PackageMode = 1 Then %>
<% If DenpyoKubun <> "0" Then Response.Write("仕訳帳") Else Response.Write("仕訳帳") End If %>
<% End If %>
<% If PackageMode = 0 Then %>
利用銀行口座種類
<% If GinkoKozaToza <> "T" Then Response.Write("当座") Else Response.Write("当座") End If %>
<% If GinkoKozaFutu <> "F" Then Response.Write("普通") Else Response.Write("普通") End If %>
<% If GinkoKozaBetsudan <> "B" Then Response.Write("別段") Else Response.Write("別段") End If %>
<% If GinkoKozaTsumitate <> "M" Then Response.Write("積立") Else Response.Write("積立") End If %>
<% If GinkoKozaTeiki <> "L" Then Response.Write("定期") Else Response.Write("定期") End If %>
<% End If %>
整理記入の方法
<% If SeiriKinyuKeisiki <> "0" Then Response.Write("振替伝票で記入") Else Response.Write("振替伝票で記入") End If %>
<% If PackageMode = 1 Then %>
<% If SeiriKinyuKeisiki <> "2" Then Response.Write("仕訳帳に記入") Else Response.Write("仕訳帳に記入") End If %>
<% End If %>
<% If SeiriKinyuKeisiki <> "1" Then Response.Write("精算表に直接記入") Else Response.Write("精算表に直接記入") End If %>