<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：記帳チェック一覧表示
' 作成日：2002/9/6
' 作成者：徳田
' 目的 ：記帳チェックの一覧画面を表示する。
' 概要 ：
' <<表示>>
' ・記帳チェック一覧画面
'
'################################################
'-->
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
'会社セッション初期化
' KaisyaCD = ""
' GB_KaisyaCD = ""
' KaisyaMeisyo = ""
' GB_KaisyaMeisyo = ""
' KaisyaRyakuMeisyo = ""
' GB_KaisyaRyakuMeisyo = ""
' Session(HomeAlias & "KaisyaCD") = ""
' Session(HomeAlias & "Gyosyu") = ""
' Session(HomeAlias & "GyosyuMeisyo") = ""
' Session(HomeAlias & "KaisyaMeisyo") = ""
' Session(HomeAlias & "KaisyaRyakuMeisyo") = ""
' Session(HomeAlias & "JisyaFlag") = ""
' Session(HomeAlias & "ShijyoCD") = ""
Dim HyojiFlg
HyojiFlg = Request("HyojiFlg")
Dim EnshuName
Dim Query
Dim Content
Dim Content2
Dim SyudoHojyoboHyoji, SyudoSokanjyoMototyoHyoji
Dim SyohinCheck, GenbutsuCheck
Dim KinkoHyoji
Dim YTegataHyoji
Dim KTegataHyoji
Dim TegataHyoji
TegataHyoji = "1"
Dim GinkoKozaToza
Dim GinkoKozaFutu
Dim GinkoKozaBetsudan
Dim GinkoKozaTsumitate
Dim GinkoKozaTeiki
Dim DenpyoKubun
Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 4"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("演習CD") = EnshuCD Then
SyudoHojyoboHyoji = Content.Fields("手動補助簿表示")
SyudoSokanjyoMototyoHyoji = Content.Fields("手動総勘定元帳表示")
SyohinCheck = "" & Content.Fields("商品チェック表示")
GenbutsuCheck = "" & Content.Fields("現物チェック表示")
KinkoHyoji = "" & Content.Fields("金庫表示")
YTegataHyoji = "" & Content.Fields("約束手形表示")
KTegataHyoji = "" & Content.Fields("為替手形表示")
Dim YobiB
YobiB = Content.Fields("利用銀行口座種類")
GinkoKozaToza = Mid(YobiB , 1, 1)
GinkoKozaFutu = Mid(YobiB , 2, 1)
GinkoKozaBetsudan = Mid(YobiB , 3, 1)
GinkoKozaTsumitate = Mid(YobiB , 4, 1)
GinkoKozaTeiki = Mid(YobiB , 5, 1)
DenpyoKubun = Content.Fields("利用伝票数区分")
End If
Content.MoveNext
Loop
Dim GenbutsuColumn
GenbutsuColumn = 8
If GinkoKozaFutu = "F" Then
GinkoKozaFutu = 1
Else
GinkoKozaFutu = 0
GenbutsuColumn = GenbutsuColumn - 1
End If
If GinkoKozaBetsudan = "B" Then
GinkoKozaBetsudan = 1
Else
GinkoKozaBetsudan = 0
GenbutsuColumn = GenbutsuColumn - 1
End If
If GinkoKozaTsumitate = "M" Then
GinkoKozaTsumitate = 1
Else
GinkoKozaTsumitate = 0
GenbutsuColumn = GenbutsuColumn - 1
End If
If GinkoKozaTeiki = "L" Then
GinkoKozaTeiki = 1
Else
GinkoKozaTeiki = 0
GenbutsuColumn = GenbutsuColumn - 1
End If
If KinkoHyoji <> "1" Then
GenbutsuColumn = GenbutsuColumn - 1
End If
If YTegataHyoji <> "1" And KTegataHyoji <> "1" Then
GenbutsuColumn = GenbutsuColumn - 2
End If
'GenbutsuCheck = ""
Dim TmpEnshuKubun
TmpEnshuKubun = ConvEnshuKubun(EnshuCD)
If GenbutsuCheck = "1" Then
Call Application.Lock() '多くの挿入処理が発生するためロックする
'現物は集計処理が必要（現金は金庫での個別処理に移行したので不要）
Query = "exec SPM記帳チェック挿入現物預金2全会社 '" & GB_SystemCD & "'"
Query = Query & ", '" & EnshuCD & "'"
Query = Query & ", " & GinkoKozaFutu
Query = Query & ", " & GinkoKozaTeiki
Query = Query & ", " & GinkoKozaTsumitate
Query = Query & ", " & GinkoKozaBetsudan
Set Content = OpenQuery(Query)
If TegataHyoji = "1" Then
Query = "exec SPM記帳チェック挿入現物受取手形全会社"
Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"
Set Content = OpenQuery(Query)
Query = "exec SPM記帳チェック挿入現物支払手形全会社"
Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"
Set Content = OpenQuery(Query)
End If
Call Application.Unlock()
End If
'未処理の受取・支払小切手存在フラグ
Dim ExistSKogitte
ExistSKogitte = 0
Dim ExistRKogitte
ExistRKogitte = 0
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 1;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)" name="form1" method="GET" action="fm_kityochk_ichiran.asp" onSubmit="return SubmitCheck();">
<input type="hidden" name="HyojiFlg" value="<% = HyojiFlg %>">
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(4))
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習状況チェック", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("再表示", "PageReload();", "", "", "", "", "", "", "", ""))
If TmpEnshuKubun = "P" Then
If HyojiFlg = "1" Then
Response.Write(HttpL3_2("マスター会社を非表示", "tblbtn('fm_kityochk_ichiran.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_2("マスター会社を表示", "tblbtn('fm_kityochk_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=1')", "", "", "", "", "", "", "", ""))
End If
Else
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL4("演習状況記帳チェック", ""))
Response.Write(HttpL5(""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="650" height="100%" border="0" cellspacing="5" cellpadding="5" bgcolor="#ffffff" style="border:1px solid #000000">
<tr>
<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr height="10">
<td valign="top">
<TABLE WIDTH="<% = 670 + (34 * GenbutsuColumn) %>" HEIGHT="30" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD HEIGHT="30" align="center">対象演習名</TD>
<TD height="30" align="center">
<% If GB_Admin = 2 Then %>
<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
<% = EnshuMeisyo %>
<% Else %>
<select size="1" name="EnshuCD" class="tbox4" onChange="SetSyokaiList();">
<option value="">＜＜ 対象演習を選択して下さい ＞＞</option>
<%
Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 4"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If (PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA") Or (PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA") Then
'工業簿記演習は5以上で表示
If "" & Content.Fields("演習CD") <> "SYS00006" Or MajorVersion >= 5 Then
Response.Write("<option value=""" & Content.Fields("演習CD") & """")
If Content.Fields("演習CD") = EnshuCD Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("演習名称") & "</option>" & vbCrLf)
End If
End If
Content.MoveNext
Loop
%>
</select>
<% End If %>
</TD>
</TR>
</table>
<span class="tx1012"><br></span>
<table BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD VALIGN="BOTTOM" WIDTH="700">
<TABLE WIDTH="<% = 670 + (34 * GenbutsuColumn) %>" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<% If TmpEnshuKubun = "P" Then %>
<TD WIDTH="164" rowspan="2">学生氏名</TD>
<% Else %>
<TD WIDTH="164" rowspan="2">会社コード</TD>
<% End If %>
<TD HEIGHT="20" rowspan="2">会社名称</TD>
<TD colspan="<% If MajorVersion => 5 Then %>9<% Else %>8<% End If %>">元帳・補助簿</TD>
<% If GenbutsuCheck = "1" Then %>
<TD colspan="<% = GenbutsuColumn %>">現物</TD>
<% End If %>
<% If SyohinCheck = "1" And DenpyoKubun = 5 Then %>
<TD rowspan="2" WIDTH="24">商<br>品</TD>
<% End If %>
</TR>
<TR ALIGN="CENTER" class="tx1214">
<TD WIDTH="30">現金</TD>
<TD WIDTH="30">預金</TD>
<TD WIDTH="30">売掛</TD>
<TD WIDTH="30">買掛</TD>
<TD WIDTH="30">受手</TD>
<TD WIDTH="30">支手</TD>
<TD WIDTH="30">売上</TD>
<TD WIDTH="30">仕入</TD>
<% If MajorVersion => 5 Then %>
<TD WIDTH="30">小口</TD>
<% End If %>
<% If GenbutsuCheck = "1" Then %>
<% If KinkoHyoji = "1" Then %>
<TD WIDTH="30">現金</TD>
<% End If %>
<TD WIDTH="30">当預</TD>
<% If YTegataHyoji = "1" Or KTegataHyoji = "1" Then %>
<TD WIDTH="30">受手</TD>
<TD WIDTH="30">支手</TD>
<% End If %>
<% If GinkoKozaFutu = 1 Then %>
<TD WIDTH="30">普預</TD>
<% End If %>
<% If GinkoKozaTeiki = 1 Then %>
<TD WIDTH="30">定預</TD>
<% End If %>
<% If GinkoKozaTsumitate = 1 Then %>
<TD WIDTH="30">積預</TD>
<% End If %>
<% If GinkoKozaBetsudan = 1 Then %>
<TD WIDTH="30">別預</TD>
<% End If %>
<% End If %>
</TR>
</TABLE>
</TD>
</TR>
</table>
</TD>
</TR>
<TR>
<TD VALIGN="TOP">
<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:<% = 690 + (34 * GenbutsuColumn) %>px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
<TABLE ID="SyoukaiList" BORDER="1" WIDTH="<% = 670 + (34 * GenbutsuColumn) %>" CELLSPACING="0" CELLPADDING="2" BGCOLOR="#FFFFFF" CLASS="tx1416" STYLE="border-collapse: collapse" BORDERCOLOR="#000000">
<%
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("<TR ALIGN=""CENTER"" style=""cursor:hand"" onclick=""tblbtn('fm_kityochk_ichiran_bin.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & Content.Fields("会社CD") & "&HyojiFlg=" & HyojiFlg & "')"">" & vbCrLf)
If TmpEnshuKubun = "P" Then
Response.Write("<TD WIDTH=""160"" ALIGN=""LEFT"">" & KaisyaGakusei & "</TD>" & vbCrLf)
Else
Response.Write("<TD WIDTH=""160"" ALIGN=""LEFT"">" & Content.Fields("会社CD") & "</TD>" & vbCrLf)
End If
Response.Write("<TD HEIGHT=""23"" ALIGN=""LEFT"">" & Content.Fields("会社名称") & "</TD>" & vbCrLf)
if GenkinFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & GenkinFlg & "</font></TD>" & vbCrLf)
if YokinFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & YokinFlg & "</font></TD>" & vbCrLf)
if UrikakekinFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & UrikakekinFlg & "</font></TD>" & vbCrLf)
if KaikakekinFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & KaikakekinFlg & "</font></TD>" & vbCrLf)
if UketoriTegataFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & UketoriTegataFlg & "</font></TD>" & vbCrLf)
if ShiharaiTegataFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & ShiharaiTegataFlg & "</font></TD>" & vbCrLf)
if UriageFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & UriageFlg & "</font></TD>" & vbCrLf)
if ShiireFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & ShiireFlg & "</font></TD>" & vbCrLf)
'バージョン5未満ではチェック区分「小口現金」を除外
If MajorVersion => 5 Then
if KoguchiFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & KoguchiFlg & "</font></TD>" & vbCrLf)
End If
'現物チェック
If GenbutsuCheck = "1" Then
If KinkoHyoji = "1" Then
if GGenkinFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & GGenkinFlg & "</font></TD>" & 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("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & GYokinFlg & "</font></TD>" & vbCrLf)
If YTegataHyoji = "1" Or KTegataHyoji = "1" Then
if GUketoriTegataFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & GUketoriTegataFlg & "</font></TD>" & vbCrLf)
if GShiharaiTegataFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & GShiharaiTegataFlg & "</font></TD>" & vbCrLf)
End If
If GinkoKozaFutu = 1 Then
if GFYokinFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & GFYokinFlg & "</font></TD>" & vbCrLf)
End If
If GinkoKozaTeiki = 1 Then
if GLYokinFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & GLYokinFlg & "</font></TD>" & vbCrLf)
End If
If GinkoKozaTsumitate = 1 Then
if GMYokinFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & GMYokinFlg & "</font></TD>" & vbCrLf)
End If
If GinkoKozaBetsudan = 1 Then
if GBYokinFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & GBYokinFlg & "</font></TD>" & 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("<TD WIDTH=""20"" ALIGN=""CENTER""><font color='" & wcol & "'>" & ShohinCheckFlg & "</font></TD>" & vbCrLf)
End If
ii = ii + 1
Response.Write("</TR>")
End If
End If
Content.MoveNext
Loop
%>
</TABLE>
</DIV>
</TD>
</TR>
<% If bExistSeiMark = 1 Or bExistFuriMark = 1 Or ExistSKogitte = 1 Or ExistRKogitte = 1 Then %>
<TR height="10">
<TD VALIGN="TOP" align="center">
<table BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD>
<% If bExistSeiMark = 1 Or bExistFuriMark = 1 Then %>
<span class="tx1214"><FONT color="#000000">
<% If bExistSeiMark = 1 And bExistFuriMark = 1 Then %>
「整」「振」 ・・・ 決算整理・決算振替済みの仕入・売上勘定では、金額が異なっていても間違いではない場合があります
<% ElseIf bExistSeiMark = 1 Then %>
「整」 ・・・ 決算整理済みの仕入勘定では、金額が異なっていても間違いではない場合があります
<% Else %>
「振」 ・・・ 決算振替済みの売上勘定では、金額が異なっていても間違いではない場合があります
<% End If %>
</FONT></span><br>
<% End If %>
<% If ExistSKogitte = 1 Or ExistRKogitte = 1 Then %>
<span class="tx1214"><FONT color="#000000">
<% If ExistSKogitte = 1 And ExistRKogitte = 1 Then %>
「送」「受」 ・・・ 取引先に送付して出金されていない小切手、受け取って入金されていない小切手がある場合、当座預金額が異なっていても間違いではない場合があります
<% ElseIf ExistSKogitte = 1 Then %>
「送」 ・・・ 取引先に送付して出金されていない小切手がある場合、当座出金額が異なっていても間違いではない場合があります
<% Else %>
「受」 ・・・ 受け取って入金されていない小切手がある場合、当座入金額が異なっていても間違いではない場合があります
<% End If %>
</FONT></span><br>
<% End If %>
</TD>
</TR>
</TABLE>
</TD>
</TR>
<% End If %>
</TABLE>
</td>
</tr>
</table>
</DIV>
</form>
</body>
<SCRIPT LANGUAGE="JavaScript">
function SetSyokaiList()
{
if (form1.EnshuCD.value == "")
{
alert("対象演習コードを選択して下さい");
return false;
}
SubmitReal(form1);
return false;
}
function SubmitCheck(Kubun)
{
if (form1.EnshuCD.value == "")
{
alert("対象演習を選択してください ");
return false;
}
return true;
}
function PageReload() {
var el = document.getElementById("Layer1");
//alert(el.scrollTop);
//Layer1のスクロール量をクエリ送信しリロード
tblbtn('fm_kityochk_ichiran.asp?EnshuCD=<% = EnshuCD %>&HyojiFlg=<% = HyojiFlg %>&Layer1ScrollTop=' + el.scrollTop + '');
}
</script>
<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
<%
'スクロール量を取得
Dim Layer1ScrollTop
Layer1ScrollTop = Request("Layer1ScrollTop")
If Layer1ScrollTop = "" Then
Layer1ScrollTop = "0"
End If
If Not(IsNumeric(Layer1ScrollTop)) Then
Layer1ScrollTop = "0"
End If
%>
//初期スクロール
var el = document.getElementById("Layer1");
el.scrollTop = <% = Layer1ScrollTop %>;
<% If EnshuCD <> "" Then %>
setTimeout('PageReload();', <% = MailCheckInterval * 400 %>); //定時リロード（MailCheckIntervalの40%）
<% End If %>
</script>
<% = HtmlFooter %>
</html>
<%
End Sub
Function CheckOutput(MototyoHyoji, MototyoFlg, HojyoboHyoji, HojyoboFlg)
If MototyoHyoji = 1 And HojyoboHyoji = 1 Then
If MototyoFlg = 1 And HojyoboFlg = 1 Then
CheckOutput = "○"
ElseIf MototyoFlg = 0 Or HojyoboFlg = 0 Then
CheckOutput = "×"
End If
ElseIf MototyoHyoji = 1 Then
If MototyoFlg = 1 Then
CheckOutput = "○"
ElseIf MototyoFlg = 0 Then
CheckOutput = "×"
End If
ElseIf HojyoboHyoji = 1 Then
If HojyoboFlg = 1 Then
CheckOutput = "○"
ElseIf HojyoboFlg = 0 Then
CheckOutput = "×"
End If
End If
End Function
Function CheckOutputG(GenbutsuFlg)
If GenbutsuFlg = 1 Then
CheckOutputG = "○"
ElseIf GenbutsuFlg = 0 Then
CheckOutputG = "×"
End If
End Function
%>