Error A_PREOPEN cuando se da Quit (Modo Consola)

[Ruben Dario]

Saludos a Forum,
Al Cerrar la Aplicacion
Tengo este problema al ejecutar Quit para salir del aplicativo del todo genera este error. No Existe la Variable A_PREOPEN, Trabajo en modo consola

close databases
Quit //Aqui es donde da el error No Existe la Variable A_PREOPEN

Cree la Variable asi , LOCAL A_PREOPEN y sigue el mismo problema

Esto paso cuando me pase a harbour_3.2_32bits_Borland7_20160108 conlas versiones Posteriores no pasa esto.


Gracias

[Kapiaba]

Ruben intenta asi:

Código: Selecionar todos

STATIC a_preopen := {}

Usted está usando ADORDD?

Saludos.

[Ruben Dario]

Gracias. No me funciono, lo coloco en mi proyecto al inicio STATIC a_preopen := {}


Pero si estoy haciendo pruebas con ADORDD, como habia creado una libreria para ADORDD, lo que hice fue quitar la libreria de¡ mi proyecto y se arreglo el problema.
no entiendo porque al hacer decir quit genera este error con ADORDD

yo creo la libreria asi.

Código: Selecionar todos

HFLAG1 = /l /m /q /es2 /gc1
HCLAG1 = -c -tWM

CINCLU =  $(HBDIR)\include;$(fprg)\include;$(FWDIR)\include
CINCL1 =  $(HBDIR)\include
OBJFIL =  .\obj1

NOMLIB =  adordd_h.lib
LIBFIL =  $(fprg)\lib\Harb\$(NOMLIB)

DEFX=__HARBOUR__
DEXP=__EXPORT__



EXTLIBFILES =
DEFFILE = 
HBFLAGS =  -w0
CFLAG1 =  -OS $(SHELL)  $(CFLAGS) -d -c -L$(HBDIR)\lib 

RFLAGS = 
LFLAGS = -L$(BCDIR)\lib\obj;$(BCDIR)\lib;$(HBDIR)\lib -Gn -M -m -s -Tpe -x -ap
IFLAGS = 
LINKER = ilink32
 
ALLOBJ = c0x32.obj $(OBJFILES) $(OBJCFILES)
ALLRES = $(RESDEPEN)
ALLLIB = $(LIBFILES) import32.lib cw32.lib

#important: Use Uppercase for filenames extensions, in the next two rules!

PRG =         \
adordd.PRG   \


C =          \


PROJECT    : $(NOMLIB)

$(NOMLIB)  : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ)
  echo off
  del $(OBJFIL)\*.* /Q

.PRG.OBJ:
  $(HBDIR)\bin\harbour $< $(HFLAG1) -D$(DEXP) -D$(DEFX) /O$(OBJFIL)\ /I$(CINCLU) $(HBFLAGS) > comp.log
  $(BCDIR)\bin\bcc32 $(HCLAG1) -I$(CINCL1) -o$(OBJFIL)\$& $(OBJFIL)\$&.c
  $(BCDIR)\bin\tlib $(LIBFIL) -+ $(OBJFIL)\$&.obj,,

.C.OBJ:
  echo $(HCLAG1) -D$(DEFX) > tmp
  echo -I$(CINCL1) >> tmp
  $(BCDIR)\bin\bcc32 -o$(OBJFIL)\$& @tmp $<
  $(BCDIR)\bin\tlib $(LIBFIL) -+ $(OBJFIL)\$&.obj,,
  del tmp

[JoséQuintas]

Harbour?
O que acontece com a forma normal de criá-la?

Código: Selecionar todos

cd \harbour\extras\rddado
hbmk2 rddado.hbp