<% If GB_IEmode = "1" Then %>
<% = SetStringInsertSpace(PageType) %> |
|
|
<% Else %>
|
<% = SetStringInsertSpace("小口現金出納帳") %> |
|
<% If GB_IEmode <> "1" Then %>
<% = Spacer(1, 7) %>
<% End If %>
|
受 入 |
取引日 |
摘 要 |
支 払 |
内 訳 |
通信費 |
交通費 |
消耗品費 |
水道光熱 |
その他 |
|
|
<%
'スプレッドシート定義 ※全行共通なのでループ外
Dim SpMaxRow
Dim SpRowCnt
Dim SpMaxCol
SpRowCnt = 0
SpMaxRow = SpRowCnt
'フォーム名
SpFormName = "SpCell" '
'行定義
SpRowHeight = HeightCell '高さ(pixel指定)
SpRowCls = "" '行スタイルclass
SpRowStyle = "" '行スタイル
'列1定義
SpCellType(1) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(1) = WidthKingakuWide 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(1) = "br3" 'セルスタイルclass
SpCellStyle(1) = "" 'セルスタイル
SpInputCls(1) = "Spread4R" 'フォームスタイルclass
SpInputStyle(1) = "" 'フォームスタイル
SpInputFocus(1) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(1) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetZandaka();" 'onBlurで作動させるスクリプト
SpInputRO(1) = "" 'フォームreadonlyフラグ("1")
'列2定義
SpCellType(2) = "0" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(2) = WidthTorihikibi 'セル幅(pixel指定)
SpCellCls(2) = "br1" 'セルスタイルclass
SpCellStyle(2) = "" 'セルスタイル
SpInputCls(2) = "Spread4C" 'フォームスタイルclass
SpInputStyle(2) = "" 'フォームスタイル
SpInputFocus(2) = "" 'onFocusで作動させるスクリプト
SpInputBlur(2) = "SetDate(this, 1, true);" 'onBlurで作動させるスクリプト
SpInputRO(2) = "" 'フォームreadonlyフラグ("1")
If Shiwakebi = "1" Then
SpCellType(2) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン)
SpCellWidth(2) = "94" 'セル幅(pixel指定)
SpInputBlur(2) = "" 'onBlurで作動させるスクリプト
End If
'列3定義
SpCellType(3) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(3) = WidthTekiyo 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(3) = "br3" 'セルスタイルclass
SpCellStyle(3) = "" 'セルスタイル
SpInputCls(3) = "Spread4L" 'フォームスタイルclass
SpInputStyle(3) = "" 'フォームスタイル
SpInputFocus(3) = "" 'onFocusで作動させるスクリプト
SpInputBlur(3) = "FormStrLeftIME(this,100,true);" 'onBlurで作動させるスクリプト
SpInputRO(3) = "" 'フォームreadonlyフラグ("1")
'列4定義
SpCellType(4) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(4) = WidthKingakuWide 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(4) = "br3" 'セルスタイルclass
SpCellStyle(4) = "" 'セルスタイル
SpInputCls(4) = "Spread4R" 'フォームスタイルclass
SpInputStyle(4) = "" 'フォームスタイル
SpInputFocus(4) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(4) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetZandaka();" 'onBlurで作動させるスクリプト
SpInputRO(4) = "" 'フォームreadonlyフラグ("1")
'列5定義
SpCellType(5) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(5) = WidthKingakuNarrow 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(5) = "br1" 'セルスタイルclass
SpCellStyle(5) = "" 'セルスタイル
SpInputCls(5) = "Spread4R" 'フォームスタイルclass
SpInputStyle(5) = "" 'フォームスタイル
SpInputFocus(5) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(5) = "FormStrFloatEdge(this,8,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
SpInputRO(5) = "0" 'フォームreadonlyフラグ("1")
'列6定義
SpCellType(6) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(6) = WidthKingakuNarrow 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(6) = "br1" 'セルスタイルclass
SpCellStyle(6) = "" 'セルスタイル
SpInputCls(6) = "Spread4R" 'フォームスタイルclass
SpInputStyle(6) = "" 'フォームスタイル
SpInputFocus(6) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(6) = "FormStrFloatEdge(this,8,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
SpInputRO(6) = "0" 'フォームreadonlyフラグ("1")
'列7定義
SpCellType(7) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(7) = WidthKingakuNarrow 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(7) = "br1" 'セルスタイルclass
SpCellStyle(7) = "" 'セルスタイル
SpInputCls(7) = "Spread4R" 'フォームスタイルclass
SpInputStyle(7) = "" 'フォームスタイル
SpInputFocus(7) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(7) = "FormStrFloatEdge(this,8,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
SpInputRO(7) = "0" 'フォームreadonlyフラグ("1")
'列8定義
SpCellType(8) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(8) = WidthKingakuNarrow 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(8) = "br1" 'セルスタイルclass
SpCellStyle(8) = "" 'セルスタイル
SpInputCls(8) = "Spread4R" 'フォームスタイルclass
SpInputStyle(8) = "" 'フォームスタイル
SpInputFocus(8) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(8) = "FormStrFloatEdge(this,8,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
SpInputRO(8) = "0" 'フォームreadonlyフラグ("1")
'列9定義
SpCellType(9) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(9) = WidthKingakuNarrow 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(9) = "b0" 'セルスタイルclass
SpCellStyle(9) = "" 'セルスタイル
SpInputCls(9) = "Spread4R" 'フォームスタイルclass
SpInputStyle(9) = "" 'フォームスタイル
SpInputFocus(9) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(9) = "FormStrFloatEdge(this,8,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
SpInputRO(9) = "0" 'フォームreadonlyフラグ("1")
ii = 0
Query = "exec SPK補助簿_小口現金出納帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim Torihikibi, Tekiyo, Syunyu, Shisyutsu, Kingaku1, Kingaku2, Kingaku3, Kingaku4, Kingaku5
Torihikibi = Content.Fields("取引日")
Syunyu = Content.Fields("受入")
Shisyutsu = Content.Fields("支払")
Tekiyo = Content.Fields("摘要")
Kingaku1 = Content.Fields("通信費")
Kingaku2 = Content.Fields("交通費")
Kingaku3 = Content.Fields("消耗品費")
Kingaku4 = Content.Fields("水道光熱費")
Kingaku5 = Content.Fields("その他")
If "" & Syunyu <> "" Then
GokeiSyunyu = GokeiSyunyu + Syunyu
End If
If "" & Shisyutsu <> "" Then
GokeiShisyutsu = GokeiShisyutsu + Shisyutsu
End If
If "" & Kingaku1 <> "" Then
GokeiKingaku1 = GokeiKingaku1 + Kingaku1
End If
If "" & Kingaku2 <> "" Then
GokeiKingaku2 = GokeiKingaku2 + Kingaku2
End If
If "" & Kingaku3 <> "" Then
GokeiKingaku3 = GokeiKingaku3 + Kingaku3
End If
If "" & Kingaku4 <> "" Then
GokeiKingaku4 = GokeiKingaku4 + Kingaku4
End If
If "" & Kingaku5 <> "" Then
GokeiKingaku5 = GokeiKingaku5 + Kingaku5
End If
If "" & Syunyu <> "" Then
DbKarikataKingakuTotal = DbKarikataKingakuTotal + Syunyu
End If
If "" & Shisyutsu <> "" Then
DbKashikataKingakuTotal = DbKashikataKingakuTotal + Shisyutsu
End If
'スプレッドシート行生成 ※此処で値のみ代入
SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
SpMaxRow = SpRowCnt
SpInputValue(1) = ConvIntToMoney(Syunyu , false, true) 'フォーム初期値
If Shiwakebi = "1" Then
SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加
If InStr(TmpShiwakebiAry, Torihikibi) < 1 Then
SpInputOption(2) = SpInputOption(2) & ""' & vbCrLf
End If
SpInputOption(2) = SpInputOption(2) & ""' & vbCrLf
For Cnt = 1 To UBound(ShiwakebiAry)
SpInputOption(2) = SpInputOption(2) & ""' & vbCrLf
Next
Else
SpInputValue(2) = Torihikibi 'フォーム初期値
End If
SpInputValue(3) = Tekiyo 'フォーム初期値
SpInputValue(4) = ConvIntToMoney(Shisyutsu , false, true) 'フォーム初期値
SpInputValue(5) = ConvIntToMoney(Kingaku1 , false, true) 'フォーム初期値
SpInputValue(6) = ConvIntToMoney(Kingaku2 , false, true) 'フォーム初期値
SpInputValue(7) = ConvIntToMoney(Kingaku3 , false, true) 'フォーム初期値
SpInputValue(8) = ConvIntToMoney(Kingaku4 , false, true) 'フォーム初期値
SpInputValue(9) = ConvIntToMoney(Kingaku5 , false, true) 'フォーム初期値
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される
If 0=1 Then
Response.Write("" & vbCrLf)
Response.Write("" & ConvIntToMoney(Syunyu , false, true) & " | " & vbCrLf)
Response.Write("" & Torihikibi & " | " & vbCrLf)
Response.Write("" & Tekiyo & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Shisyutsu , false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku1 , false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku2 , false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku3 , false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku4 , false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku5 , false, true) & " | " & vbCrLf)
Response.Write(" " &vbCrLf)
End If
ii = ii + 1
Content.MoveNext
Loop
'スプレッドシートの空白行を発生させる
SpInputValue(1) = "" 'フォーム初期値
If Shiwakebi = "1" Then
SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(2) = SpInputOption(2) & ""' & vbCrLf
For Cnt = 1 To UBound(ShiwakebiAry)
SpInputOption(2) = SpInputOption(2) & ""' & vbCrLf
Next
Else
SpInputValue(2) = "" 'フォーム初期値
End If
SpInputValue(3) = "" 'フォーム初期値
SpInputValue(4) = "" 'フォーム初期値
SpInputValue(5) = "" 'フォーム初期値
SpInputValue(6) = "" 'フォーム初期値
SpInputValue(7) = "" 'フォーム初期値
SpInputValue(8) = "" 'フォーム初期値
SpInputValue(9) = "" 'フォーム初期値
For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される
SpMaxRow = Cnt
Next
%>
|
※入力行が足りない場合は一度「保存」してください
|
|
<% End If %>
|
|