<%
if type([user_trfmadd])=[U]
user_trfmadd=.t.
endif
if type([user_trfmedit])=[U]
user_trfmedit=.t.
endif
if type([user_trfmview])=[U]
user_trfmview=.t.
endif
if type([user_trfmdelete])=[U]
user_trfmdelete=.t.
endif
if type([logedin])=[U]
logedin=[Admin]
endif
%>
<%
*RETURN dbclocation
crlf=CHR(13)+CHR(10)
SET DATE ymd
set mark to '-'
SET CENTURY ON
SELECT TOP 1 *, VAL(transid) as vtr FROM (dbclocation+'Transfer') ORDER BY date desc, vtr desc, transid DESC INTO CURSOR x
SCATTER NAME SearchResults
if empty(date)
thedatestring=transform(date())
else
thedatestring=transform(date)
endif
USE (dbclocation+[accounts]) IN SELECT([accounts])
=SEEK(SearchResults.creditor,[accounts],[accountid])
ccreditor=[]
namecreditor=ALLTRIM(accounts.name)
=SEEK(SearchResults.debitor,[accounts],[accountid])
cdebitor=[]
namedebitor=ALLTRIM(accounts.name)
openingbalance=namedebitor && []
CLOSE TABLES
CLOSE DATABASES
%>
SSSoft™Transfer