| 対象演習名 |
<% If GB_Admin = 2 Then %>
<% = EnshuMeisyo %>
<% Else %>
<% End If %>
|
<% If TmpEnshuKubun = "P" Then %>
| 学生氏名 |
<% Else %>
会社コード |
<% End If %>
会社名称 |
元帳・補助簿 |
<% If GenbutsuCheck = "1" Then %>
現物 |
<% End If %>
<% If SyohinCheck = "1" And DenpyoKubun = 5 Then %>
商
品 |
<% End If %>
| 現金 |
預金 |
売掛 |
買掛 |
受手 |
支手 |
売上 |
仕入 |
<% If MajorVersion => 5 Then %>
小口 |
<% End If %>
<% If GenbutsuCheck = "1" Then %>
<% If KinkoHyoji = "1" Then %>
現金 |
<% End If %>
当預 |
<% If YTegataHyoji = "1" Or KTegataHyoji = "1" Then %>
受手 |
支手 |
<% End If %>
<% If GinkoKozaFutu = 1 Then %>
普預 |
<% End If %>
<% If GinkoKozaTeiki = 1 Then %>
定預 |
<% End If %>
<% If GinkoKozaTsumitate = 1 Then %>
積預 |
<% End If %>
<% If GinkoKozaBetsudan = 1 Then %>
別預 |
<% End If %>
<% End If %>
|
|
<%
Dim ii, jj , wcol
ii = 0
Query = "exec SPM記帳チェック一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
Dim bExistSeiMark
bExistSeiMark = 0
Dim bExistFuriMark
bExistFuriMark = 0
Do While Not(Content.BOF Or Content.EOF)
'同時同業マスター会社を除く
If HyojiFlg = "1" And TmpEnshuKubun = "P" And ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD")) = "" Then
'同時同業生徒会社のうち自社設定会社以外を除く
ElseIf HyojiFlg <> "1" And TmpEnshuKubun = "P" And "" & ConvKaisyaJisyaFlg(EnshuCD, Content.Fields("会社CD")) <> "1" Then
'同時同業→模擬実践で生じた同時同業生徒会社はゴミなので除く
ElseIf TmpEnshuKubun = "G" And "" & ConvKaisyaJisyaFlg(EnshuCD, Content.Fields("会社CD")) <> "1" And ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD")) <> "" Then
Else
Dim GenkinFlg, YokinFlg, UketoriTegataFlg, UrikakekinFlg, ShiharaiTegataFlg, KaikakekinFlg, UriageFlg, ShiireFlg, KaribaraiFlg, KariukeFlg, KoguchiFlg
GenkinFlg = ""
YokinFlg = ""
UketoriTegataFlg = ""
UrikakekinFlg = ""
ShiharaiTegataFlg = ""
KaikakekinFlg = ""
UriageFlg = ""
ShiireFlg = ""
KaribaraiFlg = ""
KariukeFlg = ""
KoguchiFlg = ""
GenkinFlg = CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AA"), SyudoHojyoboHyoji , Content.Fields("補助簿AA"))
YokinFlg = CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AB"), SyudoHojyoboHyoji , Content.Fields("補助簿AB"))
UrikakekinFlg = CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AC"), SyudoHojyoboHyoji , Content.Fields("補助簿AC"))
KaikakekinFlg = CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AD"), SyudoHojyoboHyoji , Content.Fields("補助簿AD"))
UketoriTegataFlg = CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AE"), SyudoHojyoboHyoji , Content.Fields("補助簿AE"))
ShiharaiTegataFlg = CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AF"), SyudoHojyoboHyoji , Content.Fields("補助簿AF"))
UriageFlg = CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AG"), SyudoHojyoboHyoji , Content.Fields("補助簿AG"))
ShiireFlg = CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AH"), SyudoHojyoboHyoji , Content.Fields("補助簿AH"))
KoguchiFlg = CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AI"), SyudoHojyoboHyoji , Content.Fields("補助簿AI"))
If UriageFlg = "×" And CheckKessanFurikaego(Content.Fields("会社CD"), GB_KaikeiSyuryobi) = 1 Then
UriageFlg = "振"
bExistFuriMark = 1
End If
If ShiireFlg = "×" And CheckSeiriKinyugo(Content.Fields("会社CD"), GB_KaikeiSyuryobi) = 1 Then
ShiireFlg = "整"
bExistSeiMark = 1
End If
'現物チェック
Dim GGenkinFlg
Dim GYokinFlg
Dim GUketoriTegataFlg
Dim GShiharaiTegataFlg
Dim GFYokinFlg
Dim GLYokinFlg
Dim GMYokinFlg
Dim GBYokinFlg
GGenkinFlg = ""
GYokinFlg = ""
GUketoriTegataFlg = ""
GShiharaiTegataFlg = ""
GFYokinFlg = ""
GLYokinFlg = ""
GMYokinFlg = ""
GBYokinFlg = ""
GGenkinFlg = CheckOutputG(Content.Fields("現物AA"))
GYokinFlg = CheckOutputG(Content.Fields("現物AB"))
GUketoriTegataFlg = CheckOutputG(Content.Fields("現物AE"))
GShiharaiTegataFlg = CheckOutputG(Content.Fields("現物AF"))
GFYokinFlg = CheckOutputG(Content.Fields("現物DB"))
GLYokinFlg = CheckOutputG(Content.Fields("現物DD"))
GMYokinFlg = CheckOutputG(Content.Fields("現物DE"))
GBYokinFlg = CheckOutputG(Content.Fields("現物DF"))
Dim KaisyaGakusei
KaisyaGakusei = "" & ConvGakuseiShimei(ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD")))
'同時同業では削除されたユーザーの会社は表示しない
If TmpEnshuKubun = "P" And KaisyaGakusei = "" Then
'全て空白は表示しない
ElseIf GenkinFlg = "" And YokinFlg = "" And UrikakekinFlg = "" And KaikakekinFlg = "" And UketoriTegataFlg = "" And ShiharaiTegataFlg = "" And UriageFlg = "" And ShiireFlg = "" And KoguchiFlg = "" _
And GGenkinFlg = "" And GYokinFlg = "" And GUketoriTegataFlg = "" And GShiharaiTegataFlg = "" And GFYokinFlg = "" And GLYokinFlg = "" And GMYokinFlg = "" And GBYokinFlg = "" Then
Else
Response.Write("" & vbCrLf)
If TmpEnshuKubun = "P" Then
Response.Write("| " & KaisyaGakusei & " | " & vbCrLf)
Else
Response.Write("" & Content.Fields("会社CD") & " | " & vbCrLf)
End If
Response.Write("" & Content.Fields("会社名称") & " | " & vbCrLf)
if GenkinFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & GenkinFlg & " | " & vbCrLf)
if YokinFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & YokinFlg & " | " & vbCrLf)
if UrikakekinFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & UrikakekinFlg & " | " & vbCrLf)
if KaikakekinFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & KaikakekinFlg & " | " & vbCrLf)
if UketoriTegataFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & UketoriTegataFlg & " | " & vbCrLf)
if ShiharaiTegataFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & ShiharaiTegataFlg & " | " & vbCrLf)
if UriageFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & UriageFlg & " | " & vbCrLf)
if ShiireFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & ShiireFlg & " | " & vbCrLf)
'バージョン5未満ではチェック区分「小口現金」を除外
If MajorVersion => 5 Then
if KoguchiFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & KoguchiFlg & " | " & vbCrLf)
End If
'現物チェック
If GenbutsuCheck = "1" Then
If KinkoHyoji = "1" Then
if GGenkinFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & GGenkinFlg & " | " & vbCrLf)
End If
If GYokinFlg = "×" Then
'未処理の受取・支払小切手存在チェック
Query = ""
Query = Query & " "
Query = Query & " SELECT * "
Query = Query & " FROM TGA手形F "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND 演習CD = '" & EnshuCD & "' "
Query = Query & " AND 作成会社CD = '" & Content.Fields("会社CD") & "' " '自社が作成
Query = Query & " AND 文書種類CD = 'TG' "
Query = Query & " AND 送受信区分 = 'R' " '他社が受取
Query = Query & " AND 発行フラグ < 2 " '未処理
Set Content2 = OpenQuery(Query)
If Not(Content2.BOF Or Content2.EOF) Then
GYokinFlg = "送" '未処理の支払小切手が存在する
ExistSKogitte = 1
Else
Query = ""
Query = Query & " "
Query = Query & " SELECT * "
Query = Query & " FROM TGA手形F "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND 演習CD = '" & EnshuCD & "' "
Query = Query & " AND 会社CD = '" & Content.Fields("会社CD") & "' " '自社が受取
Query = Query & " AND 文書種類CD = 'TG' "
Query = Query & " AND 送受信区分 = 'R' " '自社が受取
Query = Query & " AND 発行フラグ < 2 " '未処理
Set Content2 = OpenQuery(Query)
If Not(Content2.BOF Or Content2.EOF) Then
GYokinFlg = "受" '未処理の受取小切手が存在する
ExistRKogitte = 1
End If
End If
End If
If GYokinFlg <> "×" Then wcol = "#0000ff" Else wcol="#ff0000" End If
Response.Write("" & GYokinFlg & " | " & vbCrLf)
If YTegataHyoji = "1" Or KTegataHyoji = "1" Then
if GUketoriTegataFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & GUketoriTegataFlg & " | " & vbCrLf)
if GShiharaiTegataFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & GShiharaiTegataFlg & " | " & vbCrLf)
End If
If GinkoKozaFutu = 1 Then
if GFYokinFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & GFYokinFlg & " | " & vbCrLf)
End If
If GinkoKozaTeiki = 1 Then
if GLYokinFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & GLYokinFlg & " | " & vbCrLf)
End If
If GinkoKozaTsumitate = 1 Then
if GMYokinFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & GMYokinFlg & " | " & vbCrLf)
End If
If GinkoKozaBetsudan = 1 Then
if GBYokinFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & GBYokinFlg & " | " & vbCrLf)
End If
End If
'商品チェック
If SyohinCheck = "1" And DenpyoKubun = 5 Then
Dim ShohinCheckFlg
ShohinCheckFlg = ""
Dim ContentShohin
Query = "exec SPM記帳チェック商品 '" & GB_SystemCD & "','" & EnshuCD & "','" & Content.Fields("会社CD") & "'"
Set ContentShohin = OpenQuery(Query)
If Not(ContentShohin.BOF Or ContentShohin.EOF) Then
Do While Not(ContentShohin.BOF Or ContentShohin.EOF)
If Not(IsNull(ContentShohin.Fields("伝票仕入数量"))) Or Not(IsNull(ContentShohin.Fields("伝票仕入返品数量"))) Or Not(IsNull(ContentShohin.Fields("伝票売上数量"))) Or Not(IsNull(ContentShohin.Fields("伝票売上返品数量"))) Or Not(IsNull(ContentShohin.Fields("入出庫仕入数量"))) Or Not(IsNull(ContentShohin.Fields("入出庫仕入返品数量"))) Or Not(IsNull(ContentShohin.Fields("入出庫売上数量"))) Or Not(IsNull(ContentShohin.Fields("入出庫売上返品数量"))) Then
If ShohinCheckFlg <> "×" Then
ShohinCheckFlg = "○"
End If
If (ContentShohin.Fields("伝票仕入数量") = ContentShohin.Fields("入出庫仕入数量")) Or (IsNull(ContentShohin.Fields("伝票仕入数量")) And IsNull(ContentShohin.Fields("入出庫仕入数量"))) then
Else
ShohinCheckFlg = "×"
End If
If (ContentShohin.Fields("伝票仕入返品数量") = ContentShohin.Fields("入出庫仕入返品数量")) Or (IsNull(ContentShohin.Fields("伝票仕入返品数量")) And IsNull(ContentShohin.Fields("入出庫仕入返品数量"))) then
Else
ShohinCheckFlg = "×"
End If
If (ContentShohin.Fields("伝票売上数量") = ContentShohin.Fields("入出庫売上数量")) Or (IsNull(ContentShohin.Fields("伝票売上数量")) And IsNull(ContentShohin.Fields("入出庫売上数量"))) then
Else
ShohinCheckFlg = "×"
End If
If (ContentShohin.Fields("伝票売上返品数量") = ContentShohin.Fields("入出庫売上返品数量")) Or (IsNull(ContentShohin.Fields("伝票売上返品数量")) And IsNull(ContentShohin.Fields("入出庫売上返品数量"))) then
Else
ShohinCheckFlg = "×"
End If
End If
ContentShohin.MoveNext
Loop
End If
if ShohinCheckFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("" & ShohinCheckFlg & " | " & vbCrLf)
End If
ii = ii + 1
Response.Write(" ")
End If
End If
Content.MoveNext
Loop
%>
|
<% If bExistSeiMark = 1 Or bExistFuriMark = 1 Or ExistSKogitte = 1 Or ExistRKogitte = 1 Then %>
<% If bExistSeiMark = 1 Or bExistFuriMark = 1 Then %>
<% If bExistSeiMark = 1 And bExistFuriMark = 1 Then %>
「整」「振」 ・・・ 決算整理・決算振替済みの仕入・売上勘定では、金額が異なっていても間違いではない場合があります
<% ElseIf bExistSeiMark = 1 Then %>
「整」 ・・・ 決算整理済みの仕入勘定では、金額が異なっていても間違いではない場合があります
<% Else %>
「振」 ・・・ 決算振替済みの売上勘定では、金額が異なっていても間違いではない場合があります
<% End If %>
<% End If %>
<% If ExistSKogitte = 1 Or ExistRKogitte = 1 Then %>
<% If ExistSKogitte = 1 And ExistRKogitte = 1 Then %>
「送」「受」 ・・・ 取引先に送付して出金されていない小切手、受け取って入金されていない小切手がある場合、当座預金額が異なっていても間違いではない場合があります
<% ElseIf ExistSKogitte = 1 Then %>
「送」 ・・・ 取引先に送付して出金されていない小切手がある場合、当座出金額が異なっていても間違いではない場合があります
<% Else %>
「受」 ・・・ 受け取って入金されていない小切手がある場合、当座入金額が異なっていても間違いではない場合があります
<% End If %>
<% End If %>
|
|
<% End If %>
|