<!-- #include file="../../../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：入出庫表示
' 作成日：2006/12/20
' 作成者：ジャワネット
' 目的 ：入出庫画面を表示する。
'################################################
'-->
'
%>
<%
main()
Sub main()
Dim SakuseiKaisyaCD '作成会社CD
Dim KitakuIraiKaisyaCD '寄託依頼会社CD
Dim KitakuNo '寄託受付番号
Dim NyukoDay '入庫年月日
Dim YukoFlg '有効フラグ
Dim Kakaku(6) '標準単価
Dim SyohinCD(6) '商品コード
Dim SyohinName(6) '商品名称
Dim Suryo(6) '数量
Dim Tanka(6) '仕入単価
Dim MotoTanka(6) '元単価
Dim UnsoTanka(6) '運送単価
Dim Zaiko(6) '在庫数量
Dim GakuseiShimei '学生氏名（係印）
Dim SyoruiMei '書類名
Dim Query
Dim Content
Dim Shimei '氏名
Dim ShijyoCD(5) '市場CD
Dim Syoribi '処理日
Dim SyohinGazo(5)
Dim PageType
Dim RouteType
Dim SyohinGazoStr
Dim SyohinNyusyukkoSeikousei
Dim jj,tmps
SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
KitakuIraiKaisyaCD = Request("KitakuIraiKaisyaCD")
KitakuNo = Request("KitakuNo")
SyohinNyusyukkoSeikousei = GetEnshuParam(EnshuCD, "商品入出庫整合性利用")
SyohinGazoStr = ""
'SyoruiMei = ConvKubunMeisyo("入出庫区分", BunsyoSyuruiCD)
SyoruiMei = "寄託入庫"
If KitakuNo <> "" Then
Query = "exec SPD寄託入庫取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & KitakuIraiKaisyaCD & "', '" & KitakuNo & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
NyukoDay = Content.Fields("入庫年月日")
YukoFlg = Content.Fields("有効フラグ")
Syoribi = Content.Fields("処理日")
Do While Not(Content.BOF Or Content.EOF)
Dim DenpyoSEQ
DenpyoSEQ = Content.Fields("寄託受付番号SEQ")
SyohinCD(DenpyoSEQ) = Content.Fields("商品CD")
ShijyoCD(DenpyoSEQ) = Content.Fields("市場CD")
SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD"))
Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD"))
Zaiko(DenpyoSEQ) = ConvSyohinZaiko(Content.Fields("商品CD"))
Suryo(DenpyoSEQ) = Content.Fields("数量")
Tanka(DenpyoSEQ) = Content.Fields("仕入単価")
SyohinGazo(DenpyoSEQ) = ConvSyohinGazo(EnshuCD, Content.Fields("商品CD"))
If SyohinGazoStr <> "" Then
SyohinGazoStr = SyohinGazoStr & ","
End If
If SyohinGazo(DenpyoSEQ) <> "" Then
SyohinGazoStr = SyohinGazoStr & """" & Fgoods & "/" & EnshuCD & "/" &SyohinGazo(DenpyoSEQ) & """"
Else
SyohinGazoStr = SyohinGazoStr & """/" & HomeAlias & "/images/truck_box.gif"""
End If
Content.MoveNext
Loop
End If
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="../../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="../../../../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">
<form OnKeyDown="FormKeyDown(this)" method="POST" action="fd_nyusyukko_bin.asp" name="form1">
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(3))
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", "入庫一覧", "tblbtn( 'fu_kitaku_nyuko_ichiran.asp')", "寄託入庫", "", "", ""))
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4(SyoruiMei,""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="CENTER" valign="top">
<table height="355" border="0" cellpadding="10" cellspacing="0" bgcolor="#FFFFFF" style="border:solid 1px #000000">
<tr>
<td width="600" height="355" align="CENTER" valign="top">
<table width="600" border="0" cellspacing="0" cellpadding="0" height="355">
<tr>
<td height="40" align="CENTER" valign="middle">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" height="30" width="580" class="tx1416">
<tr>
<td width="25%">
<table border="0" cellpadding="0" cellspacing="0">
<tr class="tx1214">
<td align="left">
<table class="tx2224b" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td align="center" nowrap><%
If Len(SyoruiMei) < 8 Then
Response.Write(SetStringInsertSpace(SyoruiMei))
Else
Response.Write(SyoruiMei)
End If
%></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="45" align="CENTER" valign="middle">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" height="80" width="520" class="tx1618">
<tr>
<td width="14%" height="20">受付番号</td>
<td height="20"><% = KitakuNo %></td>
<td width="14%" height="20">入庫日</td>
<td width="18" height="20"><% = NyukoDay %></td>
</tr>
<tr>
<td height="20">依頼会社</td>
<td height="20"><% = ConvKaisyaMeisyoDx(EnshuCD, KitakuIraiKaisyaCD) %></td>
<td height="20">納入日</td>
<td height="20"><% = Syoribi %></td>
</tr>
<tr>
<td height="20">仕 入 先</td>
<td height="20"><% = ConvKaisyaMeisyoDx(EnshuCD, SakuseiKaisyaCD) %></td>
<td height="20"></td>
<td height="20"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="CENTER">
<table width="580" height="180" border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse; border:solid 2px #FFFFFF">
<tr>
<td width="100%" align="RIGHT">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="580" bordercolor="#000000">
<tr>
<td height="30" valign="TOP">
<table width="100%" height="30" border="1" cellpadding="0" cellspacing="0" frame="below" style="border-collapse: collapse" bordercolor="#000000" class="tx1618" bgcolor="#CCCCCC">
<tr>
<td align="center">商品名称</td>
<td align="center" width="17%">標準単価</td>
<td align="center" width="16%">数 量</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="100%" height="180" border="1" cellpadding="3" cellspacing="0" frame="below" style="border-collapse: collapse" bordercolor="#000000" class="tx1618">
<tr>
<td align="left"><% = AscLeft(ConvSyohinMeisyo(SyohinCD(1)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て（061031小野）-->
<td align="right" width="17%"><% = SetMoney(Kakaku(1), false, true) %><br></td>
<td align="right" width="16%"><% = SetMoney(Suryo(1), false, true) %><br></td>
</tr>
<tr>
<td align="left"><% = AscLeft(ConvSyohinMeisyo(SyohinCD(2)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て（061031小野）-->
<td align="right"><% = SetMoney(Kakaku(2), false, true) %><br></td>
<td align="right"><% = SetMoney(Suryo(2), false, true) %><br></td>
</tr>
<tr>
<td align="left"><% = AscLeft(ConvSyohinMeisyo(SyohinCD(3)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て（061031小野）-->
<td align="right"><% = SetMoney(Kakaku(3), false, true) %><br></td>
<td align="right"><% = SetMoney(Suryo(3), false, true) %><br></td>
</tr>
<tr>
<td align="left"><% = AscLeft(ConvSyohinMeisyo(SyohinCD(4)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て（061031小野）-->
<td align="right"><% = SetMoney(Kakaku(4), false, true) %><br></td>
<td align="right"><% = SetMoney(Suryo(4), false, true) %><br></td>
</tr>
<tr>
<td align="left"><% = AscLeft(ConvSyohinMeisyo(SyohinCD(5)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て（061031小野）-->
<td align="right"><% = SetMoney(Kakaku(5), false, true) %><br></td>
<td align="right"><% = SetMoney(Suryo(5), false, true) %><br></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<% If KitakuNo <> "" Then %>
<td width="200">
<table width="100%" height="210" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="200">
<table width="100%" height="210" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="20" rowspan="2">
<img src="/<% = HomeAlias %>/images/warehouse_l.gif" width="20" height="210"></td>
<td valign="top">
<div id="AreaLay" style="position:absolute; width:100%; height:195px; z-index:1; visibility: visible; overflow: hidden;">
<div id="TruckLay" style="position:absolute; width:155px; height:135px; z-index:1; top: 60; left: 500;">
<% If KitakuNo <> "" Then %>
<table width="175" height="135" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="45" rowspan="2" valign="bottom"><img src="/<% = HomeAlias %>/images/truck_l_l.gif" width="45" height="65"></td>
<td width="130" height="100" align="center" valign="bottom"><img src="/<% = HomeAlias %>/images/piece.gif" name="picIMG" width="120" height="90" id="picIMG"></td>
</tr>
<tr>
<td width="130" height="35"><img src="/<% = HomeAlias %>/images/truck_l_r.gif" width="130" height="35"></td>
</tr>
</table>
<% Else %>
<table width="175" height="135" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="130" height="100" align="center" valign="bottom"><img src="/<% = HomeAlias %>/images/piece.gif" name="picIMG" width="120" height="90" id="picIMG"></td>
<td width="45" rowspan="2" valign="bottom"><img src="/<% = HomeAlias %>/images/truck_r_l.gif" width="45" height="65"></td>
</tr>
<tr>
<td width="130" height="35"><img src="/<% = HomeAlias %>/images/truck_r_r.gif" width="130" height="35"></td>
</tr>
</table>
<% End If %>
</div>
</div>
<table width="100%" height="195" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="50" rowspan="2"><img src="/<% = HomeAlias %>/images/warehouse_r.gif" width="50" height="195"></td>
<td height="180"> </td>
</tr>
<tr>
<td height="15" bgcolor="#999999"><img src="/<% = HomeAlias %>/images/spacer.gif" width="10" height="10"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="15" bgcolor="#999999"><img src="/<% = HomeAlias %>/images/spacer.gif" width="10" height="10"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<% End If %>
</tr>
</table>
</div>
</form>
</body>
<SCRIPT LANGUAGE="JavaScript">
<% If KitakuNo <> "" Then %>
var pm;
pm = 1;
itemimg=[<% = SyohinGazoStr %>];
itemnum=itemimg.length-1;
count=0;
speed=5;
//speed=50;
function init(){
defw = document.all.AreaLay.clientWidth + 50;
mvlw = document.all.TruckLay.clientWidth + speed;
if(pm == 1)start = defw;
else start = -1 * mvlw;
document.all.TruckLay.style.left = start;
xx=0;
moveLay();
}
function moveLay(){
xx+=speed;
if(xx>defw+mvlw){
count+=1;
if(count>itemnum){ return;}
document.images["picIMG"].src=itemimg[count];
init();
}
document.all.TruckLay.style.left = start - (xx * pm);
clearTimeout(slideID);
slideID=setTimeout('moveLay()',50);
}
if(itemnum >= 0)
{
slideID=setTimeout("",1);
document.images["picIMG"].src=itemimg[0];
init();
}
<% End If %>
</SCRIPT>
<% = HtmlFooter %>
</html>
<%
End Sub
%>