<%
=SYS(3101,1252)
olddate=SET("Date")
oldmark=SET("Mark")
SET DATe YMD
SET MARK TO [-]
SET CENTURY ON
ajaxresponse=CREATEOBJECT('empty')
oJSON=NEWOBJECT('json','json.prg')
fref=ALLTRIM(TRANSFORM(NVL(orequest.form('txtreffid'),'')))
theaction=orequest.form('taction')
thevoucher=orequest.form('vouchertype')
set procedure to (addbs(oprop.appstartpath)+'prg\navigate_transactions.prg') additive 
do CASE
	case thevoucher='Receipt'
		navigate_receipt(theaction, theaction, fref)
	case thevoucher='CashSale'
		navigate_receipt(theaction, theaction, fref)
	DO case
		CASE theaction='num'
			SELECT x.transid, x.customer, y.name as customer_name, x.depositid, z.name as depositid_name, ;
				x.name, x.amount, x.saleman, a.name as saleman_name, x.date, x.checkno, x.chkdate ;
				FROM (dbclocation+[payment]) x ;
				INNER JOIN (dbclocation+[accounts]) y ON(x.customer=y.accountid) ;
				INNER JOIN (dbclocation+[accounts]) z ON(x.depositid=z.accountid) ;
				left JOIN (dbclocation+[accounts]) a ON(x.saleman=a.accountid)  ;
				WHERE ALLTRIM(transid)==fref INTO CURSOR SearchResults readwrite
		CASE theaction='back'
			SELECT TOP 1 VAL(transid) as vtr, x.transid, x.customer, y.name as customer_name, x.depositid, z.name as depositid_name, ;
				x.name, x.amount, x.saleman, a.name as saleman_name, x.date, x.checkno, x.chkdate ;
				FROM (dbclocation+[payment]) x ;
				INNER JOIN (dbclocation+[accounts]) y ON(x.customer=y.accountid) ;
				INNER JOIN (dbclocation+[accounts]) z ON(x.depositid=z.accountid) ;
				left JOIN (dbclocation+[accounts]) a ON(x.saleman=a.accountid)  ;
				WHERE VAL(TRANSFORM(ALLTRIM(transid)))<VAL(fref) ;
				ORDER BY vtr DESC,transid desc INTO CURSOR SearchResults readwrite
		CASE theaction='next'
			SELECT TOP 1 VAL(transid) as vtr, x.transid, x.customer, y.name as customer_name, x.depositid, z.name as depositid_name, ;
				x.name, x.amount, x.saleman, a.name as saleman_name, x.date, x.checkno, x.chkdate ;
				FROM (dbclocation+[payment]) x ;
				INNER JOIN (dbclocation+[accounts]) y ON(x.customer=y.accountid) ;
				INNER JOIN (dbclocation+[accounts]) z ON(x.depositid=z.accountid) ;
				left JOIN (dbclocation+[accounts]) a ON(x.saleman=a.accountid)  ;
				WHERE VAL(TRANSFORM(ALLTRIM(transid)))>VAL(fref) ;
				ORDER BY vtr, transid INTO CURSOR SearchResults readwrite
		CASE theaction='edit'

		OTHERWISE
			SELECT TOP 1 VAL(transid) as vtr, x.transid, x.customer, y.name as customer_name, x.depositid, z.name as depositid_name, ;
				x.name, x.amount, x.saleman, a.name as saleman_name, x.date, x.checkno, x.chkdate ;
				FROM (dbclocation+[payment]) x ;
				INNER JOIN (dbclocation+[accounts]) y ON(x.customer=y.accountid) ;
				INNER JOIN (dbclocation+[accounts]) z ON(x.depositid=z.accountid) ;
				left JOIN (dbclocation+[accounts]) a ON(x.saleman=a.accountid)  ;
				WHERE VAL(TRANSFORM(ALLTRIM(transid)))>VAL(fref) ;
				ORDER BY vtr desc, transid desc INTO CURSOR SearchResults readwrite
	ENDCASE
	openingbalance=[]
	if BETWEEN(val(left(SearchResults.customer,2)),1,8)
		select sum(debit-credit) as dayopening from (dbclocation+[acctran]) where accountid=SearchResults.customer and date<SearchResults.date INTO CURSOR opening
		select sum(debit) as debits, SUM(credit) as credits from (dbclocation+[acctran]) where accountid=SearchResults.customer and date=SearchResults.date INTO CURSOR closing
		openingbalance=[Opening: ]+allt(transform(opening.dayopening))+[ add debits: ]+allt(transform(closing.debits))+[ less credits: ]+;
		ALLTRIM(transform(closing.credits))+[ closing: ]+ALLTRIM(TRANSFORM(opening.dayopening+closing.debits-closing.credits))+[ as on ]+transform(DAY(SearchResults.date))+[ ]+LEFT(CMONTH(SearchResults.date),3)+[ ]+ALLTRIM(TRANSFORM(YEAR(SearchResults.date)))
	ENDIF
	SELECT [searchresults]
	IF RECCOUNT()=0
		APPEND BLANK
	ENDIF
	IF theaction='num'
		ADDPROPERTY(ajaxresponse,'nav',fref)
	ELSE
		ADDPROPERTY(ajaxresponse,'nav',ALLTRIM(transid))
	endif
	fref=ALLTRIM(SearchResults.transid)

	IF INLIST(theaction,'num','nav','next','back')
		select RECNO() as therecord, date, cvtype,invoiceid,total,paid,(total-paid) as balance,credit, descp,allt(cvtype)+[-]+allt(invoiceid) as thetrid ;
			from (dbclocation+[jcredits]) where NOT EMPTY(credit) AND ACCOUNTID+VTYPE+TRANSID=searchresults.customer+Padr(thevoucher,10)+searchresults.transid into cursor thedetails
	ELSE
		select RECNO() as therecord, date, cvtype,invoiceid,total,paid,(total-paid) as balance,credit, descp,allt(cvtype)+[-]+allt(invoiceid) as thetrid ;
			from (dbclocation+[jcredits]) where ACCOUNTID+VTYPE+TRANSID=searchresults.customer+Padr(thevoucher,10)+searchresults.transid into cursor thedetails
	endif
	otherwise
	return thevoucher+[ required]
endcase
ADDPROPERTY(ajaxresponse,'detcount',RECCOUNT('thedetails'))
ADDPROPERTY(ajaxresponse,'daybalance',openingbalance)
oResponse.ContentType = "text/plain"
SELECT [searchresults]
*freffs=nfcursortojson4vfp()
ojson.keyforcursors='SearchResults'
freffs=ojson.stringify('SearchResults')
SELECT [thedetails]
IF RECCOUNT([thedetails])>0
	ojson.keyforcursors='TheDetails'
	fdets=oJSON.stringify('TheDetails')
	returnstring=oJSON.AddJSONProps(freffs,fdets)
ELSE
	returnstring=freffs
endif
returnstring=oJSON.AddJSONProps(ojson.stringify(ajaxresponse),returnstring)
oResponse.Write(returnstring)
oresponse.flush
SET DATE &olddate
SET MARK TO &oldmark
CLOSE TABLES
CLOSE DATABASES
%>