Hola,
Para asignar un alias a una dbf, se realiza en el comando use o función dbusearea. Pero, necesito cambiar el alias una vez ya está abierta la dbf.
USE productos NEW SHARE ALIAS "producto1"
Aquí me gustaría poder hacer algo como alias("MinuevoAlias") y que lo cambiara sin abrir ni cerrar la dbf.
¿Es posible esto en Harbour?
Joaquín Antonio tenía una función que hacía eso.
De manera nativa no la hay, habría que hacerla en C.
Realmente es muy fácil de hacer.
Básicamente habría que recorrer el array de áreas para comprobar si existe y si no existe sustituir el workarea[ miArea ] = cNombreNuevo
Si Antonio no la encuentra (es muy vieja, hecha para clipper ) en cuanto tenga un poco de tiempo la hago y la cuelgo aquí.
para clipper solo habría que pasarla a Harbour://----------------------------------------------------------------------------//
// Cambia el nombre del cAliasAct por cAliasNew
CLIPPER SETALIAS() // ( cAliasAct, cAliasNew )
{
CLIPSYMBOL * pAliasOld = _Get_Sym( _parc( 1 ) );
CLIPSYMBOL * pAliasNew = _Get_Sym( _parc( 2 ) );
register int n = 0;
pAliasNew->nArea = pAliasOld->nArea;
pAliasOld->nArea = 0;
while( n < 255 && _WorkAreas[ n ] &&
( _WorkAreas[ n ]->uiArea != pAliasNew->nArea ) )
n++;
if( n < 255 && _WorkAreas[ n ] )
_WorkAreas[ n ]->atomAlias = pAliasNew;
}
//----------------------------------------------------------------------------//
LOCAL cAlias
USE productos NEW SHARE ALIAS "producto1"
cAlias := ALIAS()
o
Mira el comando: oClone() de FiveWinGracias Manu,
Tú has entendido lo que quería hacer.
¿Sabes convertir el código en C que has puesto de clipper a Harbour?
Si Antonio no lo hace antes yo lo hago... 
Te corre mucha prisa?
/* -----------------------------------------------------------------------------
*
* Prototipo de la funcion en PRG: hb_setAlias( cNewAlias, nArea )
* Parametros:
* 1) cNewAlias: cadena con la nueva alias
* 2) nArea: numero del area de trabajo donde se quiere cambiar el alias, si no
* se pasa se asume que es en el area de trabajo actual.
* Devuelve: valor logico indicando si se consigio o no
*
* ----------------------------------------------------------------------------*/
#include "hbapi.h"
#include "hbapirdd.h"
HB_FUNC( HB_SETALIAS )
{
const char * szAlias = hb_parc( 1 ); // cAlias
unsigned int uiArea = hb_parnidef( 2, 0 ); // nArea
HB_BOOL bRet = HB_FALSE; // Valor logico devuelto
// Si se pasa el alias nuevo como cadena de texto y es valida...
if( szAlias && ( hb_rddVerifyAliasName( szAlias ) == HB_SUCCESS ) )
{
// Si no se pasa un numero de area de trabajo o 0 asume la actual si es
// de mayor 0 asume la pasada
AREAP pArea = uiArea > 0 ? hb_rddGetWorkAreaPointer( uiArea ) :
hb_rddGetCurrentWorkAreaPointer();
// Si esta abierta el area de trabajo realiza otras comprobaciones
if( pArea )
{
int iDummyArea;
// Comprueba si ya hay un area de trabajo con ese alias
if( hb_rddGetAliasNumber( szAlias, &iDummyArea ) != HB_SUCCESS )
{
// Libera el simbolo de alias anterior
hb_dynsymSetAreaHandle( ( PHB_DYNS ) pArea->atomAlias, 0 );
// Reserva memoria para asignar el nuevo alias
hb_dynsymSetAreaHandle( hb_dynsymGet( szAlias ), uiArea );
// Asigna en la estructura del area de trabajo el nuevo alias
( PHB_DYNS ) pArea->atomAlias = hb_dynsymGet( szAlias );
// Si logra realizar el cambio asigamos .t. al retorno
bRet = HB_TRUE;
}
}
}
// Devolvemos el valor logico correspondiente
hb_retl( bRet );
}
//------------------------------------------------------------------------------procedure main()
// Abrimos la DBF test de samples 2 veces en areas diferentes
USE test ALIAS test1 NEW SHARED
USE test ALIAS test2 NEW SHARED
// Mostramos las ALIAS actuales
Alert( "Alias 1: " + Alias( 1 ) + ";Alias 2: " + Alias( 2 ) )
if hb_setAlias( "Nueva1", 1 )
Alert( "El nuevo Alias del area 1 ha sido cambiada" )
else
Alert( "No se ha podido cambiar el alias" )
endif
// Mostramos las ALIAS actuales
Alert( "Alias 1: " + Alias( 1 ) + ";Alias 2: " + Alias( 2 ) )
DBCloseAll() // Cierra todas las areas de trabajo
return
Joaquín has probado la función?
Está hecha para harbour en sus últimas releases. No sé si va en xHarbour...
Buenas Manuel,
Muchas gracias, pero estoy super saturado, no he tenido tiempo ni de probarla.
La voy a descargar y probar, y ya te digo algo.
Gracias,
OK 