% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim RouteType RouteType = Request("RouteType") Dim EnshuCD Dim EnshuName Dim EnshuKubun Dim Jissenbi Dim AiteShukkoHitsuyo Dim Kitakuriyou Dim GinkoSyoriKubun Dim GinkoTegataToriWari Dim RiyoMailKubun Dim ShiireUriageKennin Dim SeizoRiyo EnshuCD = Request("EnshuCD") If EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuName = Content.Fields("演習名称") EnshuKubun = Content.Fields("演習区分") Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日")) AiteShukkoHitsuyo = Content.Fields("入庫時相手出庫必要") Kitakuriyou = Content.Fields("寄託倉庫利用") GinkoSyoriKubun = "" & Content.Fields("銀行自動処理") GinkoTegataToriWari = "" & Content.Fields("銀行手形取立割引手動") RiyoMailKubun = "" & Content.Fields("メール利用") SeizoRiyo = "" & Content.Fields("原価会計利用") ShiireUriageKennin = Replace(Replace("" & Content.Fields("仕入売上書類検認利用"), ",", ""), ";", "") '旧仕様はカンマ End If End If If ShiireHanbaiKennin <> 1 Then ShiireUriageKennin = "" End If %> <% = HtmlHeader("") %>