<%
*This will insure to get the pending files count 
processedtime=datetime()
bulkfolder=addbs(ADDBS(oprop.appstartpath)+'bulkdata')
allfiles=0
remainingfiles=0
if directory(bulkfolder)
		allfiles=adir(filelist,bulkfolder+[\_*.txt])
        remainingfiles=allfiles
		if allfiles>0
			theresponse=[FOUND ]+ALLTRIM(TRANSFORM(allfiles))+[ Sale records ] 
			*oJSON=NEWOBJECT('json','json.prg')
			IF TYPE([orequest])=[O] and NOT [NFJSON]  $ SET("Procedure")
				SET PROCEDURE TO (ADDBS(oprop.appstartpath)+[prg\nfjson.FXP]) additive
			endif
			for tlst=1 to allfiles
				if datetime()-processedtime>3
					exit
				endif
				tfile=bulkfolder+[\]+allt(filelist(tlst,1))
				thefiledata=FILETOSTR(tfile)
				nfJsonToCursor(thefiledata, 'newtcsdata',.f.)
				SELECT [newtcsdata]
				go top 
				*****
				servicecharges=srvchgs
				mAccount=accountid
				NewNum=transid
				newdate=date
				newuser=opt
				newsaleman=iif(empty(saleman),[140000],saleman)
				newsess=sess
				newdtime=dtime
				if empty(newdtime)
					newdtime=datetime()
				endif
				newmemberid=invmemberid
				mcrit=invcrit
				newpayment=invpayment
				newtotal=invtotal
				newdiscount=invdiscount
				*newtotal=VAL(TRANSFORM(orequest.form('newtotal')))
				*newdiscount=VAL(TRANSFORM(orequest.form('newdiscount')))
				newname=custname
				newmemdisc=memdisc
				countersales='050000' &&TRANSFORM(orequest.form('countersales'))
				newspot=spot &&VAL(TRANSFORM(orequest.form('newspot')))
				*mAccount=orequest.form('')
				usesafe([cashsale])
				usesafe([cashdata])
				usesafe([negatives])
				usesafe([itemmast])
				usesafe([accounts])
				SELECT [cashsale]
				=SEEK(newnum,[cashsale],[transid])
				IF EOF()
					GO bottom
					IF date<>DATE()
						salesrno=1
					ELSE
						salesrno=daysrno+1
					endif
					APPEND BLANK
					replace daysrno WITH salesrno
				ENDIF
				Replace CASHSALE.transid With NewNum,;
					CASHSALE.customer With COUNTERSALES,;
					CASHSALE.depositid With mAccount,;
					CASHSALE.Payment With newpayment,;
					CASHSALE.Date With newdate,;
					CASHSALE.modified With newdtime,;
					CASHSALE.saleman With newsaleman,;
					CASHSALE.Total With newtotal,;
					CASHSALE.discount WITH newdiscount,;
					cashsale.name WITH newname,;
					CASHSALE.crit With mcrit,;
					CASHSALE.opt With newuser,;
					CASHSALE.Sess With newsess,;
					CASHSALE.spot With newspot,;
					CASHSALE.dtime With newdtime,;
					CASHSALE.memdisc With newmemdisc,;
					cashsale.memberid WITH newmemberid,;
					cashsale.srvchgs WITH servicecharges,;
					cashsale.sql with .t.
				*COPY TO (TEMPLOCATION+[TMPINV.DBF])
				salesrno=cashsale.daysrno
				TheResponse=[TRANSID:]+PADR(ALLTRIM(TRANSFORM(NewNum)),9,[ ])+ALLTRIM(TRANSFORM(salesrno))
				SELECT [newtcsdata]
				Select "CashData"
				Set Order To transid
				=Seek(NewNum,"CashData","Transid")
				Do While cashdata.transid=NewNum And Not Eof("CashData")
					Delete
					If Not Eof()
						SKIP
					ELSE
						exit
					Endif
				Enddo
				SELECT [newtcsdata]
				totalcost=0
				Scan
					=seek(newtcsdata.ItemID,[itemmast],[itemid])
					Select "CASHDATA"
					Append Blank
					Replace cashdata.transid With NewNum,;
						cashdata.ItemID With newtcsdata.ItemID,;
						cashdata.Desc With newtcsdata.Name,;
						cashdata.qty With newtcsdata.qty,;
						cashdata.rate With newtcsdata.rate,;
						cashdata.dqty With newtcsdata.dqty,;
						cashdata.drate With newtcsdata.drate,;
						cashdata.discpcnt With newtcsdata.discpcnt,;
						cashdata.div With newtcsdata.div,;
						cashdata.Total With iif(empty(newtcsdata.dqty),newtcsdata.qty*newtcsdata.rate,newtcsdata.dqty*newtcsdata.drate),;
						cashdata.discount With newtcsdata.discount,;
						cashdata.sr_no With newtcsdata.no,;
						cashdata.saleman With newtcsdata.saleman
					if type([CASHDATA.vendor])=[C] and type([CASHDATA.purchase])=[C]
						replace	CASHDATA.purchase WITH IIF(EMPTY(itemmast.pcost),itemmast.cost,itemmast.pcost),;
							CASHDATA.vendor WITH itemmast.vendor
					endif
					If xcompany.MEMP
						Replace SALEMAN With newtcsdata.SALEMAN
					Endif
					If xcompany.zerorecord And Seek(ItemID,'itemmast','itemid') And itemmast.stock<qty
						Scatter Name zerorecord
						Try
							Select 'negatives'
							Append Blank
							Gather Name zerorecord
						Catch
						Endtry
					Endif
					IF Seek(ItemID,'itemmast','itemid')
						totalcost=totalcost+IIF(EMPTY(itemmast.pcost),itemmast.cost,itemmast.pcost)*cashdata.qty
					endif
					SELECT [newtcsdata]
				ENDSCAN
				****
				SELECT [cashsale]
				replace profit WITH newtotal-totalcost-newdiscount-newmemdisc
				use
				****
				SELECT [newtcsdata]
				USE
				usesafe([cashsale])
				SELECT [CASHSALE]
				result=updatetransactions([CashSale], newnum)
				IF ALLTRIM(result)==[CashSale ]+ALLTRIM(newnum)
					ERASE (tfile)
					theresponse=theresponse+newnum+[, ]
				endif
                remainingfiles=remainingfiles-1
			endfor
		endif
	endif
