odd_edit_no.asp

1.多种查询方式

							'再更新为现修改的产品的库存
							'再更新现记录的数量
							if ziti_flag = 0 then
							sql = "update inventory set inve_chuku = inve_chuku - "&detail_no&",inve_maysent = inve_maysent + "&detail_no&",inve_total= inve_total + "&detail_no&" "
							sql = sql + " where inve_dc_id = "&elink_dc_id&" and inve_prod_id = "&prod_id&" "
							conn.execute(sql)
							end if
							if no = 0 then
								if ziti_flag = 0 then
								sql = "update inventory set inve_chuku = inve_chuku + "&detail_no&",inve_maysent = inve_maysent - "&detail_no&",inve_total = inve_total - "&detail_no&" "
								sql = sql + " where inve_dc_id = "&elink_dc_id&" and inve_prod_id = "&prod_id_now&" "
								conn.execute(sql)
								end if
								sql = "update outward_detail set detail_prod_id = "&prod_id_now&" where detail_id = "&detail_id&" "
								conn.execute(sql)
							else
								if ziti_flag = 0 then
								sql = "update inventory set inve_chuku = inve_chuku + "&detail_no_now&",inve_maysent = inve_maysent - "&detail_no_now&",inve_total = inve_total - "&detail_no_now&" "
								sql = sql + " where inve_dc_id = "&elink_dc_id&" and inve_prod_id = "&prod_id_now&" "
								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_prod_id = "&prod_id_now&",detail_no = "&detail_no_now&" where detail_id = "&detail_id&" "
									conn.execute(sql)
								end if
							end if
						end if
						 
					else 
					'未修改产品名称,即未选择其它类别(没有做改动)
						if elink_flag <> 1 then
							if no <> 0 then
								if ziti_flag = 0 then
								sql = "update inventory set inve_fenpei = inve_fenpei + "&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("transport_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