<%
Function Teikan(EnshuCD, KaisyaCD, RouteType, PrintFlg)
Dim Query
Dim Content
Dim KaisyaKanaMeisyo, KaisyaMeisyo, KaisyaRyakuMeisyo, YubinBango
Dim Jyusyo1, Jyusyo2, TEL, FAX, SetsuritsuNengappi
Dim DaityoTorishimariyaku, Shihonkin
Dim Torishimariyaku1, Torishimariyaku2, Torishimariyaku1Jyusyo, Torishimariyaku2Jyusyo, Mokuteki
Dim DaityoTorishimariyakuJyusyo
Dim Hokkinin4
Dim Hokkinin5
Dim Hokkinin4Jusho
Dim Hokkinin5Jusho
Dim Kabushiki1
Dim Kabushiki2
Dim Kabushiki3
Dim Kabushiki4
Dim Kabushiki5
Dim Gakumen
If RouteType = "syatyo" Then
Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Else
Query = "exec SPV自社情報取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
End If
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KaisyaCD = "" & Content.Fields("会社CD")
KaisyaKanaMeisyo = "" & Content.Fields("会社カナ名称")
KaisyaMeisyo = "" & Content.Fields("会社名称")
KaisyaRyakuMeisyo = "" & Content.Fields("会社略名称")
YubinBango = "" & Content.Fields("郵便番号")
Jyusyo1 = "" & Content.Fields("住所1")
Jyusyo2 = "" & Content.Fields("住所2")
TEL = "" & Content.Fields("TEL")
FAX = "" & Content.Fields("FAX")
DaityoTorishimariyaku = "" & Content.Fields("代表取締役")
Shihonkin = Content.Fields("資本金")
Mokuteki = "" & Content.Fields("事業目的")
Torishimariyaku1 = "" & Content.Fields("取締役1")
Torishimariyaku2 = "" & Content.Fields("取締役2")
Hokkinin4 = Content.Fields("発起人4")
Hokkinin5 = Content.Fields("発起人5")
Hokkinin4Jusho = Content.Fields("発起人4住所")
Hokkinin5Jusho = Content.Fields("発起人5住所")
Torishimariyaku1Jyusyo = "" & Content.Fields("取締役1住所")
Torishimariyaku2Jyusyo = "" & Content.Fields("取締役2住所")
DaityoTorishimariyakuJyusyo = "" & Content.Fields("代表取締役住所")
Kabushiki1 = Content.Fields("発起人1株式数")
Kabushiki2 = Content.Fields("発起人2株式数")
Kabushiki3 = Content.Fields("発起人3株式数")
Kabushiki4 = Content.Fields("発起人4株式数")
Kabushiki5 = Content.Fields("発起人5株式数")
Gakumen = Content.Fields("株式の額面")
End If
If "" & Gakumen = "" Then
Gakumen = 50000
End If
If "" & Kabushiki1 = "" Then
Kabushiki1 = 0
End If
If "" & Kabushiki2 = "" Then
Kabushiki2 = 0
End If
If "" & Kabushiki3 = "" Then
Kabushiki3 = 0
End If
If "" & Kabushiki4 = "" Then
Kabushiki4 = 0
End If
If "" & Kabushiki5 = "" Then
Kabushiki5 = 0
End If
Dim KabushikiSosu
Dim KabushikiHikiukesu
KabushikiSosu = 0
KabushikiHikiukesu = 0
If "" & Kabushiki1 <> "" Then
KabushikiHikiukesu = KabushikiHikiukesu + Kabushiki1
End If
If "" & Kabushiki2 <> "" Then
KabushikiHikiukesu = KabushikiHikiukesu + Kabushiki2
End If
If "" & Kabushiki3 <> "" Then
KabushikiHikiukesu = KabushikiHikiukesu + Kabushiki3
End If
If "" & Kabushiki4 <> "" Then
KabushikiHikiukesu = KabushikiHikiukesu + Kabushiki4
End If
If "" & Kabushiki5 <> "" Then
KabushikiHikiukesu = KabushikiHikiukesu + Kabushiki5
End If
Dim DaityoTorishimariyakuFlg
Dim Torishimariyaku1Flg
Dim Torishimariyaku2Flg
Dim HokkininCnt
DaityoTorishimariyakuFlg = 0
Torishimariyaku1Flg = 0
Torishimariyaku2Flg = 0
HokkininCnt = 0
If KabushikiHikiukesu = 0 Then
KabushikiHikiukesu = Int(Shihonkin / Gakumen)
Kabushiki1 = Int(Shihonkin / Gakumen / 2)
Kabushiki2 = Int(Shihonkin / Gakumen / 4)
Kabushiki3 = Int(Shihonkin / Gakumen / 4)
Kabushiki4 = 0
Kabushiki5 = 0
End If
KabushikiSosu = Int(KabushikiHikiukesu * 2.5) '引受数の2.5倍
If "" & Gakumen = "" Then
Gakumen = 50000
End If
If "" & Kabushiki1 = "" Then
Kabushiki1 = 0
End If
If "" & Kabushiki2 = "" Then
Kabushiki2 = 0
End If
If "" & Kabushiki3 = "" Then
Kabushiki3 = 0
End If
If "" & Kabushiki4 = "" Then
Kabushiki4 = 0
End If
If "" & Kabushiki5 = "" Then
Kabushiki5 = 0
End If
Dim Kishubi
Dim Kimatsubi
Kishubi = SetDate(GB_KaikeiSyuryobi, 9)
Kimatsubi = SetDate(GB_KaikeiSyuryobi, 8)
%>
<% = KaisyaMeisyo %>定款
第1章 総則
（商号）
第1条 当会社は、<% = KaisyaMeisyo %>と称する。
（目的）
第2条 当会社は、次の事業を営むことを目的とする。
<% = Mokuteki %>
（本店の所在地）
第3条 当会社は、本店を<% = Jyusyo1 %><% = Jyusyo2 %>に置く
（公告の方法）
第4条 当会社の公告は、官報に掲載する。
第2章 株式
（発行する株式の総数）
第5条 当会社の発行する株式の総数は、<% = KabushikiSosu %>株とする。
（額面株式1株の金額）
第6条 削除（平成13年の商法改正で額面株式廃止のため）
（株券）
第7条 当会社の発行する株式は、すべて記名式とし、1株券、5株券、10株券、50 株券、100株券の5種類とする。
（株式の譲渡制限）
第8条 当会社の株式を譲渡するには、取締役会の承認を受けなければならない。
（名義書換）
第9条 株式の取得により名義書換を請求するには、当会社所定の書式による請求書に記名押印し、これに次の書面を添えて提出しなければならない。
1. 裏書譲渡による株式の取得の場合には、株券
2. 譲渡証書による株式の取得の場合には、株券および譲渡証書
3. 譲渡以外の事由による株式の取得の場合には、その取得を証する書面および株券
（質権の登録および信託財産の表示）
第10条 当会社の株式につき質権の登録または信託財産の表示を請求するには、当会社の書式による請求書に当事者が記名押印し、これに株券を添えて提出しなければならない。その登録または表示の抹消についても同様とする。
（株券の再発行）
第11条 株券の分割、併合、汚損等の事由により株券の再発行を請求しようとするときは、当会社所定の書式による請求書に記名押印し、これに株券を添えて提出しなければならない。株券の喪失によりその再発行を請求するときは、当会社所定の書式による請求書に記名押印し、これに除権判決の正本または謄本を添えて提出しなければならない。
（手数料）
第12条 前3条に定める請求をする場合には、当会社所定の手数料を支払わなければならない。
（新株引受権）
第13条 株主は、新株について引受権を有する。
（株主名簿の閉鎖および基準日）
第14条 当会社は、営業年度末日の翌日から定時株主総会の終結の日まで、株主名簿の記載の変更を停止する。前項のほか、株主または質権者として権利を行使すべき者を確定するため必要あるときは、あらかじめ公告して一定期間株主名簿の記載の変更を停止し、または基準日を定めることができる。
（株主の住所等の届出）
第15条 当会社の株主および登録された質権者またはその法定代理人もしくは代表者は、当会社所定の書式により、その氏名、住所および印鑑を当会社に届けでなければならない。届出事項に変更を生じたときも、その事項につき、同様とする。
第3章 株主総会
（招集）
第16条 当会社の定時株主総会は毎年5月に招集する。臨時株主総会は、その必要があるとき随時これを招集する。
（招集権者）
第17条 株主総会は、法令に別段の定めある場合を除くほか、取締役会の決議に基づき代表取締役がこれを招集する。
（議長）
第18条 株主総会の議長は、代表取締役がこれに当たる。代表取締役に事故あるときは、あらかじめ取締役会の定める順序により、他の取締役がこれに代わる。
（議決権の代理行使）
第19条 株主は、議決権を有する他の株主に委任してその議決権を行使することができる。この場合には、各総会ごとに当会社に委任状を提出しなければならない。
（決議の方法）
第20条 株主総会の決議は、法律に特別の定めある場合を除き、出席した株主の議決権の過半数をもって決する。
<% If PrintFlg > 0 Then %>
<% Response.Write(PageBreakBefore) %>
<% Else %>
<% End If %>
第4章 取締役、取締役会、代表取締役および監査役
（取締役および監査役）
第21条 当会社の取締役は5名以内とし、監査役は2名以内とする。
（取締役および監査役の選任の方法）
第22条 当会社の取締役および監査役は、株主総会において、総株主の議決権のの3分の1以上を有する株主が出席し、その議決権の過半数の決議によって選任する。取締役の選任については、累積投票によらない。
（取締役および監査役の任期）
第23条 取締役および監査役の任期は、就任後2年内の最後の決算期に関する定時株主総会の招集の時までとする。任期満了前に退任した取締役の補欠として、または増員により選任された取締役の任期は、前任者または他の取締役の任期の残存期間と同一とする。任期満了前に退任した監査役の補欠として選任された監査役の任期は、前任者の残存期間と同一とする。
（取締役会の招集）
第24条 取締役会は、代表取締役がこれを招集し、その議長となる。代表取締役に事故があるときは、あらかじめ取締役会の定める順序により、他の取締役がこれに代わる。取締役会の招集通知は、会日の3日前に各取締役に対して発するものとする。ただし、緊急の必要があるときは、この期間を短縮することができる。
（役付取締役）
第25条 取締役会の決議をもって、取締役の中から、社長1名を選任し、必要に応じて、副社長、専務取締役、常務取締役各若干名を選任することができる。
（代表取締役）
第26条 社長は、当会社を代表し、会社の業務を統括する。取締役会の決議をもって、前条の役付取締役の中から会社を代表する取締役を定めることができる。
（報酬）
第27条 取締役および監査役の報酬は、それぞれ株主総会の決議をもって定める。
第5章 計算
（営業年度）
第28条 当社の営業年度は毎年<% = Kishubi %>から<% = Kimatsubi %>までの年1期とする。
（利益金の処分方法）
第29条 当会社の利益金は、次の方法によりこれを処分するものとする。
利益準備金 金銭による利益処分額の10分の1以上で、資本金の4分の1まで
別途積立金 若干
株主配当金 若干
役員賞与金 若干
（利益配当）
第30条 利益配当は、毎営業年度末日における株主名簿に記載された株主または質権者に対して支払う。利益配当金がその支払提供の日から満3年を経過しても受領されないときは、当会社はその支払義務を免れるものとする。
第6章 附則
（設立に際して発行する株式）
第31条 当会社の設立に際して発行する株式の総数は、株式<% = KabushikiHikiukesu %>株とする。
（最初の営業年度）
第32条 当会社の最初の営業年度は、当会社成立の日から<% = SetDate(GB_KaikeiSyuryobi, 2) %>までとする。
（最初の取締役および監査役の任期）
第33条 当会社の最初の取締役および監査役の任期は、就任後1年内の最終の決算期に関する定時株主総会の終結の時までとする。
（発起人の氏名、住所および引受株式数）
第34条 発起人の氏名、住所および各発起人が引受けた株式の数は、次のとおりである。
<% If Kabushiki1 > 0 Or DaityoTorishimariyaku <> "" Then %>
株式 <% = ConvIntToMoney(Kabushiki1, false, false) %>株 <% = DaityoTorishimariyaku %> <% = DaityoTorishimariyakuJyusyo %>
<% End If %>
<% If Kabushiki2 > 0 Or Torishimariyaku1 <> "" Then %>
株式 <% = ConvIntToMoney(Kabushiki2, false, false) %>株 <% = Torishimariyaku1 %> <% = Torishimariyaku1Jyusyo %>
<% End If %>
<% If Kabushiki3 > 0 Or Torishimariyaku2 <> "" Then %>
株式 <% = ConvIntToMoney(Kabushiki3, false, false) %>株 <% = Torishimariyaku2 %> <% = Torishimariyaku2Jyusyo %>
<% End If %>
<% If Kabushiki4 > 0 Or Hokkinin4 <> "" Then %>
株式 <% = ConvIntToMoney(Kabushiki4, false, false) %>株 <% = Hokkinin4 %> <% = Hokkinin4Jusho %>
<% End If %>
<% If Kabushiki5 > 0 Or Hokkinin5 <> "" Then %>
株式 <% = ConvIntToMoney(Kabushiki5, false, false) %>株 <% = Hokkinin5 %> <% = Hokkinin5Jusho %>
<% End If %>
以上、<% = KaisyaMeisyo %>設立のため、この定款を作成し、発起人が次に記名押印する。
<% = SetDate(GB_KaikeiKaishibi, 2) %>
<%
'抜けを詰めるため配列化
Dim HokkininAry
Dim KabushikiAry
ReDim HokkininAry(0)
ReDim KabushikiAry(0)
If Kabushiki1 > 0 Or DaityoTorishimariyaku <> "" Then
ReDim PreServe HokkininAry(UBound(HokkininAry) + 1)
ReDim PreServe KabushikiAry(UBound(KabushikiAry) + 1)
KabushikiAry(UBound(HokkininAry)) = Kabushiki1
HokkininAry(UBound(KabushikiAry)) = DaityoTorishimariyaku
End If
If Kabushiki2 > 0 Or Torishimariyaku1 <> "" Then
ReDim PreServe HokkininAry(UBound(HokkininAry) + 1)
ReDim PreServe KabushikiAry(UBound(KabushikiAry) + 1)
KabushikiAry(UBound(HokkininAry)) = Kabushiki2
HokkininAry(UBound(KabushikiAry)) = Torishimariyaku1
End If
If Kabushiki3 > 0 Or Torishimariyaku2 <> "" Then
ReDim PreServe HokkininAry(UBound(HokkininAry) + 1)
ReDim PreServe KabushikiAry(UBound(KabushikiAry) + 1)
KabushikiAry(UBound(HokkininAry)) = Kabushiki3
HokkininAry(UBound(KabushikiAry)) = Torishimariyaku2
End If
If Kabushiki4 > 0 Or Hokkinin4 <> "" Then
ReDim PreServe HokkininAry(UBound(HokkininAry) + 1)
ReDim PreServe KabushikiAry(UBound(KabushikiAry) + 1)
KabushikiAry(UBound(HokkininAry)) = Kabushiki4
HokkininAry(UBound(KabushikiAry)) = Hokkinin4
End If
If Kabushiki5 > 0 Or Hokkinin5 <> "" Then
ReDim PreServe HokkininAry(UBound(HokkininAry) + 1)
ReDim PreServe KabushikiAry(UBound(KabushikiAry) + 1)
KabushikiAry(UBound(HokkininAry)) = Kabushiki5
HokkininAry(UBound(KabushikiAry)) = Hokkinin5
End If
%>
<% If UBound(HokkininAry) > 0 Then %>
|
| 発起人 |
|
<% = HokkininAry(1) %> |
|
印 |
<% If UBound(HokkininAry) > 3 Then %>
|
発起人 |
|
<% = HokkininAry(4) %> |
|
印 |
<% End If %>
<% End If %>
<% If UBound(HokkininAry) > 1 Then %>
|
| 同 |
|
<% = HokkininAry(2) %> |
|
印 |
<% If UBound(HokkininAry) > 4 Then %>
|
同 |
|
<% = HokkininAry(5) %> |
|
印 |
<% End If %>
<% End If %>
<% If UBound(HokkininAry) > 2 Then %>
|
| 同 |
|
<% = HokkininAry(3) %> |
|
印 |
<% End If %>
<%
End Function
%>