by jrestojeda » Mon Jul 30, 2007 8:20 pm
Armando:
No hay mucho para agregar, primero debes incluir las siguientes dlls al path donde se encuentra tu programa:
ACE32.DLL
ADSLOC32.DLL
AXCWS32.DLL
luego en todos tus .prg debes incluir en la cabecera lo siguiente:
#include "ADS.ch"
y también, pero solo en el .prg principal lo siguiente:
RddRegister("ADS",1)
RddSetDefault("ADS")
SET SERVER LOCAL
SET FILETYPE TO NTX o el que utilices
y luego el resto sale solo.
Hay que tener en cuenta que en algunas condiciones no funcionan los FOR o los WHILE, por ejemplo para crear un indice temporario.
Ejemplo:
INDEX ON BASE->FECHA TO MiIndice.ntx FOR (BASE->FECHA>=Fecha1 .AND. BASE->FECHA<=FECHA2)
Este tipo de sentencias probablemente no funcionen.
Saludos.