<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim KaikeiKaishibi Dim KaikeiSyuryobi Dim BinType BinType = Request("BinType") Dim BunsyoNaiyoCD BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim SakuseiKaisyaCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") Dim TorihikisakiCD TorihikisakiCD = Request("TorihikisakiCD") Dim OldBunsyoNaiyoCD OldBunsyoNaiyoCD = Request("OldBunsyoNaiyoCD") Dim Tantosya Tantosya = Request("Tantosya") Dim DaihyoTorishimariyaku DaihyoTorishimariyaku = Request("DaihyoTorishimariyaku") Dim KanKatsu KanKatsu = Request("KanKatsu") Dim Kaishibi Kaishibi = Request("Kaishibi") Dim SenpoFlg SenpoFlg = Request("SenpoFlg") Dim TantosyaCD TantosyaCD = "" '初期化 Dim KitakuGaisyaCD Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KitakuGaisyaCD = "" & Content.Fields("寄託会社CD") End If If BinType = "New" Or BinType = "Agree" Then '契約書作成・受諾時の担当者・代表取締役処理 ' Query = "exec SPM会社更新_代表取締役 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & DaihyoTorishimariyaku & "'" ' Set Content = OpenQuery(Query) ' Query = "exec SPK社員台帳更新 '" & GB_SystemCD & "', '1', '" & EnshuCD & "', '" & KaisyaCD & "', '1', '1', '" & DaihyoTorishimariyaku ' Query = Query & "', null, null, '', null, null, null, null, null, null, null, null, null, null, null, null, null, null, '" & Left(SetDate(GB_KaikeiKaishibi,2),5) & Replace(Mid(SetDate(GB_KaikeiKaishibi,2),6,3),"0","") & "'" ' DebugQuery(Query) ' Set Content = OpenQuery(Query) TantosyaCD = ConvSyainNumber(Tantosya) If TantosyaCD = "" Then '担当者新規作成 'TantosyaCD = 0 'Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" 'Set Content = OpenQuery(Query) 'Do While Not(Content.BOF Or Content.EOF) ' If Content.Fields("社員番号") >= TantosyaCD Then ' TantosyaCD = Content.Fields("社員番号") ' End If ' Content.MoveNext 'Loop 'TantosyaCD = TantosyaCD + 1 Query = "exec SPK社員台帳更新2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', null" Query = Query & ", '', '" & Tantosya & "', null, 0, '', '', '', '', '', null, null" Query = Query & ", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0" Query = Query & ", '" & GB_GakuseiNo & "'" '学生番号 DebugQuery(Query) Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then TantosyaCD = Content.Fields(0) End If End If If BinType = "Agree" Then Dim OtsuTantosyaCD OtsuTantosyaCD = TantosyaCD End If End If If BinType = "New" Then '契約書作成 Query = "exec SPK契約書挿入 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '', '" & KaisyaCD & "'," Query = Query & " 'S', '" & TorihikisakiCD & "', '" & TantosyaCD & "', '" & KanKatsu & "'," Query = Query & " '" & GakuseiNo & "', '" & GB_KaikeiKaishibi & "', '" & Kaishibi & "', '" & GB_KaikeiSyuryobi & "'" Set Content = OpenQuery(Query) If KitakuGaisyaCD <> "" Then '運用管理で寄託会社CDが設定されていればここで入れ替える(070207小野)※現判定ロジックでは必要ないが念のため Query = "UPDATE TDA会社M SET 寄託会社CD = '" & TorihikisakiCD & "' WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "'" Set Content = OpenQuery(Query) End If Response.Redirect("fk_kitakukeiyaku.asp") ElseIf BinType = "Agree" Then '契約の受諾 Query = "exec SPK契約書受諾 '" & GB_SystemCD & "', '1', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & SakuseiKaisyaCD & "', '" & OtsuTantosyaCD & "', '" & GB_KaikeiKaishibi & "', '" & GakuseiNo & "'" Set Content = OpenQuery(Query) ' Response.Redirect("fk_kitakukeiyaku_view.asp?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&SenpoFlg=" & SenpoFlg) Call WaitRedirect("fk_kitakukeiyaku_view.asp?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&SenpoFlg=" & SenpoFlg, 200) Exit Sub 'Exitしないと次に進んでしまいます ElseIf BinType = "Send" Then '契約の申し入れ Query = "exec SPK契約書発信 '" & GB_SystemCD & "', '1', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & KaisyaCD & "', '" & TorihikisakiCD & "', '" & GB_KaikeiKaishibi & "', '" & GakuseiNo & "'" Set Content = OpenQuery(Query) ' Response.Redirect("fk_kitakukeiyaku_view.asp?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD) Call WaitRedirect("fk_kitakukeiyaku_view.asp?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD, 200) Exit Sub 'Exitしないと次に進んでしまいます ElseIf BinType = "Del" Then '契約書削除 Query = "exec SPK契約書削除 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) Response.Redirect("fk_kitakukeiyaku.asp") End If End Sub %>