<!--#INCLUDE FILE="lynx_admin_include.asp"-->
<!--#INCLUDE FILE="email.asp"-->
<%

'on error resume next

Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionTimeout = 15
conn.CommandTimeout = 30
Conn.Open "Driver={MySQL ODBC 3.51 Driver};" & _
           "Database=thomas;" & _
           "Uid=thomas;" & _
           "Pwd=maxxwebs"

warranty_id = request.querystring("wid")           

if request.form("submit1") = "Update" then
	blnUpdate = true
	status = request.form("status") 
end if

if request.form("submit1") = "Approve" then
	blnUpdate = true
	status = "Approved"
	sql = "select customer_name,serial_num,theDate,email from warranty w inner join distributor d on w.dist_id = d.dist_id where warranty_id = " & warranty_id
	set rsX = conn.execute(sql)
	
	msg = "Your Warranty was Lynx Power Systems has been approved." & vbcrlf
	msg = msg & " " & vbcrlf
	msg = msg & "Customer: " & rsX("customer_name") & vbcrlf & vbcrlf
	msg = msg & "Serial #: " &  rsX("serial_num")  & vbcrlf
	msg = msg & "Entered: " &  rsX("theDate")  & vbcrlf
	
	subject = "Warranty Approved at Lynx Power Systems"
	
	SendMail email,subject, msg 
end if

if request.form("submit1") = "Deny" then
	blnUpdate = true
	status = "Denied"
	sql = "select customer_name,serial_num,theDate,email from warranty w inner join distributor d on w.dist_id = d.dist_id where warranty_id = " & warranty_id
	set rsX = conn.execute(sql)
	
	msg = "Your Warranty was Lynx Power Systems has been denied." & vbcrlf
	msg = msg & " " & vbcrlf
	msg = msg & "Customer: " & rsX("customer_name") & vbcrlf & vbcrlf
	msg = msg & "Serial #: " &  rsX("serial_num")  & vbcrlf
	
	subject = "Warranty Denied at Lynx Power Systems"
	
	SendMail rs("email"),subject, msg 
end if

if request.form("submit1") = "Reset" then
	blnUpdate = true
	status = "Pending"
end if

if request.form("submit1") = "Close Warranty" then
	sql = "update warranty set closed = 1 where warranty_id = " & warranty_id
	conn.execute(sql)
	response.redirect "warranty_list.asp"
end if

if blnUpdate then
	service_center = CheckString(Request.form("service_center"))
	theUser = CheckString(Request.form("theUser"))
	user_location = CheckString(Request.form("user_location"))
	theDate = FormatDT(Request.form("theDate"))
	model_num = CheckString(Request.form("model_num"))
	serial_num = CheckString(Request.form("serial_num"))
	emi_num = CheckString(Request.form("emi_num"))
	hours = CheckNumber(Request.form("hours"))
	engine_make = CheckString(Request.form("engine_make"))
	engine_model = CheckString(Request.form("engine_model"))
	engine_serial = CheckString(Request.form("engine_serial"))
	switch_make = CheckString(Request.form("switch_make"))
	switch_model = CheckString(Request.form("switch_model"))
	switch_serial = CheckString(Request.form("switch_serial"))
	failure_summary = CheckString(Request.form("failure_summary"))
	work_summary = CheckString(Request.form("work_summary"))
	performed_by = CheckString(Request.form("performed_by"))
	mx_num = CheckString(Request.form("mx_num"))
	travel_hours = CheckNumber(Request.form("travel_hours"))
	travel_rate = CheckNumber(Request.form("travel_rate"))
	travel_time_ext = CheckNumber(Request.form("travel_time_ext"))
	submitted_by = CheckString(Request.form("submitted_by"))
	travel_miles = CheckNumber(Request.form("travel_miles"))
	travel_mile_rate = CheckNumber(Request.form("travel_mile_rate"))
	travel_distance_ext = CheckNumber(Request.form("travel_distance_ext"))
	repair_hours = CheckNumber(Request.form("repair_hours"))
	repair_rate = CheckNumber(Request.form("repair_rate"))
	repair_ext = CheckNumber(Request.form("repair_ext"))
	phone_num = CheckString(Request.form("phone_num"))
	total_expense_claimed = CheckNumber(Request.form("total_expense_claimed"))
	claim_date = CheckString(Request.form("claim_date"))
	num_trips = CheckNumber(Request.form("num_trips"))
	customer_name = CheckString(Request.form("customer_name"))
	signed_date = FormatDT(Request.form("signed_date"))
	aa_travel_time = CheckNumber(Request.form("aa_travel_time"))
	aa_travel_miles = CheckNumber(Request.form("aa_travel_miles"))
	aa_repair_time = CheckNumber(Request.form("aa_repair_time"))
	aa_total = CheckNumber(Request.form("aa_total"))
	approved_by = CheckString(Request.form("approved_by"))
	comments = CheckString(Request.form("comments"))

	sql = "update warranty set service_center = '" & service_center & "',theUser = '" & theUser & "',user_location = '" & user_location & "',theDate = '" & theDate & "',model_num = '" & model_num & "',serial_num = '" & serial_num & "',emi_num = '" & emi_num & "',hours = " & hours & ",engine_make = '" & engine_make & "',engine_model = '" & engine_model & "',engine_serial = '" & engine_serial & "',switch_make = '" & switch_make & "',switch_model = '" & switch_model & "',switch_serial = '" & switch_serial & "',failure_summary = '" & failure_summary & "',work_summary = '" & work_summary & "',performed_by = '" & performed_by & "',mx_num = '" & mx_num & "',travel_hours = " & travel_hours & ",travel_rate = " & travel_rate & ",travel_time_ext = " & travel_time_ext & ",submitted_by = '" & submitted_by & "',travel_miles = " & travel_miles & ",travel_mile_rate = " & travel_mile_rate & ",travel_distance_ext = " & travel_distance_ext & ",repair_hours = " & repair_hours & ",repair_rate = " & repair_rate & ",repair_ext = " & repair_ext & ",phone_num = '" & phone_num & "',total_expense_claimed = " & total_expense_claimed & ",claim_date = '" & claim_date & "',num_trips = " & num_trips & ",customer_name = '" & customer_name & "',signed_date = '" & signed_date & "',aa_travel_time = " & aa_travel_time & ",aa_travel_miles = " & aa_travel_miles & ",aa_repair_time = " & aa_repair_time & ",aa_total = " & aa_total & ",approved_by = '" & approved_by & "',comments = '" & comments & "',status = '" & status & "' where warranty_id = " & warranty_id
