inward_edit.asp

1.多种查询方式

		Response.Write "history.go(-1);"
		Response.Write "</script>"
		Response.End 
	end if
	rst.close
	set rst = nothing
else

sql="select * from inward where inwa_companyid = "&newcompanyid&" and inwa_id = "&inwa_id&""
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")
	if flag = 4 then
		if instrrev(dcservice,inwa_dc_id) > 0 then
		else
			rs.Close
			set rs = nothing
			call closedatabase
			Response.Write "<script language=javascript>"
			Response.Write "alert(""非法进入!"");history.go(-1);"
			Response.Write "</script>"
			Response.End 
		end if  
	end if
	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")
	
	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="inward_edit.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=5 align=center bgcolor=red><b><font color=yellow>入库记录详细信息一览</font></b></td>
</tr>
<tr>
 <td colspan=5 align=left bgcolor=green height=20><b><font color=white> 入 库 单 信 息</font></b></td>
</tr>
<tr>
    <td width="15%">系统编号：</td>
    <td colspan="4" width="85%">
   <%response.write inwa_id%></td>
 </tr>
<tr>
    <td width="15%">进仓编号SIA：</td>
    <td colspan="4" width="85%">
   <%response.write "<input  style=""font-size:9pt;width=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='inwa_sia' value='"&inwa_sia&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" maxlength=30>"%></td>
 </tr>
<tr>
    <td width="15%">进舱日期：</td>
    <td colspan="4" width="85%">
   <%
   response.write "<input  style=""font-size:9pt;width=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='inwa_date' value='"&inwa_date&"' onfocus=""calendar()"" onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
%></td>
 </tr>
 <tr>
    <td width="15%">送货地区：</td>
    <td colspan="4" width="85%">
   <%
   response.write "<input  style=""font-size:9pt;width=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='inwa_sendto' value='"&inwa_sendto&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" maxlength=30>"
%></td>
 </tr>
  <tr>
    <td width="15%">送货车牌（拆箱箱号）：</td>
    <td colspan="4" width="85%">
   <%
   response.write "<input  style=""font-size:9pt;width=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='inwa_sendno' value='"&inwa_sendno&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" maxlength=30>"
%></td>
 </tr>
 <tr>
    <td width="15%">货物情况品质：</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
   stat=rs_stat("stat")
response.write "<input  style=""font-size:9pt;width=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='inwa_stat' value='"&stat&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" maxlength=30>"
   end if
   rs_stat.close
   set rs_stat=nothing%></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%">仓库信息（库位）：</td>
    <td colspan="4" width="85%">
   <%response.write dc_code &" "& dc_name %></td>
 </tr>
   <tr>
    <td width="15%">装箱箱号（提货车号）：</td>
    <td colspan="4" width="85%">
   <%
   response.write "<input  style=""font-size:9pt;width=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='inwa_getno' value='"&inwa_getno&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" maxlength=30>"
%></td>
 </tr>
 <tr>
    <td width="15%">出库日期：</td>
    <td colspan="4" width="85%">
   <%
   response.write "<input  style=""font-size:9pt;width=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='inwa_outdate' value='"&inwa_outdate&"' onfocus=""calendar()"" onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
