<% ' main() Sub main() Dim Action '処理区分 Dim EnshuName '演習CD、 演習名称 Dim Kaisyamei , KaisyaKanamei '会社コード、会社名称、会社カナ名称 Dim ZipCode , Adr1 , Adr2 '郵便番号、住所1、住所2 Dim Tel , Fax , GyosyuCD , GyosyuName 'Tel、Fax、業種CD、業種名称 Dim KaisyaRyakumei '会社略名称 Dim JisyaFlg, GakuseiBango Dim Query Dim Content Dim Ng , ErrMSG , rsts Dim HyojiFlg Dim RouteType Dim ShijyoCD Dim KitakuKaisyaCD Dim OldKitakuKaisyaCD Dim DaityoTorishimariyaku, Shihonkin Dim DaityoTorishimariyakuJyusyo Dim Torishimariyaku1, Torishimariyaku2, Mokuteki Dim Torishimariyaku1Jyusyo, Torishimariyaku2Jyusyo Dim BunsyoNaiyoCD Dim Tantosya Dim TantosyaFlg Dim KanKatsu Dim DaihyoSyain Dim Hokkinin4 Dim Hokkinin5 Dim Hokkinin4Jusho Dim Hokkinin5Jusho Dim Kabushiki1 Dim Kabushiki2 Dim Kabushiki3 Dim Kabushiki4 Dim Kabushiki5 Dim Gakumen Dim SeitoJisha '数値文字変換チェック用 Dim NumChrCheck NumChrCheck = "" HyojiFlg = Request("HyojiFlg") Dim SortMode SortMode = Request("SortMode") Dim ShijoCD ShijoCD = Request("ShijoCD") TantosyaFlg = 1 BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Tantosya = Request("Tantosya") NumChrCheck = NumChrCheck & Tantosya KanKatsu = Request("KanKatsu") NumChrCheck = NumChrCheck & KanKatsu RouteType = Request("RouteType") KaisyaCD = UCase(KaisyaCD) Action = Request("Action") Kaisyamei = Request("Kaisyamei") NumChrCheck = NumChrCheck & Kaisyamei KaisyaRyakumei = Request("KaisyaRyakumei") NumChrCheck = NumChrCheck & KaisyaRyakumei KaisyaKanamei = Request("KaisyaKanamei") ZipCode = Request("ZipCode") Adr1 = Request("Adr1") NumChrCheck = NumChrCheck & Adr1 Adr2 = Request("Adr2") NumChrCheck = NumChrCheck & Adr2 Tel = Request("Tel") Fax = Request("Fax") GyosyuCD = Request("GyosyuCD") ErrMsg = Request("ErrMsg") JisyaFlg = Request("JisyaFlg") GakuseiBango = Request("GakuseiBango") ShijyoCD = Request("ShijyoCD") KitakuKaisyaCD = Request("KitakuKaisyaCD") OldKitakuKaisyaCD = Request("OldKitakuKaisyaCD") DaityoTorishimariyaku = Request("DaityoTorishimariyaku") NumChrCheck = NumChrCheck & DaityoTorishimariyaku DaityoTorishimariyakuJyusyo = Request("DaityoTorishimariyakuJyusyo") NumChrCheck = NumChrCheck & DaityoTorishimariyakuJyusyo Torishimariyaku1 = Request("Torishimariyaku1") NumChrCheck = NumChrCheck & Torishimariyaku1 Torishimariyaku1Jyusyo = Request("Torishimariyaku1Jyusyo") NumChrCheck = NumChrCheck & Torishimariyaku1Jyusyo Torishimariyaku2 = Request("Torishimariyaku2") NumChrCheck = NumChrCheck & Torishimariyaku2 Torishimariyaku2Jyusyo = Request("Torishimariyaku2Jyusyo") NumChrCheck = NumChrCheck & Torishimariyaku2Jyusyo Hokkinin4 = Request("Hokkinin4") NumChrCheck = NumChrCheck & Hokkinin4 Hokkinin5 = Request("Hokkinin5") NumChrCheck = NumChrCheck & Hokkinin5 Hokkinin4Jusho = Request("Hokkinin4Jusho") NumChrCheck = NumChrCheck & Hokkinin4Jusho Hokkinin5Jusho = Request("Hokkinin5Jusho") NumChrCheck = NumChrCheck & Hokkinin5Jusho Kabushiki1 = ConvMoneyToInt(Request("Kabushiki1")) If Kabushiki1 = "" Then Kabushiki1 = "null" End If Kabushiki2 = ConvMoneyToInt(Request("Kabushiki2")) If Kabushiki2 = "" Then Kabushiki2 = "null" End If Kabushiki3 = ConvMoneyToInt(Request("Kabushiki3")) If Kabushiki3 = "" Then Kabushiki3 = "null" End If Kabushiki4 = ConvMoneyToInt(Request("Kabushiki4")) If Kabushiki4 = "" Then Kabushiki4 = "null" End If Kabushiki5 = ConvMoneyToInt(Request("Kabushiki5")) If Kabushiki5 = "" Then Kabushiki5 = "null" End If Gakumen = ConvMoneyToInt(Request("Gakumen")) If Gakumen = "" Then Gakumen = "null" End If Shihonkin = ConvMoneyToInt(Request("Shihonkin")) If Shihonkin = "" Then Shihonkin = "null" End If Mokuteki = Request("Mokuteki") NumChrCheck = NumChrCheck & Mokuteki Mokuteki = Replace(Mokuteki, vbCrLf, "
") DaihyoSyain = Request("DaihyoSyain") NumChrCheck = NumChrCheck & DaihyoSyain SeitoJisha = Request("SeitoJisha") If DaihyoSyain = "" Then DaihyoSyain = KaisyaRyakumei & "の代表" End If '寄託会社CDの同時同業補正 Dim TmpGakuseiBango If GB_EnshuKubun = "P" And GakuseiBango <> "" Then TmpGakuseiBango = "-" & GakuseiBango Else TmpGakuseiBango = "" End If '数値文字変換チェック If Not(NumChrReject(NumChrCheck)) Then Exit Sub End If '代替文字の置換 If Tantosya = "DaihyoTorishimariyakukayiramihsiroToyhiaD" Then Tantosya = DaityoTorishimariyaku End If '寄託会社を設定できない業種CDが他にあれば条件文に追加 If GyosyuCD <> "S" Then KitakuKaisyaCD = "" End If 'サイバー会計におけるユーザー単位のマスタ会社追加の場合 If PackageMode = 1 And GB_Admin < 1 And GB_EnshuKubun = "P" Then If InStr(KaisyaCD, "-" & GB_GakuseiNo) < 1 And KaisyaCD <> GB_GakuseiNo Then KaisyaCD = KaisyaCD & "-" & GB_GakuseiNo GakuseiBango = GB_GakuseiNo End If End If rsts = True 'Response.Write(Action) 'Exit Sub Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', 1" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) 'If UCase(Content.Fields("会社CD")) <> UCase(KaisyaCD) And Content.Fields("学生番号") = GakuseiBango And Content.Fields("会社名称") = Kaisyamei Then If UCase(Content.Fields("会社CD")) <> UCase(KaisyaCD) And (GB_EnshuKubun = "G" Or Content.Fields("学生番号") = GakuseiBango) And Content.Fields("会社名称") = Kaisyamei Then ErrMSG = "この会社名称は登録済みです" rsts = False Exit Do 'ElseIf UCase(Content.Fields("会社CD")) <> UCase(KaisyaCD) And Content.Fields("学生番号") = GakuseiBango And Content.Fields("会社略名称") = KaisyaRyakumei Then ElseIf UCase(Content.Fields("会社CD")) <> UCase(KaisyaCD) And (GB_EnshuKubun = "G" Or Content.Fields("学生番号") = GakuseiBango) And Content.Fields("会社略名称") = KaisyaRyakumei Then ErrMSG = "この会社略名称は登録済みです" rsts = False Exit Do End If Content.MoveNext Loop 'Response.Write("ErrMSG:" & ErrMSG) 'Response.Write("KaisyaCD:" & KaisyaCD) 'Response.Write("Kaisyamei:" & Kaisyamei) 'Response.Write("GakuseiBango:" & GakuseiBango) 'Exit Sub ' Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', 1" ' Set Content = OpenQuery(Query) ' Do While Not(Content.BOF Or Content.EOF) ' If UCase(Content.Fields("会社CD")) <> UCase(KaisyaCD) And Content.Fields("学生番号") = GakuseiBango And Content.Fields("会社名称") = Kaisyamei Then ' ErrMSG = "この会社名称は登録済みです" ' rsts = False ' End If ' Content.MoveNext ' Loop If Action = 1 Then Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ErrMSG = "このコードはすでに登録済みです。" rsts = False End If Else Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Else ErrMSG = "対象会社は存在しません。" rsts = False End If End If If rsts = False Then Ng = "fm_kaisya.asp?action=" & Action & "&nr=r" Ng = Ng & "&KaisyaCD=" & KaisyaCD & "&Kaisyamei=" & Kaisyamei & "&KaisyaRyakumei=" & KaisyaRyakumei Ng = Ng & "&KaisyaKanamei=" & KaisyaKanamei & "&ZipCode=" & ZipCode & "&Adr1=" & Adr1 Ng = Ng & "&Adr2=" & Adr2 & "&Tel=" & Tel & "&Fax=" & Fax Ng = Ng & "&GyosyuCD=" & GyosyuCD Ng = Ng & "&KitakuKaisyaCD=" & KitakuKaisyaCD Ng = Ng & "&ShijyoCD=" & ShijyoCD Ng = Ng & "&DaityoTorishimariyaku=" & DaityoTorishimariyaku Ng = Ng & "&DaityoTorishimariyakuJyusyo=" & DaityoTorishimariyakuJyusyo Ng = Ng & "&Torishimariyaku1=" & Torishimariyaku1 Ng = Ng & "&Torishimariyaku1Jyusyo=" & Torishimariyaku1Jyusyo Ng = Ng & "&Torishimariyaku2=" & Torishimariyaku2 Ng = Ng & "&Torishimariyaku2Jyusyo=" & Torishimariyaku2Jyusyo Ng = Ng & "&Hokkinin4=" & Hokkinin4 Ng = Ng & "&Hokkinin4Jusho=" & Hokkinin4Jusho Ng = Ng & "&Hokkinin5=" & Hokkinin5 Ng = Ng & "&Hokkinin5Jusho=" & Hokkinin5Jusho Ng = Ng & "&Kabushiki1=" & Kabushiki1 Ng = Ng & "&Kabushiki2=" & Kabushiki2 Ng = Ng & "&Kabushiki3=" & Kabushiki3 Ng = Ng & "&Kabushiki4=" & Kabushiki4 Ng = Ng & "&Kabushiki5=" & Kabushiki5 Ng = Ng & "&Gakumen=" & Gakumen Ng = Ng & "&Shihonkin=" & Shihonkin Ng = Ng & "&Mokuteki=" & Mokuteki Ng = Ng & "&DaihyoSyain=" & DaihyoSyain Ng = Ng & "&ErrMSG=" & ErrMSG Ng = Ng & "&RouteType=" & RouteType Ng = Ng & "&HyojiFlg=" & HyojiFlg Ng = Ng & "&SortMode=" & SortMode Ng = Ng & "&ShijoCD=" & ShijoCD Ng = Ng & "&SeitoJisha=" & SeitoJisha ' Response.Redirect(Ng) Response.Write(SubmitHystoryBack(Ng)) Exit Sub End If If Action = 4 Then If GB_EnshuKubun = "G" Then Query = "exec SPV選択可能会社選択解除会社 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) End If Query = "exec SPM会社削除 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'" Else If GakuseiBango = "" Then Query = "exec SPM会社ユーザ取得 '" & GB_SystemCD & "'," & "'" & EnshuCD & "','" & KitakuKaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then GakuseiBango = Content.Fields("学生番号") End If 'Response.Write("Query:" & Query & "
") 'Response.Write("GakuseiBango:" & GakuseiBango & "
") 'KitakuKaisyaCD = KitakuKaisyaCD & "-" & GakuseiBango End If If GB_Admin => 1 And Action = 1 Then GakuseiBango = "" End If Query = "exec SPM会社更新 '" & GB_SystemCD & "'," & Action Query = Query & ",'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Query = Query & ",'" & ShijyoCD & "'" Query = Query & ",'" & Kaisyamei & "'" Query = Query & ",'" & KaisyaRyakumei & "'" Query = Query & ",'" & KaisyaKanamei & "'" Query = Query & ",'" & ZipCode & "'" Query = Query & ",'" & Adr1 & "'" Query = Query & ",'" & Adr2 & "'" Query = Query & ",'" & Tel & "'" Query = Query & ",'" & Fax & "'" Query = Query & ",'" & GyosyuCD & "'" Query = Query & "," & JisyaFlg Query = Query & ",'" & GakuseiBango & "'" Query = Query & ",'" & KitakuKaisyaCD & TmpGakuseiBango & "'" Query = Query & ",'" & DaityoTorishimariyaku & "'" Query = Query & ",'" & DaityoTorishimariyakuJyusyo & "'" Query = Query & ",'" & Torishimariyaku1 & "'" Query = Query & ",'" & Torishimariyaku1Jyusyo & "'" Query = Query & ",'" & Torishimariyaku2 & "'" Query = Query & ",'" & Torishimariyaku2Jyusyo & "'" Query = Query & ",'" & Hokkinin4 & "'" Query = Query & ",'" & Hokkinin4Jusho & "'" Query = Query & ",'" & Hokkinin5 & "'" Query = Query & ",'" & Hokkinin5Jusho & "'" Query = Query & "," & Shihonkin Query = Query & ",'" & Mokuteki & "'" Query = Query & "," & Kabushiki1 Query = Query & "," & Kabushiki2 Query = Query & "," & Kabushiki3 Query = Query & "," & Kabushiki4 Query = Query & "," & Kabushiki5 Query = Query & "," & Gakumen 'Response.Write("Query:" & Query & "
") 'exit sub End If Set Content = OpenQuery(Query) If Content.Fields.Count > 0 Then rsts = Content.Fields(0) End If '同時同業のマスタ会社を生徒の自社とする設定(200715小野) If GB_EnshuKubun = "G" Then SeitoJisha = "0" End If If SeitoJisha = "1" Then '一旦すべてOFFにする Query = "" Query = Query & " UPDATE TDA会社M " Query = Query & " SET 同時同業生徒自社 = '0' " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " ' Query = Query & " AND 会社CD <> '" & KaisyaCD & "' " ' Query = Query & " AND (学生番号 = '' OR 学生番号 IS NULL) " 'マスタ会社のみ Set Content = OpenQuery(Query) End If Query = "" Query = Query & " " Query = Query & " UPDATE TDA会社M " Query = Query & " SET 同時同業生徒自社 = '" & SeitoJisha & "' " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " AND (会社CD = '" & KaisyaCD & "' OR 会社CD LIKE '" & KaisyaCD & "-%') " Set Content = OpenQuery(Query) If Action = 1 Then GakuseiBango = "" End If Dim Content2 '代表取締役を更新(080529小野) Dim SyainNo1 Dim SyainNoLabel Dim Birthday Dim FuyoNinzu Dim YubinNo Dim Jyusyo Dim TelNo Dim MobileNo Dim Yakusyoku Dim Nyusyabi Dim Risyokubi Dim Kihonkyu Dim SyokumuTeate Dim KazokuTeate Dim JyutakuTeate Dim SeikinTeate Dim KaikinTeate Dim TukinTeate Dim KenkoHoken Dim KoseiNenkin Dim NenkinKikin Dim KoyoHoken Dim KaigoHoken Dim TmpGakuseiNo '自社設定会社の場合はユーザー作成であるため学生番号を取得する Dim DaihyoSonzai DaihyoSonzai = 0 SyainNo1 = 1 If Action < 4 Then Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("社員番号") = SyainNo1 Then SyainNo1 = Content.Fields("社員番号") + 1 End If If "" & Content.Fields("代表取締役フラグ") = "1" Then DaihyoSonzai = 1 SyainNo1 = Content.Fields("社員番号") Query = "exec SPK社員台帳取得2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', " & SyainNo1 Set Content2 = OpenQuery(Query) If Not(Content2.BOF Or Content2.EOF) Then SyainNoLabel = Content2.Fields("社員番号ラベル") Birthday = Content2.Fields("生年月日") FuyoNinzu = Content2.Fields("扶養家族人数") YubinNo = Content2.Fields("郵便番号") Jyusyo = Content2.Fields("住所") TelNo = Content2.Fields("電話番号") MobileNo = Content2.Fields("ケータイ") Yakusyoku = Content2.Fields("役職") Nyusyabi = Content2.Fields("入社年月日") Risyokubi = Content2.Fields("離職年月日") Kihonkyu = Content2.Fields("基本給") SyokumuTeate = Content2.Fields("職務手当") KazokuTeate = Content2.Fields("家族手当") JyutakuTeate = Content2.Fields("住宅手当") SeikinTeate = Content2.Fields("精勤手当") KaikinTeate = Content2.Fields("皆勤手当") TukinTeate = Content2.Fields("通勤手当") KenkoHoken = Content2.Fields("健康保険") KoseiNenkin = Content2.Fields("厚生年金") NenkinKikin = Content2.Fields("年金基金") KoyoHoken = Content2.Fields("雇用保険") KaigoHoken = Content2.Fields("介護保険") TmpGakuseiNo = "" & Content2.Fields("学生番号") Exit Do End If End If Content.MoveNext Loop If DaihyoSyain <> "" And DaihyoSonzai = 0 Then '代表取締役氏名が指定されていて代表取締役の社員が存在しない場合は新規作成モード SyainNo1 = "null" End If Query = "exec SPK社員台帳更新2 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", '" & KaisyaCD & "'" Query = Query & ", " & SyainNo1 & "" Query = Query & ", '" & SyainNoLabel & "'" Query = Query & ", '" & DaihyoSyain & "'" If "" & Birthday <> "" Then Query = Query & ", '" & Birthday & "'" Else Query = Query & ", null" End If If "" & FuyoNinzu <> "" Then Query = Query & ", " & FuyoNinzu Else Query = Query & ", null" End If Query = Query & ", '" & YubinNo & "'" Query = Query & ", '" & Jyusyo & "'" Query = Query & ", '" & TelNo & "'" Query = Query & ", '" & MobileNo & "'" Query = Query & ", '" & Yakusyoku & "'" If "" & Nyusyabi <> "" Then Query = Query & ", '" & Nyusyabi & "'" Else Query = Query & ", null" End If If "" & Risyokubi <> "" Then Query = Query & ", '" & Risyokubi & "'" Else Query = Query & ", null" End If If "" & Kihonkyu <> "" Then Query = Query & ", " & Kihonkyu Else Query = Query & ", null" End If If "" & SyokumuTeate <> "" Then Query = Query & ", " & SyokumuTeate Else Query = Query & ", null" End If If "" & KazokuTeate <> "" Then Query = Query & ", " & KazokuTeate Else Query = Query & ", null" End If If "" & JyutakuTeate <> "" Then Query = Query & ", " & JyutakuTeate Else Query = Query & ", null" End If If "" & SeikinTeate <> "" Then Query = Query & ", " & SeikinTeate Else Query = Query & ", null" End If If "" & KaikinTeate <> "" Then Query = Query & ", " & KaikinTeate Else Query = Query & ", null" End If If "" & TukinTeate <> "" Then Query = Query & ", " & TukinTeate Else Query = Query & ", null" End If If "" & KenkoHoken <> "" Then Query = Query & ", " & KenkoHoken Else Query = Query & ", null" End If If "" & KoseiNenkin <> "" Then Query = Query & ", " & KoseiNenkin Else Query = Query & ", null" End If If "" & NenkinKikin <> "" Then Query = Query & ", " & NenkinKikin Else Query = Query & ", null" End If If "" & KoyoHoken <> "" Then Query = Query & ", " & KoyoHoken Else Query = Query & ", null" End If If "" & KaigoHoken <> "" Then Query = Query & ", " & KaigoHoken Else Query = Query & ", null" End If Query = Query & ", '" & TmpGakuseiNo & "'" '学生番号(マスタ社員はNULL) 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SyainNo1 = Content.Fields(0) End If Query = "exec SPK社員台帳更新_代表取締役 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", '" & KaisyaCD & "'" Query = Query & ", " & SyainNo1 Set Content = OpenQuery(Query) End If '代表取締役→発起人1に変更のため廃止 '代表取締役を社員台帳に登録(070607小野) ' If Action < 4 Then ' Dim SyainNo1 ' Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" ' Set Content = OpenQuery(Query) ' Do While Not(Content.BOF Or Content.EOF) ' If "" & Content.Fields("社員番号") = "1" And Content.Fields("氏名") = DaityoTorishimariyaku Then ' SyainNo1 = "1" ' Exit Do ' End If ' Content.MoveNext ' Loop '代表取締役が変わった場合は更新 '会社選択時に必ず社員番号1が作成されているため社員番号1決め打ち 'シンクロさせるため代表取締役フラグも横取りする ' If SyainNo1 <> "1" Then ' Query = "exec SPK社員台帳更新2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 1" ' Query = Query & ", '" & DaityoTorishimariyaku & "', null, 0, '', '" & DaityoTorishimariyakuJyusyo & "', '', '', '代表取締役', null, null" ' Query = Query & ", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0" ' DebugQuery(Query) ' Set Content = OpenQuery(Query) ' Query = "exec SPK社員台帳更新_代表取締役 '" & GB_SystemCD & "'" ' Query = Query & ", '" & EnshuCD & "'" ' Query = Query & ", '" & KaisyaCD & "'" ' Query = Query & ", 1" ' Set Content = OpenQuery(Query) ' End If ' End If If GyosyuCD = "S" Then '寄託契約書を破棄する Query = "DELETE FROM TGA契約書F WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 作成会社CD = '" & KaisyaCD & "' AND 文書種類CD = 'XK'" Set Content = OpenQuery(Query) Query = "DELETE FROM TTX文書F WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 作成会社CD = '" & KaisyaCD & "' AND 文書種類CD = 'XK'" Set Content = OpenQuery(Query) Query = "DELETE FROM TTX文書F WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 取引先CD = '" & KaisyaCD & "' AND 文書種類CD = 'XK'" Set Content = OpenQuery(Query) If KitakuKaisyaCD <> "" Then '担当者が該当しなければ新規作成 Dim TantosyaCD TantosyaCD = 0 Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) TantosyaCD = Content.Fields("社員番号") If Content.Fields("氏名") = Tantosya Then TantosyaFlg = 0 Exit Do End If Content.MoveNext Loop If TantosyaFlg > 0 Then 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, ''" DebugQuery(Query) Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then TantosyaCD = Content.Fields(0) End If End If '契約書を作成する Query = "exec SPK契約書挿入 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '', '" & KaisyaCD & "'," Query = Query & " 'S', '" & KitakuKaisyaCD & TmpGakuseiBango & "', '" & TantosyaCD & "', '" & KanKatsu & "'," Query = Query & " '" & GakuseiNo & "', '" & GB_KaikeiKaishibi & "', '" & GB_KaikeiKaishibi & "', '" & GB_KaikeiSyuryobi & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then BunsyoNaiyoCD = Content.Fields(0) End If Query = "exec SPK契約書発信 '" & GB_SystemCD & "', '1', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & KaisyaCD & "', '" & KitakuKaisyaCD & TmpGakuseiBango & "', '" & GB_KaikeiKaishibi & "', '" & GakuseiBango & "'" Set Content = OpenQuery(Query) Query = "exec SPK契約書受諾 '" & GB_SystemCD & "', '1', '" & EnshuCD & "', '" & KitakuKaisyaCD & TmpGakuseiBango & "', 'XK', '" & BunsyoNaiyoCD & "', '" & KaisyaCD & "', '1', '" & GB_KaikeiKaishibi & "', '" & GakuseiBango & "'" Set Content = OpenQuery(Query) Query = "exec SPK契約書開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KitakuKaisyaCD & TmpGakuseiBango & "', 'XK', '" & BunsyoNaiyoCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) End If End If If RouteType = "syatyo" Then Response.Redirect("/" & HomeAlias & "/user/bk/teikan.asp?RouteType=syatyo") ElseIf Action = 4 Then Response.Redirect("fm_kaisya_ichiran.asp?HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD) Else Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) ' If Not(Content.BOF Or Content.EOF) Then If 1 = 0 Then Session(HomeAlias & "GakuseiNo") = Content.Fields("学生番号") Session(HomeAlias & "GyosyuMeisyo") = Content.Fields("業種名称") Session(HomeAlias & "GyosyuKubun") = Content.Fields("業種CD") If Content.Fields("業種CD") = "B" Then Session(HomeAlias & "Gyosyu") = "B" Else Session(HomeAlias & "Gyosyu") = "S" End If End If Response.Redirect("fm_kaisya_view.asp?KaisyaCD=" & KaisyaCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&ShijoCD=" & ShijoCD) End If End Sub %>