<!--
// Author: Yee Hsu
// Date: 6/4/2001
//
// Desc: Check out order in ASP
-->
<%Option Explicit%>
<!--#include file="../include/lib_functions.asp"-->
<!--#include file="../include/lib_page_objects.asp"-->
<!--#include file="../include/lib_sql.asp"-->
<!--#include file="../include/database.asp"-->
<!--#include file="../include/lib_constants.asp"-->
<%
DIM conn, newConn, rs, SQL, searchSQL, rsSearch, strProc, checkRS
DIM currentPage
DIM companySelection, prevStatusSelection, orderGiftIDSelection, orderStatus, currentOrderGiftId
DIM billingInfo, ccTransaction, amountAdd, amountUpdate
DIM controlSet, errorVal, batchNbr
DIM strTrxType, strTender, strExpDate, strErrorMsg
DIM priceBalance, priceTotal, pricePaid, credit, tempvar
DIM checkAmount, checkNbr, depositDate, transactionCheck
newConn = connectDB(conn)
IF NOT adminPageAccessGranted(conn) THEN disconnectDB(conn) : response.Redirect("/admin/no_permission.asp") END IF
SET billingInfo = NEW classBillingInfo
tempvar = request("Submit")
IF request("Submit") = "next >" THEN currentPage = INT(request("currentpage")) + 1 END IF
IF request("Submit") = "< previous" THEN currentPage = INT(request("currentpage")) - 1 END IF
IF request("Submit") = "|<" THEN currentPage = 1 END IF
IF request("Submit") = ">|" THEN currentPage = INT(request("recordcount")) END IF
IF request("Submit") = "[ Add ]" THEN currentPage = INT(request("currentpage")) END IF
IF request("Submit") = "Search" THEN currentPage = 1 END IF
companySelection = request("company")
prevStatusSelection = request("prevstatus")
batchNbr = UCASE(request("batchnbr"))
orderStatus = request("orderstatus")
orderGiftIDSelection = request("ordergiftid")
amountAdd = request("amountadd")
amountUpdate = request("amountupdate")
IF currentPage = "" THEN currentPage = 1 END IF
DIM myOrderIDs, orderID
'-------------------- Change Status ----------------
IF request("Submit") = "Update Status" AND request("setorderstatus") <> "" THEN
SQL = "UPDATE order_status SET process_status = '"&request("setorderStatus")&"' "
SELECT CASE request("setorderstatus")
CASE "check"
SQL = SQL & ",check_date = '"&DATE&"', "
SQL = SQL & "check_aun = '"&SESSION("adminname")&"' "
CASE "verified"
SQL = SQL & ",verified_date = '"&DATE&"', "
SQL = SQL & "verified_aun = '"&SESSION("adminname")&"' "
END SELECT
SQL = SQL & "WHERE order_gift_id = "&request("currentordergiftid")
conn.execute(SQL)
'Response.Write(sql)
END IF
'------------ ADD CHECK -------------------------------
IF request("Submit") = "[ Add ]" AND request("chknbr") <> "" AND ISDATE(request("depositdate")) THEN
IF NOT ISNUMERIC(amountAdd) THEN amountAdd = 0 END IF
strProc = Application("gstrDbName")&".os_insertCheckTransaction " &request("currentordergiftid")&", '"&request("chknbr")&"','"&request("depositdate")&"',"&amountAdd&",'"&Session("adminname")&"'"
' RETURNS ONE IS SOMETHING WENT WRONG (NO BLANCE FOUND IN ORDER GIFT HISTORY
errorVal = conn.Execute(strProc).fields(0).value
'Response.Write(strProc)
END IF
'------------ DELETE CHECK -------------------------------
IF request("Submit") = "Delete" THEN
DIM maxID
' CHECK IF THIS IS REALLY THE LATEST RECORD IN ORDER HISTORY TO ALLOW TO DELETE IT
SQL = " SELECT MAX(id) AS max_ID "_
& " FROM order_gift_history "_
& " WHERE order_gift_id = "&request("currentordergiftid")
SET rs = conn.execute(SQL)
maxID = rs("max_ID")
rs.CLOSE: SET rs = NOTHING
'IF THIS IS THE LATEST RECORD IN ORDER GIFT HISTORY THAT BELONGS TO THIS ORDER
IF INT(maxID) = INT(request("oghid")) THEN
SQL = "DELETE FROM order_gift_history WHERE id = "&request("oghid")
'Response.Write(sql)
conn.execute(SQL)
END IF
END IF
'------------ UPDATE -------------------------------
IF request("Submit") = "Update" AND request("chknbr") <> "" AND ISDATE(request("depositdate")) THEN
IF NOT ISNUMERIC(amountUpdate) THEN amountUpdate = 0 END IF
IF amountUpdate = "" THEN amountUpdate = "NULL" END IF
strProc = Application("gstrDbName")&".os_update_CheckTransaction "&request("currentordergiftid")&","&request("oghid")&",'"&request("chknbr")&"','"&request("depositdate")&"',"&amountUpdate&",'"&Session("adminname")&"'"
errorVal = conn.Execute(strProc).fields(0).value
'Response.Write(strProc)
END IF
'-------------SEARCH-----------------------------------
searchSQL = " SELECT DISTINCT TOP 100 og.id AS order_gift_id, "_
& " si.gender_id AS gender_id, "_
& " si.ssn AS ssn, "_
& " si.first_name AS first_name, "_
& " si.last_name AS last_name, "_
& " si.jnt_first_name AS jnt_first_name, "_
& " si.jnt_last_name AS jnt_last_name, "_
& " si.grd_first_name AS grd_first_name, "_
& " si.grd_last_name AS grd_last_name, "_
& " si.company_name AS sh_company_name, "_
& " si.address1 AS address1, "_
& " si.address2 AS address2, "_
& " si.city AS city, "_
& " si.state_us AS state_us, "_
& " si.state_other AS state_other, "_
& " si.zip_code AS zip_code, "_
& " si.country AS country, "_
& " si.residence_code AS residence_code, "_
& " ci.first_name AS cu_first_name, "_
& " ci.last_name AS cu_last_name, "_
& " ci.company_name AS cu_company_name, "_
& " os.process_status AS process_status, "_
& " os.paid_date AS paid_date, "_
& " os.paid_aun AS paid_aun, "_
& " os.check_date AS check_date, "_
& " os.check_aun AS check_aun, "_
& " os.verified_date AS verified_date, "_
& " os.verified_aun AS verified_aun, "_
& " os.register_date AS register_date, "_
& " os.register_aun AS register_aun, "_
& " os.frame_date AS frame_date, "_
& " os.frame_aun AS frame_aun, "_
& " os.folded_date AS folded_date, "_
& " os.folded_aun AS folded_aun, "_
& " os.spelling_date AS spelling_date, "_
& " os.spelling_aun AS spelling_aun, "_
& " os.ship_date AS ship_date, "_
& " os.ship_aun AS ship_aun, "_
& " ob.total AS total, "_
& " ob.paid AS paid, "_
& " ob.balance AS balance, "_
& " abn.batch_nbr AS batch_nbr "_
& "FROM "&Application("gstrDbName")&".acc_batch_nbr abn INNER JOIN "_
& " "&Application("gstrDbName")&".order_gift_history ON abn.pnref = order_gift_history.pnref RIGHT OUTER JOIN "_
& " "&Application("gstrDbName")&".order_gift og INNER JOIN "_
& " "&Application("gstrDbName")&".shareholder_info si ON og.ID = si.order_gift_ID INNER JOIN "_
& " "&Application("gstrDbName")&".order_status os ON og.ID = os.order_gift_ID INNER JOIN "_
& " "&Application("gstrDbName")&".order_balance ob ON og.ID = ob.order_gift_id INNER JOIN "_
& " "&Application("gstrDbName")&".customer_info ci ON og.customer_ID = ci.customer_id ON order_gift_history.order_gift_id = og.ID "_
& " WHERE "
IF companySelection <> "" THEN searchSQL = searchSQL & " c.id = "&companySelection&" AND " END IF
IF prevStatusSelection <> "" THEN
SELECT CASE prevStatusSelection
CASE "check" : searchSQL = searchSQL & " os.check_date is not null AND"
END SELECT
END IF
IF batchNbr <> "" THEN
searchSQL = searchSQL & " abn.batch_nbr = '"&batchNbr&"' AND "
END IF
IF orderStatus <> "" THEN
searchSQL = searchSQL & " os.process_status = '"&orderStatus&"' AND "
END IF
myOrderIDs = Split(orderGiftIDSelection,",")
IF orderGiftIDSelection <> "" THEN
For Each orderID in myOrderIDs
IF IsNumeric(TRIM(orderID)) THEN
searchSQL = searchSQL & " og.id = "&TRIM(orderID)&" OR "
END IF
NEXT
searchSQL = LEFT(searchSQL,LEN(searchSQL)-3) ' TAKE THE LAST OR OUT
searchSQL = searchSQL & " AND " ' AND REPLACE IT BY "AND"
END IF
' DON'T DISPLAY ANYTHING IF NOTHING SELECTED
IF batchNbr = "" AND request("prevstatus") = "" AND request("ordergiftid") = "" AND request("balance") = "" AND request("company") = "" AND request("orderstatus") = "" THEN
searchSQL = searchSQL & " 1 <> 1 AND"
END IF
searchSQL = LEFT(searchSQL,LEN(searchSQL)-4) ' TAKE THE LAST "OR" OR "AND" OUT
searchSQL = searchSQL & " ORDER BY og.id"
'response.Write(searchSQL)
'---SAVE MESSAGE--------------------
'GET SEARCH RESULT
SET rsSearch = Server.CreateObject( "ADODB.Recordset" )
rsSearch.CursorType = adOpenStatic
rsSearch.PageSize = 1
rsSearch.Open searchSQL, Conn
IF rsSearch.RecordCount < currentPage THEN currentPage = rsSearch.RecordCount END IF ' IN CASE SERACH RESULT CHANGES BETWEEN PAGING
IF NOT rsSearch.EOF THEN
rsSearch.AbsolutePage = cINT( currentPage )
'ON NEW LOAD
IF currentOrderGiftID = "" THEN currentOrderGiftID = rsSearch("order_gift_id") END IF
'CALCULATE COTROL SET
controlSet = "<INPUT NAME=""currentpage"" TYPE=""hidden"" VALUE="""¤tPage&"""> "_
&"<INPUT NAME=""recordcount"" TYPE=""hidden"" VALUE="""&rsSearch.RecordCount&"""> "_
&"<INPUT NAME=""currentordergiftid"" TYPE=""hidden"" VALUE="""
IF NOT rsSearch.EOF THEN controlSet = controlSet & currentOrderGiftID END IF
controlSet = controlSet & """>"
END IF
'Response.Write(controlSet)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<TITLE><%=title("Process Check Order")%></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<LINK HREF="/include/styles.css" REL="stylesheet" TYPE="text/css">
<SCRIPT SRC="/include/lib_functions.js"></SCRIPT>
</HEAD>
<BODY text="#663300" link="#333300" vlink="#666600" alink="#cc9900">
<TABLE BORDER="0" ALIGN="CENTER" CELLPADDING="0" CELLSPACING="0"><FORM NAME="jump" ACTION="" METHOD="POST">
<TR>
<TD><% diplayBannerAdmin "customer service","check order" %></TD>
</TR>
<TR>
<TD>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD WIDTH="77%"><B><FONT SIZE="2" FACE="Arial, Helvetica, sans-serif">- PROCESS CHECK ORDER -</FONT></B> </TD>
<TD WIDTH="23%"><DIV ALIGN="RIGHT">
<SELECT NAME="select" CLASS="textbox_8pt" onChange="document.jump.action=this.options[this.selectedIndex].value;document.jump.submit()">
<OPTION SELECTED>Jump to</OPTION>
<% IF NOT rsSearch.eof THEN %>
<OPTION VALUE="import_check_batch.asp?ordergiftid=<%= rsSearch("order_gift_id") %>">Import Check Batch</OPTION>
<OPTION VALUE="gift_announcement.asp?ordergiftid=<%= rsSearch("order_gift_id") %>">Gift Announcement</OPTION>
<OPTION VALUE="modify_gift.asp?ordergiftid=<%= rsSearch("order_gift_id") %>">Modify Gift</OPTION>
<OPTION VALUE="refund_credit.asp?ordergiftid=<%= rsSearch("order_gift_id") %>">Refund/Credit</OPTION>
<% END IF %>
</SELECT>
</DIV></TD>
</TR>
</TABLE>
</TD>
</TR></FORM>
<TR>
<TD><TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD><IMG SRC="/images/spacer.gif" WIDTH="200" HEIGHT="10"></TD>
<TD><IMG SRC="/images/spacer.gif" WIDTH="4" HEIGHT="10"></TD>
<TD><IMG SRC="/images/spacer.gif" WIDTH="410" HEIGHT="10"></TD>
<TD><IMG SRC="/images/spacer.gif" WIDTH="4" HEIGHT="10"></TD>
<TD><IMG SRC="/images/spacer.gif" WIDTH="82" HEIGHT="10"></TD>
</TR>
<TR>
<TD VALIGN="TOP">
<FORM NAME="formsearch" ACTION="check_order.asp" METHOD="POST">
<%= controlSet %>
<TABLE WIDTH="200" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#666600">
<TR>
<TD BGCOLOR="#cccc99"><CENTER>
<FONT SIZE="2" FACE="Arial, Helvetica, sans-serif"><B>Search by</B></FONT></CENTER></TD>
</TR>
<TR>
<TD><TABLE WIDTH="198" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD><IMG SRC="/images/spacer.gif" WIDTH="100" HEIGHT="10"></TD>
</TR>
<TR>
<TD>
<SELECT NAME="company" CLASS="textbox_8pt" onChange="document.formsearch.ordergiftid.value = ''">
<OPTION VALUE= "">Company</OPTION>
<% SQL = "SELECT * FROM company ORDER BY name"
SET rs = conn.execute(SQL)
WHILE NOT rs.EOF
%>
<OPTION VALUE="<%=rs("id")%>"<%IF TRIM(rs("id")) = TRIM(request("company")) THEN response.Write(" SELECTED")END IF%>><%=LEFT(rs("name"),23)%></OPTION>
<%
rs.MOVENEXT
WEND
rs.CLOSE: SET rs=NOTHING
%>
</SELECT>
</TD>
</TR>
<TR>
<TD><IMG SRC="/images/spacer.gif" WIDTH="100" HEIGHT="10"></TD>
</TR>
<TR>
<TD>
<SELECT NAME="prevstatus" CLASS="textbox_8pt" onChange="document.formsearch.ordergiftid.value = ''">
<OPTION VALUE= "">Previous Status</OPTION>
<OPTION VALUE= "check"<% IF "check" = TRIM(request("prevstatus")) THEN response.Write(" SELECTED")END IF%>>Check</OPTION>
</SELECT>
</TD>
</TR>
<TR>
<TD><IMG SRC="/images/spacer.gif" WIDTH="100" HEIGHT="10"></TD>
</TR>
<TR>
<TD>
<SELECT NAME="orderstatus" CLASS="textbox_8pt" onChange="document.formsearch.ordergiftid.value = ''">
<OPTION VALUE= "">Current Status</OPTION>
<OPTION VALUE= "pending"<% IF "pending" = TRIM(request("orderstatus")) THEN response.Write(" SELECTED")END IF%>>Pending</OPTION>
<OPTION VALUE= "check"<% IF "check" = TRIM(request("orderstatus")) THEN response.Write(" SELECTED")END IF%>>Check</OPTION>
<OPTION VALUE= "deposit"<% IF "deposit" = TRIM(request("orderstatus")) THEN response.Write(" SELECTED")END IF%>>Deposit</OPTION>
<OPTION VALUE= "verified"<% IF "verified" = TRIM(request("orderstatus")) THEN response.Write(" SELECTED")END IF%>>Verified</OPTION>
<OPTION VALUE= "cancelled"<%IF "cancelled" = TRIM(request("orderstatus")) THEN response.Write(" SELECTED")END IF%>>Cancelled</OPTION>
<OPTION VALUE= "paid"<% IF "paid" = TRIM(request("orderstatus")) THEN response.Write(" SELECTED")END IF%>>Paid</OPTION>
<OPTION VALUE= "register"<% IF "register" = TRIM(request("orderstatus")) THEN response.Write(" SELECTED")END IF%>>Register</OPTION>
<OPTION VALUE= "register2"<%IF "register2" = TRIM(request("orderstatus")) THEN response.Write(" SELECTED")END IF%>>Register2</OPTION>
<OPTION VALUE= "frame"<% IF "frame" = TRIM(request("orderstatus")) THEN response.Write(" SELECTED")END IF%>>Frame</OPTION>
<OPTION VALUE= "shipped"<% IF "shipped" = TRIM(request("orderstatus")) THEN response.Write(" SELECTED")END IF%>>Shipped</OPTION>
</SELECT>
</TD>
</TR>
<TR>
<TD><IMG SRC="/images/spacer.gif" WIDTH="100" HEIGHT="10"></TD>
</TR>
<TR>
<TD><FONT SIZE="2" FACE="Arial, Helvetica, sans-serif"> Batch Nbr.:
<INPUT NAME="batchnbr" TYPE="text" CLASS="textbox_8pt" onKeyDown="document.formsearch.ordergiftid.value = ''" VALUE="<%=UCASE(request("batchnbr"))%>" SIZE="12" MAXLENGTH="12">
</FONT></TD>
</TR>
<TR>
<TD><IMG SRC="/images/spacer.gif" WIDTH="100" HEIGHT="10"></TD>
</TR>
<TR>
<TD><FONT SIZE="2" FACE="Arial, Helvetica, sans-serif"> Order ID:
<INPUT NAME="ordergiftid" TYPE="text" CLASS="textbox_8pt" onKeyDown="document.formsearch.orderstatus.selectedIndex = 0;document.formsearch.company.selectedIndex = 0;document.formsearch.prevstatus.selectedIndex = 0;document.formsearch.batchnbr.value = ''" VALUE="<%=request("ordergiftid")%>" SIZE="15" MAXLENGTH="15">
</FONT></TD>
</TR>
<TR>
<TD><IMG SRC="/images/spacer.gif" WIDTH="100" HEIGHT="10"></TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD BGCOLOR="#cccc99"><CENTER>
<INPUT NAME="Submit" TYPE="submit" CLASS="button_8pt" VALUE="Search">
</CENTER></TD>
</TR>
</TABLE>
<BR>
<% IF NOT rsSearch.EOF THEN %>
<TABLE WIDTH="200" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#666600">
<TR>
<TD BGCOLOR="#cccc99"><CENTER>
<FONT SIZE="2" FACE="Arial, Helvetica, sans-serif"><B>Change Status </B></FONT>
</CENTER></TD>
</TR>
<TR>
<TD><TABLE WIDTH="198" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD COLSPAN="2"><IMG SRC="/images/spacer.gif" WIDTH="100" HEIGHT="5"></TD>
</TR>
<TR>
<TD WIDTH="75"> <FONT SIZE="2" FACE="Arial, Helvetica, sans-serif">Check</FONT></TD>
<TD WIDTH="123"><INPUT NAME="setorderstatus" TYPE="radio" VALUE="check" <% IF rsSearch("process_status") = "check" THEN Response.Write(" CHECKED") END IF%>></TD>
</TR>
<TR>
<TD><FONT SIZE="2" FACE="Arial, Helvetica, sans-serif"> Deposit</FONT></TD>
<TD><INPUT NAME="setorderstatus" TYPE="radio" VALUE="deposit" <% IF rsSearch("process_status") = "deposit" THEN Response.Write(" CHECKED") END IF%>></TD>
</TR>
<TR>
<TD> <FONT SIZE="2" FACE="Arial, Helvetica, sans-serif">Verified</FONT></TD>
<TD><INPUT NAME="setorderstatus" TYPE="radio" VALUE="verified" <% IF rsSearch("process_status") = "verified" THEN Response.Write(" CHECKED") END IF%>></TD>
</TR>
<TR>
<TD><FONT SIZE="2" FACE="Arial, Helvetica, sans-serif"> Register</FONT></TD>
<TD><INPUT NAME="setorderstatus" TYPE="radio" VALUE="register" <% IF rsSearch("process_status") = "register" THEN Response.Write(" CHECKED") END IF%>></TD>
</TR>
<TR>
<TD><FONT SIZE="2" FACE="Arial, Helvetica, sans-serif"> Frame</FONT></TD>
<TD><INPUT NAME="setorderstatus" TYPE="radio" VALUE="frame" <% IF rsSearch("process_status") = "frame" THEN Response.Write(" CHECKED") END IF%>></TD>
</TR>
<TR>
<TD><FONT face="Arial, Helvetica, sans-serif" size=2> Shipped</FONT></TD>
<TD><INPUT NAME="setorderstatus" TYPE="radio" VALUE="shipped" <% IF rsSearch("process_status") = "shipped" THEN Response.Write(" CHECKED") END IF%>></TD>
</TR>
<% IF rsSearch("balance") > 5 THEN %>
<TR>
<TD COLSPAN="2"><DIV ALIGN="CENTER"><B><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">Currently disabled because<BR>
<I>Balance</I> exceed +/- $5 </FONT></B></DIV></TD>
</TR>
<% END IF %>
<TR><TD COLSPAN="2"><IMG SRC="/images/spacer.gif" WIDTH="100" HEIGHT="5"></TD></TR>
</TABLE></TD>
</TR>
<TR>
<TD BGCOLOR="#cccc99"><CENTER><INPUT NAME="Submit" TYPE="submit" CLASS="button_8pt" VALUE="Update Status" <% IF rsSearch("balance") > 5 THEN Response.Write("DISABLED") END IF%>></CENTER></TD>
</TR>
</TABLE>
<% END IF %>
</FORM>
</TD>
<TD> </TD>
<TD COLSPAN="3" VALIGN="TOP"><TABLE WIDTH="495" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#666600">
<TR>
<TD>
<% IF rsSearch.RecordCount > 0 THEN %>
<TABLE WIDTH="485" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<FORM NAME="form" ACTION="check_order.asp" METHOD="POST">
<%= controlSet %>
<INPUT NAME="orderstatus" TYPE="hidden" VALUE="<%=request("orderstatus")%>">
<INPUT NAME="ordergiftid" TYPE="hidden" VALUE="<%=request("ordergiftid")%>">
<INPUT NAME="setorderstatus" TYPE="hidden" VALUE="<%=request("setorderstatus")%>">
<INPUT NAME="prevstatus" TYPE="hidden" VALUE="<%=request("prevstatus")%>">
<INPUT NAME="batchnbr" TYPE="hidden" VALUE="<%=request("batchnbr")%>">
<TR BGCOLOR="#FFFFCC">
<TD WIDTH="144"><FONT SIZE="2" FACE="Arial, Helvetica, sans-serif">
<%IF INT(currentPage) > 1 THEN%>
<INPUT NAME="Submit" TYPE="submit" CLASS="button_7pt" VALUE="< previous">
<INPUT NAME="Submit" TYPE="submit" CLASS="button_7pt" VALUE="|<">
<%END IF%>
</FONT></TD>
<TD WIDTH="209"><CENTER>
<FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"><%=currentPage%> of <%=rsSearch.RecordCount%></FONT></CENTER></TD>
<TD WIDTH="137"><DIV ALIGN="RIGHT"><FONT SIZE="2" FACE="Arial, Helvetica, sans-serif">
<%IF rsSearch.RecordCount > int(currentPage) THEN%>
<INPUT NAME="Submit" TYPE="submit" CLASS="button_7pt" VALUE=">|">
<INPUT NAME="Submit" TYPE="submit" CLASS="button_7pt" VALUE="next >">
<%END IF%>
</FONT></DIV></TD>
</TR>
</FORM>
<TR>
<TD COLSPAN="3"><CENTER>
<IMG SRC="/images/spacer.gif" WIDTH="100" HEIGHT="10"></CENTER></TD>
</TR>
<TR>
<TD COLSPAN="3"><CENTER>
<TABLE WIDTH="450" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR BGCOLOR="#FFFFD6">
<TD WIDTH="76"><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif"><B>Order ID:</B></FONT><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"> </FONT></TD>
<TD WIDTH="207"><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"><%=rsSearch("order_gift_id")%></FONT></TD>
<TD WIDTH="73"><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif"><B>Total:</B></FONT><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"> </FONT></TD>
<TD WIDTH="94"><FONT COLOR="#000000" SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif"><B><%=formatCurrency(rsSearch("total"))%></B></FONT></TD>
</TR>
<TR BGCOLOR="#FFFFD6">
<TD><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">Purchaser</FONT><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif">:</FONT></TD>
<TD><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"><%=rsSearch("cu_first_name")%> <%=rsSearch("cu_last_name")%> <%=rsSearch("cu_company_name")%></FONT></TD>
<TD><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif"><B>Paid:</B></FONT></TD>
<TD><FONT COLOR="#000000" SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif"><B><%=formatCurrency(rsSearch("paid"))%></B></FONT></TD>
</TR>
<TR BGCOLOR="#FFFFD6">
<TD><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">Shareholder: </FONT></TD>
<TD WIDTH="207"><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"><%=rsSearch("first_name")%> <%=rsSearch("last_name")%> <%=rsSearch("sh_company_name")%></FONT></TD>
<TD><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif"><B>Balance:</B></FONT></TD>
<TD WIDTH="94"><FONT COLOR="#000000" SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif"><B><%=formatCurrency(rsSearch("balance"))%></B></FONT></TD>
</TR>
<TR BGCOLOR="#FFFFD6">
<TD><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">Status:</FONT></TD>
<TD><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"><B><%=rsSearch("process_status")%></B></FONT></TD>
<TD><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">Batch Nbr.:</FONT></TD>
<TD><FONT COLOR="#000000" SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif"><B><%=rsSearch("batch_nbr")%></B></FONT></TD>
</TR>
</TABLE>
<TABLE WIDTH="450" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><TD COLSPAN="5"><IMG SRC="/images/spacer.gif" WIDTH="100" HEIGHT="10"></TD></TR>
<TR BGCOLOR="#FFFFD5">
<TD WIDTH="77"><CENTER>
<B><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">Check Date</FONT></B>
</CENTER></TD>
<TD WIDTH="108"><CENTER>
<B><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">Verification Date</FONT></B>
</CENTER></TD>
<TD WIDTH="91"><CENTER>
<B><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">Register Date</FONT></B>
</CENTER></TD>
<TD><CENTER>
<B><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">Frame Date</FONT></B>
</CENTER></TD>
<TD><CENTER>
<B><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">Ship Date</FONT></B></CENTER></TD>
</TR>
<TR BGCOLOR="#FFFFD5">
<TD><CENTER><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"><%IF TRIM(rsSearch("check_date")) <> "" THEN response.Write(FormatDateTime (rsSearch("check_date"),2)) END IF%></FONT></CENTER></TD>
<TD><CENTER><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"><%IF TRIM(rsSearch("verified_date")) <> "" THEN response.Write(FormatDateTime (rsSearch("verified_date"),2)) END IF%></FONT></CENTER></TD>
<TD><CENTER><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"><%IF TRIM(rsSearch("register_date")) <> "" THEN response.Write(FormatDateTime (rsSearch("register_date"),2)) END IF%></FONT></CENTER></TD>
<TD><CENTER><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"><%IF TRIM(rsSearch("frame_date")) <> "" THEN response.Write(FormatDateTime (rsSearch("frame_date"),2)) END IF%></FONT></CENTER></TD>
<TD><CENTER><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"><%IF TRIM(rsSearch("ship_date")) <> "" THEN response.Write(FormatDateTime (rsSearch("ship_date"),2)) END IF%></FONT></CENTER></TD>
</TR>
<TR BGCOLOR="#FFFFD5">
<TD><CENTER><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"><%=rsSearch("check_aun")%></FONT></CENTER></TD>
<TD><CENTER><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"><%=rsSearch("verified_aun")%></FONT></CENTER></TD>
<TD><CENTER><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"><%=rsSearch("register_aun")%></FONT></CENTER></TD>
<TD><CENTER><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"><%=rsSearch("frame_aun")%></FONT></CENTER></TD>
<TD><CENTER><FONT SIZE="1" FACE="Arial, Helvetica, sans-serif"><%=rsSearch("ship_aun")%></FONT></CENTER></TD>
</TR>
</TABLE>
<BR>
<TABLE WIDTH="450" BORDER="1" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD><TABLE WIDTH="448" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR BGCOLOR="#FFFFD5">
<TD WIDTH="161"><CENTER><B><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">Check Number</FONT></B></CENTER></TD>
<TD WIDTH="101"><CENTER><B><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">Deposit Date </FONT></B></CENTER></TD>
<TD WIDTH="75"><CENTER><B><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">Amount</FONT></B></CENTER></TD>
<TD WIDTH="113"><CENTER><B><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif"> </FONT></B></CENTER></TD>
</TR>
<%
sql = "SELECT ogh.trns_chk_nbr AS trns_chk_nbr, "_
& " ogh.trns_chk_amount AS trns_chk_amount, "_
& " ogh.created AS created, "_
& " ogh.id AS id, "_
& " abn.batch_nbr AS batch_nbr, "_
& " (SELECT MAX(id) "_
& " FROM order_gift_history "_
& " WHERE (order_gift_id = "¤tOrderGiftID&")) AS max_id "_
& "FROM order_gift_history ogh LEFT OUTER JOIN "_
& " acc_batch_nbr abn ON ogh.pnref = abn.pnref "_
& "WHERE (ogh.order_gift_id = "¤tOrderGiftID&") AND (ogh.trns_chk_amount IS NOT NULL) "_
& "ORDER BY ogh.id "
DIM lastOGHRecord
lastOGHRecord = TRUE
batchNbr = ""
SET checkRS = conn.execute(sql)
WHILE NOT checkRS.EOF
IF batchNbr = "" AND NOT ISNULL(checkRS("batch_nbr")) THEN batchNbr = checkRS("batch_nbr") END IF
IF checkRS("ID") <> checkRS("max_ID") THEN lastOGHRecord = FALSE ELSE lastOGHRecord = TRUE END IF
%>
<FORM NAME="formmodify" ACTION="check_order.asp" METHOD="POST">
<%= controlSet %>
<INPUT NAME="oghid" TYPE="hidden" VALUE="<%=checkRS("id")%>">
<INPUT NAME="orderstatus" TYPE="hidden" VALUE="<%=request("orderstatus")%>">
<INPUT NAME="ordergiftid" TYPE="hidden" VALUE="<%=request("ordergiftid")%>">
<INPUT NAME="setorderstatus" TYPE="hidden" VALUE="<%=request("setorderstatus")%>">
<INPUT NAME="prevstatus" TYPE="hidden" VALUE="<%=request("prevstatus")%>">
<INPUT NAME="batchnbr" TYPE="hidden" VALUE="<%=request("batchnbr")%>">
<TR BGCOLOR="#FFFFD5">
<TD><CENTER><INPUT NAME="chknbr" TYPE="text" CLASS="textbox_7pt" VALUE="<%= checkRS("trns_chk_nbr") %>" SIZE="30" MAXLENGTH="30" Style="background=#EAEAEA"></CENTER></TD>
<TD><CENTER><INPUT NAME="depositdate" TYPE="text" CLASS="textbox_7pt" VALUE="<%= checkRS("created") %>" SIZE="10" Style="background=#EAEAEA"></CENTER></TD>
<TD><CENTER><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">$ </FONT><INPUT NAME="amountupdate" TYPE="text" CLASS="textbox_7pt" VALUE="<%= checkRS("trns_chk_amount") %>" SIZE="7" MAXLENGTH="7" <%
IF checkRS("ID") <> checkRS("max_ID") THEN Response.Write("DISABLED") END IF
%> Style="background=#EAEAEA"></CENTER></TD>
<TD><DIV ALIGN="RIGHT"><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">
<INPUT NAME="Submit" TYPE="submit" CLASS="button_6pt" VALUE="Delete" onClick="return confirm('Are you sure to delete \nthis Check form the record?')" <% IF NOT lastOGHRecord OR batchNbr <> "" THEN Response.Write("DISABLED") END IF %>>
<INPUT NAME="Submit" TYPE="submit" CLASS="button_6pt" VALUE="Update" <% IF batchNbr <> "" THEN Response.Write("DISABLED") END IF %>> </FONT></DIV></TD>
</TR>
</FORM>
<%
checkRS.MOVENEXT
WEND
checkRS.CLOSE: SET checkRS = NOTHING
%>
<% IF (NOT lastOGHRecord) AND (batchNbr = "") THEN %>
<TR BGCOLOR="#FFFFD5">
<TD COLSPAN="4"><IMG SRC="../images/spacer.gif" WIDTH="100" HEIGHT="5"></TD>
</TR>
<TR BGCOLOR="#FFFFD5">
<TD COLSPAN="4"><DIV ALIGN="CENTER"><B><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">To delete check entry please click <A HREF="modify_gift.asp?ordergiftid=<%= currentOrderGiftID %>">here</A> and modify gift properties!</FONT></B></DIV></TD>
</TR>
<TR BGCOLOR="#FFFFD5">
<TD COLSPAN="4"><IMG SRC="../images/spacer.gif" WIDTH="100" HEIGHT="10"></TD>
</TR>
<% END IF %>
<% IF batchNbr = "" THEN %>
<FORM NAME="formadd" ACTION="check_order.asp" METHOD="POST">
<%= controlSet %>
<INPUT NAME="orderstatus" TYPE="hidden" VALUE="<%=request("orderstatus")%>">
<INPUT NAME="ordergiftid" TYPE="hidden" VALUE="<%=request("ordergiftid")%>">
<INPUT NAME="setorderstatus" TYPE="hidden" VALUE="<%=request("setorderstatus")%>">
<INPUT NAME="prevstatus" TYPE="hidden" VALUE="<%=request("prevstatus")%>">
<INPUT NAME="batchnbr" TYPE="hidden" VALUE="<%=request("batchnbr")%>">
<TR BGCOLOR="#FFFFD5">
<TD><CENTER><INPUT NAME="chknbr" TYPE="text" CLASS="textbox_7pt" SIZE="30" MAXLENGTH="30"></CENTER></TD>
<TD><CENTER><INPUT NAME="depositdate" TYPE="text" CLASS="textbox_7pt" VALUE="<%=DATE%>" SIZE="10"></CENTER></TD>
<TD><CENTER><FONT SIZE="1" FACE="Verdana, Arial, Helvetica, sans-serif">$ </FONT><INPUT NAME="amountadd" TYPE="text" CLASS="textbox_7pt" SIZE="7" MAXLENGTH="7"></CENTER></TD>
<TD><DIV ALIGN="RIGHT"><INPUT NAME="Submit" TYPE="submit" CLASS="button_8pt" VALUE="[ Add ]" > </DIV></TD>
</TR>
</FORM>
<% END IF %>
<% IF batchNbr <> "" THEN %>
<TR BGCOLOR="#FFFFD5">
<TD COLSPAN="4"><DIV ALIGN="CENTER"><B><FONT SIZE="2" FACE="Arial, Helvetica, sans-serif">Order assigned to batch number.<BR>No changes allowed!</FONT></B></DIV></TD>
</TR>
<% END IF %>
<TR BGCOLOR="#FFFFD5"><TD COLSPAN="4"><IMG SRC="../images/spacer.gif" WIDTH="100" HEIGHT="5"></TD></TR>
</TABLE></TD>
</TR>
</TABLE>
</CENTER></TD>
</TR>
</TABLE>
<% ELSE %>
<CENTER>
<B><FONT SIZE="2" FACE="Arial, Helvetica, sans-serif">No Result<BR>
</FONT></B>
</CENTER>
<% END IF 'IF rsSearch.RecordCount > 0 THEN %>
</TD>
</TR>
</TABLE></TD>
</TR>
</TABLE></TD>
</TR>
</TABLE>
</BODY>
</HTML>
<%
rsSearch.CLOSE: SET rsSearch = NOTHING
disconnectDB(conn)
%>