rs_edit_input.asp

oa办公系统asp程序

if order_kg_2_8="" or isnumber(order_kg_2_8) = false then 
 	
  	'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第8行ORDER(KG)有问题！</li>"
	line_2_8="k"
end if
if order_yd_2_8="" or isnumber(order_yd_2_8) = false then 
 	
  	'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第8行ORDER(YD)有问题！</li>"
	line_2_8="k"
end if
if malaysia_kg_2_8="" or isnumber(malaysia_kg_2_8) = false then
	malaysia_kg_2_8=0
end if
if malaysia_yd_2_8="" or isnumber(malaysia_yd_2_8)=false then
malaysia_yd_2_8=0
end if
if shanghai_kg_2_8="" or isnumber(shanghai_kg_2_8) = false then
	shanghai_kg_2_8=0
end if
if shanghai_yd_2_8="" or isnumber(shanghai_yd_2_8)=false then
shanghai_yd_2_8=0
end if
if malaysia_kg_2_8=0 and shanghai_kg_2_8=0 then
 		
  		'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第8行D/O QTY(KGS)有问题！1</li>"
		line_2_8="k"
end if
if malaysia_yd_2_8=0 and shanghai_yd_2_8=0 then
 		
  		'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第8行D/O QTY(KGS)有问题！2</li>"
		line_2_8="k"
end if
if etd_date_2_8="" or isdate(etd_date_2_8) = false then 
 	
  	'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第8行ETD_DATE有问题！</li>"
	line_2_8="k"
end if
'-------------------------------------------------------------------------------------

if color_2_9="" or isnumber(color_2_9) = false then 
 	
  	'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第9行COLOR有问题！</li>"
	line_2_9="k"
end if
if order_kg_2_9="" or isnumber(order_kg_2_9) = false then 
 	
  	'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第9行ORDER(KG)有问题！</li>"
	line_2_9="k"
end if
if order_yd_2_9="" or isnumber(order_yd_2_9) = false then 
 	
  	'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第9行ORDER(YD)有问题！</li>"
	line_2_9="k"
end if
if malaysia_kg_2_9="" or isnumber(malaysia_kg_2_9) = false then
	malaysia_kg_2_9=0
end if
if malaysia_yd_2_9="" or isnumber(malaysia_yd_2_9)=false then
malaysia_yd_2_9=0
end if
if shanghai_kg_2_9="" or isnumber(shanghai_kg_2_9) = false then
	shanghai_kg_2_9=0
end if
if shanghai_yd_2_9="" or isnumber(shanghai_yd_2_9)=false then
shanghai_yd_2_9=0
end if
if malaysia_kg_2_9=0 and shanghai_kg_2_9=0 then
 		
  		'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第9行D/O QTY(KGS)有问题！1</li>"
		line_2_9="k"
end if
if malaysia_yd_2_9=0 and shanghai_yd_2_9=0 then
 		
  		'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第9行D/O QTY(KGS)有问题！2</li>"
		line_2_9="k"
end if
if etd_date_2_9="" or isdate(etd_date_2_9) = false then 
 	
  	'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第9行ETD_DATE有问题！</li>"
	line_2_9="k"
end if
'-------------------------------------------------------------------------------------

if color_2_10="" or isnumber(color_2_10) = false then 
 	
  	'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第10行COLOR有问题！</li>"
	line_2_10="k"
end if
if order_kg_2_10="" or isnumber(order_kg_2_10) = false then 
 	
  	'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第10行ORDER(KG)有问题！</li>"
	line_2_10="k"
end if
if order_yd_2_10="" or isnumber(order_yd_2_10) = false then 
 	
  	'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第10行ORDER(YD)有问题！</li>"
	line_2_10="k"
end if
if malaysia_kg_2_10="" or isnumber(malaysia_kg_2_10) = false then
	malaysia_kg_2_10=0
end if
if malaysia_yd_2_10="" or isnumber(malaysia_yd_2_10)=false then
malaysia_yd_2_10=0
end if
if shanghai_kg_2_10="" or isnumber(shanghai_kg_2_10) = false then
	shanghai_kg_2_10=0
end if
if shanghai_yd_2_10="" or isnumber(shanghai_yd_2_10)=false then
shanghai_yd_2_10=0
end if
if malaysia_kg_2_10=0 and shanghai_kg_2_10=0 then
 		
  		'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第10行D/O QTY(KGS)有问题！1</li>"
		line_2_10="k"
end if
if malaysia_yd_2_10=0 and shanghai_yd_2_10=0 then
 		
  		'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第10行D/O QTY(KGS)有问题！2</li>"
		line_2_10="k"
end if
if etd_date_2_10="" or isdate(etd_date_2_10) = false then 
 	
  	'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第10行ETD_DATE有问题！</li>"
	line_2_10="k"
end if
'-------------------------------------------------------------------------------------


if color_2_11="" or isnumber(color_2_11) = false then 
 	
  	'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第11行COLOR有问题！</li>"
	line_2_11="k"
