topic-33130

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Error A_PREOPEN cuando se da Quit
Posted: Tue Nov 01, 2016 03:01 AM

Saludos a Forum,

Tengo este problema al ejcutar Quit para salir del aplicativo del todo genera este error. No Existe la Variable A_PREOPEN

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

Gracias

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Error A_PREOPEN cuando se da Quit
Posted: Tue Nov 01, 2016 11:35 AM

Yo hago asi para salir:

Code (fw): Select all Collapse

FUNCTION SALIR()

   FreeResources()

   SysRefresh()

   DbCloseAll()

   Hb_GCAll( .T. )

   RELEASE All

   CLEAR MEMORY

   PostQuitMessage( 0 )

   __QUIT()

RETURN NIL

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Re: Error A_PREOPEN cuando se da Quit
Posted: Tue Nov 01, 2016 01:17 PM

Gracias KArina, Pero no funciona.
No me saca del sistema, o Sea Cerrar la Aplicacion

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Error A_PREOPEN cuando se da Quit
Posted: Tue Nov 01, 2016 02:50 PM

Ruben... Muestra como estás haciendo. El código fuente. Asi és más fácil. Saludos.

Ruben intenta asi:

Code (fw): Select all Collapse

STATIC a_preopen := {}

Usted está usando ADORDD?

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Re: Error A_PREOPEN cuando se da Quit
Posted: Tue Nov 01, 2016 05:18 PM

Gracias KArina.

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

Sera la manera como creo la libreria
yo creo la libreria asi.

Code (fw): Select all Collapse

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

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Error A_PREOPEN cuando se da Quit
Posted: Tue Nov 01, 2016 06:26 PM

Mira se no te falta

Code (fw): Select all Collapse

   ADO_CLOSE( nWA )

y

Code (fw): Select all Collapse

ANNOUNCE ADORDD

#include "rddsys.ch"
#include "fileio.ch"
#include "error.ch"
#include "adordd.ch"
#include "common.ch"
#include "dbstruct.ch"
#include "dbinfo.ch"

#ifndef __XHARBOUR__
#include "hbcompat.ch"  
#endif

#include "hbusrrdd.ch"

ó

Code (fw): Select all Collapse

STATIC FUNCTION ADO_EXIT( nRDD )

   ADODB_CLOSE()

   RETURN HB_SUCCESS

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion