<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim i Dim ErrMsg Dim KaisyaKanaMeisyo, KaisyaMeisyo, KaisyaRyakuMeisyo, YubinBango Dim Jyusyo1, Jyusyo2, TEL, FAX, SetsuritsuNengappi Dim DaityoTorishimariyaku, Shihonkin Dim Torishimariyaku, Torishimariyaku1, Torishimariyaku2, Mokuteki Dim Torishimariyaku1Jyusyo, Torishimariyaku2Jyusyo Dim ShijyoCD Dim GyosyuCD Dim DaityoTorishimariyakuJyusyo Dim KitakuGaisyaCD Dim Hokkinin4 Dim Hokkinin5 Dim Hokkinin4Jusho Dim Hokkinin5Jusho Dim Kabushiki1 Dim Kabushiki2 Dim Kabushiki3 Dim Kabushiki4 Dim Kabushiki5 Dim Gakumen KaisyaKanaMeisyo = Request("KaisyaKanaMeisyo") KaisyaMeisyo = Request("KaisyaMeisyo") KaisyaRyakuMeisyo = Request("KaisyaRyakuMeisyo") YubinBango = Request("YubinBango") Jyusyo1 = Request("Jyusyo1") Jyusyo2 = Request("Jyusyo2") TEL = Request("TEL") FAX = Request("FAX") ShijyoCD = Request("ShijyoCD") DaityoTorishimariyaku = Request("DaityoTorishimariyaku") Shihonkin = ConvMoneyToInt(Request("Shihonkin")) Kabushiki1 = ConvMoneyToInt(Request("Kabushiki1")) Kabushiki2 = ConvMoneyToInt(Request("Kabushiki2")) Kabushiki3 = ConvMoneyToInt(Request("Kabushiki3")) Kabushiki4 = ConvMoneyToInt(Request("Kabushiki4")) Kabushiki5 = ConvMoneyToInt(Request("Kabushiki5")) Gakumen = ConvMoneyToInt(Request("Gakumen")) Torishimariyaku1 = Request("Torishimariyaku1") Torishimariyaku2 = Request("Torishimariyaku2") Torishimariyaku1Jyusyo = Request("Torishimariyaku1Jyusyo") Torishimariyaku2Jyusyo = Request("Torishimariyaku2Jyusyo") GyosyuCD = Request("GyosyuCD") DaityoTorishimariyakuJyusyo = Request("DaityoTorishimariyakuJyusyo") Hokkinin4 = Request("Hokkinin4") Hokkinin5 = Request("Hokkinin5") Hokkinin4Jusho = Request("Hokkinin4Jusho") Hokkinin5Jusho = Request("Hokkinin5Jusho") ' Torishimariyaku = Torishimariyaku1 & "/" & Torishimariyaku2 Mokuteki = Request("Mokuteki") Mokuteki = Replace(Mokuteki, vbCrLf, "
") KitakuGaisyaCD = Request("KitakuGaisyaCD") If Shihonkin = "" Or Shihonkin = "0" Then Shihonkin = "null" End If If Kabushiki1 = "" Or Kabushiki1 = "0" Then Kabushiki1 = "null" End If If Kabushiki2 = "" Or Kabushiki2 = "0" Then Kabushiki2 = "null" End If If Kabushiki3 = "" Or Kabushiki3 = "0" Then Kabushiki3 = "null" End If If Kabushiki4 = "" Or Kabushiki4 = "0" Then Kabushiki4 = "null" End If If Kabushiki5 = "" Or Kabushiki5 = "0" Then Kabushiki5 = "null" End If If Gakumen = "" Then Gakumen = "null" End If '数値文字変換チェック If Not(NumChrReject(KaisyaMeisyo & KaisyaRyakuMeisyo & Jyusyo1 & Jyusyo2 & DaityoTorishimariyaku & Torishimariyaku1 & Torishimariyaku2 & Torishimariyaku1Jyusyo & Torishimariyaku2Jyusyo & DaityoTorishimariyakuJyusyo & Hokkinin4 & Hokkinin5 & Hokkinin4Jusho & Hokkinin5Jusho & Mokuteki)) Then Exit Sub End If Dim rsts rsts = 0 Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("会社CD") <> GakuseiNo And Content.Fields("会社略名称") = KaisyaRyakuMeisyo Then ErrMSG = "この会社略名称は登録済みです" rsts = 1 Exit Do End If If Content.Fields("会社CD") <> GakuseiNo And Content.Fields("会社名称") = KaisyaMeisyo Then ErrMSG = "この会社名称は登録済みです" rsts = 1 Exit Do End If Content.MoveNext Loop 'Response.Write("ErrMSG:" & ErrMSG) 'Exit Sub Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', 1" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("会社CD") = GakuseiNo AND (Content.Fields("学生番号") <> GakuseiNo OR Content.Fields("自社フラグ") <> 1) Then ErrMSG = "会社コード " & GakuseiNo & " は登録済みです。
ここで自社設定される会社は、会社コード " & GakuseiNo & " になります。
管理者に説明し、既にある会社コード " & GakuseiNo & " の会社の会社コードを変更してもらってください。" rsts = 1 Exit Do End If Content.MoveNext Loop '061205-引数に寄託会社CDを追加 If rsts = 0 Then Query = "exec SPM会社自社登録 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "', '" & GakuseiNo & "', '" & ShijyoCD & "', '1'" Query = Query & ", '" & KaisyaMeisyo & "', '" & KaisyaRyakuMeisyo & "', '" & KaisyaKanaMeisyo & "', '" & YubinBango & "'" Query = Query & ", '" & Jyusyo1 & "', '" & Jyusyo2 & "', '" & TEL & "', '" & FAX & "', '" & GyosyuCD & "'" Query = Query & ", '" & DaityoTorishimariyaku & "','" & DaityoTorishimariyakuJyusyo & "', " & Shihonkin & "" Query = Query & ", '" & Torishimariyaku1 & "','" & Torishimariyaku2 & "','" & Torishimariyaku1Jyusyo & "','" & Torishimariyaku2Jyusyo & "'" Query = Query & ", '" & Hokkinin4 & "','" & Hokkinin5 & "','" & Hokkinin4Jusho & "','" & Hokkinin5Jusho & "'" Query = Query & ", '" & Mokuteki & "' , '" & KitakuGaisyaCD & "' " Query = Query & ", " & Kabushiki1 & ", " & Kabushiki2 & ", " & Kabushiki3 & ", " & Kabushiki4 & ", " & Kabushiki5 & ", " & Gakumen & " " 'Response.Write("Query:" & Query) 'exit sub Session(HomeAlias & "KaisyaCD") = GakuseiNo DebugQuery(Query) Set Content = OpenQuery(Query) '代表取締役を社員台帳に登録（070607小野） ' 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 'サイバー会計モードでは会社を自動選択する If PackageMode = 1 Then Response.Redirect("default_bin.asp?KaisyaCD=" & GakuseiNo) ElseIf Request("SelectType") = "0" Then Response.Redirect("regcorp_view.asp") Else Response.Redirect("teikan.asp?WBCLB=" & Request("WBCLB")) End If Else Response.Write(ErrMSG) Response.Write("
") %> 戻る <% End If End Sub %>