end if
if order_kg_2_11="" or isnumber(order_kg_2_11) = false then 
 	
  	'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第11行ORDER(KG)有问题！</li>"
	line_2_11="k"
end if
if order_yd_2_11="" or isnumber(order_yd_2_11) = false then 
 	
  	'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第11行ORDER(YD)有问题！</li>"
	line_2_11="k"
end if
if malaysia_kg_2_11="" or isnumber(malaysia_kg_2_11) = false then
	malaysia_kg_2_11=0
end if
if malaysia_yd_2_11="" or isnumber(malaysia_yd_2_11)=false then
malaysia_yd_2_11=0
end if
if shanghai_kg_2_11="" or isnumber(shanghai_kg_2_11) = false then
	shanghai_kg_2_11=0
end if
if shanghai_yd_2_11="" or isnumber(shanghai_yd_2_11)=false then
shanghai_yd_2_11=0
end if
if malaysia_kg_2_11=0 and shanghai_kg_2_11=0 then
 		
  		'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第11行D/O QTY(KGS)有问题！1</li>"
		line_2_11="k"
end if
if malaysia_yd_2_11=0 and shanghai_yd_2_11=0 then
 		
  		'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第11行D/O QTY(KGS)有问题！2</li>"
		line_2_11="k"
end if
if etd_date_2_11="" or isdate(etd_date_2_11) = false then 
 	
  	'errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN输入第11行ETD_DATE有问题！</li>"
	line_2_11="k"
end if
'-------------------------------------------------------------------------------------


if line_1_1="k" and line_1_2="k" and line_1_3="k" and line_1_4="k" and line_1_5="k" and line_1_6="k" and line_1_7="k" and line_1_8="k" and line_1_9="k" and line_1_10="k" and line_1_11="k" then
  	errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN 第一项没有输入有效数据</li>"
END IF

if line_2_1="k" and line_2_2="k" and line_2_3="k" and line_2_4="k" and line_2_5="k" and line_2_6="k" and line_2_7="k" and line_2_8="k" and line_2_9="k" and line_2_10="k" and line_2_11="k" then
  	errmsg=errmsg+"<li>FABRIC COLOR BREAKDOWN 第二项没有输入有效数据</li>"
END IF

