<% 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=[]+ALLTRIM(accounts.name)+[] namecreditor=ALLTRIM(accounts.name) =SEEK(SearchResults.debitor,[accounts],[accountid]) cdebitor=[]+ALLTRIM(accounts.name)+[] namedebitor=ALLTRIM(accounts.name) openingbalance=namedebitor && [] CLOSE TABLES CLOSE DATABASES %>
Transfer

TRANSFER FUNDS

Credit | Debit
Date | Amount
Remarks