<!-- #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 %>