📄 inward_edit.asp
字号:
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>
<%
if dir_flag = true then
%>
<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 "<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_take_address' value='"&inwa_take_address&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" maxlength=40>"
%></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_line_no' value='"&inwa_line_no&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" maxlength=15>"
%></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_take_no' value='"&inwa_take_no&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" maxlength=15>"
%></td>
</tr>
<%
end if
%>
<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%">S I A：</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&"' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
%></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="4" width="85%">
<%response.write dc_code &" "& dc_name %></td>
</tr>
<tr>
<td width="15%">运输方式：</td>
<td colspan="4" width="85%">
<%
Response.Write "<select class='smallinput' name='inwa_type' onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"" size='1'>"
if cstr(inwa_type) = "空运" then
Response.Write "<option value='空运' selected>空 运</option>"
Response.Write "<option value='汽运'>汽 运</option>"
else
Response.Write "<option value='空运'>空 运</option>"
Response.Write "<option value='汽运' selected>汽 运</option>"
end if
%></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_yuji_time' value='"&inwa_yuji_time&"' 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> 数量</font></b></td>
<td width="25%">
<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)
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_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 bgcolor="&bgclr&">"
Response.Write "<td width=""25%""> </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_rec_no <> 0 then
Response.Write "<td width=""20%"">"
response.write " "&inwa_no
response.write " "&detail_no &" <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 " "&inwa_rec_no
'else
'Response.Write "<td colspan=2 width=""40%"">"
'response.write " "&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
%>
<tr>
<td colspan="2"> </td>
<td width="15%"> 入库日期：</td>
<td width="85%">
<%response.write formatdatetime(idetail_rec_date,2)%></td>
</tr>
<tr>
<td colspan="2"> </td>
<td width="15%"> 签收时间：</td>
<td width="85%">
<%response.write formatdatetime(idetail_rec_date,4)%></td>
</tr>
<tr>
<td colspan="2"> </td>
<td width="15%">签收人：</td>
<td width="85%">
<%response.write idetail_rec_man & " "%></td>
</tr>
<tr>
<td colspan="2"> </td>
<td width="15%">身份证号：</td>
<td width="85%">
<%response.write idetail_rec_idcard&" "%></td>
</tr>
<tr>
<td colspan="2"> </td>
<td width="15%">签收填写人：</td>
<td width="85%">
<%response.write idetail_rec_operate & " "%></td>
</tr>
<%
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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -