odd_edit_no.asp

1.多种查询方式

													rs.delete
												end if
												rs.Close
												set rs = nothing
											end if
											rs_id.close
											set rs_id = nothing
											''''''''''''''''''''''''
											'查找是否有其它相应的outward信息，若没有，则删除该OUTWARD记录
																	
											''''''''''''''''''''''''''''
											
										end if
										rs_info.Close 
										set rs_info = nothing	
									end if
									rs_d.close
									set rs_d = nothing
									'---------------------------------------------------------------------------------------------
									
								else	
									sql = "update outward_detail set detail_no = "&detail_no_now&" where detail_id = "&detail_id&" "
									conn.execute(sql)	
								end if						
							end if						
						elseif elink_flag = 1 then
							if no <> 0 then
								if ziti_flag = 0 then
								sql = "update inventory set inve_chuku = inve_chuku + "&no&",inve_maysent = inve_maysent - "&no&",inve_total = inve_total - "&no&" "
								sql = sql + " where inve_dc_id = "&elink_dc_id&" and inve_prod_id = "&prod_id&" "
								conn.execute(sql)
								end if
								if clng(detail_no_now) = 0 then'删除原记录
									sql = "delete outward_detail where detail_id = "&detail_id&" " 
									conn.execute(sql)
									
									'-----------------------------------------------------------------------------------------
									'以下判断该客户是否还有其他记录，若没有相应的记录，则删除相关的易联单号的所有记录
									'还有该客户的信息
									'若删除了该客户的所有记录,则应该再次查找是否有该SRA其它的记录
									'若没有则删除该SRA信息的所有记录
									'-----------------------------------------------------------------------------------------
									sql = "select * from outward_detail where detail_outw_id = "&outw_id&" and detail_guest_id = "&guest_id&""
									set rs_d = conn.execute(sql)
									if rs_d.eof then '没有该客户的记录,则将DETAIL_INFO表中的相应记录删除
										sql = "select * from detail_info where info_detail_id = "&detail_id&" "	
										set rs_info = server.CreateObject("adodb.recordset")
										rs_info.Open sql,conn,3,2
										if not rs_info.EOF then '将历史记录储存并检查
											sql = "select * from detail_info_edit "
											set rs_detail = server.CreateObject("adodb.recordset")
											rs_detail.Open sql,conn,3,3
											rs_detail.AddNew
											rs_detail("info_id") = rs_info("info_id")
											rs_detail("info_outw_id") = rs_info("info_outw_id")
											rs_detail("info_type_old") = rs_info("info_type")
											rs_detail("info_takeman_id_old") = rs_info("info_takeman_id")
											rs_detail("info_yuji_time_old") = rs_info("info_yuji_time")
											rs_detail("info_order_beizu") = rs_info("info_order_beizu")
											rs_detail("info_order_man") = rs_info("info_order_man")
											rs_detail("info_detail_id") = rs_info("info_detail_id")
											rs_detail("delete_flag") = 1
											rs_detail("edit_man") = User
											rs_detail("edit_fact_date") = now()
											rs_detail.Update
											rs_detail.Close
											set rs_detail = nothing
											rs_info.Delete
											''''''''''''''''''''''''''''''
											'删除相应的易联单号
											'''''''''''''''''''''''''''''
											if elink_id <> 0 then
												sql = "select * from outward_elink where elink_id = "&elink_id&" "
												set rs_elink = server.CreateObject("adodb.recordset")
												rs_elink.Open sql,conn,3,2
												if not rs_elink.EOF then
													sql ="select * from outward_elink_edit"
													set rs_el_da = server.CreateObject("adodb.recordset")
													rs_el_da.Open sql,conn,3,3
													rs_el_da.AddNew 
													rs_el_da("elink_id") = rs_elink("elink_id")
													rs_el_da("elink_odd_old") = rs_elink("elink_odd")
													rs_el_da("cull_date_old") = rs_elink("cull_date")
													rs_el_da("tranport_no_old") = rs_elink("transport_no")
													rs_el_da("fact_weight_old") = rs_elink("fact_weight")
													rs_el_da("tally_weight_old") = rs_elink("tally_weight")
													rs_el_da("cull_beizu") = rs_elink("cull_beizu")
													rs_el_da("cull_operate_old") = rs_elink("cull_operate")
													rs_el_da("send_date_old") = rs_elink("send_date")
													rs_el_da("transport_type_old") = rs_elink("transport_type")
													rs_el_da("attemper") = rs_elink("attemper")
													rs_el_da("attemper_dc_id_old") = rs_elink("attemper_dc_id")
													rs_el_da("rec_date_old") = rs_elink("rec_date")
													rs_el_da("rec_man_old") = rs_elink("rec_man")
													rs_el_da("rec_idcard_old") = rs_elink("rec_idcard")
													rs_el_da("rec_beizu") = rs_elink("rec_beizu")
													rs_el_da("sign_man") = rs_elink("sign_man")
													rs_el_da("elink_flag") = rs_elink("elink_flag")
													rs_el_da("elink_companyid") = rs_elink("elink_companyid")
													rs_el_da("cull_man") = rs_elink("cull_man")
													rs_el_da("elink_dc_id") = rs_elink("elink_dc_id")
													rs_el_da("elink_dir_flag") = rs_elink("elink_dir_flag")
													rs_el_da("elink_guest_id") = rs_elink("elink_guest_id")
													rs_el_da("elink_outw_id") = rs_elink("elink_outw_id")
													rs_el_da("elink_outw_date") = rs_elink("elink_outw_date")
													rs_el_da("delete_flag") = 1
													rs_el_da("edit_man") = User
													rs_el_da("edit_fact_date") = now()
													rs_el_da.Update
													rs_el_da.Close
													set rs_el_da = nothing
													rs_elink.Delete
													
												end if
												rs_elink.Close
												set rs_elink = nothing
											end if
											'易联单号删除完成
											'''''''''''''''''''''''''
											sql = "select * from outward_detail where detail_outw_id = "&outw_id&" "
											set rs_id = conn.execute(sql)
											if rs_id.eof then
												sql = "select * from outward where outw_id = "&outw_id&" "
												set rs = server.CreateObject("adodb.recordset") 
												rs.open sql,conn,3,2
												if not rs.eof then
												
													'在修改记录之前将相应的数据保存到编辑表中，供以后查证
													sql = "select * from outward_edit"
													set rs_edit = server.CreateObject("adodb.recordset")
													rs_edit.Open sql,conn,3,3
													rs_edit.AddNew
													rs_edit("outw_id") = outw_id
													rs_edit("outw_date_old") = rs("outw_date")
													rs_edit("outw_fact_date_old") = rs("outw_fact_date")
													rs_edit("outw_consign_date_old") = rs("outw_consign_date")
													rs_edit("outw_sra_old") = rs("outw_sra")
													rs_edit("outw_dc_id") = rs("outw_dc_id")
													rs_edit("outw_outstock_date_old") = rs("outw_outstock_date")
													rs_edit("outw_stock_beizu_old") = rs("outw_stock_beizu")
													rs_edit("outw_stock_man_old") = rs("outw_stock_man")
													rs_edit("outw_stock_operate_old") = rs("outw_stock_operate")
													rs_edit("outw_flag") = rs("outw_flag")
													rs_edit("outw_companyid") = newcompanyid
													rs_edit("outw_disabled") = rs("outw_disabled")
													rs_edit("outw_dir_flag") = rs("outw_dir_flag")
													rs_edit("outw_take_address_old") = rs("outw_take_address")
													rs_edit("outw_line_no_old") = rs("outw_line_no")
													rs_edit("outw_take_no_old") = rs("outw_take_no")
													rs_edit("outw_service_beizu") = rs("outw_service_beizu")
													rs_edit("outw_service_man") = rs("outw_service_man")
													rs_edit("stock_flag") =	rs("stock_flag")
													rs_edit("cull_flag") = rs("cull_flag")
													rs_edit("attemper_flag") = rs("attemper_flag")
													rs_edit("tiaoma_flag") = rs("tiaoma_flag")
													rs_edit("delete_flag") = 0
													rs_edit("edit_man") = User
													rs_edit("edit_fact_date") = now()
													rs_edit("edit_beizu") = edit_beizu
													rs_edit.Update
													rs_edit.Close
													set rs_edit = nothing
													rs.delete
												end if
												rs.Close
												set rs = nothing
											end if
											rs_id.close
											set rs_id = nothing
											''''''''''''''''''''''''
											'查找是否有其它相应的outward信息，若没有，则删除该OUTWARD记录
																	
											''''''''''''''''''''''''''''
											
										end if
										rs_info.Close 
										set rs_info = nothing	
									end if
									rs_d.close
									set rs_d = nothing
									'---------------------------------------------------------------------------------------------
									
								else	
									sql = "update outward_detail set detail_no = "&detail_no_now&" where detail_id = "&detail_id&" "
									conn.execute(sql)
								end if
							end if						
						end if 
					end if	
			end if
			rs_xx.close
			set rs_xx = nothing
			call closedatabase
			Response.Write "<script language=javascript>"	
			Response.Write "{alert(""记录修改完成！"");window.close();}"		
			Response.Write "</script>"
			Response.End 
	
else
	sql = "select * from outward_detail where detail_id = "&detail_id&" "
	set rs_xx = conn.execute(sql)
	if not rs_xx.eof then

%>
<form action="odd_edit_no.asp" method="POST" name="output1">
<table align=center width=100%  cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC' border="1">
<tr>
 <td colspan=4 align=center bgcolor=red><b><font color=yellow>出库记录详细信息一览</font></b></td>
</tr>
<%
		prod_id = rs_xx("detail_prod_id")
		detail_no = rs_xx("detail_no")
		elink_id = rs_xx("detail_elink_id")
			
			Response.Write "<tr bgcolor=green>"
			Response.Write "<td width=""15%""><b><font color=white> 客户信息：</font></b></td>"
			Response.Write "<td width=""35%"">"
			Response.Write "<b><font color=white> 产品</font></b></td>"
			Response.Write "<td width=""50%"">"
			Response.Write "<b><font colspan=""2"" color=white>&nbsp;数量</font></b></td>"
			Response.Write "</tr>"
			Response.Write "<tr>"
			Response.Write "<td width=""25%"">&nbsp;</td>"
			Response.Write "<td width=""35%"">"
			Response.Write "<select name=""prod_id""  onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"	
		if ziti_flag = 0 then
			sql = "select * from product where prod_dir_flag = 0 and prod_flag = (select prod_flag from product where prod_companyid = "&newcompanyid&" and prod_id = "&prod_id&")"
		elseif ziti_flag = 1 then
			sql = "select * from product where prod_dir_flag = 1 and prod_flag = (select prod_flag from product where prod_companyid = "&newcompanyid&" and prod_id = "&prod_id&")"
		end if
		sql = sql + " order by prod_no asc "
		set rs_prod = conn.execute(sql)
		do while not rs_prod.eof 
			prod_id_table = rs_prod("prod_id") 
			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")
			if prod_id = prod_id_table then
				Response.Write "<option value="&prod_id_table&" selected>"&prod_no &" " & prod_type &" " & prod_color &" " & prod_pinming &" " & prod_weight &" " & prod_volume&"</option>"
			else
				Response.Write "<option value="&prod_id_table&">"&prod_no &" " & prod_type &" " & prod_color &" " & prod_pinming &" " & prod_weight &" " & prod_volume&"</option>"
			end if
			rs_prod.movenext
		loop
		rs_prod.close
		set rs_prod = nothing
			Response.Write "</select>"
			Response.Write "</td>"
			Response.Write "<td colspan=2 width=""40%"">"
			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='detail_no' value='"&detail_no&"' maxlength=15 onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
			Response.Write "</td>"
			'Response.Write "</td>"		
			Response.Write "</tr>"
	rs_xx.close
	set rs_xx = nothing
%>
 <input type=hidden name=ziti_flag value=<%=ziti_flag%>>
 <input type=hidden name=detail_id value=<%=detail_id%>>
 <input type=hidden name=companyid value=<%=newcompanyid%>>
<tr bgcolor=white>
   <td colspan="5"><br><br>
   <center>
   <input class=buttonface type=button  onclick="datacheck()" name=ok value=修改>
   <input class=buttonface type=button name=ok value="后退" onclick="javascript:history.back();">
   	</center>
	<br><br>
 </tr>
</table>
</form>
 <%
 else
	Response.Write "可能该数据已经被他人删除,请刷新主页面!"
	rs_xx.close
	set rs_xx = nothing
end if
call closedatabase
%>
<br><br>
 <script language=vbscript>
<!--
Sub datacheck()
if trim(output1.detail_no.value)=empty then
   msgbox "「数量」不得为空白！", 64, "请输入数量!"
     document.output1.detail_no.focus()
     Exit Sub
  End if
if not isnumeric(trim(output1.detail_no.value)) then
   msgbox "「数量」必须为数字！", 64, "请输入数量!"
     document.output1.detail_no.focus()
     Exit Sub
  End if
if clng(trim(output1.detail_no.value)) < 0 then
   msgbox "「数量」必须大于等于 0 ！", 64, "请输入正确的数量!"
     document.output1.detail_no.focus()
     Exit Sub
  End if
if trim(output1.detail_no.value) = "0" then
   if msgbox("由于数量为 0 ,所以这将删除该产品记录! 按[确 定]删除,按[取 消]放弃!",1) = 2 then
     document.output1.detail_no.focus()
     Exit Sub
   end if
End if
output1.Submit
End Sub
-->
</script>
 
  <%
end if
%>
</body>
</html>