Error utilizando ALIAS en apertura de archivos usando DBFCDX

[jgvivasc]

Al utilizar un ALIAS diferente al nombre del archivo en la apertura de archivos, empleando "DBFCDX" como driver de archivos, se produce el siguiente error: ERROR BASE /1002 Alias does not exist: .......

En este programa de prueba se puede detectar el error:

#include "FiveWin.ch"
STATIC oDlg

Function Main()
DEFINE DIALOG oDlg TITLE "Prueba Alias" ;
FROM 10,10 TO 19,50

@ 3,8.5 BUTTON "Alias";
DEFAULT OF oDlg ;
SIZE 50,15 ;
ACTION INICIO()

ACTIVATE DIALOG oDlg CENTERED

RETURN NIL
//----------------------------------------------------------------------------//
//----------------------------------------------------------------------------//
function inicio()

use emadir00 new alias "emapara" via RDDSETDEFAULT()
close all
retu nil

"EMADIR00" es un ".DBF"
El RDD por default es DBFCDX.

Agradeceria información acerca de este caso.

Ademas de lo anterior, donde puedo conseguir la funcion cMimeEnc() que se encuentra en TSMTP?

[Armando]

Intenta retirando las comillas (") del alias

Code: Select all  Expand view  RUN

use emadir00 new alias emapara via RDDSETDEFAULT()


Saludos

[jgvivasc]

Ya intente sin comillas y encerrando el ALIAS en comillas y parentesis y no funciona.

Realizé pruebas con el RDD "DBFNTX" y si funciona.

Con DBFNTX se pueden abrir, del mismo DBF valios Alias, y actua como si fueran archivos independientes, pero con DBFCDX da error.

Gracias por su sugerencia.

[Manuel Aranda]

De esta forma me funciona perfectamente el ALIAS:

Code: Select all  Expand view  RUN

.........
//
REQUEST DBFCDX
RDDSETDEFAULT( "DBFCDX" )
//
USE GASTOS   INDEX GASTOS   SHARED NEW
USE GASTOS   INDEX GASTOS   ALIAS GASTOS2 SHARED NEW
........


[jgvivasc]

A mi tambien me funcionó hasta que tuve que utilizar ORDSCOPE() en cada uno de los alias abiertos (diferentes al original). Al agregar o eliminar registros tambien da problemas. La aplicación se vuelve inestable.

Gracias por su atención.

Saludos,

Julio Vivas