processedtime=datetime()
*end pending
ajaxresponse=CREATEOBJECT('empty')
oJSON=NEWOBJECT('json','json.fxp')
    SET EXCLUSIVE off
	theitem=allt(orequest.form('itemid'))
    tsql=[select itemid, name, sale, pcost,cost, stock, adjqty, adjbalance, adjtime from (']+dbclocation+[itemmast') where allt(itemid)==']+theitem+[' into cursor temp]
    &tsql
    fullitem=itemid
    oldadjqty=adjqty
    ADDPROPERTY(ajaxresponse,'description',allt(name))
    ADDPROPERTY(ajaxresponse,'itemid',allt(itemid))
    ADDPROPERTY(ajaxresponse,'sale',sale)
    ADDPROPERTY(ajaxresponse,'adjtime',adjtime)
    ADDPROPERTY(ajaxresponse,'adjbalance',adjbalance)
	ADDPROPERTY(ajaxresponse,'adjqty',oldadjqty)
    ADDPROPERTY(ajaxresponse,'cost',iif(empty(pcost),cost,pcost))
    ADDPROPERTY(ajaxresponse,'stock',stock)
    ADDPROPERTY(ajaxresponse,'remainingfiles',remainingfiles)
    theaction=orequest.form('taction')
    if theaction="makeadjustment"
        currentStock=stock
        oldstock=orequest.form('oldstock')
        suggestedstock=val(transform(nvl(orequest.form('newstock'),0)))
        stockdiff=suggestedstock-currentStock
        if currentstock=suggestedstock
            oldadjqty=oldadjqty+1
            tsql=[update (']+dbclocation+[itemmast') set adjtime=processedtime, adjqty=adjqty+1, actbalance=currentStock, adjbalance=currentstock where allt(itemid)==']+theitem+[']
            &tsql
            if not empty(bk1loc) and directory(bk1loc,1)
                tsql=[update (']+bk1loc+[itemmast') set adjtime=processedtime, adjqty=adjqty+1, actbalance=currentStock, adjbalance=currentstock where allt(itemid)==']+theitem+[']
                &tsql
            endif
            if not empty(bk2loc) and directory(bk2loc,1)
                tsql=[update (']+bk2loc+[itemmast') set adjtime=processedtime, adjqty=adjqty+1, actbalance=currentStock, adjbalance=currentstock where allt(itemid)==']+theitem+[']
                &tsql
            endif
            ADDPROPERTY(ajaxresponse,'adjqty',adjqty)
        else
            usesafe('adjust')
            usesafe('adjdata')
            usesafe('itemmast')
            =seek(theitem,[itemmast],[itemid])
            tsql=[update (']+dbclocation+[itemmast') set stock=suggestedstock, timestamp=processedtime, adjqty=adjqty+1, actbalance=currentStock, adjbalance=suggestedstock where allt(itemid)==']+theitem+[']
           
            &tsql
           
            =seek(fullitem,[itemmast],[itemid])
            tsql=[SELECT TOP 1 TRANSID,VAL(TRANSID) AS VTR FROM (']+DBCLOCATION+[adjust') ORDER BY VTR DESC INTO CURSOR TX]
            &tsql
            maxtrans=vtr 
            do while .t.
                maxtrans=maxtrans+1 
                newtransid=padr(allt(transform(maxtrans)),9,[ ])
                if not seek(newtransid,[adjust],[transid])
                    exit
                endif
            enddo
            select [adjust] 
            append blank
            replace transid with newtransid, date with date(), dtime with processedtime, accountid with [070000], value with .t., modified with processedtime,sql with .t.
            select [adjdata] 
            append blank
            Replace adjdata.transid With newtransid,;
			ADJDATA.SALE WITH itemmast.sale,;
			adjdata.ItemID With itemmast.itemid,;
			adjdata.Desc With itemmast.name,;
			adjdata.In With iif(stockdiff>0,stockdiff,0),;
            adjdata.out With iif(stockdiff<0,abs(stockdiff),0),;
			adjdata.rate With itemmast.cost,;
			adjdata.cost With itemmast.cost,;
			adjdata.Total With itemmast.cost*stockdiff,;
			adjdata.balance With suggestedstock,;
			adjdata.sql with .t.
            select [adjust]
            =updatetransactions('Adjust',newtransid)
        endif
        ADDPROPERTY(ajaxresponse,'adjqty',oldadjqty)
        ADDPROPERTY(ajaxresponse,'oldstock',oldstock)
        ADDPROPERTY(ajaxresponse,'curstock',currentStock)
        ADDPROPERTY(ajaxresponse,'newstock',suggestedstock)
		ADDPROPERTY(ajaxresponse,'adjtime',processedtime)
    endif
    
   oResponse.ContentType = "text/plain"
    oresponse.write(oJson.stringify(ajaxresponse))
    oresponse.flush     
%>