LOCAL cResp, cIdS, cCmdSql
LOCAL nPed, cIdUser, cFecha, cIdItem, cCode, cRuc, cNombre, cPrecio, cCant, cBoletos, cTipoPvp

DECLARE aParam [1]

oApp.explode(oJs.cParam,@aParam,'|')

cIdUser  = aParam[1]
cFecha   = aParam[2]
cIdItem  = aParam[3]
cCode    = aParam[4]
cRuc     = aParam[5]
cNombre  = aParam[6]
cPrecio  = aParam[7]
cCant    = aParam[8] 
cBoletos = aParam[9]
cTipoPvp = aParam[10]

oApp.sqlexec('select iduser,count(iduser)+0000000000 as n from invoice where iduser='+cIdUser,'curUltimo')
nPed = 1
IF !ISNULL(curUltimo.n)
	nPed = INT(VAL(curUltimo.n))+1 
ENDIF

nPed = nPed +  INT(VAL(cIdUser))*1000000


cResp = facturar(nPed, cIdUser, cFecha, cIdItem, cCode, cRuc, cNombre, cPrecio, cCant, cBoletos, cTipoPvp )


oApp.runLink('json/set_respuesta.php?id='+oJs.cIdCmd+'&resp='+cResp)



FUNCTION facturar(nPed, cIdUser, cFecha, cIdItem, cCode, cRuc, cNombre, cPrecio, cCant, cBoletos, cTipoPvp )

	LOCAL cNameUser
	
	oLoader.idcc		= PADL(2,10,'0')
	oLoader.idcp		= PADL(2,10,'0')
	oLoader.idbodega	= PADL(2,8,'0')	

	oLoader.noPed 		= nPed

	_noPed 				= nPed

	oLoader.nofact		= oLoader.noPed
	
	oInvoicer.INFOADICIONAL1 = cBoletos
	oInvoicer.fechaanuncio = CTOD(SUBSTR(cFecha,9,2)+'/'+SUBSTR(cFecha,6,2)+'/'+SUBSTR(cFecha,1,4))
	*oInvoicer.fe_manual = .T.
	
	
	cIdS = 'xx'
	IF oApp.sqlexec('SELECT id FROM salesman WHERE code="'+cCode+'"')>0
		oLoader.idsalesman = sqlresult.id
	ENDIF
	

	IF oApp.sqlexec("select noped from loader_h where noped=?_noPed")=0

		
		oLoader.tiempo		= DTOC(DATE(),1)
		oLoader.iduser 		= cIdUser
		oLoader.ruc 		= cRuc
		oLoader.cliente  	= cNombre
		oLoader.address 	= ""
		oLoader.phone 		= ""
		oLoader.city 		= ""
		
		oLoader.descuento 	= 0
		oLoader.anulado 	= '0'

		oLoader.codvend 	= cCode
		
		oLoader.serie       = '001008'
		
		cNameUser	    	= cIdUser
		IF oApp.sqlexec('select seriepv,name from user where id='+cIdUser)>0
			IF !EMPTY(ALLTRIM(sqlresult.seriepv) )
				oLoader.serie   = ALLTRIM(sqlresult.seriepv) 
			ENDIF
			
			cNameUser	    = ALLTRIM(sqlresult.name) 
		ENDIF
		
		cNameItem	    	= cIdItem
		IF oApp.sqlexec('select name from item where id='+cIdItem)>0
			cNameItem	    = ALLTRIM(sqlresult.name) 
		ENDIF
		
		oLoader.numero      = _noPed
		oLoader.email 		= ''

		oLoader.nota		= cNameUser +'|'+ cFecha +'|'+ cNameItem +'|'+ cCode +'|'+ cRuc +'|'+ cNombre +'|'+ cPrecio +'|'+ cCant +'|'+ cBoletos 
		oLoader.detalle		= ''
  		oLoader.formapago 	= '12'
		oLoader.lcontado	= 1

		oLoader.tipo 		= '01'
		oLoader.idbank		= ''
		
		oLoader.cantidad 	= VAL(cCant)
		oLoader.precio 		= VAL(cPrecio)
		
		oLoader.pvp			= 	cTipoPvp
		oLoader.pvpCab		= 	cTipoPvp


		oLoader.anulado 	= 0
		oLoader.fecha 		= DATE()
		oLoader.venc 		= oInvoicer.fechaanuncio 
		oLoader.hora 		= TIME()
		
		oLoader.iditem		= cIdItem
		oLoader.item 		= cNombre
		oLoader.detalle		= cBoletos 
		
		oLoader.grabar()

		oInvoicer.run(oLoader.noPed, .T.)
	
		RETURN oInvoicer.cSerieSec
	ENDIF
	RETURN 'xxx-xxx-xxxxxxxxx'
ENDFUNC
