<% oresponse.expires=-1 SET NULL off SET DELETED ON pref=padl(ALLTRIM(TRANSFORM(NVL(orequest.form('txtreffid'),''))),9) fref=allt(pref) theaction=orequest.form('taction') thevoucher=orequest.form('vouchertype') thedata=orequest.form('thedata') thecommand=orequest.form('theoperation') theresponse=theaction+[ requires code ] recordsadded=0 templocation=addbs(oprop.appstartpath)+'temp\' if theaction='list' oJSON=NEWOBJECT('json','json.prg') IF NOT [NFJSON] $ SET("Procedure") SET PROCEDURE TO (addbs(oprop.appstartpath)+[prg\nfjson.FXP]) additive endif tbl=orequest.form('tablename') dt1=orequest.form('from_dt') dt2=orequest.form('to_Dt') tsql=[select top 500 * from ("]+dbclocation+[]+tbl+[") order by date into cursor listcursor ] &tsql oResponse.ContentType = "application/xml;charset=windows-1252" CURSORTOXML('listcursor','thelist',1,0,0,'1') oresponse.write(thelist) oresponse.flush close tables close data return '' endif if inlist(theaction,[TOP],[PREV],[NEXT],[NUM],[BOTT]) if theaction="PREV" vtr='' do case case len(fref)=0 case len(fref)=1 and empty(val(fref)) VTR=[ HAVING PTRANSID<']+PTRANSID+[' ] case val(fref)<>0 vtr=allt(transform(val(fref))) VTR=[ HAVING vtr<]+allt(transform(val(fref))) otherwise for tcntr=2 to len(fref) if val(subst(fref,tcntr-1))=0 and val(subst(fref,tcntr))<>0 vtr=allt(transform(val(subst(fref,tcntr)))) cPref=left(fref,tcntr-1) VTR=[ HAVING vtr<=]+allt(transform(val(subst(fref,tcntr))))+[ and ptransid<']+pref+[' ] exit endif endfor endcase ENDIF if theaction="NEXT" vtr='' do case case len(fref)=0 case len(fref)=1 and empty(val(fref)) VTR=[ HAVING PTRANSID<']+PTRANSID+[' ] case val(fref)<>0 vtr=allt(transform(val(fref))) VTR=[ HAVING vtr>=]+allt(transform(val(fref)))+[ and ptransid>']+pref+['] otherwise for tcntr=2 to len(pref) if val(subst(pref,tcntr-1))=0 and val(subst(pref,tcntr))<>0 vtr=allt(transform(val(subst(pref,tcntr)))) cPref=left(pref,tcntr-1) VTR=[ HAVING vtr>=]+allt(transform(val(subst(pref,tcntr))))+; [ and (left(ptransid,]+transform(tcntr-1)+[))>']+cpref+[' or vtr>]+allt(transform(val(subst(pref,tcntr)))) exit endif endfor endcase ENDIF tsql=[select top 1 transid,IIF(VAL(transid)=0,VAL(SUBSTR(transid,2)),VAL(transid)) AS VTR, padl(allt(transid),9) as ptransid ] tsql=tsql+[ from ("]+dbclocation+'cashsale.dbf'+[") ] do case case theaction='TOP' or (theaction='PREV' and empty(fref)) tsql=tsql+[ order by vtr, ptransid ] case theaction='BOT' or (theaction='NEXT' and empty(fref)) tsql=tsql+[ order by vtr desc, ptransid desc ] CASE theaction='PREV' tsql=tsql+[ order by vtr desc, ptransid desc ] tsql=tsql+vtr CASE theaction='NEXT' tsql=tsql+[ order by vtr, ptransid ] tsql=tsql+vtr CASE THEACTION='NUM' tsql=tsql+[ having ptransid=']+pref+[' order by ptransid ] ENDCASE tsql=tsql+[ into cursor gotrecords ] err=.f. *try &tsql *catch * err=.t. *endtry if err theresponse=[{"transid":"","cmessage","Record not found!","cerror":"]+tsql+["}] endif if _tally=0 theresponse=[{"transid":"","cmessage","Record not found!","cerror":"","sql","]+tsql+["}] else theresponse=[{"transid":"]+transid+[","cmessage","Record found!","cerror":"","sql","]+tsql+["}] endif ENDIF if _tally>0 thetransid=transid oJSON=NEWOBJECT('json','json.prg') IF NOT [NFJSON] $ SET("Procedure") SET PROCEDURE TO (addbs(oprop.appstartpath)+[prg\nfjson.FXP]) additive endif tsql=[select * from ("]+dbclocation+'cashsale.dbf'+[") where transid=']+thetransid+[' into cursor masterData] &tsql tsql=[select * from ("]+dbclocation+'cashdata.dbf'+[") where transid=']+thetransid+[' order by sr_no into cursor childData] &tsql childrows=_tally tsql=[select distinct accountid, name from ("]+dbclocation+'accounts.dbf'+[") where accountid ] tsql=tsql+[ in (select distinct saleman from 'childData') or inlist(accountid,"]+masterdata.customer+[","]+masterdata.depositid+[","]+masterdata.saleman+[")] tsql=tsql+[ into cursor accountData order by accountid ] &tsql ajaxresponse=CREATEOBJECT('empty') ADDPROPERTY(ajaxresponse,'masterrecs',RECCOUNT('masterData')) ADDPROPERTY(ajaxresponse,'childrecs',RECCOUNT('childData')) if .f. oResponse.ContentType = "text/plain" ojson.keyforcursors='masterData' theMaster=oJSON.stringify('masterData') ojson.keyforcursors='childData' theChild=oJSON.stringify('childData') else oResponse.ContentType = "application/xml;charset=windows-1252" CURSORTOXML('masterData','theMaster',1,0,0,'1') theMaster=chr(13)+chr(10)+"*masterDataStart*"+themaster+"*masterDataEnd*"+chr(13)+chr(10) CURSORTOXML('childData','theChild',1,0,0,'1') theChild=chr(13)+chr(10)+"*childDataStart*"+theChild+"*childDataEnd*"+chr(13)+chr(10) CURSORTOXML('accountData','theAcs',1,0,0,'1') theAcs=chr(13)+chr(10)+"*acsDataStart*"+theAcs+"*acsDataEnd*"+chr(13)+chr(10) *** endif returnstring=oJSON.AddJSONProps(theMaster,theChild) returnstring=oJSON.AddJSONProps(returnstring,theAcs) returnstring=oJSON.AddJSONProps(ojson.stringify(ajaxresponse),returnstring) oResponse.Write(oJSON.addjsonprops(theresponse,returnstring)) else oresponse.write(theresponse) endif oresponse.flush close tables close data %>