<%
'
'
%>
<%
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 %>
<% = AppTitle %>
<%
Dim BunsyoSyuruiCDs
BunsyoSyuruiCDs = Array("KI", "KM", "KC", "KU", "KB", "KN", "KX", "KO", "KY", "KW", "KV", "KP", "BA","BB","BC","BD","BE","BF","BG", "BN","BO","BP","BQ","BR","BS","BT", "TG","TK","TY", "CA","CB","CC", "CD", "D1", "D2", "D3", "D4", "D5", "LA", "LB", "LC", "LD", "LE", "LF", "MA", "MB", "MC", "MD", "ME", "MF")
BunsyoSyuruiCDs = Array("LD2", "LG", "MG", "MJ", "MH", "MI")
Dim ii
For ii = 0 To Ubound(BunsyoSyuruiCDs)
PrintA(BunsyoSyuruiCDs(ii))
' Response.Write BunsyoSyuruiCDs(ii) & vbCrLf
Response.Write "" & vbCrLf
Next
%>
<%
End Sub
Function PrintA(BunsyoSyuruiCD)
Dim Query, Content
Query = "exec SPR文書番号一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & AutoFlg & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
Dim BunsyoNaiyoCD
If Not(Content.BOF Or Content.EOF) Then
BunsyoNaiyoCD = Content.Fields("文書内容CD")
End If
' Dim EnshuCD, KaisyaCD, BunsyoNaiyoCD
' EnshuCD = ""
' KaisyaCD = ""
' BunsyoNaiyoCD = ""
Dim SakuseiKaisyaCD, AutoFlg
SakuseiKaisyaCD = KaisyaCD
AutoFlg = "1"
Select Case BunsyoSyuruiCD
Case "KI", "KM", "KC", "KU", "KB", "KN", "KX", "KO", "KY", "KW", "KV", "KP"
Response.Write(ShiireUriageSyorui( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "BA","BB","BC","BD","BE","BF","BG"
Response.Write(GinkoSyorui( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "BN","BO","BP","BQ","BR","BS","BT"
Response.Write(GinkoUketsukeSyorui( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "TG","TK","TY"
Response.Write(Tegata( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "CA","CB","CC"
Response.Write(UnsoSyorui( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "CD"
Response.Write(UnsoSeikyuSyorui( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "D1", "D2"
Response.Write(DenpyoNyusyukin( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "D3", "D4"
Response.Write(DenpyoShiireUriage( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "D5"
Response.Write(DenpyoFurikae( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "LA"
Response.Write(TyoboShiwakenikkityo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "LB"
Response.Write(TyoboShiwakeSyukeihyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "LC"
Response.Write(TyoboGokeiZandakaShisanhyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "LD"
Response.Write(TyoboSokanjyoMototyoH( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "LD2"
Response.Write(TyoboSokanjyoMototyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, "LD", BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "LE"
Response.Write(TyoboTaisyakuTaisyohyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "LF"
Response.Write(TyoboSonekiKeisansyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "LG"
Response.Write(TyoboHachiketaSeisanhyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "MA"
Response.Write(HojyoboGenkinSuitohyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1))
Case "MB"
Response.Write(HojyoboTozaYokinSuitohyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "MC", "MD"
Response.Write(HojyoboShiireUriagetyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1))
Case "ME", "MF"
Response.Write(HojyoboUrikaikakekintyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1))
Case "MG", "MJ"
Response.Write(HojyoboSyohinAridakatyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "MH", "MI"
Response.Write(HojyoboUketoriShiharaiTegatatyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1))
Case "RA"
Response.Write(Ryosyusyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case Else
End Select
End Function
%>