%
'
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
%>