LOCAL lcFileNamePd

oApp.lError = .F.

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


SELECT pda_cur_cab
GO top
SCAN all
	cId = oApp.newid('DETALLEVISITAS', 12, .t.)


	cIdCust = oApp.fill_id(pda_cur_cab.IdCustomer,12)
	nLat    = oApp.fixStr(pda_cur_cab.c_lat)
	nLng    = oApp.fixStr(pda_cur_cab.c_lng)
	
	nTipo   = VAL(pda_cur_cab.IdTipoVisita)
	
	*WAIT WINDOW nTipo
	
	IF nTipo<0
		nTipo = 0
	ENDIF
	
	nTipo   = oApp.fill_id(nTipo,8)
	oApp.t_clear()
	oApp.t_set('id', cId, 'C')	

	oApp.t_set('IdTipoVisitas', nTipo)
	oApp.t_set('IdCustomer', 	cIdCust)
	oApp.t_set('IdSalesman', 	oApp.fill_id(pda_cur_cab.IdSalesman,8))
	*oApp.t_set('IdVisita', 		oApp.fill_id(pda_cur_cab.IdVisita,8))
	oApp.t_set('nota', 			oApp.fixStr(pda_cur_cab.nota))
	oApp.t_set('fecha', 		oApp.fixStr(pda_cur_cab.date))
	*oApp.t_set('hora', 			ALLTRIM(pda_cur_cab.hora))
	
	oApp.t_set('hora', 			SUBSTR(TTOC(DATETIME(),2),1,8))
	oApp.t_set('foto', 			oApp.fixStr(pda_cur_cab.foto))
	oApp.t_set('latitud', 		nLat)
	oApp.t_set('longitud', 		nLng)

	


	DIMENSION a_t_fields[oApp.t_nfields,2]
	iLoop = 0
	DO WHILE !oApp.t_insert('DETALLEVISITAS') and iLoop<1000
		iLoop = iLoop + 1 
		cId = oApp.newid('DETALLEVISITAS', 14, .t.)
		a_t_fields[1,1] = cId
	ENDDO
	
	IF iLoop>=1000
		MESSAGEBOX(oApp.cerr,63,'Ghost',1)
		oApp.lError = .T.
		RETURN .F.
	ENDIF	
	
	IF VAL(nTipo)=0
		oApp.SetLatLng (cIdCust, VAL(nLat), VAL(nLng))
	ENDIF
	
	
	SELECT pda_cur_cab
ENDSCAN

oApp.setRespuesta(!oApp.lError)