<% '@LCID = 2057 %>
<!-- #include file="../include/html.asp" -->
<!-- #include file="../include/sql.asp" -->
<!-- #include file="../include/var.asp" -->
<!-- #include file="../include/template_alpha_admin.asp" -->
<!-- #include file="../include/accessControl.asp" -->
<!-- #include file="../include/dictionaries.asp" -->
<!-- #include file="../include/stringFormat.asp" -->
<!-- #include file="../include/constants.asp" -->
<!-- #include file="../include/utilityFunctions.asp" -->


<%
StrictAdminAccess

Const FILTER_DATE = 1
Const FILTER_STRING = 2
Const FILTER_PCO_VERIFICATION = 3
Const FILTER_TYPE_TXN = 4
Const FILTER_TYPE_EMAIL = 5
Const FILTER_TYPE_PCO_VERIFIED = 6
Const FILTER_TYPE_PCO_UNVERIFIED = 7
Const FILTER_TYPE_PCO_ALL = 8
Const FILTER_TYPE_BLOCKED_ACCOUNT = 9
Const FILTER_TYPE_ACR_VERIFIED = 10
Const VAR_PCO_VERIFIED = "T"
Const VAR_PCO_UNVERIFIED = "F"
Const VAR_BLOCKED_ACCOUNT = "T"
Const VAR_ACR_VERIFIED = "F"


formVars =	"dateTo||dateFrom||currentRowIndex||searchType||searchString||filterType||filterPCOVerified"
set var = VarInitAll( formVars )

sqlTrans = EMPTY_STRING
sqlCount = EMPTY_STRING

errorMessage = EMPTY_STRING
confirmationMessage = EMPTY_STRING

if var("currentRowIndex") = EMPTY_STRING Then
	var("currentRowIndex") = 0
end If


Select Case CInt(var("filterType"))

Case FILTER_STRING

	If ValidString(var("searchString")) Then

		Select Case CInt(var("searchType"))

		Case FILTER_TYPE_EMAIL

			sqlTrans = "ALPHA_SP_GET_PAGED_TRANSACTIONS_FROM_EMAIL " &_ 
									var("currentRowIndex") & "," &_ 
									NUMBER_RECORDS_PER_PAGE & ",'" &_ 
									var("searchString") & "'"

			sqlCount = "ALPHA_SP_GET_PAGED_TRANSACTIONS_FROM_EMAIL_COUNT '" &_ 
														var("searchString") & "'"

		Case FILTER_TYPE_TXN

			sqlTrans = "ALPHA_SP_GET_PAGED_TRANSACTION_FROM_TXN_ID " &_ 
									var("currentRowIndex") & "," &_ 
									NUMBER_RECORDS_PER_PAGE & ",'" &_
									var("searchString") & "'"
			sqlCount = "ALPHA_SP_GET_PAGED_TRANSACTION_FROM_TXN_ID_COUNT '" &_ 
														var("searchString") & "'"

		End Select

	Else
	
		errorMessage = "Please enter a non empty search term."

	End If

	var("dateFrom") = EMPTY_STRING
	var("dateTo") = EMPTY_STRING


Case FILTER_DATE

	If ValidDateString(var("dateFrom")) And ValidDateString(var("dateTo")) Then


		sqlTrans = "ALPHA_SP_GET_PAGED_TRANSACTIONS_FROM_DATES " &_ 
									var("currentRowIndex") & "," &_ 
									NUMBER_RECORDS_PER_PAGE & "," &_ 
									Date2int(var("dateFrom")) & "," &_ 
									Date2int(var("dateTo"))

		sqlCount = "ALPHA_SP_GET_PAGED_TRANSACTIONS_FROM_DATES_COUNT " &_ 
									Date2int(var("dateFrom")) & "," &_ 
									Date2int(var("dateTo"))
	Else
	
		errorMessage = "Please enter a valid date range"

	End If

	var("searchString") = EMPTY_STRING

