<% If Mode <> "Seizo" Then %>
期首現金設定
期首銀行設定
銀行口座
金額
<% 'If GB_Admin >= 1 Then %>
削除
<% 'End If %>
<%
Dim KozaSyuruiSu, GinkoSoGokei
Dim RiyoGinkoKozaSyurui, RiyoGinkoKozaSu
Dim GinkoShijokanRiyo
GinkoSoGokei = 0
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
RiyoGinkoKozaSyurui = Content.Fields("利用銀行口座種類")
GinkoShijokanRiyo = "" & Content.Fields("銀行市場間利用")
End If
RiyoGinkoKozaSyurui = Replace(RiyoGinkoKozaSyurui, "0", "")
RiyoGinkoKozaSu = Len(RiyoGinkoKozaSyurui)
Dim KozaKubun(5)
For ii = 0 To RiyoGinkoKozaSu - 1
KozaKubun(ii) = Mid(RiyoGinkoKozaSyurui, ii + 1, 1)
Next
If GinkoShijokanRiyo <> "1" Then
'同一市場限定の場合
Query1 = "exec SPM会社市場一覧2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
Else
Query1 = "exec SPM会社全部一覧2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
End If
' Set Content1 = OpenQuery(Query1)
'銀行数×口座種類数=フォーム数とする
Set Content = OpenQuery(Query1)
KozaSyuruiSu = 0
Do While Not(Content.BOF Or Content.EOF)
' If GB_Admin >= 1 Or (GB_Admin = 0 And Content.Fields("市場CD") = GB_ShijyoCD) Then
If Content.Fields("業種CD") = "B" Then
KozaSyuruiSu = KozaSyuruiSu + RiyoGinkoKozaSu
End If
' End If
Content.MoveNext
Loop
'口座一覧の取得
QueryKoza = "exec SPB銀行口座一覧4 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set ContentKoza = OpenQuery(QueryKoza)
ii = 0
Dim aa,bb,cc,dd
Dim SakujoFlg
For ii = 1 To KozaSyuruiSu
Response.Write("" & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write(" " & vbCrLf)
NumGinko = NumGinko + 1
Set Content1 = OpenQuery(Query1)
SakujoFlg = 1
bCheck = 0
Kingaku = 0
Do While Not(Content1.BOF Or Content1.EOF)
' If GB_Admin >= 1 Or (GB_Admin = 0 And Content1.Fields("市場CD") = GB_ShijyoCD) Then
If Content1.Fields("業種CD") = "B" Then
For kk = 0 To RiyoGinkoKozaSu - 1
Dim MyGinkoCD, MyKozaKubun
MyGinkoCD = ""
MyKozaKubun = ""
' If Not(ContentKoza.BOF Or ContentKoza.EOF) Then
' MyGinkoCD = ContentKoza.Fields("銀行CD")
' MyKozaKubun = ContentKoza.Fields("口座区分")
' End If
'すでに口座が作成されている口座区分を演習設定で利用不可に変えた場合の対処のため
'利用可能口座区分に該当するレコードまで進める(080513小野)
Do While Not(ContentKoza.BOF Or ContentKoza.EOF)
If InStr(RiyoGinkoKozaSyurui, "" & ContentKoza.Fields("口座区分")) > 0 Then
MyGinkoCD = ContentKoza.Fields("銀行CD")
MyKozaKubun = ContentKoza.Fields("口座区分")
Exit Do '合致したら抜ける
End If
ContentKoza.MoveNext
Loop
Response.Write("0のレコードがあれば口座の削除は行えないようにする(080513小野)
SakujoFlg = 0
End If
Content.MoveNext
Loop
Response.Write(" selected")
bCheck = 1
End If
Response.Write(">" & Content1.Fields("会社略名称") & " " & ConvKubunMeisyo("口座区分", KozaKubun(kk)) & " " & vbCrLf)
Next
End If
' End If
Content1.MoveNext
Loop
If bCheck = 1 Then
ContentKoza.MoveNext
End If
Response.Write(" " & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write(" " & vbCrLf)
Response.Write(" " & vbCrLf)
Response.Write("" & vbCrLf)
If GB_Admin >= 1 Or SakujoFlg = 1 Then
Response.Write(" " & vbCrLf)
End If
Response.Write(" " & vbCrLf)
Response.Write(" " & vbCrLf)
Next
%>
合計金額:
<% End If %>
<% If GB_Gyosyu <> "B" Then %>
期首<% = Label %>設定
<% If Mode <> "Seizo" Then %>
商品市場
全て表示
<%
Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("" & Content.Fields("市場名称") & " " & vbCrLf)
Content.MoveNext
Loop
Response.Write("市場非限定 " & vbCrLf)
%>
<% End If %>
<%
If Mode <> "Seizo" And GB_Gyosyu = "S" And Kitakuriyou = 1 And KitakuKeiyaku < 1 Then
If GB_Admin >= 1 Then
Response.Write("寄託倉庫会社が設定されておりません " & vbCrLf)
Else
Response.Write("倉庫会社との間で寄託契約を締結してください " & vbCrLf)
End If
Else
%>
<% If GB_IEmode = "1" Then %>
" onMouseOver="SubmitFlg=1" classid="clsid:41f841c1-ae16-11d5-8817-0050da6ef5e5" codebase="/<% = HomeAlias %>/binx/spr32x60.cab#version=1,1,1,1" id="vaSpread1" border="0">
<% Else %>
<%
Dim HeightCell
Dim WidthCell1 '商品
Dim WidthCell2 '定価
Dim WidthCell3 '数量
Dim WidthCell4 '単価
Dim WidthCell5 '金額
Dim WidthParent
HeightCell = 23
WidthCell1 = 210
WidthCell2 = 98
WidthCell3 = 98
WidthCell4 = 98
WidthCell5 = 126
WidthParent = 642
%>
<% = Label %>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準単価") End If %>
<% End If %>
個数
仕入単価
金額
<%
'スプレッドシート定義 ※全行共通なのでループ外
Dim SpMaxRow
Dim SpRowCnt
Dim SpMaxCol
SpRowCnt = 0
SpMaxRow = SpRowCnt
'フォーム名
SpFormName = "SpCell" '
'行定義
SpRowHeight = "23" '高さ(pixel指定)
SpRowCls = "" '行スタイルclass
SpRowStyle = "" '行スタイル
'列1定義
SpCellType(1) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン)
SpCellWidth(1) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(1) = "" 'セルスタイルclass
SpCellStyle(1) = "" 'セルスタイル
SpInputCls(1) = "Spread4L" 'フォームスタイルclass
SpInputStyle(1) = "" 'フォームスタイル
SpInputFocus(1) = "" 'onFocusで作動させるスクリプト
SpInputBlur(1) = "" 'onBlurで作動させるスクリプト
SpInputChange(1) = "SpChangeShohin();" 'onChangeで作動させるスクリプト
SpInputRO(1) = "" 'フォームreadonlyフラグ("1")
ii = 1
If HyojunTankaHyoji <> "0" Then '標準販売単価表示
'列2定義
ii = ii + 1
SpCellType(ii) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(ii) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(ii) = "" 'セルスタイルclass
SpCellStyle(ii) = "" 'セルスタイル
SpInputCls(ii) = "Spread4Rro" 'フォームスタイルclass
SpInputStyle(ii) = "" 'フォームスタイル
' SpInputFocus(ii) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputFocus(ii) = "this.blur();" 'onFocusで作動させるスクリプト
' SpInputBlur(ii) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
SpInputBlur(ii) = "" 'onBlurで作動させるスクリプト
SpInputChange(ii) = "" 'onChangeで作動させるスクリプト
SpInputRO(ii) = "1" 'フォームreadonlyフラグ("1")
End If
'列3定義
ii = ii + 1
SpCellType(ii) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(ii) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(ii) = "" 'セルスタイルclass
SpCellStyle(ii) = "" 'セルスタイル
SpInputCls(ii) = "Spread4R" 'フォームスタイルclass
SpInputStyle(ii) = "" 'フォームスタイル
SpInputFocus(ii) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(ii) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetKingaku();" 'onBlurで作動させるスクリプト
SpInputChange(ii) = "" 'onChangeで作動させるスクリプト
SpInputRO(ii) = "" 'フォームreadonlyフラグ("1")
'列4定義
ii = ii + 1
SpCellType(ii) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(ii) = WidthCell4 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(ii) = "" 'セルスタイルclass
SpCellStyle(ii) = "" 'セルスタイル
SpInputCls(ii) = "Spread4R" 'フォームスタイルclass
SpInputStyle(ii) = "" 'フォームスタイル
SpInputFocus(ii) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(ii) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetKingaku();" 'onBlurで作動させるスクリプト
SpInputChange(ii) = "" 'onChangeで作動させるスクリプト
SpInputRO(ii) = "" 'フォームreadonlyフラグ("1")
'列5定義
ii = ii + 1
SpCellType(ii) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(ii) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(ii) = "" 'セルスタイルclass
SpCellStyle(ii) = "" 'セルスタイル
SpInputCls(ii) = "Spread4Rro" 'フォームスタイルclass
SpInputStyle(ii) = "" 'フォームスタイル
' SpInputFocus(ii) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputFocus(ii) = "this.blur();" 'onFocusで作動させるスクリプト
' SpInputBlur(ii) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
SpInputBlur(ii) = "" 'onBlurで作動させるスクリプト
SpInputChange(ii) = "" 'onChangeで作動させるスクリプト
SpInputRO(ii) = "1" 'フォームreadonlyフラグ("1")
Dim SyohinSu, ShohinSogokei
Dim NyusyukoBango, QueryNyusyuko, ContentNyusyuko
ShohinSogokei = 0
If Mode = "Seizo" Then '製造部対応(080411小野)
QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'ZS'"
Else
QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'SS'"
End If
Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
If ContentNyusyuko.Fields("処理時期区分") = 0 Then
NyusyukoBango = ContentNyusyuko.Fields("文書内容CD")
End If
ContentNyusyuko.MoveNext
Loop
If Mode = "Seizo" Then '製造部対応(080411小野)
QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'ZS', '" & NyusyukoBango & "'"
Else
QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'SS', '" & NyusyukoBango & "'"
End If
Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
ShohinSogokei = ShohinSogokei + ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価")
Dim SyohinTmp
Dim TankaTmp
'運用管理の場合は学生番号を一時入れ替え(080415小野)
If GB_Admin >= 1 Then
Tmp2GakuseiNo = GB_GakuseiNo
GB_GakuseiNo = TmpGakuseiNo
End If
If Mode = "Seizo" Then '製造部対応(080411小野)
SyohinTmp = ConvZairyoMeisyo(ContentNyusyuko.Fields("商品CD"))
TankaTmp = ConvZairyoHanbaiTanka(ContentNyusyuko.Fields("商品CD"))
Else
SyohinTmp = ConvSyohinMeisyo(ContentNyusyuko.Fields("商品CD"))
TankaTmp = ConvSyohinHanbaiTanka(ContentNyusyuko.Fields("商品CD"))
End If
'運用管理の場合は学生番号を戻す(080415小野)
If GB_Admin >= 1 Then
GB_GakuseiNo = Tmp2GakuseiNo
End If
'スプレッドシート行生成 ※此処で値のみ代入
SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
SpMaxRow = SpRowCnt
SpInputOption(1) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(1) = SpInputOption(1) & " "' & vbCrLf
For Cnt = 1 To UBound(ShohinMeishoAry)
SpInputOption(1) = SpInputOption(1) & "" & ShohinMeishoAry(Cnt) & " "' & vbCrLf
Next
ii = 1
If HyojunTankaHyoji <> "0" Then '標準販売単価表示
ii = ii + 1
SpInputValue(ii) = ConvIntToMoney(TankaTmp, false, false) 'フォーム初期値
End If
ii = ii + 1
SpInputValue(ii) = ConvIntToMoney(ContentNyusyuko.Fields("数量"), false, false) 'フォーム初期値
ii = ii + 1
SpInputValue(ii) = ConvIntToMoney(ContentNyusyuko.Fields("単価"), false, false) 'フォーム初期値
ii = ii + 1
SpInputValue(ii) = ConvIntToMoney(ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価"), false, false) 'フォーム初期値
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される
If 0=1 Then
%>
<%
If AscLen(SyohinTmp) > 31 Then
SyohinTmp = AscLeft(SyohinTmp,31) '商品名称を19byteで切捨て(061027小野)
End If
%>
<% = SyohinTmp %>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<% = ConvIntToMoney(TankaTmp, false, false) %>
<% End If %>
<% = ConvIntToMoney(ContentNyusyuko.Fields("数量"), false, false) %>
<% = ConvIntToMoney(ContentNyusyuko.Fields("単価"), false, false) %>
<% = ConvIntToMoney(ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価"), false, false) %>
<%
End If
ContentNyusyuko.MoveNext
Loop
SpInputOption(1) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(1) = SpInputOption(1) & " "' & vbCrLf
For Cnt = 1 To UBound(ShohinMeishoAry)
SpInputOption(1) = SpInputOption(1) & "" & ShohinMeishoAry(Cnt) & " "' & vbCrLf
Next
' SpInputOption(1) = SpInputOption(1) & "その他の商品 "' & vbCrLf
SpInputValue(2) = "" 'フォーム初期値
SpInputValue(3) = "" 'フォーム初期値
SpInputValue(4) = "" 'フォーム初期値
SpInputValue(5) = "" 'フォーム初期値
For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される
SpMaxRow = Cnt
Next
%>
<% = Label %>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準単価") End If %>
<% End If %>
個数
仕入単価
金額
※入力行が足りない場合は一度「保存」してください
<% End If %>
<%
End If
%>
<% If 0=1 And Mode = "Seizo" Then '期首製品は不要(常に商品になる)なので停止。いずれ期首仕掛品を作るかもしれない %>
<% End If %>
<% End If %>