'd sql	
	conn.execute(sql)
	
	sql = "select * from materials_replaced where warranty_id = " & warranty_id & " order by mr_id"
	set rsX = conn.Execute(Sql)
	do while not rsX.eof 	
		mr_id  = rsX("mr_id")
		mr_qty = CheckNumber(Request.form("mr_qty" & mr_id))
		mr_descr = CheckString(Request.form("mr_descr" & mr_id))
		mr_part_num = CheckString(Request.form("mr_part_num" & mr_id))
		mr_price = CheckNumber(Request.form("mr_price" & mr_id))
		mr_ext = CDbl(mr_qty) * CDbl(mr_price)
	
		sql = "update materials_replaced set mr_qty = " & mr_qty & ",mr_descr = '" & mr_descr & "',mr_part_num = '" & mr_part_num & "',mr_price = " & mr_price & ",mr_ext = " & mr_ext & " where mr_id = " & mr_id	
		conn.Execute(sql)
	rsX.movenext: loop

	mr_id  = 0
	mr_qty = CheckNumber(Request.form("mr_qty" & mr_id))
	mr_descr = CheckString(Request.form("mr_descr" & mr_id))
	mr_part_num = CheckString(Request.form("mr_part_num" & mr_id))
	mr_price = CheckNumber(Request.form("mr_price" & mr_id))
	mr_ext = CheckNumber(Request.form("mr_ext" & mr_id))

	if mr_qty > 0 then
		mr_ext = CDbl(mr_qty) * CDbl(mr_price)
		sql = "insert into materials_replaced (warranty_id,mr_qty,mr_descr,mr_part_num,mr_price,mr_ext) values(" & warranty_id & "," & mr_qty & ",'" & mr_descr & "','" & mr_part_num & "'," & mr_price & "," & mr_ext & ")"
		conn.Execute(sql)
	end if	
end if

if request.form("mr_delete") = "true" then
	del_mr_id = CheckNumber(request.form("del_mr_id"))
	sql = "delete from materials_replaced where mr_id = " & del_mr_id
	conn.Execute(sql)
end if

if warranty_id = "" then warranty_id = 0

sql = "select * from warranty where warranty_id = " & warranty_id 
set rs = conn.Execute(sql)
on error resume next

if rs.eof then
	subCap = "Submit"
else
	subCap = "Update"
end if

%>
<html>
<head>
<title>Lynx Power Systems Warranty</title>
<script language=javascript>
function DeleteMR(mr_id){
	if(confirm('Delete this item?')){
		document.form1.mr_delete.value = 'true';
		document.form1.del_mr_id.value = mr_id;
		document.form1.submit();
	}
}

function PrintWarranty(){
	window.open("warranty_print.asp?wid=<%=warranty_id%>","print","width=775,height=550,scrollbars=yes,menubar=yes")
}

</script>
</head>
<body>

