% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim SyoriKubun SyoriKubun = Request("SyoriKubun") If SyoriKubun = "" Then SyoriKubun = "1" End If Dim PageType PageType = "仕訳帳" Dim Label Dim SenColor Dim SenWidth Label = "" SenColor = "#000000" SenWidth = "1" If SyoriKubun = "9" Then Label = "決算整理" SenColor = "#237D45" SenWidth = "3" ElseIf SyoriKubun = "10" Then Label = "決算振替" SenColor = "#996633" SenWidth = "3" End If Dim Url Url = Request.ServerVariables("URL") Dim DenpyoNo DenpyoNo = Request("DenpyoNo") Dim Torihikibi Torihikibi = Request("Torihikibi") If Torihikibi = "null" Then Torihikibi = "" End If Dim TorihikisakiCD Dim Tekiyo '取引先を先に取得 If PackageMode = 1 And DenpyoNo <> "" Then Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoNo & "', 'S'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("摘要CD") <> "" Then TorihikisakiCD = Content.Fields("摘要CD") Exit Do End If Content.MoveNext Loop End If '自動番号伝票・実践日フラグ取得(サイバー会計モード仕訳帳のため) Dim JidoBangoDenpyo Dim Jissenbi Jissenbi = "" Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then JidoBangoDenpyo = "" & Content.Fields("自動番号伝票") Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日")) End If %>