<%
'
'
%>
<%
main()
Sub main()
%>
総勘定元帳メンテナンス
<%
dim Content
dim Content2
dim Content3
dim Content4
dim Content5
dim Query
dim Cnt
dim Cnt2
dim SakujoFlug
dim Douji
dim DelCnt
dim AllEnsyuCD()
dim EnsyuCnt
dim AllKaisyaCD()
dim KaisyaCnt
dim CrrGyosyuKubun
Dim db
Set db = InitQuery()
DelCnt = 0
EnsyuCnt = 0
Query = "SELECT 演習CD FROM TC2演習M" '演習一覧配列作成
Set Content = ExecQuery(db, Query)
Do While Not(Content.BOF Or Content.EOF)
EnsyuCnt = EnsyuCnt + 1
ReDim Preserve AllEnsyuCD(EnsyuCnt)
AllEnsyuCD(EnsyuCnt) = Content.Fields("演習CD")
Content.MoveNext
Loop
For Cnt = 1 To EnsyuCnt '演習単位のループ
KaisyaCnt = 0
Query = "SELECT 会社CD FROM TDA会社M WHERE 演習CD = '" & AllEnsyuCD(Cnt) & "'" '演習単位の会社一覧配列作成
Set Content = ExecQuery(db, Query)
Do While Not(Content.BOF Or Content.EOF)
KaisyaCnt = KaisyaCnt + 1
ReDim Preserve AllKaisyaCD(KaisyaCnt)
AllKaisyaCD(KaisyaCnt) = Content.Fields("会社CD")
Content.MoveNext
Loop
For Cnt2 = 1 To KaisyaCnt '演習内会社単位のループ
CrrGyosyuKubun = "S"
Query = "SELECT 業種CD FROM TDA会社M WHERE 演習CD = '" & AllEnsyuCD(Cnt) & "' AND 会社CD = '" & AllKaisyaCD(Cnt2) & "'"
Set Content = ExecQuery(db, Query) '当該会社の業種CDを取得
If Content.Fields("業種CD") = "G" Then
CrrGyosyuKubun = Content.Fields("業種CD") '銀行の場合
End If
Query = "SELECT 勘定CD FROM TDA勘定科目M WHERE 演習CD = '" & AllEnsyuCD(Cnt) & "' AND 業種CD = '" & CrrGyosyuKubun & "'"
Set Content2 = ExecQuery(db, Query) '当該会社の業種区分に適合する勘定CDを取得
Query = "SELECT * FROM TSK帳簿_総勘定元帳F WHERE 演習CD = '" & AllEnsyuCD(Cnt) & "' AND 会社CD = '" & AllKaisyaCD(Cnt2) & "'"
Set Content = ExecQuery(db, Query) '当該会社の総勘定元帳を取得
Do While Not(Content.BOF Or Content.EOF)
SakujoFlug = 1
Content2.MoveFirst
Do While Not(Content2.BOF Or Content2.EOF)
If Content.Fields("勘定CD") = Content2.Fields("勘定CD") Then '勘定コードが勘定科目マスタに存在すれば無視
SakujoFlug = 0
Exit Do
End If
Content2.MoveNext
Loop
If SakujoFlug <> 0 Then
DelCnt = DelCnt + 1
Query = "SELECT 演習名称 FROM TC2演習M WHERE 演習CD = '" & Content.Fields("演習CD") & "'"
Set Content3 = ExecQuery(db, Query)
Query = "SELECT 会社名称,学生番号 FROM TDA会社M WHERE 会社CD = '" & Content.Fields("会社CD") & "'"
Set Content4 = ExecQuery(db, Query)
If Content4.Fields("学生番号") = "" Then
Douji = ""
Else
Query = "SELECT 氏名 FROM TC5学生M WHERE 学生番号 = '" & Content4.Fields("学生番号") & "'"
Set Content5 = ExecQuery(db, Query)
Douji = "（" & Content4.Fields("学生番号") & "：" & Content5.Fields("氏名") & "）"
End If
Response.Write(Content3.Fields("演習名称") & " " & Content4.Fields("会社名称") & Douji & " の不正な勘定コード [" & Content.Fields("勘定CD") & "] のレコードを削除しました。 " & vbCrLf)
Query = "DELETE FROM TSK帳簿_総勘定元帳F WHERE 演習CD = '" & Content.Fields("演習CD") & "' AND 会社CD = '" & Content.Fields("会社CD") & "' AND 勘定CD = '" & Content.Fields("勘定CD") & "'"
Call ExecQuery(db, Query)
End If
Content.MoveNext
Loop
Next
Next
%>
<% If DelCnt <> 0 Then %>
合計 <% = DelCnt %> 件のレコードを削除しました。
不正な勘定コードを持つレコードの削除処理が終了しました。
<% Else %>
不正な勘定コードを持つレコードは存在しませんでした。
<% End If %>
<% If DelCnt <> 0 Then %>
印刷が終わりましたら右上の×ボタンを押してウィンドウを閉じてください
<% Else %>
右上の×ボタンを押してウィンドウを閉じてください
<% End If %>
<% = HtmlFooter %>
<%
End Sub
%>