<!--#INCLUDE FILE="lynx_admin_include.asp"-->
  <!--#INCLUDE FILE="email.asp"-->
  <%

rma_id = request.querystring("rid")           

rma_num = CheckString(Request.Form("rma_num"))
date_entered = Request.Form("date_entered")
customer = CheckString(Request.Form("customer"))
email = CheckString(Request.Form("email"))
address = CheckString(Request.Form("address"))
address2 = CheckString(Request.Form("address2"))
city = CheckString(Request.Form("city"))
state = CheckString(Request.Form("state"))
zip = CheckString(Request.Form("zip"))
phone = CheckString(Request.Form("phone"))
fax = CheckString(Request.Form("fax"))
serial_num = CheckString(Request.Form("serial_num"))
hours_on_unit = CheckNumber(Request.Form("hours_on_unit"))
repair_date = Request.Form("repair_date")
return_reason = CheckString(Request.Form("return_reason"))
status = Request.Form("status")
dist_id = Request.Form("dist_id")

if request.form("submit1") = "Approve" then
	blnUpdate = true
	status = "Approved"
	DoAlert(status)
end if

if request.form("submit1") = "Deny" then
	blnUpdate = true
	status = "Denied"
	DoAlert(status)
end if

if request.form("submit1") = "Reset" then
	blnUpdate = true
	status = "Pending"
end if

Sub DoAlert(s)
	sql = "select r.rma_num,r.customer,d. from rma r inner join distributor d on r.dist_id = d.dist_id where rma_id = " & rma_id
	set rsX = conn.execute(sql)
	select case s
		case "Approve"
			msg = "RMA# " & rsX("rma_num") & " for has been APPROVED for:" & vbcrlf
			msg = msg & "Customer: " & rsX("customer") & vbcrlf
			msg = msg & "Serial Number: " & rsX("serial_num")
			subject = "RMA Approved at Lynx Power Systems"
		case "Deny"
			msg = "RMA# " & rsX("rma_num") & " for has been DENIED for:" & vbcrlf
			msg = msg & "Customer: " & rsX("customer") & vbcrlf
			msg = msg & "Serial Number: " & rsX("serial_num")
			subject = "RMA Denied at Lynx Power Systems"
	end select		
	SendMail rsX("email"), subject, msg
End Sub

if request.form("submit1") = "Close RMA" then
	sql = "update rma set closed = 1 where warranty_id = " & warranty_id
	conn.execute(sql)
	response.redirect "warranty_list.asp"
end if

if request.form("submit") = "Submit" then
	sql = "insert into rma (dist_id) values(" & dist_id & ")"
	conn.Execute(Sql)
	sql = "select max(rma_id) from rma where dist_id = " & dist_id
	set rs = conn.Execute(sql)
	rma_id = rs(0)
	blnUpdate = true
elseif request.form("submit") = "Update" then
	blnUpdate = true
end if

if blnUpdate then
	sql = "update rma set rma_num = '" & rma_num & "',date_entered = '" & FormatDT(date_entered) & "',customer = '" & customer & "',email = '" & email & "',address = '" & address & "',address2 = '" & address2 & "',city = '" & city	 & "',state = '" & state	 & "',zip = '" & zip	 & "',phone = '" & phone & "',fax = '" & fax & "',serial_num = '" & serial_num & "',hours_on_unit = " & hours_on_unit & ",repair_date = '" & FormatDT(repair_date) & "',return_reason = '" & return_reason & "',status = '" & status & "' where rma_id = " & rma_id
'd sql
	conn.Execute(sql)
	
	sql = "select * from rma_parts where rma_id = " & rma_id & " order by rma_parts_id"
	set rsX = conn.Execute(Sql)
	do while not rsX.eof 	
		rma_parts_id  = rsX("rma_parts_id")
		qty = CheckNumber(Request.form("qty" & rma_parts_id))
		part_num = CheckString(Request.form("part_num" & rma_parts_id))
	
		sql = "update rma_parts set qty = " & qty & ",part_num = '" & part_num & "' where rma_parts_id = " & rma_parts_id	
		conn.Execute(sql)
	rsX.movenext: loop	
	
	rma_parts_id  = 0
	qty = CheckNumber(Request.form("qty" & rma_parts_id))
	part_num = CheckString(Request.form("part_num" & rma_parts_id))

	if trim(part_num) <> "" then
		sql = "insert into rma_parts (rma_id,qty,part_num) values(" & rma_id & "," & qty & ",'" & part_num & "')"
		conn.Execute(sql)
	end if		
	
end if

if rma_id = "" then rma_id = 0

sql = "select * from rma where rma_id = " & rma_id 
set rs = conn.Execute(sql)
on error resume next

if rs.eof then
	subCap = "Submit"
else
	subCap = "Update"
end if

%>
  <title>Lynx Power RMA</title>
  <script language=javascript>
function PrintRMA(){
	window.open("rma_print.asp?rid=<%=rma_id%>","print","width=775,height=550,scrollbars=yes,menubar=yes")
}

</script>
  <a href="#" onclick="PrintRMA()"><small>Print RMA</small></a>
<P>