<div align="center"><small><a href="warranty_list.asp">Open Warranty List</a> 
  | <a href="warranty_list.asp?closed=true">Closed Warranty List</a> | <a href="#" onclick="PrintWarranty()">Print 
  Warranty</a> </small> </div>
<div align="center"></div>
<P> 
<table align=center width=770 cellpadding=3 cellspacing=0 bordercolor=black border=1>
<form action="warranty_form.asp?wid=<%=warranty_id%>" method=post name="form1">
<input type=hidden name="mr_delete" value="">
<input type=hidden name="del_mr_id" value="">
<input type=hidden name="status" value="<%=rs("status")%>">
<tr><td>
	<table width=100% border =0>
	<tr>
		<td width=30%>Lnyx Authorized Service Center:<br><input name="service_center" value="<%=rs("service_center")%>"></td>
		<td width=23%>User :<br><input name="theUser" value="<%=rs("theUser")%>"></td>
		<td width=23%>User Location:<br><input name="user_location" value="<%=rs("user_location")%>"></td>
		<td width=23%>Date:<br><input name="theDate" value="<%=rs("theDate")%>"></td>
	</tr>
	</table>
</td></tr><tr><td>
	<table width=100%>
	<tr>
		<td width=25%>Genset Model #:<br><input name="model_num" value="<%=rs("model_num")%>" size=25></td>
		<td width=25%>Genset Serial #:<br><input name="serial_num" value="<%=rs("serial_num")%>" size=25></td>
		<td width=25%>Genset EMI #:<br><input name="emi_num" value="<%=rs("emi_num")%>" size=25></td>
		<td width=25%>Hours:<br><input name="hours" value="<%=rs("hours")%>" size=8></td>
	</tr>
	</table>
</td></tr><tr><td align =center>
	<STRONG>Engine Component Failure:</STRONG> 	
</td></tr><tr><td>
	<table width=100%>
	<tr>
		<td width=33%>Engine Make:<br><input name="engine_make" value="<%=rs("engine_make")%>" size=35></td>
		<td width=33%>Engine Model #:<br><input name="engine_model" value="<%=rs("engine_model")%>" size=35></td>
		<td width=33%>Engine Serial #:<br><input name="engine_serial" value="<%=rs("engine_serial")%>" size=35></td>
	</tr>
	</table>	
</td></tr><tr><td align =center>
	<STRONG>Transfer Switch Component Failure:</STRONG> 	
</td></tr><tr><td>
	<table width=100%>
	<tr>
		<td width=33%>Switch Make:<br><input name="switch_make" value="<%=rs("switch_make")%>" size=35></td>
		<td width=33%>Switch Model #:<br><input name="switch_model" value="<%=rs("switch_model")%>" size=35></td>
		<td width=33%>Switch Serial #:<br><input name="switch_serial" value="<%=rs("switch_serial")%>" size=35></td>
	</tr>
	</table>
</td></tr><tr><td>
	<table>
	<tr>
		<td>Failure Summary:<br><textarea name="failure_summary" cols =90 rows =3><%=rs("failure_summary")%></textarea></td>
	</tr>
	</table>		
</td></tr><tr><td>
	<table>
	<tr>
		<td>Summary of Work Performed:<br><textarea name="work_summary" cols =90 rows =4><%=rs("work_summary")%></textarea></td>
	</tr>
	</table>	
</td></tr><tr><td>
	<table>
	<tr>
		<td width=50%>Work Performed by:&nbsp;<input name="performed_by" value="<%=rs("performed_by")%>" size=35></td>
		<td width=50%>MX #:&nbsp;<input name="mx_num" value="<%=rs("mx_num")%>" size=35></td>
	</tr>
	</table>		
</td></tr><tr><td>
	<STRONG>Materials Replaced:</STRONG> 
<%if subCap = "Submit" then%>
Form must be submitted before adding items.	
<%else%>
	
</td></tr><tr><td>
	<table width=100%>
	<tr>
		<td>Qty</td>
		<td>Parts Description</td>
		<td>Parts #</td>
		<td>Price Per Item</td>
		<td>Total</td>
	</tr>
<%	sql = "select * from materials_replaced where warranty_id = " & warranty_id & " order by mr_id"
	set rsX = conn.Execute(Sql)
	do while not rsX.eof 
	%>
	<tr>
		<td><input name="mr_qty<%=rsX("mr_id")%>" value="<%=rsX("mr_qty")%>" size=4></td>
		<td><input name="mr_descr<%=rsX("mr_id")%>" value="<%=rsX("mr_descr")%>" size=50></td>
		<td><input name="mr_part_num<%=rsX("mr_id")%>" value="<%=rsX("mr_part_num")%>" size=25></td>
		<td><input name="mr_price<%=rsX("mr_id")%>" value="<%=rsX("mr_price")%>" size=10></td>
		<td><input name="mr_ext<%=rsX("mr_id")%>" value="<%=rsX("mr_ext")%>" size=10 disabled></td>
		<td><input type=button value="Delete" onclick="DeleteMR(<%=rsX("mr_id")%>)"></td>
	</tr>
