LOCAL lcFileNamePd


oApp.lError = .F.

IF !oApp.android_reverse_cd(oJs.cParam)
	oApp.setRespuesta(.F.)
	MESSAGEBOX('Error en definicion de cobro:' +CHR(13)+oJs.cParam, 63, 'GhostM', 3)	
	RETURN 
ENDIF


SELECT pda_cur_cab
GO top
SCAN all
	ccodvefic 		= ALLTRIM(pda_cur_cab.fecha)+ALLTRIM(TRANSFORM(pda_cur_cab.id))+ALLTRIM(TRANSFORM(pda_cur_cab.idsalesman))
	
	IF oApp.i_exist('LLAVE', 'pda_cur_cab')
		ccodvefic = oApp.i_field('LLAVE', 'pda_cur_cab')
	ENDIF
	
	IF oApp.sqlexec('SELECT id from recaudacion where codvefic="'+ccodvefic+'"')=0
	
		oApp.t_clear()
		cId = oApp.newid('Recaudacion', 14, .t.)

		oApp.t_clear()
		oApp.t_set('id', cId, 'C')	

		oApp.t_set('idaccountype', 	oApp.fill_id(pda_cur_cab.idtipopago,2))
		oApp.t_set('monto', 		TRANSFORM(val(oApp.fixd(pda_cur_cab.monto)),'9999999999.99'))
		oApp.t_set('idbank', 		oApp.fill_id(pda_cur_cab.idbanco,8))
		oApp.t_set('referencia', 	ALLTRIM(pda_cur_cab.referencia))
		oApp.t_set('nota', 			ALLTRIM(pda_cur_cab.nota))
		oApp.t_set('fecha', 		ALLTRIM(pda_cur_cab.fecha))
		oApp.t_set('hora', 			ALLTRIM(pda_cur_cab.hora))
		oApp.t_set('idcustomer', 	oApp.fill_id(pda_cur_cab.idcustomer,12))
		oApp.t_set('void', 			ALLTRIM(pda_cur_cab.void))
		oApp.t_set('idsalesman', 	oApp.fill_id(pda_cur_cab.idsalesman,8))
		oApp.t_set('fechadoc', 		ALLTRIM(pda_cur_cab.fechadoc))  && no esta enviando la fecha
		oApp.t_set('coderetfte', 	ALLTRIM(pda_cur_cab.coderetfte))
		oApp.t_set('moneda', 		'1')
		oApp.t_set('recibo', 		ALLTRIM(pda_cur_cab.numerorecibo))
		oApp.t_set('cuenta', 		ALLTRIM(pda_cur_cab.numerocuenta))
		oApp.t_set('IdUser', 		oApp.fill_id(pda_cur_cab.iduser,8))
		oApp.t_set('codvefic', 		ccodvefic)
		
		oApp.t_set('latitud', 		TRANSFORM(pda_cur_cab.c_lat))
		oApp.t_set('longitud', 		TRANSFORM(pda_cur_cab.c_lng))

		oApp.t_set('despachado', 	'0')

		DIMENSION a_t_fields[oApp.t_nfields,2]		
		iLoop = 0
		DO WHILE !oApp.t_insert('Recaudacion') and iLoop<1000
			iLoop = iLoop + 1 
			cId = oApp.newid('Recaudacion', 14, .t.)
			a_t_fields[1,2] = cId
		ENDDO
		
		IF iLoop>=1000
			MESSAGEBOX(oApp.cerr,63,'Ghost',1)
			oApp.lError = .T.
			RETURN .F.
		ENDIF
		
	* id|idinvoice|idrec|monto|tipo|idcuota|cuota
		
		SELECT * FROM pda_cur_det WHERE idrec=pda_cur_cab.id INTO CURSOR curDet

	
		SELECT curDet
		GO top
		
		
		SCAN all

			oApp.t_clear()
			oApp.t_set('id', cId, 'C')	
			oApp.t_set('idinvoice', oApp.fill_id(curDet.idinvoice,14))
			oApp.t_set('monto', 	TRANSFORM(val(oApp.fixd(curDet.monto)),'9999999999.99'))
			oApp.t_set('cuota', 	ALLTRIM(curDet.cuota))
			oApp.t_set('idaccountcuscuota', oApp.fill_id(curDet.idcuota,14))
			oApp.t_insert('RecaudacionDet')
			
			SELECT curDet

		ENDSCAN
	ENDIF
	
	SELECT pda_cur_cab
ENDSCAN

oApp.setRespuesta(!oApp.lError)

