<%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Cnt
Dim PageType 'ページの種類 "仕入" or "売上"かを判定
Dim SyohinCD , Shohinmei , ShohinRyakumei '商品コード、商品名称、商品略名称
Dim HanbaiTanka , ShireTnanka , UnsoTanka '標準販売単価、標準仕入単価、運送費単価
Dim SokoryoTanka , Jyuryo , Yoseki '倉庫料単価、重量、容積
Dim Bikou '備考
Dim GazoFile
Dim Tani
Dim Lot
Dim SyohinKubun
Dim ShijyoCD, SyoyuKaisyaCD
Dim ii
Dim Query
Dim Content
PageType= Request("Pagetype")
SyohinCD = Request("SyohinCD")
SyohinKubun = Request("SyohinKubun")
Dim Mode
Mode = Request("Mode")
Dim Title
If SyohinKubun = "Z" Then
Title = "材料"
Else
Title = "商品"
End If
Dim GakuseiBango
If Session(HomeAlias & "EnshuKubun") = "P" AND GB_JisyaFlag = "0" Then
Else
GakuseiBango = GB_GakuseiNo
End If
'演習名称ＧＥＴ
' Dim EnshuName
' EnshuName = ConvEnshuMeisyo(EnshuCD)
If SyohinCD <> "" Then
Query = "exec SPM" & Title & "取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & SyohinCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
ShijyoCD = Content.Fields("市場CD")
Shohinmei = Content.Fields("" & Title & "名称")
ShohinRyakumei = Content.Fields("" & Title & "略名称")
HanbaiTanka = Content.Fields("標準販売単価")
ShireTnanka = Content.Fields("標準仕入単価")
UnsoTanka = Content.Fields("運送料単価")
SokoryoTanka = Content.Fields("倉庫料単価")
Jyuryo = Content.Fields("" & Title & "重量")
Yoseki = Content.Fields("" & Title & "容積")
Bikou = Content.Fields("備考")
GazoFile = Content.Fields("画像ファイル")
Tani = Content.Fields("単位")
Lot = Content.Fields("ロット")
SyoyuKaisyaCD = Content.Fields("所有会社CD")
End If
End If
'材料配列作成
Dim ZairyoCDAry
ReDim ZairyoCDAry(0)
Dim ZairyoAry
ReDim ZairyoAry(0)
Dim ZairyoTankaAry
ReDim ZairyoTankaAry(0)
Query = "exec SPM材料一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GB_GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("所有会社CD") = KaisyaCD Or "" & Content.Fields("所有会社CD") = "" Then '他社開発材料は除く
ReDim PreServe ZairyoCDAry(UBound(ZairyoCDAry) + 1)
ZairyoCDAry(UBound(ZairyoCDAry)) = "" & Content.Fields("材料CD")
ReDim PreServe ZairyoAry(UBound(ZairyoAry) + 1)
ZairyoAry(UBound(ZairyoAry)) = "" & Content.Fields("材料名称")
ReDim PreServe ZairyoTankaAry(UBound(ZairyoTankaAry) + 1)
ZairyoTankaAry(UBound(ZairyoTankaAry)) = "" & Content.Fields("標準仕入単価")
End If
Content.MoveNext
Loop
Dim jj,tmps
%>
<% = HtmlHeader("") %>
<% If GB_IEmode <> "1" Then %>
<% Else 'IEモード %>
<% End If %>
<% = HtmlFooter %>
<%
End Sub
%>