<%
set date ymd
set century on
set hours to 24
set mark to [-]
*=SYS(3101,1256)
=SYS(3101,65001)
expires=-1
the_action=orequest.form('action')
the_transid=orequest.form('m_transid')
filenumber=the_transid
the_sponname=orequest.form('sponname')
the_sponadr=orequest.form('sponadr')
the_visadt=orequest.form('visadt')
the_embassy=orequest.form('embassy')

*return the_action+the_transid+the_sponname+the_sponadr+the_visadt+the_embassy

ajaxresponse=CREATEOBJECT('empty')
oJSON=NEWOBJECT('json','json.fxp')
jsondata=orequest.form('data-area')
STRTOFILE(jsondata,addbs(oprop.appstartpath)+[temp\jsondata.json])
set procedure to (addbs(oprop.appstartpath)+'json_new.fxp') additive
jsonObject=json_decode(jsondata)
headerText=[]
if NOT type([jsonObject._1])=[O]
	ADDPROPERTY(ajaxresponse,'tmessage','Can not save empty list')
	ADDPROPERTY(ajaxresponse,'terror','true')
	oresponse.write(ojson.stringify(ajaxresponse))
	oresponse.flush()
	RETURN ''
ENDIF
tcounter=0
respmsg=[]
if type([jsonObject._1])=[O]
	do while .t.
		tcounter=tcounter+1
		c_param=[jsonObject._]+allt(transform(tcounter))
		IF type(c_param)<>[O]
			exit
		endif
		with &c_param
			theCompany=allt(upper(.get(1)))
			theSR=val(ALLTRIM(upper(.get(2))))
			theProf=.get(3)
			theCategory=.get(4)
			theQuantity=val(transform(.get(5)))
			theCurrency=.get(6)
			theSalary=val(transform(.get(7)))
			theSkill=.get(8)
			theSkill=icase(theskill='Unskilled', 1, theskill='Semi Skilled', 2, theskill='Skilled', 3, theskill='Highly Skilled',4, theskill='Highly Qualified',5, 1)
			theYear=val(.get(9))
			theMonth=val(.get(10))
			theApplicant=allt(upper(.get(11)))
			isAdd=.get(12)
		ENDWITH
		tsql=[ use (']+dbclocation+[works\visainfo') in select('visainfo')]
		&tsql
		select [visainfo]
		locate for sr=thesr and allt(reffid)==the_transid
		replace category with thecategory, qty with thequantity, skill with theskill, ;
			salary with thesalary, year with theyear, month with themonth, choose with iif(IsAdd='Add',.t.,.f.) ,choosetext with isAdd 
		*respmsg=respmsg+theCurrency
	enddo
	tsql=[ use (']+dbclocation+[works\visainfo') in select('visainfo')]
	&tsql
	select [visainfo]
	select * from dbf() where allt(reffid)==the_transid and choose into cursor proplist
	if _tally=0
		return [{"terror":"true","tmessage":"No visas were choosen"}]
		*else
		*return [{"terror":"false","tmessage":"A total of ]+transform(_tally)+[ visas were updated!"}]
	endif
	*From here we will add the new visas
	*************
	use (dbclocation+[details]) in select([details])
	select [details] 
	calculate CNT() TO oldvisas FOR allt(reffid)==allt(filenumber)
	use (dbclocation+[category]) in select([category])
	use (dbclocation+[fileref]) in select([fileref])
	SELECT [proplist]
	scan	
		thiscateg=ALLTRIM(category)
		SELECT [details]
		CALCULATE CNT() TO oldcateg FOR ALLTRIM(reffid)==ALLTRIM(filenumber) AND ALLTRIM(category)==thiscateg
		SELECT [visainfo]
		CALCULATE cnt() TO categqty FOR ALLTRIM(category)==thiscateg AND ALLTRIM(reffid)==ALLTRIM(filenumber) and choose
		LOCATE FOR ALLTRIM(category)==thiscateg
		Scatter Name VVISAS
		IF oldcateg<categqty
				SELECT [category]
				LOCATE FOR ALLTRIM(reffid)==ALLTRIM(filenumber) AND ALLTRIM(category)==thiscateg
				IF EOF()
					APPEND BLANK
				ENDIF
				vvisas.qty=categqty
				GATHER NAME vvisas
				replace curr WITH [SAR], reffid WITH filenumber
				SELECT [details]
				FOR i=1 TO (categqty-oldcateg)
					APPEND BLANK
					GATHER NAME vvisas
					replace curr WITH [SAR], reffid WITH filenumber
				endfor
		endif
		SELECT [proplist]
	endscan
	Select 'fileref'
	If ALLTRIM(reffid)==ALLTRIM(filenumber)
		Locate For ALLTRIM(reffid)==ALLTRIM(filenumber)
	Endif
	If Not Eof()
		fsDate=GETWORDNUM(VVISAS.VISADT,3,[/])+[-]+GETWORDNUM(VVISAS.VISADT,2,[/])+[-]+GETWORDNUM(VVISAS.VISADT,1,[/])
		englishdate=convertdatetoenglish(fsDate)
		****
		Select 'fileref'
		SET NOCPTRANS TO SPONNAMEA , sponadd1a
		Replace SPONADD1A With VVISAS.SPONADR,;
			SPONNAMEA With VVISAS.SPONNAME,;
			embassy WITH vvisas.embassy,;
			sponid with vvisas.sponid,;
			visaid with vvisas.visaid,;
			dateisl with fsdate,;
			date with englishdate
	ENDIF
	Select [fileref]
	SELECT 'details'
	CALCULATE CNT() TO totadded FOR ALLTRIM(reffid)==ALLTRIM(filenumber)
	*thisform.txt12.Value=totadded
	LOCATE FOR ALLTRIM(reffid)==ALLTRIM(filenumber)
	IF oldvisas<totadded
		respmsg=respmsg+' A total of '+Alltrim(Str(totadded-oldvisas))+' visas were added to the file'
	Else
		respmsg=respmsg+' No more visas were added to the file'
	ENDIF
	SELECT [details]
	COUNT TO ncnt FOR ALLTRIM(reffid)==ALLTRIM(filenumber)
	FOR i=1 to ncnt
		newsrno=PADL(ALLTRIM(STR(i)),4,[0])
		LOCATE FOR ALLTRIM(reffid)==ALLTRIM(filenumber) AND srno=newsrno
		IF EOF()
			LOCATE FOR ALLTRIM(reffid)==ALLTRIM(filenumber) AND EMPTY(srno)
			IF NOT EOF()
				replace srno WITH newsrno
			endif
		endif
	ENDFOR
	*this will add jobs where there is no job
	SELECT [details]
	SCAN FOR allt(reffid)==allt(filenumber)
		IF EMPTY(prof)
			SELECT [visalist]
			LOCATE FOR ALLTRIM(category)==ALLTRIM(details.category)
			SELECT [details]
			replace prof WITH visalist.prof
		endif
	ENDSCAN
	*End
	Use In Select('VISALIST')
	****************
	*end
	use in select('visainfo')
endif
*STRTOFILE('{"respmsg":"'+respmsg+'"}',addbs(oprop.appstartpath)+[temp\respmsg.json])
return '{"terror":"false","tmessage":"'+respmsg+'"}'
%>