Case FILTER_PCO_VERIFICATION

	Select Case CInt(var("filterPCOVerified"))

	Case FILTER_TYPE_PCO_VERIFIED

		sqlTrans = "ALPHA_SP_GET_PAGED_TRANSACTIONS_FROM_PCO_VERIFIED " &_ 
									var("currentRowIndex") & "," &_ 
									NUMBER_RECORDS_PER_PAGE & ",'" &_
									VAR_PCO_VERIFIED & "'"

		sqlCount = "ALPHA_SP_GET_PAGED_TRANSACTIONS_FROM_PCO_VERIFIED_COUNT '" &_
									VAR_PCO_VERIFIED & "'"

	Case FILTER_TYPE_PCO_UNVERIFIED

		sqlTrans = "ALPHA_SP_GET_PAGED_TRANSACTIONS_FROM_PCO_VERIFIED " &_ 
									var("currentRowIndex") & "," &_ 
									NUMBER_RECORDS_PER_PAGE & ",'" &_
									VAR_PCO_UNVERIFIED & "'"

		sqlCount = "ALPHA_SP_GET_PAGED_TRANSACTIONS_FROM_PCO_VERIFIED_COUNT '" &_
									VAR_PCO_UNVERIFIED & "'"

	Case FILTER_TYPE_PCO_ALL

	sqlTrans = "ALPHA_SP_GET_PAGED_TRANSACTIONS " &_ 
							var("currentRowIndex") & "," &_ 
							NUMBER_RECORDS_PER_PAGE

	sqlCount = "ALPHA_SP_TRANSACTION_COUNT"

	Case FILTER_TYPE_BLOCKED_ACCOUNT

		sqlTrans = "ALPHA_SP_GET_PAGED_TRANSACTIONS_FROM_BLOCKED_ACCOUNT " &_ 
									var("currentRowIndex") & "," &_ 
									NUMBER_RECORDS_PER_PAGE & ",'" &_
									VAR_BLOCKED_ACCOUNT & "'"

		sqlCount = "ALPHA_SP_GET_PAGED_TRANSACTIONS_FROM_BLOCKED_ACCOUNT_COUNT '" &_
									VAR_BLOCKED_ACCOUNT & "'"

	Case FILTER_TYPE_ACR_VERIFIED

		sqlTrans = "ALPHA_SP_GET_PAGED_TRANSACTIONS_FROM_ACR_VERIFIED " &_ 
									var("currentRowIndex") & "," &_ 
									NUMBER_RECORDS_PER_PAGE & ",'" &_
									VAR_ACR_VERIFIED & "'"

		sqlCount = "ALPHA_SP_GET_PAGED_TRANSACTIONS_FROM_ACR_VERIFIED_COUNT '" &_
									VAR_ACR_VERIFIED & "'"


	End Select

	var("dateFrom") = EMPTY_STRING
	var("dateTo") = EMPTY_STRING
	var("searchString") = EMPTY_STRING

Case Else

	sqlTrans = "ALPHA_SP_GET_PAGED_TRANSACTIONS " &_ 
							var("currentRowIndex") & "," &_ 
							NUMBER_RECORDS_PER_PAGE

	sqlCount = "ALPHA_SP_TRANSACTION_COUNT"

End Select



If sqlTrans <> EMPTY_STRING And sqlCount <> EMPTY_STRING Then 

	set data = SQlSelect2Dic( sqlTrans )
	recordCount = SQLSelectValue( sqlCount, 0 )

	pageCount = RoundUp(recordCount / NUMBER_RECORDS_PER_PAGE)
	recordsOnLastPage = recordCount Mod NUMBER_RECORDS_PER_PAGE
	
	If pageCount = 0 Then
		var("currentRowIndex") = 0
	End If 

	If recordCount <= 0 Then
		errorMessage = "Sorry, your filter did not return any results."
	End if

	currentPage = RoundUp( CLng(var("currentRowIndex") + 1) / NUMBER_RECORDS_PER_PAGE)
	isLastPage = CLng(var("currentRowIndex")) >= (recordCount - recordsOnLastPage)

