% ' ' %> <% GB_SystemCD = "SFC" EnshuCD = "TESTDATA" KaisyaCD = "TESTDATA" main() Sub main() GB_ShowPrintHeader = "1" Dim EnshuName, HyojiJyoken Dim Query Dim Content Dim ErrMsg Dim Addr, AutoFlg Dim tmp Dim KaisyaCD, GakuseiNo, BunsyoSyuruiCD, BunsyoNaiyoCD Dim Param1, Param2 Dim KaisyaSelect KaisyaCD = Request("KaisyaCD") GakuseiNo = Request("GakuseiNo") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim SakuseiKaisyaCD AutoFlg = 0 If InStr(BunsyoSyuruiCD, ",") > 0 then tmp = Split(BunsyoSyuruiCD, ",") BunsyoSyuruiCD = tmp(0) AutoFlg = tmp(1) End If If InStr(BunsyoNaiyoCD, ",") > 0 then tmp = Split(BunsyoNaiyoCD, ",") SakuseiKaisyaCD = tmp(0) BunsyoNaiyoCD = tmp(1) End If If SakuseiKaisyaCD = "" Then SakuseiKaisyaCD = KaisyaCD End If Param1 = Request("Param1") Param2 = Request("Param2") KaisyaSelect = KaisyaCD If KaisyaCD = "///" Then Query = "exec SPM選択可能会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KaisyaCD = Content.Fields("選択会社CD") End If End If Dim EnshuKubunmei EnshuKubunmei = GetEnshuParam(EnshuCD, "演習区分") Dim PrevKaisyaCD, NextKaisyaCD, PrevGakuseiNo, NextGakuseiNo, PrevBunsyoSyuruiCD, NextBunsyoSyuruiCD, PrevBunsyoNaiyoCD, NextBunsyoNaiyoCD Dim PrevAutoFlg, NextAutoFlg Dim KaisyaMeisyo, KaisyaRyakuMeisyo, GakuseiShimei, BunsyoMeisyo Dim bFlg Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then NextKaisyaCD = Content.Fields("会社CD") End If Do While Not(Content.BOF Or Content.EOF) If Content.Fields("会社CD") = KaisyaCD Then KaisyaMeisyo = Content.Fields("会社名称") KaisyaRyakuMeisyo = Content.Fields("会社略名称") Content.MoveNext If Not(Content.BOF Or Content.EOF) Then NextKaisyaCD = Content.Fields("会社CD") End If Exit Do End If PrevKaisyaCD = Content.Fields("会社CD") Content.MoveNext Loop If PrevKaisyaCD = "" Then If Not(Content.BOF Or Content.EOF) Then Content.MoveFirst End If Do While Not(Content.BOF Or Content.EOF) PrevKaisyaCD = Content.Fields("会社CD") Content.MoveNext Loop End If Query = "exec SPM演習選択ユーザー一覧 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then NextGakuseiNo = Content.Fields("学生番号") End If Do While Not(Content.BOF Or Content.EOF) If Content.Fields("学生番号") = GakuseiNo Then GakuseiShimei = Content.Fields("氏名") Content.MoveNext If Not(Content.BOF Or Content.EOF) Then NextGakuseiNo = Content.Fields("学生番号") End If Exit Do End If PrevGakuseiNo = Content.Fields("学生番号") Content.MoveNext Loop If PrevGakuseiNo = "" Then If Not(Content.BOF Or Content.EOF) Then Content.MoveFirst End If Do While Not(Content.BOF Or Content.EOF) PrevGakuseiNo = Content.Fields("学生番号") Content.MoveNext Loop End If Query = "exec SPR文書種類一覧 '" & GB_SystemCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then NextBunsyoSyuruiCD = Content.Fields("文書種類CD") NextAutoFlg = Content.Fields("自動フラグ") End If Do While Not(Content.BOF Or Content.EOF) If Content.Fields("文書種類CD") = BunsyoSyuruiCD And Content.Fields("自動フラグ") = AutoFlg Then BunsyoMeisyo = Content.Fields("文書名称") Content.MoveNext If Not(Content.BOF Or Content.EOF) Then NextBunsyoSyuruiCD = Content.Fields("文書種類CD") NextAutoFlg = Content.Fields("自動フラグ") End If Exit Do End If PrevBunsyoSyuruiCD = Content.Fields("文書種類CD") PrevAutoFlg = Content.Fields("自動フラグ") Content.MoveNext Loop If PrevBunsyoSyuruiCD = "" Then If Not(Content.BOF Or Content.EOF) Then Content.MoveFirst End If Do While Not(Content.BOF Or Content.EOF) PrevBunsyoSyuruiCD = Content.Fields("文書種類CD") PrevAutoFlg = Content.Fields("自動フラグ") Content.MoveNext Loop End If Query = "exec SPR文書番号一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & AutoFlg & "', '" & GakuseiNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then NextBunsyoNaiyoCD = Content.Fields("文書内容CD") End If Do While Not(Content.BOF Or Content.EOF) If Content.Fields("文書内容CD") = BunsyoNaiyoCD Then Content.MoveNext If Not(Content.BOF Or Content.EOF) Then NextBunsyoNaiyoCD = Content.Fields("文書内容CD") End If Exit Do End If PrevBunsyoNaiyoCD = Content.Fields("文書内容CD") Content.MoveNext Loop If PrevBunsyoNaiyoCD = "" Then If Not(Content.BOF Or Content.EOF) Then Content.MoveFirst End If Do While Not(Content.BOF Or Content.EOF) PrevBunsyoNaiyoCD = Content.Fields("文書内容CD") Content.MoveNext Loop End If If KaisyaMeisyo = "" Then KaisyaMeisyo = KaisyaCD End If If KaisyaRyakuMeisyo = "" Then KaisyaRyakuMeisyo = KaisyaCD End If If GakuseiShimei = "" Then GakuseiShimei = GakuseiNo End If %>
<% If AutoFlg = 1 And Left(BunsyoSyuruiCD, 1) = "M" Then %> <% Else %> <% End If %>