<!-- #include file="../include.asp" -->
<%
main()
Sub main()
' If Not(SessionCheck()) Then
' Exit Sub
' End If
Dim Query
Dim Content
Dim HelpTitle
HelpTitle = Request("HelpTitle")
Dim HelpMessage
'デバッグ用
'PackageMode = 1
If HelpTitle = "" Then
ElseIf HelpTitle = "HistoryBack" Then
HelpTitle = "ブラウザの <b>←</b> (戻る)ボタンは絶対に押さないでください"
HelpMessage = HelpMessage & "" & vbCrLf
HelpMessage = HelpMessage & "<CENTER><TABLE BORDER='0' CELLSPACING='0' CELLPADDING='0' CLASS='tx1820' style=""line-height:24px;"">" & vbCrLf
HelpMessage = HelpMessage & "<TR><TD>" & vbCrLf
HelpMessage = HelpMessage & "<BR>" & vbCrLf
HelpMessage = HelpMessage & "<span style=""vertical-align:middle;"">ブラウザの</span><img src=""historyback.png"" style=""vertical-align:middle;""><span style=""vertical-align:middle;"">(戻る)ボタンは絶対に押さないでください。</span>" & vbCrLf
HelpMessage = HelpMessage & "</TD></TR>" & vbCrLf
HelpMessage = HelpMessage & "<TR><TD>" & vbCrLf
HelpMessage = HelpMessage & "<BR>" & vbCrLf
HelpMessage = HelpMessage & "ブラウザの戻るボタンを押しますと、<BR>" & vbCrLf
HelpMessage = HelpMessage & "同じ処理が複数回発生してしまうことがございます。<BR>" & vbCrLf
HelpMessage = HelpMessage & "<BR>" & vbCrLf
HelpMessage = HelpMessage & "たとえば保存した伝票の内容に誤りがあった場合に、<BR>" & vbCrLf
HelpMessage = HelpMessage & "戻るボタンで入力画面に戻って内容を修正した場合は<BR>" & vbCrLf
HelpMessage = HelpMessage & "伝票の「新規作成」を再度実行することになりますので、<BR>" & vbCrLf
HelpMessage = HelpMessage & "誤った伝票と正しい伝票の2枚が作成されてしまいます。<BR>" & vbCrLf
HelpMessage = HelpMessage & "<BR>" & vbCrLf
HelpMessage = HelpMessage & "修正される場合は「一覧表示」から修正したい伝票を開き、<BR>" & vbCrLf
HelpMessage = HelpMessage & "伝票表示画面の「修正」ボタンをクリックする、というように<BR>" & vbCrLf
HelpMessage = HelpMessage & "画面に表示されるボタン等を正しく操作してください。<BR>" & vbCrLf
HelpMessage = HelpMessage & "</TD></TR>" & vbCrLf
HelpMessage = HelpMessage & "<TR><TD align=""center"">" & vbCrLf
HelpMessage = HelpMessage & "<BR>" & vbCrLf
HelpMessage = HelpMessage & "<BR>" & vbCrLf
HelpMessage = HelpMessage & "<a href=""" & HomeAliasSL & "user""><b>演習選択に進む</b></a>" & vbCrLf
HelpMessage = HelpMessage & "</TD></TR>" & vbCrLf
HelpMessage = HelpMessage & "</TABLE></CENTER>" & vbCrLf
ElseIf HelpTitle = "ChackKubun" Then
HelpTitle = "チェック区分"
HelpMessage = HelpMessage & "" & vbCrLf
HelpMessage = HelpMessage & "<B>チェック区分</B>は<B>チェック</B>ボタンから表示される<B>記帳チェック</B>の集計時に利用される区分です。<BR><BR>" & vbCrLf
HelpMessage = HelpMessage & "チェック区分はそれぞれ補助簿"
If PackageMode <> 1 Then
HelpMessage = HelpMessage & "または現物"
End If
HelpMessage = HelpMessage & "に対応しており、<B>該当するチェック区分に設定された勘定科目</B>を記帳チェックにおいて比較対照します。<BR><BR>" & vbCrLf
HelpMessage = HelpMessage & "<CENTER><TABLE BORDER='0' CELLSPACING='0' CELLPADDING='3' CLASS='tx1618'>" & vbCrLf
HelpMessage = HelpMessage & "<TR><TD align='right'><B>チェック区分</B></TD><TD> </TD><TD><B>比較チェックの対象</B></TD></TR>" & vbCrLf
HelpMessage = HelpMessage & "<TR><TD align='right'>現金</TD><TD> ⇔ </TD><TD>補助簿 - 現金出納帳</TD></TR>" & vbCrLf
HelpMessage = HelpMessage & "<TR><TD align='right'>当座預金</TD><TD> ⇔ </TD><TD>補助簿 - 当座預金出納帳"
If PackageMode <> 1 Then
HelpMessage = HelpMessage & "<BR>現物 - 当座預金（現物チェック）"
End If
HelpMessage = HelpMessage & "</TD></TR>" & vbCrLf
'小口現金は5以上で表示
If MajorVersion >= 5 Then
HelpMessage = HelpMessage & "<TR><TD align='right'>小口現金</TD><TD> ⇔ </TD><TD>補助簿 - 小口現金出納帳</TD></TR>" & vbCrLf
End If
HelpMessage = HelpMessage & "<TR><TD align='right'>売掛金</TD><TD> ⇔ </TD><TD>補助簿 - 売掛金元帳</TD></TR>" & vbCrLf
HelpMessage = HelpMessage & "<TR><TD align='right'>買掛金</TD><TD> ⇔ </TD><TD>補助簿 - 買掛金元帳</TD></TR>" & vbCrLf
HelpMessage = HelpMessage & "<TR><TD align='right'>売上</TD><TD> ⇔ </TD><TD>補助簿 - 売上帳</TD></TR>" & vbCrLf
HelpMessage = HelpMessage & "<TR><TD align='right'>仕入</TD><TD> ⇔ </TD><TD>補助簿 - 仕入帳</TD></TR>" & vbCrLf
HelpMessage = HelpMessage & "<TR><TD align='right'>受取手形</TD><TD> ⇔ </TD><TD>補助簿 - 受取手形記入帳"
If PackageMode <> 1 Then
HelpMessage = HelpMessage & "<BR>現物 - 受取手形（現物チェック）"
End If
HelpMessage = HelpMessage & "</TD></TR>" & vbCrLf
HelpMessage = HelpMessage & "<TR><TD align='right'>支払手形</TD><TD> ⇔ </TD><TD>補助簿 - 支払手形記入帳"
If PackageMode <> 1 Then
HelpMessage = HelpMessage & "<BR>現物 - 支払手形（現物チェック）"
End If
HelpMessage = HelpMessage & "</TD></TR>" & vbCrLf
If PackageMode <> 1 Then
HelpMessage = HelpMessage & "<TR><TD align='right'>普通預金</TD><TD> ⇔ </TD><TD>現物 - 普通預金（現物チェック）</TD></TR>" & vbCrLf
HelpMessage = HelpMessage & "<TR><TD align='right'>定期預金</TD><TD> ⇔ </TD><TD>現物 - 定期預金（現物チェック）</TD></TR>" & vbCrLf
HelpMessage = HelpMessage & "<TR><TD align='right'>積立預金</TD><TD> ⇔ </TD><TD>現物 - 積立預金（現物チェック）</TD></TR>" & vbCrLf
HelpMessage = HelpMessage & "<TR><TD align='right'>別段預金</TD><TD> ⇔ </TD><TD>現物 - 別段預金（現物チェック）</TD></TR>" & vbCrLf
End If
HelpMessage = HelpMessage & "</TABLE></CENTER><BR>" & vbCrLf
HelpMessage = HelpMessage & "当システムでは勘定科目を自由に追加・変更出来ますが、" & vbCrLf
HelpMessage = HelpMessage & "たとえば「1111：現金」を「AAAA：げんきん」に変更した場合でも、" & vbCrLf
HelpMessage = HelpMessage & "<B>「AAAA：げんきん」のチェック区分を「現金」に設定</B>しておけば" & vbCrLf
HelpMessage = HelpMessage & "<B>「AAAA：げんきん」の仕訳は「現金」勘定である</B>ものとされ、" & vbCrLf
HelpMessage = HelpMessage & "それにより現金出納帳と比較チェックされることとなります。<BR><BR>" & vbCrLf
HelpMessage = HelpMessage & "<B>誤った科目にチェック区分を設定すると、記帳チェックが正しく反映されなくなります</B>のでご注意下さい。" & vbCrLf
HelpMessage = HelpMessage & "たとえば科目「普通預金」にチェック区分「当座預金」を設定した場合、" & vbCrLf
HelpMessage = HelpMessage & "伝票・元帳に入力された「普通預金」科目の金額がチェック区分により当座預金に集計されてしまい、" & vbCrLf
HelpMessage = HelpMessage & "当座預金・普通預金の両方に狂いが生じてしまいます。" & vbCrLf
ElseIf HelpTitle = "TokubetsuKanjoKubun" Then
HelpTitle = "特別勘定区分"
HelpMessage = HelpMessage & "<B>特別勘定区分</B>は仕入伝票・売上伝票の作成時や自動転記帳簿の集計などの際に利用される区分です。<BR><BR>" & vbCrLf
HelpMessage = HelpMessage & "特別勘定区分を設定した科目は常に<B>固定された勘定</B>として処理されるようになります。" & vbCrLf
HelpMessage = HelpMessage & "当システムでは勘定科目を自由に追加・変更出来ますが、" & vbCrLf
HelpMessage = HelpMessage & "たとえば「8221：仕入」を「AAAA：しいれ」に変更した場合でも、" & vbCrLf
HelpMessage = HelpMessage & "「AAAA：しいれ」の特別勘定区分を「仕入」に設定しておけば、" & vbCrLf
HelpMessage = HelpMessage & "仕入伝票の作成時には<B>「AAAA：しいれ」を「仕入」勘定として自動仕訳</B>を行います。<BR><BR>" & vbCrLf
HelpMessage = HelpMessage & "特別勘定区分は必ずいずれか一つの科目に設定する必要があります。" & vbCrLf
Else
HelpMessage = HelpMessage & "" & vbCrLf
End If
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 1;
-->
</SCRIPT>
<body bgcolor="#8D9BCC" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10" colspan="3" background="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>"></td>
</tr>
<tr>
<td width="10" height="35" valign="top" background="/<% = HomeAlias %>/images/mwshd_lc.gif?<% = GB_STU %>"><img src="/<% = HomeAlias %>/images/mwshd_lu.gif?<% = GB_STU %>" width="10" height="10"></td>
<td height="35" background="/<% = HomeAlias %>/images/kwin_bk_g.gif?<% = GB_STU %>" bgcolor="#E5ACE5">
<table width="100%" height="35" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="10" height="35" valign="top"><img src="/<% = HomeAlias %>/images/kwin_wvline.gif?<% = GB_STU %>" width="1" height="35"></td>
<td width="100%">
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="1"><img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="2" height="2"></td>
</tr>
<tr>
<td width="5" height="25"> </td>
<td width="15" height="25" background="/<% = HomeAlias %>/images/kwin_tt_lr.gif?<% = GB_STU %>"> </td>
<td height="25" align="center" valign="middle" background="/<% = HomeAlias %>/images/kwin_tt_cr.gif?<% = GB_STU %>" class="tx1618" style="color:#FFFFFF; font:bold">
<img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="3" height="3"><BR>
<% = HelpTitle %>
<td width="15" height="25" background="/<% = HomeAlias %>/images/kwin_tt_rr.gif?<% = GB_STU %>"> </td>
<td width="5" height="25"> </td>
</tr>
</table>
</td>
<td width="10" height="35" valign="top"><img src="/<% = HomeAlias %>/images/kwin_wvline.gif?<% = GB_STU %>" width="1" height="35"></td>
</tr>
</table>
</td>
<td width="10" height="30" valign="top" background="/<% = HomeAlias %>/images/mwshd_rc.gif?<% = GB_STU %>"><img src="/<% = HomeAlias %>/images/mwshd_ru.gif?<% = GB_STU %>" width="10" height="10"></td>
</tr>
<tr>
<td width="10" background="/<% = HomeAlias %>/images/mwshd_lc.gif?<% = GB_STU %>"><img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="10" height="10"></td>
<td height="10" background="/<% = HomeAlias %>/images/kwin_dr_g.gif?<% = GB_STU %>"><img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="10" height="10"></td>
<td width="10" background="/<% = HomeAlias %>/images/mwshd_rc.gif?<% = GB_STU %>"><img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="10" height="10"></td>
</tr>
<tr>
<td width="10" background="/<% = HomeAlias %>/images/mwshd_lc.gif?<% = GB_STU %>"><img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="10" height="10"></td>
<td align="center" valign="middle" bgcolor="#CED4E9">
<table width="95%" height="95%" border="0" cellspacing="5" cellpadding="0" bgcolor="#ffffff" style="border:1px solid #000000">
<tr>
<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
<table width="100%" height="100%" border="0" cellspacing="5" cellpadding="0">
<tr>
<td align="left" valign="top" class="tx1416">
<DIV ID="Layer1" STYLE="position:relative; left:0px; top:-1px; width:100%; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
<% = HelpMessage %>
</DIV>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="10" background="/<% = HomeAlias %>/images/mwshd_rc.gif?<% = GB_STU %>"><img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="10" height="10"></td>
</tr>
<tr>
<td width="10" height="10"><img src="/<% = HomeAlias %>/images/mwshd_ld.gif?<% = GB_STU %>" width="10" height="10"></td>
<td height="10" background="/<% = HomeAlias %>/images/mwshd_CD.gif?<% = GB_STU %>"><img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="10" height="10"></td>
<td width="10" height="10"><img src="/<% = HomeAlias %>/images/mwshd_rd.gif?<% = GB_STU %>" width="10" height="10"></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
<% = HtmlFooter %>
</html>
<SCRIPT LANGUAGE="JavaScript">
// alert("\nclientWidth：" + document.body.clientWidth + "px \n\nclientHeight：" + document.body.clientHeight + "px \n\n");
</script>
<%
End Sub
%>