<%	rsX.movenext: loop %>
	<tr>
		<td><input name="mr_qty0" size=3></td>
		<td><input name="mr_descr0" size=45></td>
		<td><input name="mr_part_num0" size=20></td>
		<td><input name="mr_price0" size=8></td>
		<td><input name="mr_ext0" size=8 disabled></td>
		<td></td>
	</tr>
	</table>
<%end if%>	
</td></tr><tr><td>
	<table width=100%>
	<tr>
		<td width=100>Travel Time:</td> 
		<td width=120><input name="travel_hours" value="<%=rs("travel_hours")%>" size=5> Hours x</td>
		<td width=100><input name="travel_rate" value="<%=rs("travel_rate")%>" size=5>/hr</td>
		<td>Total $:<input name="travel_time_ext" value="<%=rs("travel_time_ext")%>" size=5></td>
		<td>Submitted By: <input name="submitted_by" value="<%=rs("submitted_by")%>" size=30></td>
	</tr>
	</table>	

	<table width=100% border =0>
	<tr>
		<td width=100>Travel Distance:</td> 
		<td width=120><input name="travel_miles" value="<%=rs("travel_miles")%>" size=5> Miles x</td>
		<td width=100><input name="travel_mile_rate" value="<%=rs("travel_mile_rate")%>" size=5>/mi</td>
		<td>Total $:<input name="travel_distance_ext" value="<%=rs("travel_distance_ext")%>" size=5></td>
		<td></td>
	</tr>
	</table>	

	<table width=100% border =0>
	<tr>
		<td width=100>Repair Time:</td> 
		<td width=120><input name="repair_hours" value="<%=rs("repair_hours")%>" size=5> Hours x</td>
		<td width=100><input name="repair_rate" value="<%=rs("repair_rate")%>" size=5>/hr</td>
		<td>Total $:<input name="repair_ext" value="<%=rs("repair_ext")%>" size=5></td>
		<td>Tel #:<input name="phone_num" value="<%=rs("phone_num")%>" size=30></td>
	</tr>
	</table>	
</td></tr><tr><td>
	<table width=100%>
	<tr>
		<td align =center> Total warranty expense claimed &nbsp; &nbsp; $:<input name="total_expense_claimed" value="<%=rs("total_expense_claimed")%>" size=8>
	 &nbsp; &nbsp; Date: <input name="claim_date" value="<%=rs("claim_date")%>" size=8>
	 &nbsp; &nbsp; Number of Trips: <input name="num_trips" value="<%=rs("num_trips")%>" size=3></td>
	</tr>
	</table>	
</td></tr><tr><td align =center>
	<STRONG>To Be Completed By Customer:</STRONG> 	
</td></tr><tr><td>
	<table width=100%>
	<tr>
		<td width=200>Signature<br>&nbsp;</td>
		<td>I agree Warranty work was completed on this day to my satisfaction.<br>&nbsp;</td>
	</tr>
	</table>
</td></tr><tr><td>
	<table>
	<tr>
		<td>Printed Name<br><input name="customer_name" value="<%=rs("customer_name")%>" size=50></td>
		<td>Date:<br><input name="signed_date" value="<%=rs("signed_date")%>" size=25></td>
	</tr>
	</table>		
</td></tr><tr><td align =center>
	<STRONG>To Be Completed By Lynx Power Systems:</STRONG> 		
</td></tr><tr><td>
	<table width=100%>
	<tr>
		<td>Approved Amounts: &nbsp; Travel Time: <input name="aa_travel_time" value="<%=rs("aa_travel_time")%>" size=8>
		Travel Miles: <input name="aa_travel_miles" value="<%=rs("aa_travel_miles")%>" size=8>
		Repair Time: <input name="aa_repair_time" value="<%=rs("aa_repair_time")%>" size=8>
		Total: <input name="aa_total" value="<%=rs("aa_total")%>" size=8></td>
	</tr>
	</table>
</td></tr><tr><td>
	<table>
	<tr>
		<td>Approved by: <input name="approved_by" value="<%=rs("approved_by")%>" size=70></td>
	</tr>
	</table>
</td></tr><tr><td>
	<table>
	<tr>
		<td>Comments: <input name="comments" value="<%=rs("comments")%>" size=70></td>
	</tr>
	</table>
</td></tr><tr><td>
	<table>
	<tr><td>
		<input type =submit name="submit1" 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 Warranty">
	</td></tr>
	</table>
</td></tr></table>

</form>
<P>&nbsp;</P>


</BODY>
</HTML>