<!-- #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
%>