<% 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 = "ブラウザの ← (戻る)ボタンは絶対に押さないでください" HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "

" & vbCrLf HelpMessage = HelpMessage & "
" & vbCrLf HelpMessage = HelpMessage & "ブラウザの(戻る)ボタンは絶対に押さないでください。" & vbCrLf HelpMessage = HelpMessage & "

" & vbCrLf HelpMessage = HelpMessage & "
" & vbCrLf HelpMessage = HelpMessage & "ブラウザの戻るボタンを押しますと、
" & vbCrLf HelpMessage = HelpMessage & "同じ処理が複数回発生してしまうことがございます。
" & vbCrLf HelpMessage = HelpMessage & "
" & vbCrLf HelpMessage = HelpMessage & "たとえば保存した伝票の内容に誤りがあった場合に、
" & vbCrLf HelpMessage = HelpMessage & "戻るボタンで入力画面に戻って内容を修正した場合は
" & vbCrLf HelpMessage = HelpMessage & "伝票の「新規作成」を再度実行することになりますので、
" & vbCrLf HelpMessage = HelpMessage & "誤った伝票と正しい伝票の2枚が作成されてしまいます。
" & vbCrLf HelpMessage = HelpMessage & "
" & vbCrLf HelpMessage = HelpMessage & "修正される場合は「一覧表示」から修正したい伝票を開き、
" & vbCrLf HelpMessage = HelpMessage & "伝票表示画面の「修正」ボタンをクリックする、というように
" & vbCrLf HelpMessage = HelpMessage & "画面に表示されるボタン等を正しく操作してください。
" & vbCrLf HelpMessage = HelpMessage & "

" & vbCrLf HelpMessage = HelpMessage & "
" & vbCrLf HelpMessage = HelpMessage & "
" & vbCrLf HelpMessage = HelpMessage & "演習選択に進む" & vbCrLf HelpMessage = HelpMessage & "

" & vbCrLf ElseIf HelpTitle = "ChackKubun" Then HelpTitle = "チェック区分" HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "チェック区分はチェックボタンから表示される記帳チェックの集計時に利用される区分です。

" & vbCrLf HelpMessage = HelpMessage & "チェック区分はそれぞれ補助簿" If PackageMode <> 1 Then HelpMessage = HelpMessage & "または現物" End If HelpMessage = HelpMessage & "に対応しており、該当するチェック区分に設定された勘定科目を記帳チェックにおいて比較対照します。

" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf '小口現金は5以上で表示 If MajorVersion >= 5 Then HelpMessage = HelpMessage & "" & vbCrLf End If HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf If PackageMode <> 1 Then HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf HelpMessage = HelpMessage & "" & vbCrLf End If HelpMessage = HelpMessage & "

チェック区分		比較チェックの対象
現金	⇔	補助簿 - 現金出納帳
当座預金	⇔	補助簿 - 当座預金出納帳" If PackageMode <> 1 Then HelpMessage = HelpMessage & " 現物 - 当座預金（現物チェック）" End If HelpMessage = HelpMessage & "
小口現金	⇔	補助簿 - 小口現金出納帳
売掛金	⇔	補助簿 - 売掛金元帳
買掛金	⇔	補助簿 - 買掛金元帳
売上	⇔	補助簿 - 売上帳
仕入	⇔	補助簿 - 仕入帳
受取手形	⇔	補助簿 - 受取手形記入帳" If PackageMode <> 1 Then HelpMessage = HelpMessage & " 現物 - 受取手形（現物チェック）" End If HelpMessage = HelpMessage & "
支払手形	⇔	補助簿 - 支払手形記入帳" If PackageMode <> 1 Then HelpMessage = HelpMessage & " 現物 - 支払手形（現物チェック）" End If HelpMessage = HelpMessage & "
普通預金	⇔	現物 - 普通預金（現物チェック）
定期預金	⇔	現物 - 定期預金（現物チェック）
積立預金	⇔	現物 - 積立預金（現物チェック）
別段預金	⇔	現物 - 別段預金（現物チェック）

" & vbCrLf HelpMessage = HelpMessage & "当システムでは勘定科目を自由に追加・変更出来ますが、" & vbCrLf HelpMessage = HelpMessage & "たとえば「1111：現金」を「AAAA：げんきん」に変更した場合でも、" & vbCrLf HelpMessage = HelpMessage & "「AAAA：げんきん」のチェック区分を「現金」に設定しておけば" & vbCrLf HelpMessage = HelpMessage & "「AAAA：げんきん」の仕訳は「現金」勘定であるものとされ、" & vbCrLf HelpMessage = HelpMessage & "それにより現金出納帳と比較チェックされることとなります。

" & vbCrLf HelpMessage = HelpMessage & "誤った科目にチェック区分を設定すると、記帳チェックが正しく反映されなくなりますのでご注意下さい。" & vbCrLf HelpMessage = HelpMessage & "たとえば科目「普通預金」にチェック区分「当座預金」を設定した場合、" & vbCrLf HelpMessage = HelpMessage & "伝票・元帳に入力された「普通預金」科目の金額がチェック区分により当座預金に集計されてしまい、" & vbCrLf HelpMessage = HelpMessage & "当座預金・普通預金の両方に狂いが生じてしまいます。" & vbCrLf ElseIf HelpTitle = "TokubetsuKanjoKubun" Then HelpTitle = "特別勘定区分" HelpMessage = HelpMessage & "特別勘定区分は仕入伝票・売上伝票の作成時や自動転記帳簿の集計などの際に利用される区分です。

" & vbCrLf HelpMessage = HelpMessage & "特別勘定区分を設定した科目は常に固定された勘定として処理されるようになります。" & vbCrLf HelpMessage = HelpMessage & "当システムでは勘定科目を自由に追加・変更出来ますが、" & vbCrLf HelpMessage = HelpMessage & "たとえば「8221：仕入」を「AAAA：しいれ」に変更した場合でも、" & vbCrLf HelpMessage = HelpMessage & "「AAAA：しいれ」の特別勘定区分を「仕入」に設定しておけば、" & vbCrLf HelpMessage = HelpMessage & "仕入伝票の作成時には「AAAA：しいれ」を「仕入」勘定として自動仕訳を行います。

" & vbCrLf HelpMessage = HelpMessage & "特別勘定区分は必ずいずれか一つの科目に設定する必要があります。" & vbCrLf Else HelpMessage = HelpMessage & "" & vbCrLf End If %> <% = HtmlHeader("") %>


		<% = HelpTitle %>

<% = HelpMessage %>

<% = HtmlFooter %> <% End Sub %>