%
'
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim HyojiFlg
HyojiFlg = Request("HyojiFlg")
Dim SortMode
SortMode = Request("SortMode")
Dim ShijoCD
ShijoCD = Request("ShijoCD")
Dim KanriKubun '管理区分
Dim EnshuName '演習名称
Dim KaisyaMeisyo, kaisyaKanamei '会社コード、会社名称、会社カナ名称
Dim ZipCode, Adr1, Adr2 '郵便番号、住所1、住所2
Dim Tel, Fax, GyosyuCD, GyosyuName 'Tel、Fax、業種CD、業種名称
Dim KaisyaRyakuMeisyo '会社略名称
Dim JisyaFlg, GakuseiBango
Dim Query
Dim Content
Dim ShijyoCD, ShijyoMeisyo
Dim DaityoTorishimariyaku, Shihonkin
Dim DaityoTorishimariyakuJyusyo
Dim Torishimariyaku1, Torishimariyaku2, Mokuteki
Dim Torishimariyaku1Jyusyo, Torishimariyaku2Jyusyo
Dim BunsyoNaiyoCD
Dim TantosyaCD
Dim KanKatsu
Dim DaihyoSyain
TantosyaCD = ""
Dim Hokkinin4
Dim Hokkinin5
Dim Hokkinin4Jusho
Dim Hokkinin5Jusho
Dim Kabushiki1
Dim Kabushiki2
Dim Kabushiki3
Dim Kabushiki4
Dim Kabushiki5
Dim Gakumen
Dim SeitoJisha
Dim Kitakuriyou, KitakuKaisyaCD, KitakuKaisyaMei
Dim Genkariyou
KanriKubun = Session(HomeAlias & "KanriKubun")
'演習名称GET
EnshuName = ConvEnshuMeisyo(EnshuCD)
'対象データGET
Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
ShijyoCD = Content.Fields("市場CD")
KaisyaMeisyo = Content.Fields("会社名称")
KaisyaRyakuMeisyo = Content.Fields("会社略名称")
kaisyaKanamei = Content.Fields("会社カナ名称")
ZipCode = Content.Fields("郵便番号")
Adr1 = Content.Fields("住所1")
Adr2 = Content.Fields("住所2")
Tel = Content.Fields("TEL")
Fax = Content.Fields("FAX")
GyosyuCD = Content.Fields("業種CD")
GyosyuName = Content.Fields("業種名称")
GakuseiBango = Content.Fields("学生番号")
JisyaFlg = Content.Fields("自社フラグ")
ShijyoMeisyo = Content.Fields("市場名称")
KitakuKaisyaCD = Content.Fields("寄託会社CD")
DaityoTorishimariyaku = Content.Fields("代表取締役")
DaityoTorishimariyakuJyusyo = Content.Fields("代表取締役住所")
Torishimariyaku1 = Content.Fields("取締役1")
Torishimariyaku2 = Content.Fields("取締役2")
Torishimariyaku1Jyusyo = Content.Fields("取締役1住所")
Torishimariyaku2Jyusyo = Content.Fields("取締役2住所")
Hokkinin4 = Content.Fields("発起人4")
Hokkinin5 = Content.Fields("発起人5")
Hokkinin4Jusho = Content.Fields("発起人4住所")
Hokkinin5Jusho = Content.Fields("発起人5住所")
Kabushiki1 = Content.Fields("発起人1株式数")
Kabushiki2 = Content.Fields("発起人2株式数")
Kabushiki3 = Content.Fields("発起人3株式数")
Kabushiki4 = Content.Fields("発起人4株式数")
Kabushiki5 = Content.Fields("発起人5株式数")
Gakumen = Content.Fields("株式の額面")
Shihonkin = Content.Fields("資本金")
Mokuteki = "" & Content.Fields("事業目的")
If Mokuteki <> "" Then
'行単位で分割してからHardWrap処理を行う
Dim TmpMokuteki
TmpMokuteki = Split(Mokuteki, "
")
Dim TmpCnt
For TmpCnt = 0 To UBound(TmpMokuteki)
TmpMokuteki(TmpCnt) = HardWrap(TmpMokuteki(TmpCnt))
If TmpCnt > 0 Then
TmpMokuteki(TmpCnt) = "
" & TmpMokuteki(TmpCnt)
End If
Next
'再結合する
Mokuteki = ""
For TmpCnt = 0 To UBound(TmpMokuteki)
Mokuteki = Mokuteki & TmpMokuteki(TmpCnt)
Next
End If
SeitoJisha = "" & Content.Fields("同時同業生徒自社")
Query = "exec SPK社員台帳一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If "" & Content.Fields("代表取締役フラグ") = "1" Then
DaihyoSyain = "" & Content.Fields("氏名")
Exit Do
End If
Content.MoveNext
Loop
End If
If KaisyaCD = "" Then
KaisyaMeisyo = "(自社のマスター)"
End If
Dim RouteType
RouteType = Request("RouteType")
'サイバー会計で代表取締役氏名が存在しない場合はTTA社員台帳Mから取得(初回会社選択時に作成されている)
If PackageMode = "1" Then
If DaityoTorishimariyaku = "" Then
DaityoTorishimariyaku = DaihyoSyain
End If
End If
''''''''繰越金額を調べるここから
Dim Kingaku
Dim KurikoshiZandakaKingaku
Dim GenkinKingaku, SyohinKingaku, GinkoKingaku
Dim SyohinSu, ContentKoza
Dim NyusyukoBango, QueryNyusyuko, ContentNyusyuko
Dim QueryKoza
GenkinKingaku = 0
SyohinKingaku = 0
GinkoKingaku = 0
Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 0, 0"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
GenkinKingaku = Content.Fields("金額")
End If
QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'SS'"
Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
If ContentNyusyuko.Fields("処理時期区分") = 0 Then
NyusyukoBango = ContentNyusyuko.Fields("文書内容CD")
End If
ContentNyusyuko.MoveNext
Loop
QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'SS', '" & NyusyukoBango & "'"
Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
SyohinKingaku = SyohinKingaku + ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価")
ContentNyusyuko.MoveNext
Loop
Dim KozaSonzai
KozaSonzai = 0
QueryKoza = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', ''"
Set ContentKoza = OpenQuery(QueryKoza)
Do While Not(ContentKoza.BOF Or ContentKoza.EOF)
KozaSonzai = 1
Dim MyGinkoCD, MyKozaKubun
MyGinkoCD = ""
MyKozaKubun = ""
If Not(ContentKoza.BOF Or ContentKoza.EOF) Then
MyGinkoCD = ContentKoza.Fields("銀行CD")
MyKozaKubun = ContentKoza.Fields("口座区分")
End If
Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MyGinkoCD & "', '" & MyKozaKubun & "', ''"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("処理時期区分") = 0 Then
Kingaku = Content.Fields("金額")
End If
Content.MoveNext
Loop
GinkoKingaku = GinkoKingaku + Kingaku
ContentKoza.MoveNext
Loop
KurikoshiZandakaKingaku = GenkinKingaku + SyohinKingaku + GinkoKingaku
''''''''繰越金額を調べるここまで
''''''''勘定残高行数を調べるここから
Dim KanjyoZandakaShiwakeGyosu, KanjyoZandaka
KanjyoZandakaShiwakeGyosu = 0
Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '0000000', '" & ConvKaisyaGyosyuKubun(KaisyaCD) & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
KanjyoZandakaShiwakeGyosu = KanjyoZandakaShiwakeGyosu + 1
KanjyoZandaka = KanjyoZandaka + Content.Fields("借方金額")
Content.MoveNext
Loop
''''''''勘定残高行数を調べるここまで
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Kitakuriyou = Content.Fields("寄託倉庫利用")
Genkariyou = "" & Content.Fields("原価会計利用")
End If
Query = "exec SPM寄託会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KitakuKaisyaMei = Content.Fields("会社名称")
Query = "exec SPK契約書一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', 'S'" '自社が甲の寄託契約書一覧
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If "" & Content.Fields("削除フラグ") <> "1" Then
BunsyoNaiyoCD = Content.Fields("文書内容CD")
Query = "exec SPK契約書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', '" & BunsyoNaiyoCD & "', '" & KaisyaCD & "', 'S'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
TantosyaCD = "" & Content.Fields("甲担当者CD")
Kankatsu = Content.Fields("管轄裁判所")
End If
End If
Content.MoveNext
Loop
End If
%>
<% = HtmlHeader("") %>