Else
	
	pageCount = 1
	recordsOnLastPage = 0
	currentPage = 1
	recordCount = 0
	isLastPage = True
	
End If



SQLDisconnect

PrintTemplate "Completed transactions"

sub PrintContent
%>

<script language="JavaScript">
<!--

function setCurrentIndexPos(number, submit)
{
	document.main.currentRowIndex.value = number;

	if (submit)
	{
		document.main.submit();
	}
}

// check to see if user pressed date filter or search string filter
function setFilterType(type, submit)
{
	document.main.filterType.value = type;
	document.main.currentRowIndex.value=0;	

	if (submit)
	{
		document.main.submit();
	}
}
//-->
</script>
	<form action="transactionsPage.asp" method="POST" name="main" style="padding:0px;margin:0px;">
	<input type="hidden" name="currentRowIndex" value="<%= var("currentRowIndex") %>"></input>
	<input type="hidden" name="filterType" value="<%= var("filterType") %>"></input>


	<table cellspacing="10" cellpadding="0" style="float:left;">
		<tr>
			<td>
				<div class="formLabel">Filter from (dd/mm/yyyy) &nbsp;</div>

				<input type="text" name="dateFrom" value="<%= var("dateFrom") %>">

				&nbsp; to (dd/mm/yyyy) &nbsp;

				<input type="text" name="dateTo" value="<%= var("dateTo") %>">

				&nbsp;

				<input type="button" onClick="setFilterType(<%= FILTER_DATE %>,true);" value="Filter">

			</td>
		</tr>
		<tr>
			<td>
				<div class="formLabel">Search &nbsp;</div>

				<select name="searchType">
					<option value="<%= FILTER_TYPE_EMAIL %>" <% If CInt(var("searchType")) = FILTER_TYPE_EMAIL Then %>selected<% End If %>>Email</option>
					<option value="<%= FILTER_TYPE_TXN %>" <% If CInt(var("searchType")) = FILTER_TYPE_TXN Then %>selected<% End If %>>Transaction ID</option>
				</select>
			
				&nbsp; for &nbsp;
			
				<input type="text" name="searchString" size="35" value="<%= var("searchString") %>"></input>

				&nbsp;

				<input type="button" value="Search" onClick="setFilterType(<%= FILTER_STRING %>,true);"></input>

			</td>
		</tr>
		<tr>
			<td>
				<div class="formLabel">Filter by type &nbsp;</div>

				<select name="filterPCOVerified">
					<option value="<%= FILTER_TYPE_PCO_ALL %>" <% If CInt(var("filterPCOVerified")) = FILTER_TYPE_PCO_ALL Then %>selected
					<% End If %>>All</option>
					<option value="<%= FILTER_TYPE_PCO_VERIFIED %>" <% If CInt(var("filterPCOVerified")) = FILTER_TYPE_PCO_VERIFIED Then %>selected
					<% End If %>>PCO Verified</option>
					<option value="<%= FILTER_TYPE_PCO_UNVERIFIED %>" <% If CInt(var("filterPCOVerified")) = FILTER_TYPE_PCO_UNVERIFIED Then %>selected
					<% End If %>>PCO Unverified</option>
					<option value="<%= FILTER_TYPE_BLOCKED_ACCOUNT %>" <% If CInt(var("filterPCOVerified")) = FILTER_TYPE_BLOCKED_ACCOUNT Then %>selected
					<% End If %>>Blocked Account</option>
					<option value="<%= FILTER_TYPE_ACR_VERIFIED %>" <% If CInt(var("filterPCOVerified")) = FILTER_TYPE_ACR_VERIFIED Then %>selected
					<% End If %>>Address Unverified</option>
				</select>
			
				&nbsp; &nbsp;
			
				<input type="button" value="Filter" onClick="setFilterType(<%= FILTER_PCO_VERIFICATION %>,true);"></input>

			</td>
		</tr>

		<tr>
			<td>
				<div class="formLabel">Reset options &nbsp;</div>

				<input type="button" value="Reset page" onClick="document.location.href='transactionsPage.asp';"></input>

			</td>
		</tr>
	</table>
