>IF !USED('Schedule')
>	USE Schedule IN 0
>ELSE
>	SELECT Schedule
>ENDIF
>

FUNCTION SelectOrOpen(tcTableName, tcOrder, tcAlias, tnBuffering)
	* Abrir una tabla. Si ya estuviera abierto el alias, simplemente seleccionarlo.
	* Parámetros:
	* - tcTableName - la tabla que se quiere abrir
	* - tcOrder - el index tag que se ha de seleccionar
	* - tcAlias - con qué alias se quiere abrir la tabla
	* - tnBuffering - parámetro para buffering;
	*   normalmente igual a 5, 3, u omitido.
	if empty(tcAlias)
		tcAlias = tcTableName
	endif
	if used(tcAlias)
		select (tcAlias)
	else
		select 0
		use (tcTableName) alias (tcAlias) again
	endif
	if not empty(tcOrder)
		set order to (tcOrder)
	endif
	if VarType(tnBuffering) = "N"
		CursorSetProp("Buffering", tnBuffering)
	endif
ENDFUNC && SelectOrOpen