📄 zaitu_convert.asp
字号:
rs_inward.close
set rs_inward = nothing
'end if
else
sql="select * from inward where inwa_companyid = "&newcompanyid&" and inwa_id = "&inwa_id&""
'Response.Write sql
'Response.End
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
inwa_id = rs("inwa_id")
inwa_date = rs("inwa_date")
inwa_fact_date = rs("inwa_fact_date")
inwa_sia = rs("inwa_sia")
inwa_dc_id = rs("inwa_dc_id")
inwa_type = rs("inwa_type")
inwa_yuji_time = rs("inwa_yuji_time")
inwa_contact = rs("inwa_contact")
inwa_operate = rs("inwa_operate")
inwa_ser_beizu = rs("inwa_ser_beizu")
inwa_flag = rs("inwa_flag")
if inwa_flag = 1 then
Response.Redirect "ruku_record_info.asp?companyid="&newcompanyid&"&id="&inwa_id&""
Response.End
end if
dir_flag = rs("inwa_dir_flag")
inwa_take_address = trim(rs("inwa_take_address"))
inwa_line_no = trim(rs("inwa_line_no"))
inwa_take_no = trim(rs("inwa_take_no"))
%>
<form action="zaitu_convert.asp" method="POST" name="input1">
<table align=center width=100% cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC' border="1">
<tr>
<td colspan=7 align=center bgcolor=red><b><font color=yellow>入库记录详细信息一览</font></b></td>
</tr>
<tr>
<td colspan=7 align=left bgcolor=green height=20><b><font color=white> 入 库 信 息</font></b></td>
</tr>
<tr>
<td width="31%">系统编号：</td>
<td colspan="6">
<%response.write inwa_id%></td>
</tr>
<tr>
<td width="31%">S I A：</td>
<td colspan="6">
<%response.write inwa_sia%></td>
</tr>
<tr>
<td width="31%">入库单日期：</td>
<td colspan="6">
<%response.write inwa_date & " "%></td>
</tr>
<%
sql = "select * from dc where dc_companyid = "&newcompanyid&" and dc_id = "&inwa_dc_id&""
set rs_dc = conn.execute(sql)
if not rs_dc.eof then
dc_code = rs_dc("dc_code")
dc_name = rs_dc("dc_name")
end if
rs_dc.close
set rs_dc = nothing
%>
<tr>
<td width="31%">仓库信息：</td>
<td colspan="6">
<%response.write dc_code &" "& dc_name %></td>
</tr>
<tr>
<td width="31%">联系人/电话：</td>
<td colspan="6">
<%response.write inwa_contact & " "%></td>
</tr>
<tr>
<td width="31%">状态：</td>
<td colspan="6">
<%set rs_stat=server.CreateObject("adodb.recordset")
rs_stat.Open "select * from stat where stat_sia="&inwa_sia, conn, 1, 3
if not rs_stat.eof then
stat1=rs_stat("stat")
if stat1=1 then
response.Write("良好")
elseif stat1=0 then
response.Write("损坏")
end if
end if
rs_stat.close
set rs_stat=nothing%></td>
</tr>
<tr bgcolor=green >
<td width="31%"><b><font color=white> 物品信息：</font></b></td>
<td width="10%">
<b><font color=white> 产品</font></b></td>
<td width="12%">
<b><font color=white> 数量</font></b></td>
<td width="11%">
<b><font color=white>已收</font></b></td>
<td width="7%">
<b><font color=white> 签收数量</font></b></td>
<td width="12%">
<b><font color=white> 序列号</font></b></td>
<td width="17%">
<b><font color=white> 签收备注</font></b></td>
</tr>
<%
sql = "select * from inward_detail where idetail_inwa_id = "&inwa_id&" order by idetail_id"
set rs_detail = conn.execute(sql)
do while not rs_detail.eof
idetail_id = rs_detail("idetail_id")
prod_id = rs_detail("idetail_prod_id")
inwa_no = rs_detail("idetail_no")
inwa_rec_no = rs_detail("idetail_rec_no")
inwa_beizu = trim(rs_detail("idetail_rec_beizu"))
sql = "select * from product where prod_companyid = "&newcompanyid&" and prod_id = "&prod_id&""
set rs_prod = conn.execute(sql)
if not rs_prod.eof then
i=0
prod_no = rs_prod("prod_no")
prod_type = rs_prod("prod_type")
prod_danwei = rs_prod("prod_danwei")
prod_pinming = rs_prod("prod_pinming")
prod_danjia = rs_prod("prod_danjia")
prod_tiji = rs_prod("prod_tiji")
Response.Write "<tr>"
Response.Write "<td width=""15%""> </td>"
Response.Write "<td width=""35%"">"
response.write prod_no &" " & prod_pinming &" " & prod_type &" " & prod_tiji &" " & prod_danwei
Response.Write "</td>"
if inwa_flag = 1 then
Response.Write "<td width=""10%"">"
response.write " "&inwa_no
Response.Write "</td>"
Response.Write "<td width=""12%"">"
response.write " "&inwa_rec_no
Response.Write "</td>"
Response.Write "<td width=""28%"">"
response.write " "&inwa_beizu
Response.Write "</td>"
else
Response.Write "<td width=""10%"">"
response.write " "&inwa_no
Response.Write "</td>"
Response.Write "<td width=""10%"">"
response.write " "&inwa_rec_no
Response.Write "</td>"
Response.Write "<td width=""12%"">"
response.write "<input style=""font-size:9pt;width=60;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='"&idetail_id&"' value='"&inwa_no-inwa_rec_no&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
response.write "<input type=hidden name='"&idetail_id&"4' value='"&inwa_no-inwa_rec_no&"'>"
Response.Write "</td>"
Response.Write "<td width=""28%"">"
response.write "<input style=""font-size:9pt;width=110;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=text name=stat_sn+i value='' maxlength=50 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
Response.Write "</td>"
Response.Write "<td width=""28%"">"
response.write "<input style=""font-size:9pt;width=110;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='"&idetail_id&"2' value='' maxlength=50 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
Response.Write "</td>"
end if
Response.Write "</tr>"
'Response.Write "<tr>"
'if iu = 0 then
' Response.Write "<td width=""25%"">数量：</td>"
'else
' Response.Write "<td width=""25%""> </td>"
'end if
'Response.Write "<td width=""75%"">"
'response.write inwa_no
'Response.Write "</td>"
'Response.Write "</tr>"
end if
rs_prod.close
set rs_prod = nothing
rs_detail.movenext
i=i+1
loop
rs_detail.Close
set rs_detail = nothing
%>
<tr>
<td colspan=7 align=left bgcolor=green height=20><b><font color=white> 签 收 信 息</font></b></td>
</tr>
<%
if inwa_flag = 0 then
%>
<tr>
<td width="31%"> 签收日期</td>
<td colspan="6">
<input style="font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px" type=textbox name="inwa_rec_date" value='<%=date()%>' onfocus="calendar()" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
</tr>
<tr>
<td width="31%"> 签收时间：</td>
<td colspan="6">
<input style="font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px" type=textbox name="inwa_rec_time" value='<%=formatdatetime(time(),4)%>' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**（如：17:00）</td>
</tr>
<tr>
<td width="31%">签收人：</td>
<td colspan="6">
<input style="font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px" type=textbox name="inwa_rec_man" value='' maxlength=10 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
</tr>
<tr>
<td width="31%">证件号：</td>
<td colspan="6">
<input style="font-size:9pt;width=200;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px" type=textbox name="inwa_rec_idcard" value='' maxlength=18 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
</tr>
<%
end if
%>
<input type=hidden name=id value=<%=inwa_id%>>
<input type=hidden name=companyid value=<%=newcompanyid%>>
<%
if inwa_flag = 0 then
%>
<tr bgcolor=white>
<td colspan="7"><br><br>
<center>
<input name="i" type="hidden" value="<%=i%>">
<input class=buttonface type=button onclick="datacheck()" name=ok value=签收资料>
</center>
<br><br>
</tr>
<%
end if
%>
</table>
</form>
<%
else
rs.close
set rs = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""您所操作的记录已被他人删除,请确认!"");"
Response.Write "window.close();"
Response.Write "</script>"
Response.End
end if
rs.close
set rs = nothing
call closedatabase
%>
</form>
<%
end if
%>
<br> <p align=center><font size=+2 color=blue><a href='#' onclick="javascript:window.close()">[关闭]</a></font></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -