📄 zaitu_convert.asp

📁 物流进销存系统全功能,MSSQL 2000数据库. 可做物流公司信息系统开发的源程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
	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=6 align=center bgcolor=red><b><font color=yellow>入库记录详细信息一览</font></b></td>
</tr>
<%
if dir_flag = true then
%>
<tr>
 <td colspan=6 align=left bgcolor=green height=20><b><font color=white> 自 提 信 息</font></b></td>
</tr>
<tr>
    <td width="15%">提货地点：</td>
    <td colspan="5" width="85%">
   <%response.write inwa_take_address & "&nbsp;"%></td>
 </tr>
<tr>
    <td width="15%">航班号：</td>
    <td colspan="5" width="85%">
   <%response.write inwa_line_no & "&nbsp;"%></td>
 </tr>
<tr>
    <td width="15%">空运提单号：</td>
    <td colspan="5" width="85%">
   <%response.write inwa_take_no & "&nbsp;"%></td>
 </tr>
<%
end if
%>
<tr>
 <td colspan=6 align=left bgcolor=green height=20><b><font color=white> 订 单 信 息</font></b></td>
</tr>
<tr>
    <td width="15%">系统编号：</td>
    <td colspan="5" width="85%">
   <%response.write inwa_id%></td>
 </tr>
<tr>
    <td width="15%">S&nbsp;&nbsp;I&nbsp;&nbsp;A：</td>
    <td colspan="5" width="85%">
   <%response.write inwa_sia%></td>
 </tr>
<tr>
    <td width="15%">填写日期：</td>
    <td colspan="5" width="85%">
   <%response.write inwa_date & "&nbsp;"%></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="15%">DC信息：</td>
    <td colspan="5" width="85%">
   <%response.write dc_code &" "& dc_name %></td>
 </tr>
 <tr>
    <td width="15%">运输方式：</td>
    <td colspan="5" width="85%">
   <%response.write inwa_type & "&nbsp;"%></td>
 </tr>
   <tr>
    <td width="15%">预计到达时间：</td>
    <td colspan="5" width="85%">
   <%response.write inwa_yuji_time & "&nbsp;"%></td>
 </tr>
    <tr>
    <td width="15%">联系人/电话：</td>
    <td colspan="5" width="85%">
   <%response.write inwa_contact & "&nbsp;"%></td>
 </tr>
  <tr bgcolor=green >
    <td width="20%"><b><font color=white> 产品信息：</font></b></td>
    <td width="30%">
   <b><font color=white> 产品</font></b></td>

    <td width="10%">
   <b><font color=white>&nbsp;数量</font></b></td>
   <td width="12%">
   <b><font color=white>已收</font></b></td>
   <td width="12%">
   <b><font color=white> 签收数量</font></b></td>
   <td width="28%">
   <b><font color=white> &nbsp;签收备注</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
		prod_no = rs_prod("prod_no")
		prod_type = rs_prod("prod_type")
		prod_color = rs_prod("prod_color")
		prod_pinming = rs_prod("prod_pinming")
		prod_weight = rs_prod("prod_weight")
		prod_volume = rs_prod("prod_volume")
		Response.Write "<tr>"
		Response.Write "<td width=""15%"">&nbsp;</td>"
		Response.Write "<td width=""35%"">"
		response.write prod_no &" " & prod_type &" " & prod_color &" " & prod_pinming &" " & prod_weight &" " & prod_volume
		Response.Write "</td>"
		if inwa_flag = 1 then
		Response.Write "<td width=""10%"">"
		response.write "&nbsp;"&inwa_no 
		Response.Write "</td>"
		Response.Write "<td width=""12%"">"
		response.write "&nbsp;"&inwa_rec_no
		Response.Write "</td>"	
		Response.Write "<td width=""28%"">"
		response.write "&nbsp;"&inwa_beizu
		Response.Write "</td>"
		else
		Response.Write "<td width=""10%"">"
		response.write "&nbsp;"&inwa_no 
		Response.Write "</td>"
		Response.Write "<td width=""10%"">"
		response.write "&nbsp;"&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=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%"">&nbsp;</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
 loop
 rs_detail.Close
 set rs_detail = nothing

 %>

 <tr>
 <td colspan=6 align=left bgcolor=green height=20><b><font color=white> 签 收 信 息</font></b></td>
</tr>
 <%
 if inwa_flag = 0  then 
 
 %>
 <tr>
    <td width="15%"> 签收日期</td>
    <td colspan="5" width="85%">
    <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()%>' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**（如：2001-11-23）</td>
 </tr>
 <tr>
    <td width="15%"> 签收时间：</td>
    <td colspan="5" width="85%">
   <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="15%">签收人：</td>
    <td colspan="5" width="85%">
   <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="15%">身份证号：</td>
    <td colspan="5" width="85%">
   <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="6"><br><br>
   <center>
   <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>
上一页 12
💿 文件大小 1682 K
👤 上传用户 liuchuyuan
📂 所属分类企业管理
🏷️ 相关标签

#MSSQL #2000 #进销存系统 #数据库
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -