<!-- #include file="../include.asp" -->
<%
On Error Resume Next
main()
Sub main()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta name="robots" content="all">
<title><% = AppTitle %></title>
</head>
<body>
数字が赤字で出ている部分には問題がある可能性があります。
<table border="1" width="100%">
<tr>
<td>TA仕入売上書類F</td>
<td>TSA仕入売上書類F</td>
<td><% = TableLineNum("TA仕入売上書類F","TSA仕入売上書類F", 1) %></td>
</tr>
<tr>
<td>TA仕入売上書類明細F</td>
<td>TSA仕入売上書類明細F</td>
<td><% = TableLineNum("TA仕入売上書類明細F","TSA仕入売上書類明細F", 1) %></td>
</tr>
<tr>
<td>TA社員台帳F</td>
<td>TTA社員台帳F</td>
<td><% = TableLineNum("TA社員台帳F","TTA社員台帳F", 1) %></td>
</tr>
<tr>
<td>TA手形F</td>
<td>TGA手形F</td>
<td><% = TableLineNum("TA手形F","TGA手形F", 1) %></td>
</tr>
<tr>
<td>TA損益計画F</td>
<td>TTA損益計画F</td>
<td><% = TableLineNum("TA損益計画F","TTA損益計画F", 1) %></td>
</tr>
<tr>
<td>TA入出庫TRN</td>
<td>TGA入出庫TRN</td>
<td><% = TableLineNum("TA入出庫TRN","TGA入出庫TRN", 1) %></td>
</tr>
<tr>
<td>TA入出庫明細TRN</td>
<td>TGA入出庫明細TRN</td>
<td><% = TableLineNum("TA入出庫明細TRN","TGA入出庫明細TRN", 1) %></td>
</tr>
<tr>
<td>TB銀行口座F</td>
<td>TGB銀行口座F</td>
<td><% = TableLineNum("TB銀行口座F", "TGB銀行口座F", 1) %></td>
</tr>
<tr>
<td>TB銀行取引申込書類F</td>
<td>TSB銀行取引申込書類F</td>
<td><% = TableLineNum("TB銀行取引申込書類F", "TSB銀行取引申込書類F", 1) %></td>
</tr>
<tr>
<td>TB銀行入出金TRN</td>
<td>TGB銀行口座入出金TRN</td>
<td><% = TableLineNum("TB銀行入出金TRN", "TGB銀行口座入出金TRN", 1) %></td>
</tr>
<tr>
<td>TSシステムM</td>
<td>TC1システムM</td>
<td><% = TableLineNum("TSシステムM", "TC1システムM", 4) %></td>
</tr>
<tr>
<td>TS演習M</td>
<td>TC2演習M</td>
<td><% = TableLineNum("TS演習M", "TC2演習M", 1) %></td>
</tr>
<tr>
<td>TS学生グループM</td>
<td>TC3学生グループM</td>
<td><% = TableLineNum("TS学生グループM", "TC3学生グループM", 1) %></td>
</tr>
<tr>
<td>TS演習許可学生グループM</td>
<td>TC4演習許可学生グループM</td>
<td><% = TableLineNum("TS演習許可学生グループM","TC4演習許可学生グループM", 1) %></td>
</tr>
<tr>
<td>TS学生M</td>
<td>TC5学生M</td>
<td><% = TableLineNum("TS学生M","TC5学生M", 1) %></td>
</tr>
<tr>
<td>TS演習履歴M</td>
<td>TC6演習履歴M</td>
<td><% = TableLineNum("TS演習履歴M","TC6演習履歴M", 1) %></td>
</tr>
<tr>
<td>TS区分M</td>
<td>TC9区分M</td>
<td><% = TableLineNum("TS区分M","TC9区分M", 2) %></td>
</tr>
<tr>
<td>TS文書種類M</td>
<td>TC9文書種類M</td>
<td><% = TableLineNum("TS文書種類M","TC9文書種類M", 2) %></td>
</tr>
<tr>
<td>TS名刺デザインM</td>
<td>TC9名刺デザインM</td>
<td><% = TableLineNum("TS名刺デザインM","TC9名刺デザインM", 2) %></td>
</tr>
<tr>
<td>TC運送書類F</td>
<td>TSC運送書類F</td>
<td><% = TableLineNum("TC運送書類F","TSC運送書類F", 1) %></td>
</tr>
<tr>
<td>TC運送書類明細F</td>
<td>TSC運送書類明細F</td>
<td><% = TableLineNum("TC運送書類明細F","TSC運送書類明細F", 1) %></td>
</tr>
<tr>
<td>TC運送費請求書F</td>
<td>TSC運送費請求書F</td>
<td><% = TableLineNum("TC運送費請求書F","TSC運送費請求書F", 1) %></td>
</tr>
<tr>
<td>TC運送費請求書手動F</td>
<td>TSC運送費請求書手動F</td>
<td><% = TableLineNum("TC運送費請求書手動F","TSC運送費請求書手動F", 1) %></td>
</tr>
<tr>
<td>TC運送費請求書手動明細F</td>
<td>TSC運送費請求書手動明細F</td>
<td><% = TableLineNum("TC運送費請求書手動明細F","TSC運送費請求書手動明細F", 1) %></td>
</tr>
<tr>
<td>TC寄託者台帳F</td>
<td>TGC寄託者台帳F</td>
<td><% = TableLineNum("TC寄託者台帳F","TGC寄託者台帳F", 1) %></td>
</tr>
<tr>
<td>TC出庫F</td>
<td>TGC出庫F</td>
<td><% = TableLineNum("TC出庫F","TGC出庫F", 1) %></td>
</tr>
<tr>
<td>TC保険契約F</td>
<td>TGC保険契約F</td>
<td><% = TableLineNum("TC保険契約F","TGC保険契約F", 1) %></td>
</tr>
<tr>
<td>TS会社M</td>
<td>TDA会社M</td>
<td><% = TableLineNum("TS会社M","TDA会社M", 1) %></td>
</tr>
<tr>
<td>TS勘定科目M</td>
<td>TDA勘定科目M</td>
<td><% = TableLineNum("TS勘定科目M","TDA勘定科目M", 2) %></td>
</tr>
<tr>
<td>TS商品M</td>
<td>TDA商品M</td>
<td><% = TableLineNum("TS商品M","TDA商品M", 1) %></td>
</tr>
<tr>
<td>TS報告書書式M</td>
<td>TDA報告書書式M</td>
<td><% = TableLineNum("TS報告書書式M","TDA報告書書式M", 2) %></td>
</tr>
<tr>
<td>TK現金入出金TRN</td>
<td>TGK現金入出金TRN</td>
<td><% = TableLineNum("TK現金入出金TRN","TGK現金入出金TRN", 1) %></td>
</tr>
<tr>
<td>TK摘要M</td>
<td>TTK摘要M</td>
<td><% = TableLineNum("TK摘要M","TTK摘要M", 1) %></td>
</tr>
<tr>
<td>TK伝票F</td>
<td>TSK伝票F</td>
<td><% = TableLineNum("TK伝票F","TSK伝票F", 1) %></td>
</tr>
<tr>
<td>TK伝票仕入売上明細F</td>
<td>TSK伝票仕入売上明細F</td>
<td><% = TableLineNum("TK伝票仕入売上明細F","TSK伝票仕入売上明細F", 1) %></td>
</tr>
<tr>
<td>TK伝票明細F</td>
<td>TSK伝票明細F</td>
<td><% = TableLineNum("TK伝票明細F","TSK伝票明細F", 1) %></td>
</tr>
<tr>
<td>TL合併残高F</td>
<td>TTL合併残高F</td>
<td><% = TableLineNum("TL合併残高F","TTL合併残高F", 1) %></td>
</tr>
<tr>
<td>TM名刺データF</td>
<td>TTM名刺データF</td>
<td><% = TableLineNum("TM名刺データF","TTM名刺データF", 1) %></td>
</tr>
<tr>
<td>TK帳簿_合計残高試算表F</td>
<td>TSK帳簿_合計残高試算表F</td>
<td><% = TableLineNum("TK帳簿_合計残高試算表F","TSK帳簿_合計残高試算表F", 1) %></td>
</tr>
<tr>
<td>TK帳簿_仕訳集計表F</td>
<td>TSK帳簿_仕訳集計表F</td>
<td><% = TableLineNum("TK帳簿_仕訳集計表F","TSK帳簿_仕訳集計表F", 1) %></td>
</tr>
<tr>
<td>TK帳簿_仕訳日記帳F</td>
<td>TSK帳簿_仕訳日記帳F</td>
<td><% = TableLineNum("TK帳簿_仕訳日記帳F","TSK帳簿_仕訳日記帳F", 1) %></td>
</tr>
<tr>
<td>TK帳簿_総勘定元帳F</td>
<td>TSK帳簿_総勘定元帳F</td>
<td><% = TableLineNum("TK帳簿_総勘定元帳F","TSK帳簿_総勘定元帳F", 1) %></td>
</tr>
<tr>
<td>TK帳簿_損益計算書F</td>
<td>TSK帳簿_損益計算書F</td>
<td><% = TableLineNum("TK帳簿_損益計算書F","TSK帳簿_損益計算書F", 1) %></td>
</tr>
<tr>
<td>TK帳簿_貸借対照表F</td>
<td>TSK帳簿_貸借対照表F</td>
<td><% = TableLineNum("TK帳簿_貸借対照表F","TSK帳簿_貸借対照表F", 1) %></td>
</tr>
<tr>
<td>TK帳簿_八桁精算表F</td>
<td>TSK帳簿_八桁精算表F</td>
<td><% = TableLineNum("TK帳簿_八桁精算表F","TSK帳簿_八桁精算表F", 1) %></td>
</tr>
<tr>
<td>TK補助簿_現金出納帳F</td>
<td>TSK補助簿_現金出納帳F</td>
<td><% = TableLineNum("TK補助簿_現金出納帳F","TSK補助簿_現金出納帳F", 1) %></td>
</tr>
<tr>
<td>TK補助簿_仕入帳F</td>
<td>TSK補助簿_仕入帳F</td>
<td><% = TableLineNum("TK補助簿_仕入帳F","TSK補助簿_仕入帳F", 1) %></td>
</tr>
<tr>
<td>TK補助簿_支払手形記入帳F</td>
<td>TSK補助簿_支払手形記入帳F</td>
<td><% = TableLineNum("TK補助簿_支払手形記入帳F","TSK補助簿_支払手形記入帳F", 1) %></td>
</tr>
<tr>
<td>TK補助簿_受取手形記入帳F</td>
<td>TSK補助簿_受取手形記入帳F</td>
<td><% = TableLineNum("TK補助簿_受取手形記入帳F","TSK補助簿_受取手形記入帳F", 1) %></td>
</tr>
<tr>
<td>TK補助簿_商品有高帳F</td>
<td>TSK補助簿_商品有高帳F</td>
<td><% = TableLineNum("TK補助簿_商品有高帳F","TSK補助簿_商品有高帳F", 1) %></td>
</tr>
<tr>
<td>TK補助簿_当座預金出納帳F</td>
<td>TSK補助簿_当座預金出納帳F</td>
<td><% = TableLineNum("TK補助簿_当座預金出納帳F","TSK補助簿_当座預金出納帳F", 1) %></td>
</tr>
<tr>
<td>TK補助簿_買掛金元帳F</td>
<td>TSK補助簿_買掛金元帳F</td>
<td><% = TableLineNum("TK補助簿_買掛金元帳F","TSK補助簿_買掛金元帳F", 1) %></td>
</tr>
<tr>
<td>TK補助簿_売掛金元帳F</td>
<td>TSK補助簿_売掛金元帳F</td>
<td><% = TableLineNum("TK補助簿_売掛金元帳F","TSK補助簿_売掛金元帳F", 1) %></td>
</tr>
<tr>
<td>TK補助簿_売上帳F</td>
<td>TSK補助簿_売上帳F</td>
<td><% = TableLineNum("TK補助簿_売上帳F","TSK補助簿_売上帳F", 1) %></td>
</tr>
<tr>
<td>TXメールF</td>
<td>TTXメールF</td>
<td><% = TableLineNum("TXメールF","TTXメールF", 1) %></td>
</tr>
<tr>
<td>TX文書F</td>
<td>TTX文書F</td>
<td><% = TableLineNum("TX文書F","TTX文書F", 1) %></td>
</tr>
<tr>
<td>TC運送契約F</td>
<td></td>
<td><% = TableLineNum("TC運送契約F", "", 3) %></td>
</tr>
<tr>
<td>TA返品F</td>
<td></td>
<td><% = TableLineNum("TA返品F", "", 3) %></td>
</tr>
<tr>
<td>TA返品明細F</td>
<td></td>
<td><% = TableLineNum("TA返品明細F", "", 3) %></td>
</tr>
<tr>
<td></td>
<td>TTK記帳チェックF</td>
<td><% = TableLineNum("", "TTK記帳チェックF", 2) %></td>
</tr>
<tr>
<td></td>
<td>TDA市場M</td>
<td><% = TableLineNum("", "TDA市場M", 2) %></td>
</tr>
<tr>
<td></td>
<td>TTM名刺データ2F</td>
<td><% = TableLineNum("", "TTM名刺データ2F", 3) %></td>
</tr>
</table>
</body>
</html>
<%
End Sub
Function TableLineNum(TableName1, TableName2, Flg)
Dim Query, Content
Dim Kensu1, Kensu2
Query = "SELECT name FROM sysobjects WHERE (xtype = 'U') AND (status >= 0) ORDER BY name"
Set db = Server.CreateObject("ADODB.Connection")
db.Open SQLConn
Kensu1 = -1
Kensu2 = -1
If TableName1 <> "" Then
Query = "SELECT name FROM sysobjects WHERE name = '" & TableName1 & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF OR Content.EOF) Then
Set Content = OpenQuery("SELECT count(*) as Kensu FROM " & TableName1)
Kensu1 = Content.Fields("Kensu")
End If
End If
If TableName2 <> "" Then
Query = "SELECT name FROM sysobjects WHERE name = '" & TableName2 & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF OR Content.EOF) Then
Set Content = OpenQuery("SELECT count(*) as Kensu FROM " & TableName2)
Kensu2 = Content.Fields("Kensu")
End If
End If
If Flg = 1 And Kensu1 <> Kensu2 And Kensu1 <> -1 Then
TableLineNum = "<font color='#FF0000'>"
End If
If Flg = 2 And Kensu2 = 0 And Kensu1 <> -1 Then
TableLineNum = "<font color='#FF0000'>"
End If
If Flg = 3 And Not(Kensu1 <= Kensu2 AND Kensu1 * 2 >= Kensu2) And Kensu1 <> -1 Then
TableLineNum = "<font color='#FF0000'>"
End If
If Flg = 4 And Kensu2 <> 1 Then
TableLineNum = "<font color='#FF0000'>"
End If
TableLineNum = TableLineNum & Kensu1 & " " & Kensu2
If Flg = 1 And Kensu1 <> Kensu2 And Kensu1 <> -1 Then
TableLineNum = TableLineNum & "</font>"
End If
If Flg = 2 And Kensu2 = 0 And Kensu1 <> -1 Then
TableLineNum = TableLineNum & "</font>"
End If
If Flg = 3 And Not(Kensu1 <= Kensu2 AND Kensu1 * 2 >= Kensu2) And Kensu1 <> -1 Then
TableLineNum = TableLineNum & "</font>"
End If
If Flg = 4 And Kensu2 <> 1 Then
TableLineNum = TableLineNum & "</font>"
End If
End Function
%>