FOR i = 1 _TO_ MySelf..Occurrence

	sDocumentName			is string	= UploadFileName(MySelf, False, i)
	sTemporalDocumentPath	is string

	//DocumentsService		is ServiceTaulellAnuncisDocuments
	cDocument				is MTaulellAnuncisDocuments

	//Upload selected document and copy it at TemporalFiles folder
	InitRandom()
	sTemporalDocumentPath				= PROJECTE_PathTemporal + "\" + UploadCopyFile(MySelf, PROJECTE_PathTemporal, Random(1000000) + Lower(fExtractPath(sDocumentName, fExtension)), i)

	//New document
	cDocument.Document					= fLoadBuffer(sTemporalDocumentPath)
	//cDocument.Anuncis_ID				= -1
	cDocument.NomDocument				= sDocumentName

	currentAnunci.arrayDocumentacio.Add(cDocument)
	AfegirDocumentAlLooper(cDocument)
	//DocumentsService.Create(cDocument)
	//RefrescarDocuments()
END