<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim KenninView KenninView = Request("KenninView") Dim Query Dim Content Dim ContentTG Dim EnshuCD Dim EnshuName EnshuCD = Request("EnshuCD") If GB_EnshuCD <> "" Then EnshuCD = GB_EnshuCD End If Dim ShiireUriageKennin If EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuName = Content.Fields("演習名称") ShiireUriageKennin = ";" & Content.Fields("仕入売上書類検認利用") & ";" ShiireUriageKennin = Replace(ShiireUriageKennin, ",", ";") '旧バージョン整合 End If End If Dim BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") If BunsyoSyuruiCD = "" Then If InStr(ShiireUriageKennin, ";KI;") > 0 Then BunsyoSyuruiCD = "KI" ElseIf InStr(ShiireUriageKennin, ";KM;") > 0 Then BunsyoSyuruiCD = "KM" ElseIf InStr(ShiireUriageKennin, ";KC;") > 0 Then BunsyoSyuruiCD = "KC" ElseIf InStr(ShiireUriageKennin, ";KU;") > 0 Then BunsyoSyuruiCD = "KU" ElseIf InStr(ShiireUriageKennin, ";KB;") > 0 Then BunsyoSyuruiCD = "KB" ElseIf InStr(ShiireUriageKennin, ";KN;") > 0 Then BunsyoSyuruiCD = "KN" ElseIf InStr(ShiireUriageKennin, ";KX;") > 0 Then BunsyoSyuruiCD = "KX" ElseIf InStr(ShiireUriageKennin, ";KO;") > 0 Then BunsyoSyuruiCD = "KO" ElseIf InStr(ShiireUriageKennin, ";KY;") > 0 Then BunsyoSyuruiCD = "KY" ElseIf InStr(ShiireUriageKennin, ";KP;") > 0 Then BunsyoSyuruiCD = "KP" End If End If Dim SeitoCD SeitoCD = Request("SeitoCD") %> <% = HtmlHeader("") %>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin = 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "仕入販売書類確認", "", "", "", "", "")) Else'If GB_Admin > 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "仕入販売書類確認", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("演習コントロール", "仕入販売書類の確認")) Response.Write(HttpL5("発信前の仕入販売書類を表示しています")) %>

<% If ConvEnshuKubun(EnshuCD) = "P" Then %> <% Else %> <% End If %> 書類名

対象演習名

<% = EnshuMeisyo %>

<% If ConvEnshuKubun(EnshuCD) = "P" Then %> <% Else %> <% End If %>

学生氏名

会社コード

作成会社

書類名

処理日

摘要

<% '取引のある口座開設は削除できないようにするための判定 Dim ContentTorihiki Dim TorihikiCnt Dim ii ii = 0 Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '', '', '" & BunsyoSyuruiCD & "'" '全会社取得 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) '同時同業の場合は選択生徒のみ表示 If (ConvEnshuKubun(EnshuCD) = "G" Or SeitoCD = "" Or "" & ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("作成会社CD")) = SeitoCD) And "" & Content.Fields("削除フラグ") <> "1" Then ' 未発信文書のみ会社CD=作成会社CDの文書のみ If "" & Content.Fields("発行フラグ") <> "1" And Content.Fields("会社CD") = Content.Fields("作成会社CD") Then ' 管理部書類は除外（一括処理が行われるため） If "" & Content.Fields("文書種類CD") = "KI" Or "" & Content.Fields("文書種類CD") = "KM" Or "" & Content.Fields("文書種類CD") = "KC" Or "" & Content.Fields("文書種類CD") = "KU" Or "" & Content.Fields("文書種類CD") = "KB" Or "" & Content.Fields("文書種類CD") = "KN" Or "" & Content.Fields("文書種類CD") = "KO" Or "" & Content.Fields("文書種類CD") = "KP" Or "" & Content.Fields("文書種類CD") = "KX" Or "" & Content.Fields("文書種類CD") = "KY" Then ' 検認済みは除外検認済みのみ表示 If (KenninView <> "1" And "" & Content.Fields("検認フラグ") <> "1") Or (KenninView = "1" And "" & Content.Fields("検認フラグ") = "1") Then Response.Write("