<%
oJSON=NEWOBJECT('json','json.prg')
oresponse.expires=-1
 IF NOT [NFJSON]  $ SET("Procedure")
    SET PROCEDURE TO (addbs(oprop.appstartpath)+[prg\nfjson.FXP]) additive
 endif
  
SET NULL off
SET DELETED ON
SET DATE TO YMD
SET CENTURY on
SET HOURS TO 24
operation=orequest.form('operation')
if operation='timestamp'
    tendtime=orequest.form('endtime')
    ktsql=[select top 100 itemid, bar_code, name, sale, cost, pcost, timestamp from (']+dbclocation+[itemmast') where not empty(timestamp) and timestamp<ctot(']+tendtime+[') order by timestamp desc into cursor tempcursor]    
    *ktsql=[select top 100 * from (']+dbclocation+[itemmast') where not empty(timestamp)  and timestamp<ctot(']+tendtime+[') order by timestamp desc into cursor tempcursor]    
    &ktsql
    if reccount('tempcursor')=0
        return ktsql
    endif
    *copy to (addbs(oprop.appstartpath)+[temp\timestamp.dbf])
     theresponse=nfcursortojson4vfp()
    *CURSORTOXML('tempcursor','theresponse',1,0,0,'1')
    *oResponse.ContentType = "application/xml;charset=windows-1252"
    oresponse.contenttype="text/json"
    oresponse.Write(theresponse)
    return 
endif
if operation='lastitem'
    lastitem=orequest.form('lastitem')
    =usesafe('itemmast')
    set order to
    if empty(lastitem)
            go bottom 
        else
            locate for itemid=lastitem
    endif
    thisitem=itemid
    ktsql=[select top 1 itemid, bar_code, name, sale, cost, pcost, timestamp from (']+dbclocation+[itemmast') where itemid=']+thisitem+[' order by timestamp desc into cursor tempcursor readwrite]   
    &ktsql
    delete
    thecounter=0
    do while not bof() and thecounter<500 
        thecounter=thecounter+1
        scatter name putback
        select 'tempcursor'
        append blank
        with putback
         replace itemid with .itemid, bar_code with .bar_code, name with .name, sale with .sale, cost with .cost, pcost with .pcost, timestamp with .timestamp 
            *gather name putback
        endwith
        select 'itemmast'
        skip -1
    enddo
    select 'tempcursor'
    theresponse=nfcursortojson4vfp()
    oresponse.contenttype="text/json"
    oresponse.Write(theresponse)
    return 
endif
%>