<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :商品一覧の印刷画面 ' 作成日 :2002/9/6 ' 作成者 :徳田 ' 目的 :商品Mの一覧印刷画面を表示する。 ' 概要 : ' :[080314小野]材料マスタモードを追加 '################################################ '--> ' ' %> <% main() Sub main() Dim i Dim PageType PageType = Request("PageType") MaxPage = 100 Dim Mode Mode = Request("Mode") Dim ShijoCD ShijoCD = Request("ShijoCD") Dim SyohinCD2 Dim SyohinKubun SyohinCD2 = Request("SyohinCD") SyohinKubun = Request("SyohinKubun") Dim GenkaKaikeiRiyo Dim ShohizeiMode ShohizeiMode = TaxRateSelection 'include_stasicのグローバル変数 Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用") If Content.Fields("消費税") <= 0 Then ShohizeiMode = 0 '内税の場合は消費税率マスタ非利用に上書き End If End If %> <html> <% = HtmlHeader("") %> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 0; //印刷余白指定(ミリ指定) PrintTopMargin = 20; PrintLeftMargin = 13; // PrintTopMargin = 0; // PrintLeftMargin = 0; --> </SCRIPT> <body onload="<% = PrintOnLoad %>" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% = PrintScriptX %> <% Dim Title If Mode = "Zairyo" Then Title = "材料" Else Title = "商品" End If Dim RowBreakNum, RowCount Dim Page If PackageMode = "1" Then RowBreakNum = 30 Else RowBreakNum = 5 End If RowCount = 0 Dim Query Dim Content Dim ii, jj ii = 0 Query = "exec SPM" & Title & "一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %> <table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%"> <tr> <td valign="top" align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="100%" width="100%" valign="top"> <% Response.Write(PrintHeader(0, Title & "マスター")) %> <% 'PackageMode = "1" %> <% 'TaxRateSelection = 0 %> <TABLE WIDTH="700" BORDER="1" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="border-collapse: collapse" BORDERCOLOR="#000000" CLASS="tx1416"> <% Dim ImageFile, Tani Dim Lot Dim SyohinCD, Shohinmei , ShohinRyakumei '商品コード、商品名称、商品略名称 Dim HanbaiTanka , ShireTnanka , UnsoTanka '標準販売単価、標準仕入単価、運送費単価 Dim SokoryoTanka , Jyuryo , Yoseki '倉庫料単価、重量、容積 Dim Bikou '備考 Dim ShijyoCD, SyoyuKaisyaRyakuMeisyo, SyoyuKaisyaCD '市場コード、所有会社略名、所有会社コード Dim TaxRate Dim ShijyoA, ShijyoB Dim iiDef ii = 0 iiDef = -1 Dim LoopFlg If Mode = "BuhinTenkai" Then 'LoopFlg = 2 LoopFlg = 1 '多段製造機能は廃止。部品展開・経費労務費の対象は製品のみ。 Else LoopFlg = 1 End If For jj = 1 To LoopFlg If jj = 2 Then Title = "材料" End If ' Query = "exec SPM" & Title & "一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" ' Set Content = OpenQuery(Query) 'Response.Write(Query) 'Exit Sub Do While Not(Content.BOF Or Content.EOF) If ShijoCD = "" Or "" & Content.Fields("市場CD") = ShijoCD Or (ShijoCD = "higenteietnegih" And "" & Content.Fields("市場CD") = "") Then If Mode <> "BuhinTenkai" Or (SyohinKubun = "S" And Title = "商品") Or (SyohinKubun = "Z" And Title = "材料") Then If SyohinCD2 = Content.Fields("" & Title & "CD") Then iiDef = ii End If End If SyohinCD = Content.Fields("" & Title & "CD") If GB_GakuseiNo <> "" Then SyohinCD = Replace(SyohinCD, "-" & GB_GakuseiNo, "") End If Shohinmei = Content.Fields("" & Title & "名称") ShohinRyakumei = Content.Fields("" & Title & "略名称") HanbaiTanka = ConvIntToMoney(Content.Fields("標準販売単価"),false,false) ShireTnanka = ConvIntToMoney(Content.Fields("標準仕入単価"),false,false) UnsoTanka = ConvIntToMoney(Content.Fields("運送料単価"),false,false) SokoryoTanka = ConvIntToMoney(Content.Fields("倉庫料単価"),false,false) Jyuryo = ConvIntToMoney(Content.Fields("" & Title & "重量"),false,false) Yoseki = ConvIntToMoney(Content.Fields("" & Title & "容積"),false,false) Bikou = Content.Fields("備考") ImageFile = "" If Content.Fields("画像ファイル") <> "" Then ImageFile = Fgoods & "/" & EnshuCD & "/" & Content.Fields("画像ファイル") End If Tani = Content.Fields("単位") Lot = Content.Fields("ロット") ShijyoCD = Content.Fields("市場CD") SyoyuKaisyaRyakuMeisyo = Content.Fields("所有会社略名称") SyoyuKaisyaCD = Content.Fields("所有会社CD") TaxRate = Content.Fields("標準消費税率") If ShijyoCD <> "" Then ShijyoA = "市場" ShijyoB = "" & Content.Fields("市場名称") If ShijyoB = "" Then 'ShijyoB = "<span class=""tx1012""><font color=""#ff0000"">設定された<BR>市場が存在<BR>しません</font></span>" ShijyoB = "<span class=""tx1012""><font color=""#ff0000"">市場コード<BR>[ <B>" & ShijyoCD & "</B> ]<BR>の市場が<BR>存在しません</font></span>" End If Else ShijyoA = "製造会社" ShijyoB = SyoyuKaisyaRyakuMeisyo End If '製造部では自社企画及びマスターを表示 '商品企画室では自社商品のみ表示 ' If (PageType <> "Original" And PageType <> "SeizoBu") Or (PageType = "SeizoBu" And (SyoyuKaisyaCD = KaisyaCD Or SyoyuKaisyaCD = "")) Or (PageType = "Original" And SyoyuKaisyaCD = KaisyaCD) Then '製造部・商品企画室では自社商品・材料のみ表示 If (PageType <> "Original" And PageType <> "SeizoBu") Or ((PageType = "SeizoBu" Or PageType = "Original") And SyoyuKaisyaCD = KaisyaCD) Then RowCount = RowCount + 1 Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'fm_") If Mode = "BuhinTenkai" Then Response.Write("buhintenkai") Else Response.Write("shohin") End If Response.Write("_view.asp?SyohinCD=" & Content.Fields("" & Title & "CD") & "&SyohinKubun=") If Title = "材料" Then Response.Write("Z") Else Response.Write("S") End If Response.Write("')"" onDblClick=""syokaibtn()"">" & vbCrLf) If PackageMode = "1" Then %> <td align="center" width="60"><% = SyohinCD %></td> <td align="center" height="23"> <% = Shohinmei %> </td> <td align="center" width="170"> <%= ShohinRyakumei %> </td> <td align="right" width="110"> <% = HanbaiTanka %> </td> <% If ShohizeiMode = 1 Then %> <td align="right" width="70"> <% = TaxRate %> </td> <% End If Else %> <td> <table border="0" width="700" cellspacing="0" cellpadding="0"> <!-- <tr> <td height="10" colspan="2" bgcolor="#CCCCCC"> <TABLE WIDTH="100%" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1214" STYLE="border-collapse: collapse"> <tr> <td align="center" width="110"><% = Title %>コード</td> <td align="center"><% = SyohinCD %></td> </tr> </table> </td> </tr> --> <tr> <td> <TABLE WIDTH="100%" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1416" STYLE="border-collapse: collapse"> <tr bgcolor="#dddddd"> <td align="center" height="27" CLASS="tx1214"><nobr><% = Title %>CD</nobr></td> <td align="center" width="280"><% = Title %>名称</td> <td align="center" width="140"><% = Title %>略名称</td> <td align="center" width="100"><% = ShijyoA %></td> </tr> <tr> <td align="center" height="31" CLASS="tx1214"><nobr><% = SyohinCD %></nobr></td> <td align="center"><% = HardWrap(Shohinmei) %></nobr></td> <td align="center"><nobr><%= ShohinRyakumei %></nobr></td> <td align="center"><nobr><% = ShijyoB %></nobr></td> </tr> </table> </td> <td width="120" rowspan="2"> <TABLE width="122" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1416" STYLE="border-collapse: collapse"> <tr> <td align="center" height="27" bgcolor="#dddddd"><% = Title %>画像</td> </tr> <tr> <td width="120" height="91"><% If ImageFile <> "" Then %><img src="<% = ImageFile %>" width="120" height="90" border="0"><% Else %> <% End If %></td> </tr> </table> </td> </tr> <tr> <td> <TABLE WIDTH="100%" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1315" STYLE="border-collapse: collapse"> <tr bgcolor="#dddddd"> <td align="center" height="27" width="16%"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準販売単価") End If %></td> <% If ShohizeiMode = 1 Then %> <td align="center" width="8%">税率</td> <% End If %> <td align="center" width="16%">標準仕入単価</td> <td align="center" width="13%">運送料単価</td> <td align="center" width="13%">倉庫料単価</td> <td align="center" width="11%"><% = Title %>重量</td> <td align="center" width="11%"><% = Title %>容積</td> <td align="center">単位</td> <% If PageType = "SeizoBu" Then %> <td align="center" width="8%">ロット</td> <% End If %> </tr> <tr> <td align="right" height="31"><% = HanbaiTanka %></td> <% If ShohizeiMode = 1 Then %> <td align="right"><% = TaxRate %></td> <% End If %> <td align="right"><% = ShireTnanka %></td> <td align="right"><% = UnsoTanka %></td> <td align="right"><% = SokoryoTanka %></td> <td align="right"><% = Jyuryo %></td> <td align="right"><% = Yoseki %></td> <td align="center"><% = Tani %></td> <% If PageType = "SeizoBu" Then %> <td align="right"><% = Lot %></td> <% End If %> </tr> </table> </td> </tr> <tr> <td colspan="2"> <TABLE WIDTH="100%" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" CLASS="tx1416" STYLE="border-collapse: collapse"> <tr> <td align="center" width="60" height="27" bgcolor="#dddddd">備考</td> <td align="center"><% = Bikou %></td> </tr> </table> </td> </tr> </table> </td> <% End If Response.Write("</tr>") ii = ii + 1 End If End If Content.MoveNext If RowCount <> 0 And (RowCount Mod RowBreakNum = 0) Then '終端判定のため次の同一市場商品が発生するまで行送りする(市場限定の場合) Do While Not(Content.BOF Or Content.EOF) If ShijoCD = "" Or "" & Content.Fields("市場CD") = ShijoCD Or (ShijoCD = "higenteietnegih" And "" & Content.Fields("市場CD") = "") Then Exit Do End If Content.MoveNext Loop Exit Do End If Loop Next %> </TABLE> <% Response.Write(PrintFooter()) %> </td> </tr> </table> </td> </tr> </table> <% If (Content.BOF Or Content.EOF) Then Exit For End If Next %> </body> </html> <% End Sub %>