<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :商品在庫の照会 ' 作成日:2002/10/24 ' 作成者:山崎 ' 目的 :商品在庫の照会画面を表示する。 ' 概要 : ' <<表示>> ' ・商品在庫の照会 '################################################ '--> ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Syuryobi Syuryobi = Request("Syuryobi") Dim RouteType RouteType = Request("RouteType") IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim Query Dim Content Dim SoukoRiyo Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SoukoRiyo = "" & Content.Fields("倉庫部利用") End If Dim PageType Dim Label If RouteType = "Zairyo" Then PageType = "材料在庫" Label = "材料" Else PageType = "商品在庫" Label = "商品" End If %> <html> <% = HtmlHeader("sj3tyoboblack") %> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 1; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form OnKeyDown="FormKeyDown(this)" name="form1" method="GET" action="rm_syohinzaiko.asp" target="_top" autocomplete="off"> <input type="hidden" name="RouteType" value="<% = RouteType %>"> <% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "社長室・総務部", "", "履歴", "", PageType, "", "", "", "", "")) ElseIf RouteType = "Seihin" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", PageType, "", "", "", "", "")) ElseIf RouteType = "Zairyo" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", PageType, "", "", "", "", "")) ElseIf RouteType = "Souko" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "倉庫部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s7.asp')", PageType, "", "", "", "", "")) ElseIf RouteType = "Shiire" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "仕入部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s3.asp')", PageType, "", "", "", "", "")) Else'If RouteType = "Hanbai" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", PageType, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("入出庫履歴", "syokaibtn()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <TABLE BORDER="0" CELLSPACING="5" WIDTH="680" HEIGHT="100%" bgcolor="#ffffff" style="border:1px solid #000000"> <TR> <TD ALIGN="CENTER" height="30"> <TABLE BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>" BORDER="0" CELLSPACING="3" CELLPADDING="0" WIDTH="680" HEIGHT="100%" bordercolor="#111111"> <TR> <TD ALIGN="CENTER" height="30"> <table width="600" height="30" border="0" cellpadding="0" cellspacing="0" CLASS="tx1416"> <tr> <td align="center"> <input type="text" name="Syuryobi" size="11" value="<% = Syuryobi %>" onBlur="SetDate(this, 1, true)" class="tbox4"> 時点の在庫を表示 </td> <td> <TABLE onClick="SubmitReal(form1);" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1"> <TR> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"> </TD> <TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" WIDTH="60">再集計</TD> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"> </TD> </TR> </TABLE> </td> <td align="center"> </td> </tr> </table> </TD> </TR> <TR> <TD ALIGN="CENTER"> <TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%"> <TR> <TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="500"> <TABLE WIDTH="450" HEIGHT="20" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#DDDDDD" CLASS="tx1416" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER"> <TD HEIGHT="20"><% = Label %>名</TD> <TD WIDTH="100" HEIGHT="20">在庫数</TD> <!-- <TD WIDTH="60" HEIGHT="20">在庫数</TD> <TD WIDTH="100" HEIGHT="20">在庫金額</TD> --> </TR> </TABLE> </TD> <TD> </TD> </TR> <TR> <TD VALIGN="TOP"> <DIV ID="Layer1" STYLE="position:relative; left:0px; top:-1px; width:470px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;"> <TABLE ID="List" WIDTH="450" BORDER="1" CELLSPACING="0" CELLPADDING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1416" STYLE="border-collapse: collapse;cursor: hand;"> <% Dim i Dim RowCount, RowBreakNum Dim ii, jj ii = 0 RowCount = 0 RowBreakNum = 5 If RouteType = "Zairyo" Then Query = "exec SPR材料入出庫在庫 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Syuryobi & "'" ElseIf RouteType = "Seihin" Then Query = "exec SPR製品入出庫在庫 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Syuryobi & "'" Else Query = "exec SPR入出庫在庫 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Syuryobi & "'" End If Set Content = OpenQuery(Query) Dim KarikataZandakaTotal, KashikataZandakaTotal Dim KarikataKingakuTotal, KashikataKingakuTotal KarikataZandakaTotal = 0 KashikataZandakaTotal = 0 KarikataKingakuTotal = 0 KashikataKingakuTotal = 0 Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 Dim SyohinCD, ZaikoKingaku, ZaikoSu Dim NyukoKingaku, NyukoSu , NyukoTanka SyohinCD = Content.Fields("商品CD") NyukoSu = Content.Fields("入庫数") NyukoKingaku= Content.Fields("入庫金額") '##### For Debug 'Response.Write("*** EXEC Query Start ***<br>") 'Response.Write("SyohinCD :" & SyohinCD & "<br>") 'Response.Write("KaisyaCD :" & KaisyaCD & "<br>") 'Response.Write("Syuryobi :" & Syuryobi & "<br>") 'Response.Write("NyukoSu :" & NyukoSu & "<br>") 'Response.Write("NyukoKingaku:" & NyukoKingaku & "<br>") 'Response.Write("NyukoTanka :" & NyukoTanka & "<br>") If IsNull(NyukoSu) or NyukoSu= "" Then Nyukosu = 0 End If If IsNull(NyukoKingaku) or NyukoKingaku = "" Then NyukoKingaku = 0 End If If NyukoSu <> 0 Then NyukoTanka = NyukoKingaku / NyukoSu Else NyukoTanka = 0 End If ZaikoSu = Content.Fields("在庫数") '##### For Debug 'Response.Write("*** Zaikosu Display ***<br>") 'Response.Write("ZaikoSu :" & ZaikoSu & "<br>") '''''''' ZaikoKingaku = ZaikoSu Content.Fields("在庫金額") '''''''' ZaikoKingaku = ZaikoSu * Int(NyukoTanka) '##### For Debug 'Response.Write("*** ZaikoKinaku Calculation ***<br>") 'Response.Write("SyohinCD :" & SyohinCD & "<br>") 'Response.Write("KaisyaCD :" & KaisyaCD & "<br>") 'Response.Write("Syuryobi :" & Syuryobi & "<br>") ZaikoKingaku = NyusyukoZaikoKingaku(EnshuCD, KaisyaCD, SyohinCD, Syuryobi) Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'" & SyohinCD & "')"" onDblClick=""syokaibtn();"">" & vbCrLf) If RouteType = "Zairyo" Then Response.Write("<td height=""30"" align=""center"">" & ConvZairyoMeisyo(SyohinCD) & "</td>") Else Response.Write("<td height=""30"" align=""center"">" & ConvSyohinMeisyo(SyohinCD) & "</td>") End If Response.Write("<td width=""100"" align=""right"">" & ConvIntToMoney(ZaikoSu , false, false) & " </td>") ' Response.Write("<td width=""60"" align=""right"">" & ConvIntToMoney(ZaikoSu , false, false) & "</td>") ' Response.Write("<td width=""100"" align=""right"">" & ConvIntToMoney(ZaikoKingaku , false, false) & "</td>") Response.Write("</tr>" & vbCrLf) ii = ii + 1 Content.MoveNext Loop %> </TABLE> </DIV> </TD> <TD valign="top" id="SyohinSetsumei"> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </div> </form> </body> <% = HtmlFooter %> <SCRIPT LANGUAGE="JavaScript"> //################################################ // 名称:ConvSyohinGazoFile // 目的:商品画像ファイルの表示 // 作成:2003/10/3 川崎 // 概要:TS商品Mの:商品画像ファイルを返す。 //################################################ function ConvSyohinGazoFile(SyohinCD) { <% Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Dim ImageFile ImageFile = "" If Content.Fields("画像ファイル") <> "" Then ImageFile = Fgoods & "/" & EnshuCD & "/" & Content.Fields("画像ファイル") End If Response.Write("if(SyohinCD == """ & Content.Fields("商品CD") & """)return """ & ImageFile & """;" & vbCrLf) Content.MoveNext Loop %> return ""; } var SyohinCD SyohinCD = "#" function syokaibtn() { if(SyohinCD == "#") { alert("選択されていません"); } else { tblbtn("fk_syohinaridakatyo_view.asp?RouteType=<% = RouteType %>&SyohinCD=" + SyohinCD + "&Syuryobi=<% = Syuryobi %>"); } } //TRselect & URLset function celsel(rw,lsParam) { for (k=0; k<document.getElementById("List").rows.length; k++) { document.getElementById("List").rows[k].style.backgroundColor =""; }//セル色クリア document.getElementById("List").rows[rw].style.backgroundColor ="#ffcdde";//選択行色変更 SyohinCD = lsParam; GazoFile = ConvSyohinGazoFile(SyohinCD); SyohinMeisyo = ConvSyohinRyakuMeisyo(SyohinCD); tmp = "" if(SyohinCD != "" && GazoFile != "") { tmp = "<TABLE BORDER='0' width='100%' CELLSPACING='0' CELLPADDING='0' class='tx1416'>\r\n"; tmp = tmp + "<tr><td>" + SyohinMeisyo + "の説明</td></tr>\r\n"; if(GazoFile != "") { tmp = tmp + "<tr><td>商品画像:<br><img width='120' height='90' src='" + GazoFile + "'></td></tr>\r\n"; } tmp = tmp + "</table>" } document.all.SyohinSetsumei.innerHTML = tmp; } //################################################ function ConvSyohinRyakuMeisyo(SyohinCD) { <% Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("if(SyohinCD == """ & Content.Fields("商品CD") & """)return """ & Content.Fields("商品略名称") & """;" & vbCrLf) Content.MoveNext Loop %> return ""; } </SCRIPT> </html> <% End Sub %>