Histórico da Página

// Muestra un dato en la pantalla, por una determinada cantidad de veces.
FUNCTION Mensagem(xDado, nVezes)

	LOCAL nRepet := 0

	IF VALTYPE(xDado) == ?"C?"
	// Dato del tipo carácter
		xDado := xDado

	ELSEIF VALTYPE(xDado) == ?"N?"
	// Dato del tipo numérico
		xDado := LTRIM(STR(xDado))

	ELSEIF VALTYPE(xDado) == ?"D?"
	// Dato del tipo fecha
		xDado := DTOC(xDado)

	ELSEIF VALTYPE(xDado) == ?"L?"
	// Dato del tipo lógico
		xDado := IIF(xDado, ?"Verdadero?", ?"Falso?")

	ELSE
	// Otro tipo de dato
		xDado := ?"Indefinido?"
	ENDIF

	FOR nRepet := 1 TO nVezes
		MSGALERT(xDado)
	NEXT nRepet

RETURN