</form>

<div class="extraInfoContainer">

	<div class="adminPageNavLinks">
		<a href="JavaScript:history.go(-1);">&#171;&#171; Back</a> |
		<a href="main.asp">Admin home</a>
	</div>

	<div class="legend">
		<div class="pcoUnverified">PCO Unverified</div>
		<div class="acrUnverified">ACR Unverified</div>
		<div class="blocked">Blocked</div>
	</div>

</div>

<div style="clear:both;">&nbsp;</div>

<table width="100%" cellspacing="1" cellpadding="5">
	<tr>
		<th>Summary</th>
		<td colspan="2">
			<strong><%= recordCount %></strong> records returned.
			Viewing page <strong><%= currentPage %></strong> of <strong><%= pageCount %></strong>.
		</td>
		<td colspan="3"></td>
		<th>Navigate</th>
		<td colspan="2" align="right">
			
			<% PageNavigation var("currentRowIndex"), recordCount, recordsOnLastPage %>
			
		</td>
	</tr>
	<tr>
		<th>ID</th>
		<th>PayPal ID</th>
		<th>Email</th>
		<th>Date</th>
		<th>Time</th>
		<th># Cards</th>
		<th>Site</th>
		<th>Amount</th>
		<th>Details</th>
	</tr>


	<% If errorMessage = EMPTY_STRING Then %>

		<% For i = 0 To data.count - 1 %>

			<tr onmouseover="this.className='activeRow'"

				<% If data(i)("BLOCKED") = "T" Then %> 
				  class='blocked' onmouseout="this.className='blocked'"

				<% ElseIf data(i)("PCO_VERIFIED") = "F" Then %>
					class='pcoUnverified' onmouseout="this.className='pcoUnverified'"

				<% ElseIf  data(i)("ACR_VERIFIED") = "F" Then %>
					class='acrUnverified' onmouseout="this.className='acrUnverified'"

				<% Else %>
				   class='inactiveRow' onmouseout="this.className='inactiveRow'"

				<% End If %>
             >

			<td><%= data(i)("TRANS_ID") %></td>
			<td><%= data(i)("TXN_ID") %></td>
			<td><a href="editAccount.asp?ID=<%= data(i)("ACCOUNT_ID") %>"><%= data(i)("ACCOUNT_EMAIL") %></a></td>
			<td><%= undoDateStamp(data(i)("TRANS_DATE")) %></td>
			<td><%= undoTimeStamp(data(i)("TRANS_TIME")) %></td>
			<td><%= data(i)("NUM_OF_CARDS") %></td>
			<td><a href="clientDetail.asp?clientId=<%= data(i)("CLIENT_ID") %>"><%= data(i)("GROUP_FLAG") %></a></td>
			<td>Ł<%= FormatNumber(data(i)("GROSS_AMOUNT"),2) %></td>
			<td><a href="viewOrderDetail.asp?transID=<%= data(i)("TRANS_ID") %>">view order</a></td>

		</tr>

		<% Next %>

	<% Else %>

		<tr>
			<td colspan="9" class="warningMsg"> <%= errorMessage %></td>
		</tr>

	<% End If %>

	<tr>
		<th>Summary</th>
		<td colspan="2">
			<strong><%= recordCount %></strong> records returned.
			Viewing page <strong><%= currentPage  %></strong> of <strong><%= pageCount %></strong>.
		</td>
		<td colspan="3"></td>
		<th>Navigate</th>
		<td colspan="2" align="right">
			
			<% PageNavigation var("currentRowIndex"), recordCount, recordsOnLastPage %>
			
		</td>
	</tr>
</table>


<% End Sub %>