%></td>
 </tr>
    <tr>
    <td width="15%">管理员：</td>
    <td colspan="4" width="85%">
   <%response.write "<input  style=""font-size:9pt;width=120;BORDER-TOP-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 2px;BORDER-LEFT-WIDTH: 1px;BORDER-RIGHT-WIDTH: 2px"" type=textbox name='inwa_contact' value='"&inwa_contact&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" maxlength=25>"
   %></td>
 </tr>
 <tr bgcolor=green >
    <td width="15%"><b><font color=white> 货物信息：</font></b></td>
    <td width="35%">
   <b><font color=white> 货物</font></b></td>
   <td width="25%">
   <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)
	record = 0
	
 do while not rs_detail.eof
	record=record+1
	if record/2=int(record/2) then
	  bgclr="#F1F1C9"
	else
	  bgclr="#F1F1C9"
	end if
	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")
	idetail_rec_date = rs_detail("idetail_rec_date")
	idetail_rec_man = rs_detail("idetail_rec_man")
	idetail_rec_idcard = rs_detail("idetail_rec_idcard")
	idetail_rec_operate = rs_detail("idetail_rec_operate")
	idetail_flag = rs_detail("idetail_flag")
	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_weight = rs_prod("prod_weight")
		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 bgcolor="&bgclr&">"
		Response.Write "<td width=""25%"">&nbsp;</td>"
		Response.Write "<td width=""35%"">"
		response.write prod_no &" " & prod_pinming &" " & prod_danwei &" " & prod_weight &" " & prod_tiji &" " & prod_danjia
		Response.Write "</td>"
		'if inwa_rec_no <> 0 then
		Response.Write "<td width=""20%"">"
		response.write "&nbsp;"&inwa_no 
		response.write "&nbsp;"&detail_no &" &nbsp;&nbsp;<a href=""inward_prod_no_edit.asp?companyid="&newcompanyid&"&id="&inwa_id&"&idetail_id="&idetail_id&""">修改</a>"
			
		Response.Write "</td>"
		'Response.Write "<td width=""20%"">"
		'response.write "&nbsp;"&inwa_rec_no
		'else
		'Response.Write "<td colspan=2 width=""40%"">"
		'response.write "&nbsp;"&inwa_no 
		'Response.Write "</td>"
		'end if
		Response.Write "</td>"		
		Response.Write "</tr>"
		
	 end if
	 rs_prod.close
	 set rs_prod = nothing
	 %>

 <%
 if inwa_rec_no <> 0  then 
 
 %>

 

 
 
<%	 
	end if

 	 rs_detail.movenext
 loop
 rs_detail.close
 set rs_detail = nothing 
 %>

 <%
 if inwa_flag <> 1  then 
 %>
 <tr>
 <td colspan=4 align=left bgcolor=green height=20><b><font color=white> 签 收 信 息</font></b></td>
</tr>
 <%
 	Response.Write "<tr><td  colspan=""4""><font color=red>入库签收尚未填写完整！！！</font><td></tr>"
 end if
 %>
 

 <input type=hidden name=id value=<%=inwa_id%>>
 <input type=hidden name=dir value=<%=dir_flag%>>
<input type=hidden name=companyid value=<%=newcompanyid%>>
<input type=hidden name=inwa_flag value=<%=inwa_flag%>>

<tr bgcolor=white>
   <td colspan="5"><br><br>
   <center>
   <input class=buttonface type=button  onclick="datacheck()" name=ok value=修改资料>
   <input class=buttonface type=button  onclick="javascript:confirmDel(<%= inwa_id %>)" name=ok value=删除资料>　
	</center>
	<br><br>
 </tr>

</table>
</form>
 <%
else
	Response.Write "<script language=javascript>"
	Response.Write "alert(""您所操作的记录已被他人删除,请确认!"");"
	Response.Write "opener.location.reload();window.close();"
	Response.Write "</script>"
	
end if


%>

</form>
 <%
rs.Close
set rs = nothing
call closedatabase

end if

%>
<script language=vbscript>
<!--
Sub datacheck()
<%
if dir_flag = true then
%>
if trim(input1.inwa_take_address.value)=empty then
   msgbox "请填写提货地点！", 64, "请输入!"
     document.input1.inwa_take_address.focus()
     Exit Sub
  End if

<%
end if
%>
if trim(input1.inwa_sia.value)=empty then
   msgbox "「SIA」不得为空白！", 64, "请输入SIA!"
     document.input1.inwa_sia.focus()
     Exit Sub
  End if
if isdate(trim(input1.inwa_date.value)) = false then
   msgbox "「填写日期」格式不对！", 64, "请输入正确的日期!"
     document.input1.inwa_date.focus()
     Exit Sub
  End if  
if isdate(trim(input1.inwa_yuji_time.value))=false  then
   msgbox "「预计到达时间」不得为空白或者格式错误！", 64, "请输入预计到达时间!"
     document.input1.inwa_yuji_time.focus()
     Exit Sub
  End if
if trim(input1.inwa_contact.value)=empty then
   msgbox "「联系人/电话」不得为空白！", 64, "请输入联系人/电话!"
      document.input1.inwa_contact.focus()
     Exit Sub
  End if  
input1.Submit
End Sub
Sub focusto(x)
		document.input1.elements(x).focus()
End Sub
-->
</script>
<br> <p align=center><font size=+2 color=blue><a href='#' onclick="javascript:window.close()">[关闭]</a></font></p> 
</body>
</html>