<% If GB_IEmode = "1" Then %>
| <% = SetStringInsertSpace(Label) %> |
<% Else %>
<% = SetStringInsertSpace(Label) %> |
<% End If %>
<% If GB_IEmode <> "1" Then %>
<% = Spacer(1, 5) %>
<% End If %>
|
<% If PackageMode = 1 Then %>
<% Else %>
| <% If PageType = "Uketori" Then %>支払<% Else %>受取<% End If %>人市場 |
|
振出人市場 |
|
|
<% End If %>
<% If GB_IEmode = "1" Then %>
|
|
<% Else %>
<%
Dim WidthCell0, WidthCell1, WidthCell2, WidthCell3, WidthCell4, WidthCell5, WidthCell6, WidthCell7, WidthCell8, WidthParent, WidthParent2
WidthCell0 = 84
WidthCell1 = 48
WidthCell2 = 75
WidthCell3 = 70
WidthCell4 = 84
WidthCell5 = 66
WidthCell6 = 66
WidthCell7 = 100
WidthCell8 = 70 '仕訳日選択モードのため取引日は個別
WidthParent = 930
WidthParent2 = 910
If Shiwakebi = "1" Then
WidthCell8 = WidthCell8 + 14
WidthParent = WidthParent + 14
End If
Dim SpreadCls
SpreadCls = "Spread2"
%>
| 取引日 |
摘要 |
金額 |
種類 |
手形番号 |
<% If PageType = "Uketori" Then %>支払人<% Else %>受取人<% End If %> |
<% If PageType = "Uketori" Then %>振出人また
は裏書人<% Else %>振出人<% End If %> |
振出日 |
満期日 |
支払場所 |
顛末日付 |
顛末摘要 |
|
|
<%
'スプレッドシート定義 ※全行共通なのでループ外
Dim SpMaxRow
Dim SpRowCnt
Dim SpMaxCol
SpRowCnt = 0
SpMaxRow = SpRowCnt
'フォーム名
SpFormName = "SpCell" '
'行定義
SpRowHeight = "23" '高さ(pixel指定)
SpRowCls = "" '行スタイルclass
SpRowStyle = "" '行スタイル
'列1定義
SpCellType(1) = "0" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(1) = WidthCell8 'セル幅(pixel指定)
SpCellCls(1) = "br1" 'セルスタイルclass
SpCellStyle(1) = "" 'セルスタイル
SpInputCls(1) = SpreadCls & "C" 'フォームスタイルclass
SpInputStyle(1) = "" 'フォームスタイル
SpInputFocus(1) = "" 'onFocusで作動させるスクリプト
SpInputBlur(1) = "SetDate(this, 1, false);" 'onBlurで作動させるスクリプト
SpInputRO(1) = "" 'フォームreadonlyフラグ("1")
If Shiwakebi = "1" Then
SpCellType(1) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(1) = WidthCell8 'セル幅(pixel指定)
SpInputBlur(1) = "" 'onBlurで作動させるスクリプト
End If
'列2定義
SpCellType(2) = "1" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(2) = WidthCell7 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(2) = "br3" 'セルスタイルclass
SpCellStyle(2) = "" 'セルスタイル
SpInputCls(2) = SpreadCls & "L" 'フォームスタイルclass
SpInputStyle(2) = "" 'フォームスタイル
SpInputFocus(2) = "" 'onFocusで作動させるスクリプト
SpInputBlur(2) = "FormStrLeftIME(this,100,true);" 'onBlurで作動させるスクリプト
SpInputChange(2) = "" 'onChangeで作動させるスクリプト
SpInputRO(2) = "" 'フォームreadonlyフラグ("1")
'列3定義
SpCellType(3) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(3) = WidthCell0 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(3) = "br3" 'セルスタイルclass
SpCellStyle(3) = "" 'セルスタイル
SpInputCls(3) = SpreadCls & "R" 'フォームスタイルclass
SpInputStyle(3) = "" 'フォームスタイル
SpInputFocus(3) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(3) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
SpInputRO(3) = "" 'フォームreadonlyフラグ("1")
'列4定義
SpCellType(4) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(4) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(4) = "br1" 'セルスタイルclass
SpCellStyle(4) = "" 'セルスタイル
SpInputCls(4) = SpreadCls & "L" 'フォームスタイルclass
SpInputStyle(4) = "" 'フォームスタイル
SpInputFocus(4) = "" 'onFocusで作動させるスクリプト
SpInputBlur(4) = "" 'onBlurで作動させるスクリプト
SpInputRO(4) = "" 'フォームreadonlyフラグ("1")
'列5定義
SpCellType(5) = "1" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(5) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(5) = "br1" 'セルスタイルclass
SpCellStyle(5) = "" 'セルスタイル
SpInputCls(5) = SpreadCls & "L" 'フォームスタイルclass
SpInputStyle(5) = "" 'フォームスタイル
SpInputFocus(5) = "" 'onFocusで作動させるスクリプト
SpInputBlur(5) = "FormStrLeftIME(this,10,true);" 'onBlurで作動させるスクリプト
SpInputRO(5) = "" 'フォームreadonlyフラグ("1")
'列6定義
SpCellType(6) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(6) = WidthCell4 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(6) = "br1" 'セルスタイルclass
SpCellStyle(6) = "" 'セルスタイル
SpInputCls(6) = SpreadCls & "L" 'フォームスタイルclass
SpInputStyle(6) = "" 'フォームスタイル
SpInputFocus(6) = "" 'onFocusで作動させるスクリプト
SpInputBlur(6) = "" 'onBlurで作動させるスクリプト
SpInputRO(6) = "" 'フォームreadonlyフラグ("1")
'列7定義
SpCellType(7) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(7) = WidthCell4 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(7) = "br1" 'セルスタイルclass
SpCellStyle(7) = "" 'セルスタイル
SpInputCls(7) = SpreadCls & "L" 'フォームスタイルclass
SpInputStyle(7) = "" 'フォームスタイル
SpInputFocus(7) = "" 'onFocusで作動させるスクリプト
SpInputBlur(7) = "" 'onBlurで作動させるスクリプト
SpInputRO(7) = "" 'フォームreadonlyフラグ("1")
'列8定義
SpCellType(8) = "0" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(8) = WidthCell3 'セル幅(pixel指定)
SpCellCls(8) = "br1" 'セルスタイルclass
SpCellStyle(8) = "" 'セルスタイル
SpInputCls(8) = SpreadCls & "C" 'フォームスタイルclass
SpInputStyle(8) = "" 'フォームスタイル
SpInputFocus(8) = "" 'onFocusで作動させるスクリプト
SpInputBlur(8) = "SetDate(this, 1, false);" 'onBlurで作動させるスクリプト
SpInputRO(8) = "" 'フォームreadonlyフラグ("1")
'列9定義
SpCellType(9) = "0" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(9) = WidthCell3 'セル幅(pixel指定)
SpCellCls(9) = "br1" 'セルスタイルclass
SpCellStyle(9) = "" 'セルスタイル
SpInputCls(9) = SpreadCls & "C" 'フォームスタイルclass
SpInputStyle(9) = "" 'フォームスタイル
SpInputFocus(9) = "" 'onFocusで作動させるスクリプト
SpInputBlur(9) = "SetDate(this, 1, false);" 'onBlurで作動させるスクリプト
SpInputRO(9) = "" 'フォームreadonlyフラグ("1")
'列10定義
SpCellType(10) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(10) = WidthCell4 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(10) = "br1" 'セルスタイルclass
SpCellStyle(10) = "" 'セルスタイル
SpInputCls(10) = SpreadCls & "L" 'フォームスタイルclass
SpInputStyle(10) = "" 'フォームスタイル
SpInputFocus(10) = "" 'onFocusで作動させるスクリプト
SpInputBlur(10) = "" 'onBlurで作動させるスクリプト
SpInputRO(10) = "" 'フォームreadonlyフラグ("1")
'列11定義
SpCellType(11) = "0" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(11) = WidthCell3 'セル幅(pixel指定)
SpCellCls(11) = "br1" 'セルスタイルclass
SpCellStyle(11) = "" 'セルスタイル
SpInputCls(11) = SpreadCls & "C" 'フォームスタイルclass
SpInputStyle(11) = "" 'フォームスタイル
SpInputFocus(11) = "" 'onFocusで作動させるスクリプト
SpInputBlur(11) = "SetDate(this, 1, false);" 'onBlurで作動させるスクリプト
SpInputRO(11) = "" 'フォームreadonlyフラグ("1")
'列12定義
SpCellType(12) = "1" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(12) = WidthCell6 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(12) = "b0" 'セルスタイルclass
SpCellStyle(12) = "" 'セルスタイル
SpInputCls(12) = SpreadCls & "L" 'フォームスタイルclass
SpInputStyle(12) = "" 'フォームスタイル
SpInputFocus(12) = "" 'onFocusで作動させるスクリプト
SpInputBlur(12) = "FormStrLeftIME(this,100,true);" 'onBlurで作動させるスクリプト
SpInputRO(12) = "" 'フォームreadonlyフラグ("1")
ii = 0
Dim UketoriSiharaiTegataTyoCD, Torihikibi, Tekiyo, Kingaku,TegataSyurui, TegataNo
Dim SiharaiUketorinin,FuridasiUragakinin,Furidasibi,Mankibi,Siharaibasyo,Tenmatubi,TenmatuTekiyo
Dim TegataSyuruiName
Dim SiharaibasyoName, SiharaiUketorininName, FuridasiUragakininName
Dim SyoruiMei
If PageType = "Uketori" Then
Query = "exec SPK補助簿_受取手形記入帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
SyoruiMei = "受取手形記入帳"
Else
Query = "exec SPK補助簿_支払手形記入帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
SyoruiMei = "支払手形記入帳"
End If
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If PageType = "Uketori" Then
UketoriSiharaiTegataTyoCD = Content.Fields("受取手形記入帳CD")
SiharaiUketorininName = Content.Fields("支払人名称")
FuridasiUragakininName = Content.Fields("振出人名称")
Else
UketoriSiharaiTegataTyoCD = Content.Fields("支払手形記入帳CD")
SiharaiUketorininName = Content.Fields("受取人名称")
FuridasiUragakininName = Content.Fields("振出人名称")
End If
TegataSyuruiName = Content.Fields("手形種類名称")
TegataNo = Content.Fields("手形番号")
Furidasibi = SetTimeYYYYMMDD(Content.Fields("振出日"))
Mankibi = SetTimeYYYYMMDD(Content.Fields("満期日"))
SiharaibasyoName = Content.Fields("支払場所名称")
Tenmatubi = SetTimeYYYYMMDD(Content.Fields("顛末日付"))
Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
Tekiyo = Content.Fields("摘要")
Kingaku = Content.Fields("金額")
TenmatuTekiyo = Content.Fields("顛末摘要")
'スプレッドシート行生成 ※此処で値のみ代入
SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
SpMaxRow = SpRowCnt
If Shiwakebi = "1" Then
SpInputOption(1) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加
If InStr(TmpShiwakebiAry, Torihikibi) < 1 Then
SpInputOption(1) = SpInputOption(1) & ""' & vbCrLf
End If
SpInputOption(1) = SpInputOption(1) & ""' & vbCrLf
For Cnt = 1 To UBound(ShiwakebiAry)
SpInputOption(1) = SpInputOption(1) & ""' & vbCrLf
Next
Else
SpInputValue(1) = Torihikibi 'フォーム初期値
End If
SpInputValue(2) = Tekiyo 'フォーム初期値
SpInputValue(3) = ConvIntToMoney(Kingaku, false, false) 'フォーム初期値
' SpInputValue(4) = TegataSyuruiName 'フォーム初期値
SpInputOption(4) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(4) = SpInputOption(4) & ""' & vbCrLf
SpInputOption(4) = SpInputOption(4) & ""' & vbCrLf
SpInputOption(4) = SpInputOption(4) & ""' & vbCrLf
SpInputValue(5) = TegataNo 'フォーム初期値
' SpInputValue(6) = SiharaiUketorininName 'フォーム初期値
SpInputOption(6) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(6) = SpInputOption(6) & ""' & vbCrLf
For Cnt = 1 To UBound(TorihikisakiMeishoAry)
SpInputOption(6) = SpInputOption(6) & ""' & vbCrLf
Next
' SpInputValue(7) = FuridasiUragakininName 'フォーム初期値
SpInputOption(7) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(7) = SpInputOption(7) & ""' & vbCrLf
For Cnt = 1 To UBound(TorihikisakiMeishoAry)
SpInputOption(7) = SpInputOption(7) & ""' & vbCrLf
Next
SpInputValue(8) = Furidasibi 'フォーム初期値
SpInputValue(9) = Mankibi 'フォーム初期値
' SpInputValue(10) = SiharaibasyoName 'フォーム初期値
SpInputOption(10) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(10) = SpInputOption(10) & ""' & vbCrLf
For Cnt = 1 To UBound(GinkoMeishoAry)
SpInputOption(10) = SpInputOption(10) & ""' & vbCrLf
Next
SpInputValue(11) = Tenmatubi 'フォーム初期値
SpInputValue(12) = TenmatuTekiyo 'フォーム初期値
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される
If 0=1 Then
Response.Write("" & vbCrLf)
Response.Write("| " & SetTimeMMDD(Torihikibi) & " | " & vbCrLf)
Response.Write("" & HardWrap(Tekiyo) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku , false, false) & " | " & vbCrLf)
Response.Write("" & TegataSyuruiName & " | " & vbCrLf)
Response.Write("" & TegataNo & " | " & vbCrLf)
Response.Write("" & SiharaiUketorininName & " | " & vbCrLf)
Response.Write("" & FuridasiUragakininName & " | " & vbCrLf)
Response.Write("" & SetTimeMMDD(Furidasibi) & " | " & vbCrLf)
Response.Write("" & Mankibi & " | " & vbCrLf)
Response.Write("" & SiharaibasyoName & " | " & vbCrLf)
Response.Write("" & SetTimeMMDD(Tenmatubi) & " | " & vbCrLf)
Response.Write("" & HardWrap(TenmatuTekiyo) & " | " & vbCrLf)
Response.Write(" ")
End If
ii = ii + 1
Content.MoveNext
Loop
'スプレッドシートの空白行を発生させる
If Shiwakebi = "1" Then
SpInputOption(1) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(1) = SpInputOption(1) & ""' & vbCrLf
For Cnt = 1 To UBound(ShiwakebiAry)
SpInputOption(1) = SpInputOption(1) & ""' & vbCrLf
Next
Else
SpInputValue(1) = "" 'フォーム初期値
End If
SpInputValue(2) = "" 'フォーム初期値
SpInputValue(3) = "" 'フォーム初期値
SpInputOption(4) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(4) = SpInputOption(4) & ""' & vbCrLf
SpInputOption(4) = SpInputOption(4) & ""' & vbCrLf
SpInputOption(4) = SpInputOption(4) & ""' & vbCrLf
SpInputValue(5) = "" 'フォーム初期値
SpInputOption(6) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(6) = SpInputOption(6) & ""' & vbCrLf
For Cnt = 1 To UBound(TorihikisakiMeishoAry)
SpInputOption(6) = SpInputOption(6) & ""' & vbCrLf
Next
SpInputOption(7) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(7) = SpInputOption(7) & ""' & vbCrLf
For Cnt = 1 To UBound(TorihikisakiMeishoAry)
SpInputOption(7) = SpInputOption(7) & ""' & vbCrLf
Next
SpInputValue(8) = "" 'フォーム初期値
SpInputValue(9) = "" 'フォーム初期値
SpInputOption(10) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(10) = SpInputOption(10) & ""' & vbCrLf
For Cnt = 1 To UBound(GinkoMeishoAry)
SpInputOption(10) = SpInputOption(10) & ""' & vbCrLf
Next
SpInputValue(11) = "" 'フォーム初期値
SpInputValue(12) = "" 'フォーム初期値
For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される
SpMaxRow = Cnt
Next
%>
|
|
※入力行が足りない場合は一度「保存」してください
|
<% End If %>
|
|