<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :製造指図書一覧(製品一覧) ' 作成日 :2008/3/31 ' 作成者 :小野 ' 目的 :製造指図書の一覧画面を表示する。 ' 概要 : ' 修正変更:(08/05/01:小野)商社部門出庫モードのための製品一覧モードを追加 '################################################ '--> ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim Mode Mode = Request("Mode") Dim GenkaHyo GenkaHyo = Request("GenkaHyo") Dim Label If Mode = "Shukko" Then Label = "製品" ElseIf Mode = "Shikakari" Then Label = "仕掛品" Else Label = "製造完了" End If %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis"> <meta http-equiv="Pragma" content="no-cache"> <meta http-equiv="Cache-Control" content="no-cache"> <meta http-equiv="Expires" content="-1"> <link href="/<% = HomeAlias %>/binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <link href="/<% = HomeAlias %>/binx/sj3tyobored.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <title><% = AppTitle %></title> <script language="JScript" src="/<% = HomeAlias %>/include.js?<% = TimeUniq() %>"></script> <script language="JScript" src="/<% = HomeAlias %>/includesj.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="/<% = HomeAlias %>/include_enc.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="/<% = HomeAlias %>/includesj_enc.js?<% = TimeUniq() %>"></script> <script type=""text/javascript"" src="/<% = HomeAlias %>/javascript.js?<% = TimeUniq() %>"></script> </head> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 1; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If GenkaHyo = "1" 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')", "原価計算表", "", "", "", "", "")) ElseIf Mode = "Shukko" 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')", "製品出庫", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", "製造指図書", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "", "", "", "", "", "", "", "")) If Mode = "Shukko" Then Response.Write(HttpL3_2("戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "出庫一覧", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=MU')", "", "", "", "", "", "")) ElseIf Mode = "Shikakari" Then If GenkaHyo = "1" Then Response.Write(HttpL3_2("製造完了一覧", "tblbtn('fd_seizosashizusho_ichiran.asp?Mode=Seihin&GenkaHyo=1')", "戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("追加", "tblbtn('" & Replace(Request.ServerVariables("SCRIPT_NAME"), "_ichiran.asp", ".asp") & "')", "製造完了一覧", "tblbtn('fd_seizosashizusho_ichiran.asp?Mode=Seihin')", "戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "", "", "", "")) End If Else If GenkaHyo = "1" Then Response.Write(HttpL3_2("仕掛品一覧", "tblbtn('fd_seizosashizusho_ichiran.asp?Mode=Shikakari&GenkaHyo=1')", "戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("仕掛品一覧", "tblbtn('fd_seizosashizusho_ichiran.asp?Mode=Shikakari')", "戻る", "tblbtn('/" & HomeAlias & "/user/bk/menu_s6.asp')", "", "", "", "", "", "")) End If End If If GenkaHyo = "1" Then Response.Write(HttpL4("原価計算表", Label & "一覧表示")) ElseIf Mode = "Shukko" Then Response.Write(HttpL4("商社部門へ出庫", Label & "一覧表示")) Else Response.Write(HttpL4("製造指図書", Label & "一覧表示")) End If %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="680" HEIGHT="100%"> <TR> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif" valign="top"> <TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%"> <TR> <TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600"> <TABLE WIDTH="600" HEIGHT="20" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER"> <TD WIDTH="20" HEIGHT="20"> </TD> <TD WIDTH="100" HEIGHT="20">製造<% If Mode = "Shikakari" Then Response.Write("開始") End If %>日</TD> <TD HEIGHT="20">商品</TD> <TD WIDTH="110" HEIGHT="20">ロット</TD> <!-- <TD WIDTH="110" HEIGHT="20">単価</TD> --> </TR> </TABLE> </TD> </TR> <TR> <TD VALIGN="TOP"> <DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:620px; height:100%; z-index:1; border: 1px none #000000; overflow: auto; cursor: hand;"> <TABLE ID="List" WIDTH="600" BORDER="1" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="border-collapse: collapse" BORDERCOLOR="#000000"> <% Dim Query Dim Content Dim Query2 Dim Content2 Dim Content3 Dim Syoribi Dim MinusSuryo Dim TmpBunsyoNaiyoCD Dim ii, jj ii = 0 Query = "exec SPD製造指図書一覧 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If TmpBunsyoNaiyoCD <> Content.Fields("文書内容CD") Then TmpBunsyoNaiyoCD = Content.Fields("文書内容CD") MinusSuryo = 0 '製品出庫モードの場合はすでに出庫された数量をMinusSuryoに算出する If Mode = "Shukko" And Content.Fields("製造状況区分") = "MS" Then Query = "exec SPD入出庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'MU'" Set Content2 = OpenQuery(Query) Do While Not(Content2.BOF Or Content2.EOF) '先方書類が当該入庫に該当する出庫の数量をMinusSuryoに算出 If Content2.Fields("先方文書種類CD") = Content.Fields("製造状況区分") And Content2.Fields("先方文書内容CD") = Content.Fields("文書内容CD") Then Query = "exec SPD入出庫取得2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'MU', '" & Content2.Fields("文書内容CD") & "'" Set Content3 = OpenQuery(Query) Do While Not(Content3.BOF Or Content3.EOF) MinusSuryo = MinusSuryo + Content3.Fields("数量") Content3.MoveNext Loop End If Content2.MoveNext Loop End If '全て出庫したレコードは除外 If (Mode = "Shikakari" And (Content.Fields("製造状況区分") = "PS" Or Content.Fields("製造状況区分") = "YS")) Or (Mode = "Seihin" And (Content.Fields("製造状況区分") = "MS" Or Content.Fields("製造状況区分") = "ZS")) Or (Mode = "Shukko" And Content.Fields("製造状況区分") = "MS" And (Content.Fields("商品数量") - MinusSuryo) > 0) Then If Mode = "Shikakari" Then Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) Else Syoribi = SetTimeYYYYMMDD(Content.Fields("完了日")) End If Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'") If Mode = "Shukko" And Content.Fields("製造状況区分") = "MS" Then Response.Write(Replace(Request.ServerVariables("SCRIPT_NAME"), "seizosashizusho_ichiran.asp", "nyusyukko.asp") & "?BunsyoSyuruiCD=MU&SenpoBunsyoSyuruiCD=MS&SenpoBunsyoNaiyoCD=" & Content.Fields("文書内容CD") & "&NyusyukoKubun=U") Else If GenkaHyo = "1" Then If Mode = "Shikakari" Then Response.Write(HomeAliasSL & "user/bk/hojyobo/fk_genkakeisanhyo.asp?BunsyoNaiyoCD=" & Content.Fields("文書内容CD") & "&Mode=" & Mode) Else Response.Write(HomeAliasSL & "user/bk/hojyobo/fk_genkakeisanhyo_view.asp?BunsyoNaiyoCD=" & Content.Fields("文書内容CD") & "&Mode=" & Mode) End If Else Response.Write(Replace(Request.ServerVariables("SCRIPT_NAME"), "_ichiran.asp", "_view.asp") & "?BunsyoNaiyoCD=" & Content.Fields("文書内容CD") & "&Mode=" & Mode) End If End If Response.Write("')"" class=""tx1416"" onDblClick=""syokaibtn()"">" & vbCrLf) Response.Write("<TD WIDTH=""20"" HEIGHT=""24""> </TD>" & vbCrLf) Response.Write("<TD WIDTH=""100"" class=""tx1618"">" & Syoribi & "</TD>" & vbCrLf) Response.Write("<TD>") If Content.Fields("製造状況区分") = "YS" Or Content.Fields("製造状況区分") = "ZS" Then Response.Write(ConvZairyoMeisyo(Content.Fields("商品CD"))) '材料の場合は材料名称を取得 Else Response.Write(Content.Fields("商品名称")) End If Response.Write("</TD>" & vbCrLf) Response.Write("<TD WIDTH=""110"" class=""tx1618"">" & Content.Fields("商品数量") - MinusSuryo & "</TD>" & vbCrLf) ' Response.Write("<TD WIDTH=""110"" class=""tx1618"">" & Content.Fields("商品単価") & "</TD>" & vbCrLf) Response.Write("</TR>") ii = ii + 1 End If End If Content.MoveNext Loop For jj = ii To 18 Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf) Response.Write("<TD WIDTH=""20"" HEIGHT=""24""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""100""></TD>" & vbCrLf) Response.Write("<TD></TD>" & vbCrLf) Response.Write("<TD WIDTH=""110""></TD>" & vbCrLf) ' Response.Write("<TD WIDTH=""110""></TD>" & vbCrLf) Response.Write("</TR>") Next %> </TABLE> </DIV> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </div> </body> <% = HtmlFooter %> <SCRIPT LANGUAGE="JavaScript"> <!-- var lsURL lsURL = "#" function syokaibtn(){ if(lsURL == "#") { alert("選択されていません"); } else { tblbtn(lsURL + "&RouteType=<% = RouteType %>"); } } //TRselect & URLset function celsel(rw,lsParam){ for (k=0; k<document.all['List'].rows.length; k++){ document.all['List'].rows[k].style.backgroundColor =""; }//セル色クリア document.all['List'].rows[rw].style.backgroundColor ="#ffcdde";//選択行色変更 lsURL = lsParam; } //--> </SCRIPT> </html> <% End Sub %>