電卓

<% 'スプレッドシート風フォーム行出力（引数はグローバル変数で指定） '※列数を拡張できるよう引数はグローバル変数を利用する。 '※textフォームは幅自動補正(includesj.jsのInit関数)の処理対象から外すためすべてsize="1"指定。 '初期空行(各モジュール側で参照する変数) Dim SpBlankRow SpBlankRow = 25 'SpBlankRow = 5 'フォーム名 Dim SpFormName '行定義 Dim SpRowHeight '高さ(pixel指定) Dim SpRowCls '行スタイルclass Dim SpRowStyle '行スタイル '列定義 Dim SpCellType(20) '形式指定（0:日付 1:文字列 2:英数字 3:通貨 9:プルダウン）※型はclassとonFocus・onBrurで制御されるので、現状はプルダウン以外は特に意味はない。 Dim SpCellWidth(20) 'セル幅(pixel指定) ※フォーム幅は自動計算 Dim SpCellCls(20) 'セルスタイルclass Dim SpCellStyle(20) 'セルスタイル Dim SpInputRO(20) 'フォームreadonlyフラグ("1") Dim SpInputCls(20) 'フォームスタイルclass Dim SpInputStyle(20) 'フォームスタイル Dim SpInputFocus(20) 'onFocusで作動させるスクリプト Dim SpInputBlur(20) 'onBlurで作動させるスクリプト Dim SpInputChange(20) 'onChangeで作動させるスクリプト Dim SpInputValue(20) 'フォーム初期値 Dim SpInputOption(20) 'フォーム初期値(selectプルダウンのoptionタグ) 'Dim SpCell(20) ' Sub SpreadRow(RowCnt) 'RowCntがフォーム名に使用される ' SpreadRow = "" Dim Cnt Dim RowHeight Dim RowCls Dim RowStyle Dim CellWidth Dim CellCls Dim CellStyle Dim InputWidth Dim InputCls Dim InputStyle Dim InputFocus Dim InputBlur Dim InputChange Dim InputRO Dim InputBorder InputBorder = "border:none;" ' InputBorder = "border:solid 1px #000000;" 'デバッグ用 If "" & SpRowHeight <> "" Then RowHeight = " height=""" & SpRowHeight & """ " End If If "" & SpRowCls <> "" Then RowCls = " class=""" & SpRowCls & """ " End If If "" & SpRowStyle <> "" Then RowStyle = " style=""" & SpRowStyle & """ " End If ' SpreadRow = SpreadRow & "" & vbCrLf Response.Write("" & vbCrLf) For Cnt = 1 To 20 CellWidth = "" CellCls = "" CellStyle = "" InputWidth = "" InputCls = "" InputStyle = "" InputFocus = "" InputBlur = "" InputChange = "" InputRO = "" If "" & SpCellType(Cnt) = "" Then Exit For End If If "" & SpCellWidth(Cnt) <> "" Then InputWidth = "width:" & (CInt(SpCellWidth(Cnt)) - 2) & "px;" 'textフォームの幅がセルから溢れないよう此処で調整 CellWidth = " width=""" & SpCellWidth(Cnt) & """ " End If If "" & SpCellCls(Cnt) <> "" Then CellCls = " class=""" & SpCellCls(Cnt) & """ " End If If "" & SpCellStyle(Cnt) <> "" Then CellStyle = " style=""" & SpCellStyle(Cnt) & """ " End If If "" & SpInputCls(Cnt) <> "" Then InputCls = " class=""" & SpInputCls(Cnt) & """ " End If InputStyle = " style=""" & InputWidth & InputBorder & SpInputStyle(Cnt) & """ " 'onFocusで常にフォーム名と選択行をJavaScript変数に代入(javascript.js)＆行背景色変更 InputFocus = " onFocus=""SpFormName='" & SpFormName & "';SpSelRow=" & RowCnt & ";SpRowColor();" & SpInputFocus(Cnt) & """ " If "" & SpInputBlur(Cnt) <> "" Then InputBlur = " onBlur=""" & SpInputBlur(Cnt) & """ " End If If "" & SpInputChange(Cnt) <> "" Then InputChange = " onChange=""" & SpInputChange(Cnt) & """ " End If InputRO = "" If "" & SpInputRO(Cnt) = "1" Then InputRO = " readonly tabindex=""-1"" " End If ' SpreadRow = SpreadRow & "" & vbCrLf ' SpreadRow = SpreadRow & "" & vbCrLf '※textフォームは幅自動補正(includesj.jsのInit関数)の処理対象から外すためすべてsize="1"指定。 ' SpreadRow = SpreadRow & "" & vbCrLf Response.Write("" & vbCrLf) If SpInputOption(Cnt) <> "" Then 'selectプルダウン Response.Write("" & vbCrLf) Else 'textフォーム Response.Write("" & vbCrLf) '※textフォームは幅自動補正(includesj.jsのInit関数)の処理対象から外すためすべてsize="1"指定。 End If Response.Write("" & vbCrLf) ' Response.Write("" & Torihikibi & "" & vbCrLf) ' Response.Write("" & HardWrap(Tekiyo) & "" & vbCrLf) ' Response.Write("" & ConvIntToMoney(Syunyu , false, true) & "" & vbCrLf) ' Response.Write("" & ConvIntToMoney(Shisyutsu, false, true) & "" & vbCrLf) ' Response.Write("" & ConvIntToMoney(Zandaka, false, true) & "" & vbCrLf) Next 'SpreadRow = SpreadRow & "" & vbCrLf Response.Write("" & vbCrLf) End Sub Function HtmlDesign(i) Dim MailBlink Dim Query, Content Dim TmpKaishaMeisho Dim AdminCode Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then AdminCode = Content.Fields("管理者コード") End If 'サイバー会計モードで業種確定時は一部の色を変える Dim TmpColor Dim TmpColorObj Dim TmpColorObj2 TmpColor = Session(HomeAlias & "GyosyuColor") TmpColorObj = Session(HomeAlias & "GyosyuColorObj") TmpColorObj2 = Session(HomeAlias & "GyosyuColorObj") If PackageMode = 1 And Session(HomeAlias & "GyosyuColorObj") <> "" Then If GB_Admin < 1 Then TmpColor = "#275F00" TmpColor = "#2A6500" TmpColor = "#29A37A" TmpColor = "#248F6B" TmpColor = "#248F8B" TmpColor = "#007777" TmpColorObj = "ca" TmpColorObj2 = "ca" Else TmpColorObj = "ca" TmpColorObj2 = "caa" End If End If Dim AllContentWidth AllContentWidth = "100%" 'Edge対応のため全体幅固定 AllContentWidth = "1004" 'これはIE版のポップアップ幅 If GB_IEmode <> "1" Then ' AllContentWidth = "1024" 'IEでなければ広げる（保留） End If If InStr(UCase(Request.ServerVariables("URL")), UCase("" & HomeAliasSL & "admin/mail")) = 0 Then '運用管理では受発信文書クローズ時のmailblk()を行わない MailBlink = "mailblk();" End If If i = 12 Then '為替レート表 HtmlDesign = "" HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf 'この幅を右の4セルの合計と合わせる HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf ' HtmlDesign = HtmlDesign & "

" & Spacer(10,1) & "

" & Spacer(25,1) & "

" & vbCrLf ' HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & Spacer(1,1) & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf End If HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf ElseIf i = 11 Then 'ポータルサイト HtmlDesign = "" HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & Spacer(10,1) & "

ポータルサイト

" & Spacer(25,1) & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & Spacer(1,1) & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf End If HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf ElseIf i = 10 Then HtmlDesign = "" HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf 'CAモードでサイバートレードからの連動モードでは閉じるボタンを表示する If PackageMode = 1 And "" & Session(DBName & "CT21toCA21") <> "" Then HtmlDesign = HtmlDesign & "" & vbCrLf '演習管理者は管理演習でのみダイレクト運用管理ボタンを表示する ElseIf (DebugFlg > 0 Or Session(HomeAlias & "AutoLoginButton") = "1") And GB_Admin < 1 And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then HtmlDesign = HtmlDesign & "" & vbCrLf Else HtmlDesign = HtmlDesign & "" & vbCrLf End If HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf If GB_Admin = 1 Then HtmlDesign = HtmlDesign & " " & vbCrLf Else HtmlDesign = HtmlDesign & " " & vbCrLf End If ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf If GB_Admin = 1 Then HtmlDesign = HtmlDesign & " " & vbCrLf Else HtmlDesign = HtmlDesign & " " & vbCrLf End If HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & HardWrap(AdminCode) & "

" & HardWrap(GakuseiNo) & "

運用管理者

" & GakuseiShimei & "

" & GetYYYYMMDD() & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf ' HtmlDesign = HtmlDesign & "

" & Spacer(1,2) & "

" & vbCrLf 'タイトルバー内の文字ボックスの高さ位置調整 HtmlDesign = HtmlDesign & "

" & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf End If ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf ElseIf i = 6 Then HtmlDesign = "" HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & Spacer(10,1) & "

" & KaisyaRyakuMeisyo & "" TmpKaishaMeisho = KaisyaRyakuMeisyo If KaisyaMeisyo <> "" Then TmpKaishaMeisho = KaisyaMeisyo End If If Len(TmpKaishaMeisho) > 16 Then TmpKaishaMeisho = "" & TmpKaishaMeisho & "" End If HtmlDesign = HtmlDesign & "

" & TmpKaishaMeisho & "" ' HtmlDesign = HtmlDesign & "

" & KaisyaMeisyo & "" If PackageMode = 1 Or GB_Admin => 1 Then Else HtmlDesign = HtmlDesign & " [" & ConvShijyoName(GB_EnshuCD, GB_ShijyoCD) & "]" End If HtmlDesign = HtmlDesign & "

" & Spacer(25,1) & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & Spacer(1,1) & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf End If HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf ElseIf i = 5 Then '記帳チェック HtmlDesign = "" HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

チェック

" & vbCrLf HtmlDesign = HtmlDesign & "

" & KaisyaMeisyo & "" If PackageMode = 1 Or GB_Admin => 1 Then Else HtmlDesign = HtmlDesign & " [" & ConvShijyoName(GB_EnshuCD, GB_ShijyoCD) & "]" End If HtmlDesign = HtmlDesign & "

" & vbCrLf ' HtmlDesign = HtmlDesign & "

" & Spacer(1,2) & "

" & vbCrLf 'タイトルバー内の文字ボックスの高さ位置調整 HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf End If HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf ElseIf i = 4 Then HtmlDesign = "" HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

照会・集計

" & vbCrLf HtmlDesign = HtmlDesign & "

" & KaisyaRyakuMeisyo & "" HtmlDesign = HtmlDesign & "

" & KaisyaMeisyo & "" If PackageMode = 1 Or GB_Admin => 1 Then Else HtmlDesign = HtmlDesign & " [" & ConvShijyoName(GB_EnshuCD, GB_ShijyoCD) & "]" End If HtmlDesign = HtmlDesign & "

" & vbCrLf ' HtmlDesign = HtmlDesign & "

" & Spacer(1,2) & "

" & vbCrLf 'タイトルバー内の文字ボックスの高さ位置調整 HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf End If HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf ElseIf i = 7 Then HtmlDesign = "" HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf End If HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf ElseIf i = 8 Then HtmlDesign = "" HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & HardWrap(GakuseiNo) & "

" & GakuseiShimei & "

" & GetYYYYMMDD() & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf End If HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf ElseIf i = 9 Then HtmlDesign = "" HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & HardWrap(GakuseiNo) & "

" & GakuseiShimei & "

" & GetYYYYMMDD() & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf End If HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf Else 'If i = 1 Then '全般？ HtmlDesign = "" 'HtmlDesign = HtmlDesign & Request.ServerVariables("HTTP_USER_AGENT") & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf '演習管理者は管理演習でのみダイレクト運用管理ボタンを表示する If (Session(HomeAlias & "AutoLoginButton") = "1") And GB_Admin < 1 And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then ' If (DebugFlg > 0 Or Session(HomeAlias & "AutoLoginButton") = "1") And GB_Admin < 1 And (GB_AdminPCE = "" Or GB_AdminPCE = GB_EnshuCD) Then HtmlDesign = HtmlDesign & "" & vbCrLf Else 'CAモードでサイバートレードからの連動モードでは閉じるボタンを表示する If PackageMode = 1 And "" & Session(DBName & "CT21toCA21") <> "" Then HtmlDesign = HtmlDesign & "" & vbCrLf Else HtmlDesign = HtmlDesign & "" & vbCrLf End If End If HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & HardWrap(AdminCode) & "

" & HardWrap(GakuseiNo) & "

運用管理者

" & GakuseiShimei & "

" & GetYYYYMMDD() & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & KaisyaRyakuMeisyo & "" ' HtmlDesign = HtmlDesign & "

" & KaisyaMeisyo & "" HtmlDesign = HtmlDesign & "

" TmpKaishaMeisho = KaisyaRyakuMeisyo If KaisyaMeisyo <> "" Then TmpKaishaMeisho = KaisyaMeisyo End If If Len(TmpKaishaMeisho) > 16 Then TmpKaishaMeisho = "" & TmpKaishaMeisho & "" End If HtmlDesign = HtmlDesign & "" & TmpKaishaMeisho & " " If PackageMode = 1 Or GB_Admin => 1 Then Else HtmlDesign = HtmlDesign & " [" & ConvShijyoName(GB_EnshuCD, GB_ShijyoCD) & "] " End If HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf 'メッセージバーの高さ位置調整 HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf If (GB_KaikeiKaishibi <> "" Or GB_KaikeiSyuryobi <> "") AND GB_Admin = 0 Then HtmlDesign = HtmlDesign & " " & vbCrLf '実践日取得 Dim Jissenbi Jissenbi = "" Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & GB_EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日")) End If If Jissenbi <> "" Then HtmlDesign = HtmlDesign & " " & vbCrLf If "" & Session(DBName & "AdminPC") = "1" Then HtmlDesign = HtmlDesign & " " & vbCrLf End If Else HtmlDesign = HtmlDesign & " " & vbCrLf End If End If HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "


	" HtmlDesign = HtmlDesign & " " HtmlDesign = HtmlDesign & "				" ' HtmlDesign = HtmlDesign & "	" HtmlDesign = HtmlDesign & "実践日：" & Jissenbi & "" HtmlDesign = HtmlDesign & "	日付変更	" ' HtmlDesign = HtmlDesign & "	" HtmlDesign = HtmlDesign & "会計期間：" & GB_KaikeiKaishibi & "～" & GB_KaikeiSyuryobi & "" HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf ' HtmlDesign = HtmlDesign & "

" & Spacer(1,2) & "

" & vbCrLf 'タイトルバー内の文字ボックスの高さ位置調整 HtmlDesign = HtmlDesign & "

" & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" HtmlDesign = HtmlDesign & "

" & vbCrLf ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf If GB_IEmode <> "1" Then '非IEは親divをtableにして子をtable-cellにすれば、サイズ100%が潰れてしまうことがなくなる HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf Else HtmlDesign = HtmlDesign & " " & HttpH0 & "

" & vbCrLf End If ' HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & "" & vbCrLf End If 'プリンタ出力ページを別ウィンドウで表示するJavaScriptフラグ HtmlDesign = HtmlDesign & "" & vbCrLf 'セッションタイムアウトが発生しないよう対策（170612小野） HtmlDesign = HtmlDesign & "

" & vbCrLf HtmlDesign = HtmlDesign & " " & vbCrLf HtmlDesign = HtmlDesign & "

" & vbCrLf End Function '※ModeにCSSファイル名を指定できる。複数指定時はセミコロン区切り。 Function HtmlHeader(Mode) 'Mode引数の前後にセミコロンを付加(InStr判定のため) Mode = ";" & Mode & ";" Dim Kaisou Kaisou = "" Dim TmpScriptName '環境変数SCRIPT_NAMEを分解格納する配列 Dim Cnt 'ループカウンタ Dim TmpCnt 'カーソルカウンタ TmpCnt = 0 TmpScriptName = Request.ServerVariables("SCRIPT_NAME") TmpScriptName = Split(TmpScriptName, "/") 'HomeAliasを探す For Cnt = 0 To UBound(TmpScriptName) If "" & TmpScriptName(Cnt) = HomeAlias Then TmpCnt = Cnt Exit For End If Next 'HomeAliasより下の階層数を相対パスにする TmpCnt = TmpCnt + 1 For Cnt = TmpCnt To UBound(TmpScriptName) 'ファイルが見付かったら終了 If InStr("" & TmpScriptName(Cnt), ".") > 0 Then Exit For End If Kaisou = Kaisou & "../" Next HtmlHeader = "" HtmlHeader = HtmlHeader & "" & vbCrLf HtmlHeader = HtmlHeader & "" & vbCrLf HtmlHeader = HtmlHeader & "" & vbCrLf HtmlHeader = HtmlHeader & "" & vbCrLf '日本語指定 HtmlHeader = HtmlHeader & "" & vbCrLf HtmlHeader = HtmlHeader & "" & vbCrLf HtmlHeader = HtmlHeader & "" & vbCrLf HtmlHeader = HtmlHeader & "" & vbCrLf HtmlHeader = HtmlHeader & "" & vbCrLf If InStr(Mode, ";-sj3web;") < 1 Then 'マイナス指定の場合のみsj3web.cssを除外する HtmlHeader = HtmlHeader & "" & vbCrLf End If If InStr(Mode, ";sj3tyoboblack;") > 0 Then HtmlHeader = HtmlHeader & "" & vbCrLf End If If InStr(Mode, ";sj3tyoboblack11;") > 0 Then HtmlHeader = HtmlHeader & "" & vbCrLf End If If InStr(Mode, ";sj3tyoboblackPRT09;") > 0 Then HtmlHeader = HtmlHeader & "" & vbCrLf End If If InStr(Mode, ";sj3tyoboblacks;") > 0 Then HtmlHeader = HtmlHeader & "" & vbCrLf End If If InStr(Mode, ";sj3tyobored;") > 0 Then HtmlHeader = HtmlHeader & "" & vbCrLf End If If InStr(Mode, ";sj3tyobored1;") > 0 Then HtmlHeader = HtmlHeader & "" & vbCrLf End If If InStr(Mode, ";sj3tyobored2;") > 0 Then HtmlHeader = HtmlHeader & "" & vbCrLf End If If InStr(Mode, ";sj3tyobored11;") > 0 Then HtmlHeader = HtmlHeader & "" & vbCrLf End If If InStr(Mode, ";sj3tyoboredPRT09;") > 0 Then HtmlHeader = HtmlHeader & "" & vbCrLf End If If InStr(Mode, ";sj3tyoboredPRT10;") > 0 Then HtmlHeader = HtmlHeader & "" & vbCrLf End If If InStr(Mode, ";sj3tyoboreds;") > 0 Then HtmlHeader = HtmlHeader & "" & vbCrLf End If If Mode = ";Calc;" Then HtmlHeader = HtmlHeader & "電卓" & vbCrLf Else HtmlHeader = HtmlHeader & "" & AppTitle & "" & vbCrLf End If HtmlHeader = HtmlHeader & "" & vbCrLf HtmlHeader = HtmlHeader & "" & vbCrLf ' HtmlHeader = HtmlHeader & "" & vbCrLf ' HtmlHeader = HtmlHeader & "" & vbCrLf ' HtmlHeader = HtmlHeader & "" & vbCrLf ' HtmlHeader = HtmlHeader & "" & vbCrLf HtmlHeader = HtmlHeader & "" & vbCrLf If InStr(Mode, ";Chart;") > 0 Then 'チャートライブラリを読み込む ' HtmlHeader = HtmlHeader & "" & vbCrLf HtmlHeader = HtmlHeader & "" & vbCrLf End If If 0=1 And GB_IEmode <> "1" Then '戻るボタンを抑制すると「○○は登録済みです」画面の戻るリンクが聞かなくなってしまうので廃止 HtmlHeader = HtmlHeader & "" & vbCrLf End If HtmlHeader = HtmlHeader & "" & vbCrLf End Function '///////////////////////////////////////////////////////////////////////////////////// ' 名称：HttpL1,2,3 ' 目的：通常ページ内のレイヤーの内容を返す ' 作成：2002/9/30 山崎 '///////////////////////////////////////////////////////////////////////////////////// Function HttpL1 (iType) Dim RateEnable RateEnable = True '為替レートマスタの行数・文字数でwopenRに与えるサイズを調節する変数 Dim RateRowCnt Dim RateColCnt '受発信文書フレーム及びメッセンジャーフレームの自動リロードフラグ Dim AutoReload AutoReload = "" '入力画面ではリロード時にタブコントロールが飛んでしまうのでリロードさせない（090423小野） Dim TmpUrl TmpUrl = LCase(Request.ServerVariables("SCRIPT_NAME")) If Right(TmpUrl, 12) = "/default.asp" Or InStr(TmpUrl, "/menu") > 0 Or InStr(TmpUrl, "_view") Or InStr(TmpUrl, "_main") > 0 Or InStr(TmpUrl, "_ichiran") > 0 Or Right(TmpUrl, 11) = "/admenu.asp" Then 'AutoReload = "1" 'メッセンジャーのオートリロードは廃止（210528小野） End If 'FESメッセンジャー存在チェック Dim MESdb If MESvariable = 1 Then On Error Resume Next Err.Clear() Set MESdb = Server.CreateObject("ADODB.Connection") MESdb.ConnectionTimeout = 60 MESdb.CommandTimeout = 60 MESdb.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & DBUser & ";Password=" & DBPass & ";Initial Catalog=fesmessenger;Data Source=" & SQLServer If Err.Description <> "" Then MESvariable = 0 Else 'フィールド数によるバージョン整合判定（140804版で11フィールドに拡張） Query = " SELECT TOP 1 * FROM TMSメッセージ受信F " Set Content = ExecQuery(MESdb, Query) If Content.Fields.Count < 11 Then MESvariable = 0 End If End If On Error Goto 0 End If 'FESメッセンジャー管理者識別（演習会社ログイン後はユーザーモードでも管理者にする） Dim ForceAdmin Dim ForceEnshu ForceAdmin = GB_Admin ForceEnshu = "" If ForceAdmin < 1 And Session(HomeAlias & "AutoLoginButton") = "1" Then If GB_AdminPCE = "" Then '演習会社ログイン後且つ演習管理者ではない ForceAdmin = 1 ForceEnshu = GB_EnshuCD '選択演習を初期表示にする ElseIf GB_AdminPCE = GB_EnshuCD Then ForceAdmin = 2 End If End If 'FESメッセンジャーフレームに渡す引数 Dim MessengerQuery If PackageMode = 1 Then MessengerQuery = "?MES_AppCD=ca21" Else MessengerQuery = "?MES_AppCD=sj4web" End If MessengerQuery = MessengerQuery & "&MES_SystemCD=" & GB_SystemCD MessengerQuery = MessengerQuery & "&MES_DBName=" & DBName MessengerQuery = MessengerQuery & "&MES_DBUser=" & DBUser MessengerQuery = MessengerQuery & "&MES_DBPass=" & DBPass MessengerQuery = MessengerQuery & "&MES_Admin=" & ForceAdmin MessengerQuery = MessengerQuery & "&MES_ForceEnshu=" & ForceEnshu MessengerQuery = MessengerQuery & "&MES_Enshu=" & GB_EnshuCD MessengerQuery = MessengerQuery & "&MES_User=" & GB_GakuseiNo ' MessengerQuery = MessengerQuery & "&OpenMode=Send" Dim Kitakuriyou Dim KichoCheck Dim CheckButton Dim MailButton KichoCheck = 1 CheckButton = 1 Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = "" & Content.Fields("寄託倉庫利用") If "" & Content.Fields("手動総勘定元帳表示") <> "1" And "" & Content.Fields("現金出納帳表示") <> "1" And "" & Content.Fields("当座預金出納帳表示") <> "1" And "" & Content.Fields("売上帳表示") <> "1" And "" & Content.Fields("仕入帳表示") <> "1" And "" & Content.Fields("売掛金元帳表示") <> "1" And "" & Content.Fields("買掛金元帳表示") <> "1" And "" & Content.Fields("受取手形記入帳表示") <> "1" And "" & Content.Fields("支払手形記入帳表示") <> "1" Then KichoCheck = 0 End If If (KichoCheck = 0 Or "" & Content.Fields("記帳チェック表示") = "0") And "" & Content.Fields("現物チェック表示") <> "1" And "" & Content.Fields("商品チェック表示") <> "1" Then CheckButton = 0 End If MailButton = "" & Content.Fields("メール利用") End If If Kitakuriyou = "1" Then Kitakuriyou = 1 Else Kitakuriyou = 0 End If If PackageMode = 1 And GB_EnshuKubun = "P" Then MailButton = "" End If Dim bCheck bCheck = 0 Dim Query, Content If 0=1 Then Query = "exec SPN受信文書一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Dim BunsyoInfo, MailInfo, KaifuFlg Do While Not(Content.BOF Or Content.EOF) If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 0 Then bCheck = 1 End If Content.MoveNext Loop Query = "exec SPNメール受信一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 0 Then bCheck = 1 End If Content.MoveNext Loop End If If iType = 0 Then HttpL1 = "" HttpL1 = HttpL1 & "

" & vbCrLf 'FESメッセンジャーデータベースが存在すればボタン表示 If MESvariable = 1 Then HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & "

" & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & "

" & vbCrLf End If HttpL1 = HttpL1 & "

" & vbCrLf ElseIf iType = 1 Then 'ポータル、チェック、照会・集計、受発信文書、メッセンジャー、電卓 HttpL1 = "" HttpL1 = HttpL1 & "

" & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf RateEnable = False Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If "" & Content.Fields("為替レート利用") = "1" Then RateEnable = True End If End If If RateEnable Then '為替レートマスタの行数・文字数でwopenRに与えるサイズを調節する RateRowCnt = 0 RateColCnt = 0 Query = "" Query = Query & " SELECT * " Query = Query & " FROM TDA為替レートM " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " ORDER BY 通貨CD " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) RateEnable = True RateRowCnt = RateRowCnt + 1 If Len(Content.Fields("名称")) > RateColCnt Then RateColCnt = Len(Content.Fields("名称")) End If If Len(Content.Fields("単位")) > RateColCnt Then RateColCnt = Len(Content.Fields("単位")) End If Content.MoveNext Loop If RateEnable Then RateRowCnt = RateRowCnt - 5 '基準行数5を減算 RateColCnt = RateColCnt - 3 '基準文字数3を減算 If RateRowCnt < 0 Then RateRowCnt = 0 End If If RateColCnt < 0 Then RateColCnt = 0 End If RateRowCnt = RateRowCnt * 36 RateColCnt = RateColCnt * 36 HttpL1 = HttpL1 & " " & vbCrLf End If End If ' If CMvariable = 1 And Not(GB_Gyosyu = "B") And Not((GB_Gyosyu = "K" Or GB_Gyosyu = "U") And Kitakuriyou = 1) Then ' If CMvariable = 1 And Not(GB_Gyosyu = "B") And Not(GB_Gyosyu = "K") And Not(GB_Gyosyu = "U") Then If CMvariable = 1 And Not(GB_Gyosyu = "B") Then HttpL1 = HttpL1 & " " & vbCrLf End If If GB_Gyosyu <> "B" Then If CheckButton = 1 Then HttpL1 = HttpL1 & " " & vbCrLf End If HttpL1 = HttpL1 & " " & vbCrLf End If ' If bCheck = 1 Then ' HttpL1 = HttpL1 & " " & vbCrLf 'FESメッセンジャーデータベースが存在すればボタン表示 If MESvariable = 1 Then HttpL1 = HttpL1 & " " & vbCrLf End If ' HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & "

" & vbCrLf ' Else ' HttpL1 = HttpL1 & "

" & vbCrLf ' End If HttpL1 = HttpL1 & "

" & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & "

" & vbCrLf HttpL1 = HttpL1 & "

" & vbCrLf ElseIf iType = 2 Or iType = 3 Then 'ポータル、チェック、照会・集計、受発信文書、メッセンジャー、電卓 HttpL1 = "" HttpL1 = HttpL1 & "

" & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf RateEnable = False Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If "" & Content.Fields("為替レート利用") = "1" Then RateEnable = True End If End If If RateEnable Then RateEnable = False '為替レートマスタの行数・文字数でwopenRに与えるサイズを調節する RateRowCnt = 0 RateColCnt = 0 Query = "" Query = Query & " SELECT * " Query = Query & " FROM TDA為替レートM " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " ORDER BY 通貨CD " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) RateEnable = True RateRowCnt = RateRowCnt + 1 If Len(Content.Fields("名称")) > RateColCnt Then RateColCnt = Len(Content.Fields("名称")) End If If Len(Content.Fields("単位")) > RateColCnt Then RateColCnt = Len(Content.Fields("単位")) End If Content.MoveNext Loop If RateEnable Then RateRowCnt = RateRowCnt - 5 '基準行数5を減算 RateColCnt = RateColCnt - 3 '基準文字数3を減算 If RateRowCnt < 0 Then RateRowCnt = 0 End If If RateColCnt < 0 Then RateColCnt = 0 End If RateRowCnt = RateRowCnt * 36 RateColCnt = RateColCnt * 36 HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf End If End If ' If CMvariable = 1 And Not(GB_Gyosyu = "B") And Not((GB_Gyosyu = "K" Or GB_Gyosyu = "U") And Kitakuriyou = 1) Then ' If CMvariable = 1 And Not(GB_Gyosyu = "B") And Not(GB_Gyosyu = "K") And Not(GB_Gyosyu = "U") Then 'サイバー会計モードではポータルボタンを表示しない If PackageMode = 1 Then Else If CMvariable = 1 And Not(GB_Gyosyu = "B") And PackageMode <> 1 Then HttpL1 = HttpL1 & " " & vbCrLf End If End If 'サイバー会計のグループモードでは「メール」ボタンを表示する If PackageMode = 1 And GB_EnshuKubun = "G" And MailButton = "1" Then HttpL1 = HttpL1 & " " & vbCrLf End If If GB_Gyosyu <> "B" Then If CheckButton = 1 Then HttpL1 = HttpL1 & " " & vbCrLf End If HttpL1 = HttpL1 & " " & vbCrLf End If ' If bCheck = 1 Then ' HttpL1 = HttpL1 & " " & vbCrLf End If 'FESメッセンジャーデータベースが存在すればボタン表示 If MESvariable = 1 Then HttpL1 = HttpL1 & " " & vbCrLf End If ' HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & "

" & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & "

" & vbCrLf ' Else ' HttpL1 = HttpL1 & "

" & vbCrLf ' End If 'サイバー会計モードでは受発信文書ボタンを表示しない If PackageMode = 1 Then Else HttpL1 = HttpL1 & "

" & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & "

" & vbCrLf HttpL1 = HttpL1 & "

" & vbCrLf ElseIf iType = 4 Then '無し HttpL1 = "" HttpL1 = HttpL1 & "

" & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf 'FESメッセンジャーデータベースが存在すればボタン表示 If MESvariable = 1 And InStr(UCase(Request.ServerVariables("URL")), UCase("" & HomeAliasSL & "admin/admenu_enshu_sentaku.asp")) < 1 Then HttpL1 = HttpL1 & " " & vbCrLf End If HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & "

" & vbCrLf HttpL1 = HttpL1 & " " & vbCrLf HttpL1 = HttpL1 & "

" & vbCrLf HttpL1 = HttpL1 & "

" & vbCrLf End If End Function Function HttpL2 (btn1,btn1c, btn2, btn2c, btn3, btn3c, btn4, btn4c, btn5, btn5c, btn6, btn6c) 'サイバー会計モードではボタンを入れ替える ' If PackageMode = 1 And btn1 = "会社選択" Then ' btn1 = "演習選択" ' btn1c = "tblbtn('" & HomeAliasSL & "user/default.asp')" ' End If ' If PackageMode = 1 And btn2 = "商社" Then ' btn2 = "メニュー" ' btn2c = "tblbtn('" & HomeAliasSL & "user/bk/menu_s.asp')" ' End If '使えないクエリ文字列を入れ替える btn1c = QueryStringIrekae(btn1c) btn2c = QueryStringIrekae(btn2c) btn3c = QueryStringIrekae(btn3c) btn4c = QueryStringIrekae(btn4c) btn5c = QueryStringIrekae(btn5c) btn6c = QueryStringIrekae(btn6c) Dim Query Dim Content Dim Kouririyou Dim Kitakuriyou Dim KitakuKeiyaku Dim InputHojyobo Dim AutoGenkinNyuSyukinRireki, AutoYokinNyuSyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran Dim InputShiwaketyo, InputShiwakeShukeihyo, InputGokeiZandakaShisanhyo, InputSokanjyoMototyo Dim InputTaisyakuTaisyohyo, InputSonekiKeisansyo, InputHachiketaSeisanhyo, InputStockholderEquity Dim AutoShiwaketyo, AutoShiwakeShukeihyo, AutoGokeiZandakaShisanhyo, AutoSokanjyoMototyo Dim AutoTaisyakuTaisyohyo, AutoSonekiKeisansyo, AutoHachiketaSeisanhyo, AutoStockholderEquity Dim SokanjyomototyoHyojyunshiki Dim SyohinNyusyukkoSeikousei Dim SiireNyuko Dim UriageHenpin Dim RiyoDenpyoSu Dim SeisanhyoSeirikinyu Dim InputShiwaketyoKyuVersionRiyo Dim SyohinKikakushitsuRiyo Dim GenkaKaikeiRiyo Dim NyuShukkoTanto Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = "" & Content.Fields("寄託倉庫利用") Kouririyou = "" & Content.Fields("小売販売有無") Dim YobiA YobiA = Content.Fields("履歴表示") AutoGenkinNyuSyukinRireki = Mid(YobiA, 1, 1) AutoYokinNyuSyukinRireki = Mid(YobiA, 2, 1) AutoNyukoJisseki = Mid(YobiA, 3, 1) AutoSyukoJisseki = Mid(YobiA, 4, 1) AutoSyohinZaiko = Mid(YobiA, 5, 1) AutoUketoriTegataIchiran = Mid(YobiA, 6, 1) AutoShiaraiTegataIchiran = Mid(YobiA, 7, 1) InputHojyobo = Content.Fields("手動補助簿表示") InputShiwaketyo = Content.Fields("手動仕訳帳表示") InputShiwakeShukeihyo = Content.Fields("手動仕訳集計表表示") InputGokeiZandakaShisanhyo = Content.Fields("手動合計残高試算表表示") InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示") InputTaisyakuTaisyohyo = Content.Fields("手動貸借対照表表示") InputSonekiKeisansyo = Content.Fields("手動損益計算書表示") InputHachiketaSeisanhyo = Content.Fields("手動8桁精算表表示") InputStockholderEquity = Content.Fields("手動株主資本等変動計算書表示") AutoShiwaketyo = Content.Fields("自動転記仕訳帳表示") AutoShiwakeShukeihyo = Content.Fields("自動転記仕訳集計表表示") AutoGokeiZandakaShisanhyo = Content.Fields("自動転記合計残高試算表表示") AutoSokanjyoMototyo = Content.Fields("自動転記総勘定元帳表示") AutoTaisyakuTaisyohyo = Content.Fields("自動転記貸借対照表表示") AutoSonekiKeisansyo = Content.Fields("自動転記損益計算書表示") AutoHachiketaSeisanhyo = Content.Fields("自動転記8桁精算表表示") AutoStockholderEquity = Content.Fields("自動転記株主資本等変動計算書表示") SokanjyomototyoHyojyunshiki = Content.Fields("総勘定元帳標準式利用") SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用") RiyoDenpyoSu = Content.Fields("利用伝票数区分") SeisanhyoSeirikinyu = Content.Fields("整理記入精算表利用") InputShiwaketyoKyuVersionRiyo = Content.Fields("手入力仕訳帳旧バージョン利用") SyohinKikakushitsuRiyo = "" & Content.Fields("商品開発課利用") GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用") NyuShukkoTanto = "" & Content.Fields("倉庫部利用") End If If Kitakuriyou = "1" Then Kitakuriyou = 1 Else Kitakuriyou = 0 End If KitakuKeiyaku = KitakuKeiyakuJoutai() 'int型1文字 If Kouririyou = "1" Then Kouririyou = 1 Else Kouririyou = 0 End If If SyohinNyusyukkoSeikousei = "1" Then SiireNyuko = "" & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=SS&SenpoBunsyoSyuruiCD=SU&NyusyukoKubun=S" UriageHenpin = "" & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=SY&SenpoBunsyoSyuruiCD=SX" Else SiireNyuko = "" & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SS&NyusyukoKubun=S" UriageHenpin = "" & HomeAliasSL & "user/bk/shiireuriage/fd_nyusyukko.asp?BunsyoSyuruiCD=SY" End If Dim PopuoKaigyo 'ポップアップメニュー折り返し PopuoKaigyo = "" If GB_IEmode = "1" Then PopuoKaigyo = " MenuItem.push(""kaigyo"", ""dummy"");" & vbCrLf End If HttpL2 = "" '※ ※ ※ ※ ※ ポップアップメニュー関数 ※ ※ ※ ※ ※（070218小野） HttpL2 = HttpL2 & "" & vbCrLf '※ ※ ※ ※ ※ ポップアップメニュー関数 ※ ※ ※ ※ ※（070218小野） If InStr(btn1, "受発信文書ウィンドウ") > 0 Then If btn1c <> "" Then HttpL2 = HttpL2 & "

" HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & "

一覧へ戻る

" & vbCrLf HttpL2 = HttpL2 & "

" & vbCrLf End If ElseIf InStr(btn1, "チェック") > 0 Then HttpL2 = HttpL2 & "

" & vbCrLf If btn2 <> "" Then HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & "

" & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & "

再表示

" & vbCrLf HttpL2 = HttpL2 & "

" & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & "

" & vbCrLf HttpL2 = HttpL2 & " " & btn3 & vbCrLf HttpL2 = HttpL2 & "

" & vbCrLf HttpL2 = HttpL2 & "

" & vbCrLf End If HttpL2 = HttpL2 & "

" & vbCrLf ElseIf InStr(btn1, "ウィンドウ") > 0 Then HttpL2 = HttpL2 & "

" & vbCrLf If btn1c <> "" Then HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & "

一覧へ戻る

再表示

" & vbCrLf End If HttpL2 = HttpL2 & "

" & vbCrLf HttpL2 = HttpL2 & " " & btn3 & vbCrLf ' HttpL2 = HttpL2 & " " & btn2 & vbCrLf ' If btn3 <> "" Then ' HttpL2 = HttpL2 & "：" & btn3 & vbCrLf ' End If HttpL2 = HttpL2 & "

" & vbCrLf HttpL2 = HttpL2 & "

" & vbCrLf End If HttpL2 = HttpL2 & "

" & vbCrLf ElseIf InStr(btn1, "ポータルサイト") > 0 Then HttpL2 = HttpL2 & "

一覧へ戻る

再表示

" & vbCrLf End If HttpL2 = HttpL2 & "

" & vbCrLf HttpL2 = HttpL2 & " " & btn3 & vbCrLf ' HttpL2 = HttpL2 & " " & btn2 & vbCrLf ' If btn3 <> "" Then ' HttpL2 = HttpL2 & "：" & btn3 & vbCrLf ' End If HttpL2 = HttpL2 & "

" & vbCrLf HttpL2 = HttpL2 & "

" & vbCrLf End If HttpL2 = HttpL2 & "

" & vbCrLf Else HttpL2 = HttpL2 & "

" & vbCrLf Dim valign If Session(HomeAlias & "GyosyuColorObj") = "w" Then valign = "middle" Else valign = "bottom" End If HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf If GB_Admin > 0 Then HttpL2 = HttpL2 & " " & vbCrLf Else 'デバッグ用追加（演習名称をクリックすると演習選択画面に戻ります）070122小野 If DebugFlg > 0 Then HttpL2 = HttpL2 & " " & vbCrLf Else HttpL2 = HttpL2 & " " & vbCrLf End If End If HttpL2 = HttpL2 & " " & vbCrLf '演習名称の右の矢印をクリックするとデバッグモードになる If btn1 <> "" And (btn2 <> "" Or btn3 <> "" Or btn4 <> "" Or btn5 <> "") Then If GB_Admin > 0 Then '運用管理メニューポップアップ（070227小野） HttpL2 = HttpL2 & " " & vbCrLf ElseIf GB_EnshuKubun = "P" And PackageMode <> 1 Then '同時同業会社選択メニューポップアップ（070217小野）※サイバー会計モードでは表示しない（091001小野） HttpL2 = HttpL2 & " " & vbCrLf Else HttpL2 = HttpL2 & " " & vbCrLf End If ElseIf btn1 <> "" Then HttpL2 = HttpL2 & " " & vbCrLf End If If btn2 <> "" And (btn3 <> "" Or btn4 <> "" Or btn5 <> "") Then HttpL2 = HttpL2 & " " & vbCrLf If btn2 = "マスター管理" And GB_Admin > 0 Then '運用管理→マスター管理メニューポップアップ（070228小野） HttpL2 = HttpL2 & " " & vbCrLf ElseIf btn2 = "商社" Then '商社メニューポップアップ（070217小野） HttpL2 = HttpL2 & " " & vbCrLf ElseIf btn2 = "管理部" Then '管理部メニューポップアップ（070217小野） HttpL2 = HttpL2 & " " & vbCrLf ElseIf btn2 = "銀行" Then '銀行メニューポップアップ（070217小野） HttpL2 = HttpL2 & " " & vbCrLf ElseIf btn2 = "運輸・倉庫・保険" Then '運輸・倉庫・保険メニューポップアップ（070217小野） HttpL2 = HttpL2 & " " & vbCrLf Else HttpL2 = HttpL2 & " " & vbCrLf End If ElseIf btn2 <> "" Then HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf End If If btn3 <> "" And (btn4 <> "" Or btn5 <> "") Then HttpL2 = HttpL2 & " " & vbCrLf ' If btn3 = "経理部" Then '経理部メニューポップアップ（070218小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' ElseIf btn3 = "仕入部" Then '仕入部メニューポップアップ（070218小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' ElseIf btn3 = "販売部" Then '販売部メニューポップアップ（070218小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' ElseIf btn3 = "商品企画室" Then '販売部メニューポップアップ（070218小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' ElseIf btn3 = "社長室・総務部" Then '社長室・総務部メニューポップアップ（070218小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' ElseIf btn3 = "受付業務" Then '管理部 → 受付業務メニューポップアップ（070227小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' ElseIf btn3 = "窓口業務" Then '銀行 → 窓口業務メニューポップアップ（070218小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' ElseIf btn3 = "経理業務" Then '銀行 → 経理業務メニューポップアップ（070218小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' ElseIf btn3 = "受発信文書" Then '銀行 → 受発信文書メニューポップアップ（070218小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' ElseIf btn3 = "運輸倉庫保険業務" Then '運輸倉庫保険業務メニューポップアップ（070218小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' Else HttpL2 = HttpL2 & " " & vbCrLf ' End If ElseIf btn3 <> "" Then HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf End If If btn4 <> "" And (btn5 <> "") Then HttpL2 = HttpL2 & " " & vbCrLf ' If btn4 = "伝票" Then '伝票メニューポップアップ（070218小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' ElseIf btn4 = "帳簿" Then '帳簿メニューポップアップ（070218小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' ElseIf btn4 = "財務諸表" Then '社長室・総務部 → 財務諸表メニューポップアップ（070218小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' ElseIf btn4 = "白紙帳票" Then '社長室・総務部 → 白紙帳票メニューポップアップ（070218小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' ElseIf btn4 = "マスター照会" Then '社長室・総務部 → マスター照会メニューポップアップ（070218小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' ElseIf btn4 = "受発信文書" Then '社長室・総務部 → 受発信文書メニューポップアップ（070218小野） ' HttpL2 = HttpL2 & " " & vbCrLf ' Else HttpL2 = HttpL2 & " " & vbCrLf ' End If ElseIf btn4 <> "" Then HttpL2 = HttpL2 & " " & vbCrLf If Len(btn4) >= 9 Then HttpL2 = HttpL2 & " " & vbCrLf Else HttpL2 = HttpL2 & " " & vbCrLf End if End If If btn5 <> "" Then HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf End If HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf If btn1 <> "" And (btn2 <> "" Or btn3 <> "" Or btn4 <> "" Or btn5 <> "") Then HttpL2 = HttpL2 & " " & vbCrLf ElseIf btn1 <> "" Then HttpL2 = HttpL2 & " " & vbCrLf End If If btn2 <> "" And (btn3 <> "" Or btn4 <> "" Or btn5 <> "") Then HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf ElseIf btn2 <> "" Then HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf End If If btn3 <> "" And (btn4 <> "" Or btn5 <> "") Then HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf ElseIf btn3 <> "" Then HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf End If If btn4 <> "" And (btn5 <> "") Then HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf ElseIf btn4 <> "" Then HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf End If If btn5 <> "" Then HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf End If HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf HttpL2 = HttpL2 & "

" & EnshuMeisyo & "

" & btn1 & "

" & btn2 & "

" & btn3 & "

" & btn4 & "

" & btn5 & "

" & vbCrLf HttpL2 = HttpL2 & " " & vbCrLf 'ポップアップメニュー挿入（070218小野） HttpL2 = HttpL2 & "

" & vbCrLf End If End Function '※HttpL3_1にボタンを追加するための変数（210107小野） Dim HttpL3_1_btn6 Dim HttpL3_1_btn6c Dim HttpL3_1_btn7 Dim HttpL3_1_btn7c Dim HttpL3_1_btn8 Dim HttpL3_1_btn8c Dim HttpL3_1_btn9 Dim HttpL3_1_btn9c Dim HttpL3_1_btn0 Dim HttpL3_1_btn0c HttpL3_1_btn6 = "" HttpL3_1_btn6c = "" HttpL3_1_btn7 = "" HttpL3_1_btn7c = "" HttpL3_1_btn8 = "" HttpL3_1_btn8c = "" HttpL3_1_btn9 = "" HttpL3_1_btn9c = "" HttpL3_1_btn0 = "" HttpL3_1_btn0c = "" '※HttpL3_1にボタンを追加するための変数代入（210107小野） Sub HttpL3_1_AddBtn(btn6,btn6c, btn7, btn7c, btn8, btn8c, btn9, btn9c, btn0, btn0c) HttpL3_1_btn6 = btn6 HttpL3_1_btn6c = btn6c HttpL3_1_btn7 = btn7 HttpL3_1_btn7c = btn7c HttpL3_1_btn8 = btn8 HttpL3_1_btn8c = btn8c HttpL3_1_btn9 = btn9 HttpL3_1_btn9c = btn9c HttpL3_1_btn0 = btn0 HttpL3_1_btn0c = btn0c End Sub Function HttpL3_1(btn1,btn1c, btn2, btn2c, btn3, btn3c, btn4, btn4c, btn5, btn5c) '使えないクエリ文字列を入れ替える（090420小野） btn1c = QueryStringIrekae(btn1c) btn2c = QueryStringIrekae(btn2c) btn3c = QueryStringIrekae(btn3c) btn4c = QueryStringIrekae(btn4c) btn5c = QueryStringIrekae(btn5c) HttpL3_1 = "" HttpL3_1 = HttpL3_1 & "

" & vbCrLf HttpL3_1 = HttpL3_1 & " " & vbCrLf HttpL3_1 = HttpL3_1 & " " & vbCrLf If btn1 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(btn1, btn1c) ' HttpL3_1 = HttpL3_1 & " " & vbCrLf ' HttpL3_1 = HttpL3_1 & " " & vbCrLf End If If btn2 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(btn2, btn2c) ' HttpL3_1 = HttpL3_1 & " " & vbCrLf ' HttpL3_1 = HttpL3_1 & " " & vbCrLf End If If btn3 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(btn3, btn3c) ' HttpL3_1 = HttpL3_1 & " " & vbCrLf ' HttpL3_1 = HttpL3_1 & " " & vbCrLf End If If btn4 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(btn4, btn4c) ' HttpL3_1 = HttpL3_1 & " " & vbCrLf ' HttpL3_1 = HttpL3_1 & " " & vbCrLf End If If btn5 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(btn5, btn5c) ' HttpL3_1 = HttpL3_1 & " " & vbCrLf End If '↓↓↓↓↓↓↓※グローバル変数からボタンを追加（210107小野）↓↓↓↓↓↓↓ If HttpL3_1_btn6 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(HttpL3_1_btn6, HttpL3_1_btn6c) End If If HttpL3_1_btn7 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(HttpL3_1_btn7, HttpL3_1_btn7c) End If If HttpL3_1_btn8 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(HttpL3_1_btn8, HttpL3_1_btn8c) End If If HttpL3_1_btn9 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(HttpL3_1_btn9, HttpL3_1_btn9c) End If If HttpL3_1_btn0 <> "" Then HttpL3_1 = HttpL3_1 & mnbtn(HttpL3_1_btn0, HttpL3_1_btn0c) End If '↑↑↑↑↑↑↑※グローバル変数からボタンを追加（210107小野）↑↑↑↑↑↑↑ HttpL3_1 = HttpL3_1 & " " & vbCrLf HttpL3_1 = HttpL3_1 & " " & vbCrLf HttpL3_1 = HttpL3_1 & "

" & vbCrLf ' HttpL3_1 = HttpL3_1 & " " & vbCrLf ' HttpL3_1 = HttpL3_1 & " " & vbCrLf ' HttpL3_1 = HttpL3_1 & " " & vbCrLf ' HttpL3_1 = HttpL3_1 & " " & vbCrLf ' HttpL3_1 = HttpL3_1 & " " & vbCrLf ' HttpL3_1 = HttpL3_1 & " " & vbCrLf ' HttpL3_1 = HttpL3_1 & " " & vbCrLf ' HttpL3_1 = HttpL3_1 & " " & vbCrLf ' HttpL3_1 = HttpL3_1 & "

" & btn1 & "

" & vbCrLf ' HttpL3_1 = HttpL3_1 & "

" & btn2 & "

" & vbCrLf ' HttpL3_1 = HttpL3_1 & "

" & btn3 & "

" & vbCrLf ' HttpL3_1 = HttpL3_1 & "

" & btn4 & "

" & vbCrLf ' HttpL3_1 = HttpL3_1 & "

" & btn5 & "

" & vbCrLf ' HttpL3_1 = HttpL3_1 & "

" & vbCrLf HttpL3_1 = HttpL3_1 & "

" & vbCrLf End Function 'mnbtn_02のボタンカラーをトグルする Function mnbtn(Str, Val) Dim BtnHL BtnHL = "" If InStr(Str,"保存") > 0 Or InStr(Str,"実行") > 0 Or Str = "送信" Or Str = "発行" Or Str = "依頼" Or Str = "発信" Or Str = "入金" Or Str = "出金" Or Str = "入庫" Or Str = "出庫" Or Str = "通知" Or Str = "ダウンロード" Or InStr(Str,"開設") > 0 Then BtnHL = "g" End If Dim BtnCls Dim BtnWidth BtnCls = "tbtn3" BtnWidth = "60" '最低サイズ If Str = "借行挿入" Or Str = "借行削除" Or Str = "借行↑" Or Str = "借行↓" Or Str = "貸行挿入" Or Str = "貸行削除" Or Str = "貸行↑" Or Str = "貸行↓" Then BtnCls = "tbtn2" BtnWidth = "52" '最低サイズ End If mnbtn = "" mnbtn = mnbtn & " " & vbCrLf mnbtn = mnbtn & " " & vbCrLf mnbtn = mnbtn & " " & vbCrLf mnbtn = mnbtn & " " & vbCrLf mnbtn = mnbtn & " " & vbCrLf mnbtn = mnbtn & " " & vbCrLf mnbtn = mnbtn & " " & vbCrLf mnbtn = mnbtn & "

" & Str & "

" & vbCrLf mnbtn = mnbtn & " " & vbCrLf End Function Function HttpL3_2(btn1, btn1c, btn2, btn2c, btn3, btn3c, btn4, btn4c, btn5, btn5c) '使えないクエリ文字列を入れ替える（090420小野） btn1c = QueryStringIrekae(btn1c) btn2c = QueryStringIrekae(btn2c) btn3c = QueryStringIrekae(btn3c) btn4c = QueryStringIrekae(btn4c) btn5c = QueryStringIrekae(btn5c) 'サイバー会計モードで業種確定時は一部の色を変える Dim TmpColor Dim TmpColorObj TmpColor = Session(HomeAlias & "GyosyuColor") TmpColorObj = Session(HomeAlias & "GyosyuColorObj") If PackageMode = 1 And Session(HomeAlias & "GyosyuColorObj") <> "" And GB_Admin < 1 Then TmpColor = "#275F00" TmpColor = "#2A6500" TmpColor = "#29A37A" TmpColor = "#248F6B" TmpColor = "#248F8B" TmpColor = "#007777" TmpColorObj = "ca" End If HttpL3_2 = "" HttpL3_2 = HttpL3_2 & "

" & vbCrLf Dim Query, Content Dim RiyoMailKubun RiyoMailKubun = GetEnshuParam(EnshuCD, "メール利用") '生徒単位でのメール送信拒否設定を取得（091013小野） Dim MailSendKyohi Query = "exec SPV演習履歴取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then MailSendKyohi = "" & Content.Fields("メール送信拒否") End If 'FAX利用可否判定 Dim FAXRiyo Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then FAXRiyo = "" & Content.Fields("FAX利用") End If If btn2 = "発信文書" And btn3 = "メール作成" Then HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & " " & vbCrLf If PackageMode = 1 Then 'サイバー会計では受信文書・発信文書タブを表示しない Else If btn1c <> "" Then HttpL3_2 = HttpL3_2 & " " & vbCrLf Else HttpL3_2 = HttpL3_2 & " " & vbCrLf End If If btn2c <> "" Then HttpL3_2 = HttpL3_2 & " " & vbCrLf Else HttpL3_2 = HttpL3_2 & " " & vbCrLf End If HttpL3_2 = HttpL3_2 & " " & vbCrLf End If If RiyoMailKubun = "1" Then '生徒単位でメール送信拒否設定されている場合はメール作成ボタンを表示しない（091013小野） If MailSendKyohi <> "1" Then If btn3c <> "" Then HttpL3_2 = HttpL3_2 & " " & vbCrLf Else HttpL3_2 = HttpL3_2 & " " & vbCrLf End If End If If btn4c <> "" Then HttpL3_2 = HttpL3_2 & " " & vbCrLf Else HttpL3_2 = HttpL3_2 & " " & vbCrLf End If If btn5c <> "" Then HttpL3_2 = HttpL3_2 & " " & vbCrLf Else HttpL3_2 = HttpL3_2 & " " & vbCrLf End If End If If EnableFAX = 1 And FAXRiyo = "1" Then If btn1c <> "" And btn2c <> "" And btn3c <> "" And btn4c <> "" And btn5c <> "" Then HttpL3_2 = HttpL3_2 & " " & vbCrLf Else HttpL3_2 = HttpL3_2 & " " & vbCrLf End If End If HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & "

" & vbCrLf HttpL3_2 = HttpL3_2 & " " & btn1 & "

" & vbCrLf HttpL3_2 = HttpL3_2 & " " & btn2 & "

" & vbCrLf HttpL3_2 = HttpL3_2 & " " & btn3 & "

" & vbCrLf HttpL3_2 = HttpL3_2 & " " & btn4 & "

" & vbCrLf HttpL3_2 = HttpL3_2 & " " & btn5 & "

" & vbCrLf HttpL3_2 = HttpL3_2 & " FAX送受信

" & vbCrLf Else HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & " " & vbCrLf If btn1 <> "" Then HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & " " & vbCrLf End If If btn2 <> "" Then HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & " " & vbCrLf End If If btn3 <> "" Then HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & " " & vbCrLf End If If btn4 <> "" Then HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & " " & vbCrLf End If If btn5 <> "" Then HttpL3_2 = HttpL3_2 & " " & vbCrLf End If HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & "

" & vbCrLf HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & " " & vbCrLf HttpL3_2 = HttpL3_2 & "

" & btn1 & "

" & vbCrLf HttpL3_2 = HttpL3_2 & "

" & btn2 & "

" & vbCrLf HttpL3_2 = HttpL3_2 & "

" & btn3 & "

" & vbCrLf HttpL3_2 = HttpL3_2 & "

" & btn4 & "

" & vbCrLf HttpL3_2 = HttpL3_2 & "

" & btn5 & "

" & vbCrLf HttpL3_2 = HttpL3_2 & "

" & vbCrLf End If HttpL3_2 = HttpL3_2 & "

" & vbCrLf End Function Function HttpL3_3(btn1, btn1c, btn2, btn2c, btn3, btn3c, btn4, btn4c, btn5, btn5c) '使えないクエリ文字列を入れ替える（090420小野） btn1c = QueryStringIrekae(btn1c) btn2c = QueryStringIrekae(btn2c) btn3c = QueryStringIrekae(btn3c) btn4c = QueryStringIrekae(btn4c) btn5c = QueryStringIrekae(btn5c) 'サイバー会計モードで業種確定時は一部の色を変える Dim TmpColor Dim TmpColorObj TmpColor = Session(HomeAlias & "GyosyuColor") TmpColorObj = Session(HomeAlias & "GyosyuColorObj") If PackageMode = 1 And Session(HomeAlias & "GyosyuColorObj") <> "" And GB_Admin < 1 Then TmpColor = "#275F00" TmpColor = "#2A6500" TmpColor = "#29A37A" TmpColor = "#248F6B" TmpColor = "#248F8B" TmpColor = "#007777" TmpColorObj = "ca" End If HttpL3_3 = "" HttpL3_3 = HttpL3_3 & "

" & vbCrLf Dim Query, Content Dim RiyoMailKubun RiyoMailKubun = GetEnshuParam(EnshuCD, "メール利用") If btn2 = "発信文書" Then HttpL3_3 = HttpL3_3 & " " & vbCrLf HttpL3_3 = HttpL3_3 & " " & vbCrLf If btn1c <> "" Then HttpL3_3 = HttpL3_3 & " " & vbCrLf Else HttpL3_3 = HttpL3_3 & " " & vbCrLf End If If btn2c <> "" Then HttpL3_3 = HttpL3_3 & " " & vbCrLf Else HttpL3_3 = HttpL3_3 & " " & vbCrLf End If HttpL3_3 = HttpL3_3 & " " & vbCrLf If RiyoMailKubun = "1" Then 'If btn3c <> "" Then ' HttpL3_3 = HttpL3_3 & " " & vbCrLf 'Else ' HttpL3_3 = HttpL3_3 & " " & vbCrLf 'End If If btn4c <> "" Then HttpL3_3 = HttpL3_3 & " " & vbCrLf Else HttpL3_3 = HttpL3_3 & " " & vbCrLf End If If btn5c <> "" Then HttpL3_3 = HttpL3_3 & " " & vbCrLf Else HttpL3_3 = HttpL3_3 & " " & vbCrLf End If End If HttpL3_3 = HttpL3_3 & " " & vbCrLf HttpL3_3 = HttpL3_3 & " " & vbCrLf HttpL3_3 = HttpL3_3 & "

" & vbCrLf HttpL3_3 = HttpL3_3 & " " & btn1 & "

" & vbCrLf HttpL3_3 = HttpL3_3 & " " & btn2 & "

" & vbCrLf ' HttpL3_3 = HttpL3_3 & " " & btn3 & "

" & vbCrLf HttpL3_3 = HttpL3_3 & " " & btn4 & "

" & vbCrLf HttpL3_3 = HttpL3_3 & " " & btn5 & "

" & vbCrLf Else HttpL3_3 = HttpL3_3 & " " & vbCrLf HttpL3_3 = HttpL3_3 & " " & vbCrLf If btn1 <> "" Then HttpL3_3 = HttpL3_3 & " " & vbCrLf HttpL3_3 = HttpL3_3 & " " & vbCrLf End If If btn2 <> "" Then HttpL3_3 = HttpL3_3 & " " & vbCrLf HttpL3_3 = HttpL3_3 & " " & vbCrLf End If 'If btn3 <> "" Then ' HttpL3_3 = HttpL3_3 & " " & vbCrLf ' HttpL3_3 = HttpL3_3 & " " & vbCrLf 'End If If btn4 <> "" Then HttpL3_3 = HttpL3_3 & " " & vbCrLf HttpL3_3 = HttpL3_3 & " " & vbCrLf End If If btn5 <> "" Then HttpL3_3 = HttpL3_3 & " " & vbCrLf End If HttpL3_3 = HttpL3_3 & " " & vbCrLf HttpL3_3 = HttpL3_3 & " " & vbCrLf HttpL3_3 = HttpL3_3 & "

" & vbCrLf HttpL3_3 = HttpL3_3 & " " & vbCrLf HttpL3_3 = HttpL3_3 & " " & vbCrLf HttpL3_3 = HttpL3_3 & " " & vbCrLf HttpL3_3 = HttpL3_3 & " " & vbCrLf HttpL3_3 = HttpL3_3 & " " & vbCrLf HttpL3_3 = HttpL3_3 & " " & vbCrLf HttpL3_3 = HttpL3_3 & "

" & btn1 & "

" & vbCrLf HttpL3_3 = HttpL3_3 & "

" & btn2 & "

" & vbCrLf HttpL3_3 = HttpL3_3 & "

" & vbCrLf ' HttpL3_3 = HttpL3_3 & " " & vbCrLf ' HttpL3_3 = HttpL3_3 & " " & vbCrLf ' HttpL3_3 = HttpL3_3 & " " & vbCrLf ' HttpL3_3 = HttpL3_3 & " " & vbCrLf ' HttpL3_3 = HttpL3_3 & " " & vbCrLf ' HttpL3_3 = HttpL3_3 & " " & vbCrLf ' HttpL3_3 = HttpL3_3 & "

" & btn3 & "

" & vbCrLf ' HttpL3_3 = HttpL3_3 & "

" & btn4 & "

" & vbCrLf HttpL3_3 = HttpL3_3 & "

" & btn5 & "

" & vbCrLf HttpL3_3 = HttpL3_3 & "

" & vbCrLf End If HttpL3_3 = HttpL3_3 & "

" & vbCrLf End Function Function HttpL3 (btn1, btn1c, btn2, btn2c, btn3, btn3c, btn4, btn4c, btn5, btn5c, btn6, btn6c, btn7, btn7c, btn0, btn0c) HttpL3 = HttpL3 & "

" & btn1 & "

" & vbCrLf End Function Function HttpL4 (title1, title2) HttpL4 = "" HttpL4 = HttpL4 & "

" If title2 = "" Then HttpL4 = HttpL4 & title1 ElseIf Len(title2) <= 3 Then HttpL4 = HttpL4 & title1 & "　＜" & title2 & "＞" Else HttpL4 = HttpL4 & title1 & "　<" & title2 & ">" End If HttpL4 = HttpL4 & "" & vbCrLf HttpL4 = HttpL4 & "

" & vbCrLf End Function Function HttpL5(text1) HttpL5 = "" If text1 <> "" Then If GB_KaisyaMeisyo <> "" Or GB_KaisyaRyakuMeisyo <> "" Then If Len(text1) > 30 Then text1 = "" & text1 & "" ElseIf Len(text1) > 25 Then text1 = "" & text1 & "" ElseIf Len(text1) > 20 Then text1 = "" & text1 & "" End If End If HttpL5 = HttpL5 & "

" & text1 & "

" & vbCrLf Else HttpL5 = HttpL5 & "" End If End Function '///////////////////////////////////////////////////////////////////////////////////// ' 名称：PrintHeader ' 目的：印刷用のヘッダーを返す ' 作成：2002/8/29 山崎 '///////////////////////////////////////////////////////////////////////////////////// Function PrintHeader(F_AutoFlg, F_Title) PrintHeader = "" PrintHeader = PrintHeader & PrintHeader1(F_AutoFlg) PrintHeader = PrintHeader & " " & vbCrLf PrintHeader = PrintHeader & " " & vbCrLf PrintHeader = PrintHeader & " " & vbCrLf ' PrintHeader = PrintHeader & " " & vbCrLf PrintHeader = PrintHeader & " " & vbCrLf PrintHeader = PrintHeader & "

" & F_Title & "

" & F_Title & "

" & vbCrLf End Function '///////////////////////////////////////////////////////////////////////////////////// ' 名称：PrintHeaderWidth ' 目的：印刷用のヘッダーを返す ' 作成：2002/8/29 山崎 '///////////////////////////////////////////////////////////////////////////////////// Function PrintHeader1(F_AutoFlg) PrintHeader1 = "" PrintHeader1 = PrintHeader1 & PrintHeaderTop() If GB_ShowPrintHeader = "1" Or GB_ShowPrintHeader = "2" Then PrintHeader1 = PrintHeader1 & " " & vbCrLf PrintHeader1 = PrintHeader1 & " " & vbCrLf Dim TmpValue TmpValue = KaisyaMeisyo If Session("AdminPrintKaisyaMeisyo") <> "" Then TmpValue = Session("AdminPrintKaisyaMeisyo") End If PrintHeader1 = PrintHeader1 & " " & vbCrLf If F_AutoFlg <> -1 Then PrintHeader1 = PrintHeader1 & " " & vbCrLf ' PrintHeader1 = PrintHeader1 & " " & vbCrLf End If PrintHeader1 = PrintHeader1 & " " & vbCrLf PrintHeader1 = PrintHeader1 & "

" & TmpValue & "

" & SetDateStr(Now(), "YYYY年MM月DD日 hh時mm分") & "印刷

" & "2018年6月13日 9時50分" & "印刷

" & vbCrLf PrintHeader1 = PrintHeader1 & "

" & vbCrLf End If End Function '///////////////////////////////////////////////////////////////////////////////////// ' 名称：PrintHeaderTop ' 目的：印刷用のヘッダーの頭を返す ' 作成：2002/9/6 山崎 '///////////////////////////////////////////////////////////////////////////////////// Function PrintHeaderTop() PrintHeaderTop = "" PrintHeaderTop = PrintHeaderTop & "" & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintFooter = PrintFooter & " " & vbCrLf PrintFooter = PrintFooter & "

" & vbCrLf If GB_ShowPrintHeader = "1" Then PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf Dim TmpValue1 Dim TmpValue2 Dim TmpValue3 Dim TmpValue4 If EnshuMeisyo = "運用管理システム" And EnshuCD <> "" Then '運用管理で演習CDが存在する場合は当該演習名称を表示 TmpValue1 = ConvEnshuMeisyo(EnshuCD) TmpValue2 = KaisyaRyakuMeisyo If ConvEnshuKubun(EnshuCD) = "P" Then '上記条件且つ同時同業会社の場合は所有している生徒情報を表示 TmpValue3 = ConvKaisyaGakuseiNo(EnshuCD, KaisyaCD) TmpValue4 = ConvGakuseiShimei(ConvKaisyaGakuseiNo(EnshuCD, KaisyaCD)) Else TmpValue3 = GakuseiNo TmpValue4 = GakuseiShimei End If Else TmpValue1 = EnshuMeisyo TmpValue2 = KaisyaRyakuMeisyo TmpValue3 = GakuseiNo TmpValue4 = GakuseiShimei End If If Session("AdminPrintEnshuMeisyo") <> "" Then TmpValue1 = Session("AdminPrintEnshuMeisyo") End If If Session("AdminPrintKaisyaRyakuMeisyo") <> "" Then TmpValue2 = Session("AdminPrintKaisyaRyakuMeisyo") End If If Session("AdminPrintGakuseiNo") <> "" Then TmpValue3 = Session("AdminPrintGakuseiNo") End If If Session("AdminPrintGakuseiShimei") <> "" Then TmpValue4 = Session("AdminPrintGakuseiShimei") End If PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & " " & vbCrLf PrintHeaderTop = PrintHeaderTop & "

" & AppTitle & "
演習名称	会社略名称	学生番号	氏名
" & TmpValue1 & "	" & TmpValue2 & "	" & TmpValue3 & "	" & TmpValue4 & "

" & vbCrLf PrintHeaderTop = PrintHeaderTop & "

" & vbCrLf End If End Function '///////////////////////////////////////////////////////////////////////////////////// ' 名称：PrintFooter ' 目的：印刷用のフッターを返す ' 作成：2002/8/29 山崎 '///////////////////////////////////////////////////////////////////////////////////// Function PrintFooter() PrintFooter = "" PrintFooter = PrintFooter & "

" & vbCrLf End Function Function Spacer(Width, Height) Spacer = "" End Function Function HelpDesk(HelpTitle) HelpDesk = "" If HelpTitle = "" Then HelpDesk = "" Else HelpDesk = "" End If End Function '使えないクエリ文字列を入れ替える（090420小野） Function QueryStringIrekae(Str) Dim TmpStr TmpStr = Str If InStr(TmpStr, "ype=受信文書") Then TmpStr = Replace(TmpStr, "ype=受信文書", "ype=Recv") End If If InStr(Str, "ype=発信文書") Then TmpStr = Replace(TmpStr, "ype=発信文書", "ype=Send") End If If InStr(Str, "ype=受信メール") Then TmpStr = Replace(TmpStr, "ype=受信メール", "ype=RecvMail") End If If InStr(Str, "ype=送信メール") Then TmpStr = Replace(TmpStr, "ype=送信メール", "ype=SendMail") End If QueryStringIrekae = TmpStr End Function %>