<table height=35 width=770 cellpadding=0 cellspacing=0 border=0><tr><td valign=bottom align=center>

	<b>Lynx Power Systems Return Merchandise Authorization
<br>&nbsp;
</td></tr></table>

<table align=center width=770 cellpadding=0 cellspacing=0 bordercolor=black border=1><tr><td>
    <table width=100% cellpadding=3 cellspacing=0 align="center">
      <form action="rma.asp?rid=<%=rma_id%>" method=post name="form1">
<input type=hidden name="status" value="<%=rs("status")%>">
<input type=hidden name="dist_id" value="<%=rs("dist_id")%>">
<tr>
	<td width=90>RMA #</td>
	<td width=370><input name="rma_num" value="<%=rs("rma_num")%>" size=50></td>
	<td width=90 nowrap>Date Entered:</td>
	<%if subcap = "Submit" then date_entered = Date(): else date_entered = rs("date_entered")%>
	<td width=220 ><input name="date_entered" value="<%=date_entered%>"></td>
</tr>
<tr><td colspan=4>&nbsp;</td></tr>
<tr>
	<td>Customer:</td>
	<td><input name="customer" value="<%=rs("customer")%>" size=50></td>
	<td>Email:</td>
	<td><input name="email" value="<%=rs("email")%>" size=30></td>
</tr>
<tr><td colspan=4>&nbsp;</td></tr>
<tr>
	<td>Address:</td>
	<td colspan=3><input name="address" value="<%=rs("address")%>" size=70></td>
</tr>
<tr><td colspan=4>&nbsp;</td></tr>
<tr>
	<td>Address:</td>
	<td colspan=3><input name="address2" value="<%=rs("address2")%>" size=70></td>
</tr>
<tr><td colspan=4>&nbsp;</td></tr>
<tr>
	<td nowrap>City, St. Zip:</td>
	<td colspan=3><input name="city" value="<%=rs("city")%>" size=40> <input name="state" value="<%=rs("state")%>"> <input name="zip" value="<%=rs("zip")%>" size=12></td>
</tr>
<tr><td colspan=4>&nbsp;</td></tr>								
<tr>
	<td>Phone:</td>
	<td colspan=3><input name="phone" value="<%=rs("phone")%>"></td>
</tr>									
<tr><td colspan=4>&nbsp;</td></tr>								
<tr>
	<td>Fax:</td>
	<td colspan=3><input name="fax" value="<%=rs("fax")%>"></td>
</tr>
<tr><td colspan=4>&nbsp;</td></tr>
</table>

<table width=100% cellpadding=3 cellspacing=0 border=0>

<%	sql = "select * from rma_parts where rma_id = " & rma_id & " order by rma_parts_id"
	set rsX = conn.Execute(Sql)
	do while not rsX.eof %>
	<tr>
		<td width=80>Part Number:</td>
		<td width=200><input name="part_num<%=rsX("rma_parts_id")%>" value="<%=rsX("part_num")%>" size=55></td>
		<td>Qty.:</td>
		<td><input name="qty<%=rsX("rma_parts_id")%>" value="<%=rsX("qty")%>" size=5></td>
	</tr>
<%	rsX.movenext: loop %>

<tr>
	<td width=80>Part Number:</td>
	<td width=200><input name="part_num0" size=55></td>
	<td width=20>Qty.:</td>
	<td><input name="qty0" size=5></td>
</tr>

<tr><td colspan=4>&nbsp;</td></tr>
</table>
							
<table width=100% cellpadding=3 cellspacing=0 >
<tr>
	<td>Generator Serial #:</td>
	<td><input name="serial_num" value="<%=rs("serial_num")%>" size=40>
		(Must be a valid Serial Number)	</td>
</tr>
<tr><td colspan=2>&nbsp;</td></tr>
<tr>
	<td>Hours on Unit:</td>
	<td><input name="hours_on_unit" value="<%=rs("hours_on_unit")%>" size=8></td>
</tr>
<tr><td colspan=2>&nbsp;</td></tr>								
									
<tr>
	<td>Date of Repair:</td>
	<td><input name="repair_date" value="<%=rs("repair_date")%>" size=12></td>
</tr>
<tr><td colspan=2>&nbsp;</td></tr>									
									
<tr>
	<td valign=top>Reason for Return:</td>
	<td><textarea name="return_reason" cols=60 rows=6><%=rs("return_reason")%></textarea></td>
</tr>
<tr><td colspan=2>&nbsp;</td></tr>									

<tr>
	<td colspan=2>This form MUST be enclosed with the returned material.</td>
</tr>
<tr><td colspan=2>&nbsp;</td></tr>									
</table>									
<input type=submit name="submit" value="<%=subCap%>">
		<%if rs("status") = "Pending" then%>
			&nbsp; &nbsp; &nbsp;<input type=submit name="submit1" value="Approve">
			&nbsp; &nbsp; &nbsp;<input type=submit name="submit1" value="Deny">
		<%else%>
			&nbsp; &nbsp; &nbsp;<input type=submit name="submit1" value="Reset">
		<%end if%>
		&nbsp; &nbsp; &nbsp;<input type=submit name="submit1" value="Close RMA">

</form>