if founderr=false then
	sql="select * from cloth_info where ref_no = '"&ref&"' "
	rs.open sql,conn,1,3
	rs("buyer")=buyer
	rs("style_no")=style_no
	rs("pattern")=pattern
	rs("order_qty")=order_qty
	rs("merchandiser")=merchandiser
	rs("mo")=formatdatetime(mo)
	rs("buyer_po")=formatdatetime(buyer_po)
	rs("fabric_po")=formatdatetime(fabric_po)
	rs("thread_po")=formatdatetime(thread_po)
	rs("lc")=formatdatetime(lc)
	rs("clr_swatch")=formatdatetime(clr_swatch)
	rs("pattn_paper")=formatdatetime(pattn_paper)
	rs("appv_sample")=formatdatetime(appv_sample)
	rs("shpt_sample")=formatdatetime(shpt_sample)
	rs("add_user")=username
	rs("add_date")=date_now
	rs.update
	rs.close
	
	sql5="select * from cloth_fabric where ref_no = '"&ref&"' "
	rs5.open sql5,conn,1,3
	do while not rs5.eof
	rs5.delete
	rs5.movenext
	loop
	rs5.close
	sql2="select * from cloth_fabric"
	rs2.open sql2,conn,1,3
	'第一行
	if line_1_1<>"k" then
		rs2.addnew	
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_1
		rs2("color")=color_1_1
		rs2("order_kg")=order_kg_1_1
		rs2("order_yd")=order_yd_1_1
		rs2("malaysia_kg")=malaysia_kg_1_1
		rs2("malaysia_yd")=malaysia_yd_1_1
		rs2("shanghai_kg")=shanghai_kg_1_1
		rs2("shanghai_yd")=shanghai_yd_1_1
		rs2("etd_date")=etd_date_1_1
		rs2("thread")=thread_1_1
		rs2("first")=true
		rs2.update
		response.write "<br>"
		response.write "第一项-第一行数据已存储！"
	end if
	'第二行
	if line_1_2<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_1
		rs2("color")=color_1_2
		rs2("order_kg")=order_kg_1_2
		rs2("order_yd")=order_yd_1_2
		rs2("malaysia_kg")=malaysia_kg_1_2
		rs2("malaysia_yd")=malaysia_yd_1_2
		rs2("shanghai_kg")=shanghai_kg_1_2
		rs2("shanghai_yd")=shanghai_yd_1_2
		rs2("etd_date")=etd_date_1_2
		rs2("thread")=thread_1_2
		rs2("first")=true
		rs2.update
		response.write "<br>"
		response.write "第一项-第二行数据已存储！"
	end if
	'第三行
	if line_1_3<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_1
		rs2("color")=color_1_3
		rs2("order_kg")=order_kg_1_3
		rs2("order_yd")=order_yd_1_3
		rs2("malaysia_kg")=malaysia_kg_1_3
		rs2("malaysia_yd")=malaysia_yd_1_3
		rs2("shanghai_kg")=shanghai_kg_1_3
		rs2("shanghai_yd")=shanghai_yd_1_3
		rs2("etd_date")=etd_date_1_3
		rs2("thread")=thread_1_3
		rs2("first")=true
		rs2.update
		response.write "<br>"
		response.write "第一项-第三行数据已存储！"
	end if
	'第四行
	if line_1_4<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_1
		rs2("color")=color_1_4
		rs2("order_kg")=order_kg_1_4
		rs2("order_yd")=order_yd_1_4
		rs2("malaysia_kg")=malaysia_kg_1_4
		rs2("malaysia_yd")=malaysia_yd_1_4
		rs2("shanghai_kg")=shanghai_kg_1_4
		rs2("shanghai_yd")=shanghai_yd_1_4
		rs2("etd_date")=etd_date_1_4
		rs2("thread")=thread_1_4
		rs2("first")=true
		rs2.update
		response.write "<br>"
		response.write "第一项-第四行数据已存储！"
	end if
	'第五行
	if line_1_5<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_1
		rs2("color")=color_1_5
		rs2("order_kg")=order_kg_1_5
		rs2("order_yd")=order_yd_1_5
		rs2("malaysia_kg")=malaysia_kg_1_5
		rs2("malaysia_yd")=malaysia_yd_1_5
		rs2("shanghai_kg")=shanghai_kg_1_5
		rs2("shanghai_yd")=shanghai_yd_1_5
		rs2("etd_date")=etd_date_1_5
		rs2("thread")=thread_1_5
		rs2("first")=true
		rs2.update
		response.write "<br>"
		response.write "第一项-第五行数据已存储！"
	end if
	'第六行
	if line_1_6<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_1
		rs2("color")=color_1_6
		rs2("order_kg")=order_kg_1_6
		rs2("order_yd")=order_yd_1_6
		rs2("malaysia_kg")=malaysia_kg_1_6
		rs2("malaysia_yd")=malaysia_yd_1_6
		rs2("shanghai_kg")=shanghai_kg_1_6
		rs2("shanghai_yd")=shanghai_yd_1_6
		rs2("etd_date")=etd_date_1_6
		rs2("thread")=thread_1_6
		rs2("first")=true
		rs2.update
		response.write "<br>"
		response.write "第一项-第六行数据已存储！"
	end if
	'第七行
	if line_1_7<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_1
		rs2("color")=color_1_7
		rs2("order_kg")=order_kg_1_7
		rs2("order_yd")=order_yd_1_7
		rs2("malaysia_kg")=malaysia_kg_1_7
		rs2("malaysia_yd")=malaysia_yd_1_7
		rs2("shanghai_kg")=shanghai_kg_1_7
		rs2("shanghai_yd")=shanghai_yd_1_7
		rs2("etd_date")=etd_date_1_7
		rs2("thread")=thread_1_7
		rs2("first")=true
		rs2.update
		response.write "<br>"
		response.write "第一项-第七行数据已存储！"
	end if
	'第八行
	if line_1_8<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_1
		rs2("color")=color_1_8
		rs2("order_kg")=order_kg_1_8
		rs2("order_yd")=order_yd_1_8
		rs2("malaysia_kg")=malaysia_kg_1_8
		rs2("malaysia_yd")=malaysia_yd_1_8
		rs2("shanghai_kg")=shanghai_kg_1_8
		rs2("shanghai_yd")=shanghai_yd_1_8
		rs2("etd_date")=etd_date_1_8
		rs2("thread")=thread_1_8
		rs2("first")=true
		rs2.update
		response.write "<br>"
		response.write "第一项-第八行数据已存储！"
	end if
	'第九行
	if line_1_9<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_1
		rs2("color")=color_1_9
		rs2("order_kg")=order_kg_1_9
		rs2("order_yd")=order_yd_1_9
		rs2("malaysia_kg")=malaysia_kg_1_9
		rs2("malaysia_yd")=malaysia_yd_1_9
		rs2("shanghai_kg")=shanghai_kg_1_9
		rs2("shanghai_yd")=shanghai_yd_1_9
		rs2("etd_date")=etd_date_1_9
		rs2("thread")=thread_1_9
		rs2("first")=true
		rs2.update
		response.write "<br>"
		response.write "第一项-第九行数据已存储！"
	end if
	'第十行
	if line_1_10<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_1
		rs2("color")=color_1_10
		rs2("order_kg")=order_kg_1_10
		rs2("order_yd")=order_yd_1_10
		rs2("malaysia_kg")=malaysia_kg_1_10
		rs2("malaysia_yd")=malaysia_yd_1_10
		rs2("shanghai_kg")=shanghai_kg_1_10
		rs2("shanghai_yd")=shanghai_yd_1_10
		rs2("etd_date")=etd_date_1_10
		rs2("thread")=thread_1_10
		rs2("first")=true
		rs2.update
		response.write "<br>"
		response.write "第一项-第十行数据已存储！"