<%
'
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 SeiriKinyuKeishikiKubun, MotoEnshuCD
Dim MasterEnshu
Dim ErrMsg
Dim MotoTaxRate
Dim CopyMotoName
EnshuCD = Request("EnshuCD")
Dim CopyMoto
CopyMoto = Request("CopyMoto")
If EnshuCD <> "" Or CopyMoto <> "" Then
If CopyMoto <> "" Then
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & CopyMoto & "'"
Else
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
End If
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("会計終了日")
If CopyMoto <> "" Then
'1年加算は廃止
If FromYmd <> "" Then
'FromYmd = DateAdd("yyyy", 1, FromYmd) 'コピー元の1年後
End If
If ToYmd <> "" Then
'ToYmd = DateAdd("yyyy", 1, ToYmd) 'コピー元の1年後
End If
End If
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)
SeiriKinyuKeishikiKubun = Content.Fields("整理記入精算表利用")
MasterEnshu = Content.Fields("マスター演習")
CopyMotoName = "" & Content.Fields("コピー元演習名称")
If CopyMoto <> "" Then
CopyMotoName = "" 'コピー新規登録時はクリア
MasterEnshu = "" 'コピー新規登録時はクリア
End If
End If
Else
FromYmd = DateSerial(Year(Date()), 4, 1)
ToYmd = DateSerial(Year(DateAdd("yyyy", 1, Date())), 3, 31)
End If
'サイバー会計での新規作成時デフォルト値
'（サイバートレード連動ではGになっているのでそのまま）
If EnshuKubun <> "G" Then
EnshuKubun = "P"
End If
Dim RouteType
RouteType = Request("RouteType")
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>
<%
End Sub
%>