FiveTech Software tech support forums

Posted: **Wed Apr 02, 2008 11:47 pm**

Hola Antonio:

El siguiente código no generaba ningún error en Clipper aún cuando no esistiera ninguna base de datos abierta

Code: Select all

#include "FiveWin.ch"

Function Main()

   Local nArea   := Select(), ;
         nIndex  := IndexOrd(), ;
         nRecord := RecNo()

   DbSelectArea( nArea )
   DbSetOrder( nIndex )
   DbGoTo( nRecord )

   MsgInfo( "Yes" )

Return Nil

Con (x)Harbour me da el siguiente error:

Application
===========
Path and name: C:\FWH\samples\SHOOT.exe (32 bits)
Size: 1,109,504 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 04/02/08, 17:40:13
Error description: Error DBCMD/2001 Workarea not in use: ORDSETFOCUS

Stack Calls
===========
Called from: => ORDSETFOCUS(0)
Called from: source\rdd\rddord.prg => DBSETORDER(76)
Called from: shoot.prg => MAIN(13)

System
======
CPU type: Intel(R) Pentium(R) M processor 2.00GHz 2000 Mhz
Hardware memory: 1016 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: Harbour devel build 1.1-1 Intl.
Windows version: 5.1, Build 2600 Service Pack 2

Para mí es importante porque practicamente en todas mis rutinas uso este código para restaurar la base de datos actual al salir de la rutina.

Saludos.

Manuel Mercado

Posted: **Thu Apr 03, 2008 8:20 am**

Manuel,

Es un error propio de Harbour/xHarbour que tendrías que reportar en sus respectivas listas de correo (de desarrollo). Gracias

Posted: **Thu Apr 03, 2008 1:13 pm**

Maestro Manuel, o que intentas? Para que uso esto se destina?

Posted: **Thu Apr 03, 2008 9:44 pm**

karinha wrote:Maestro Manuel, o que intentas? Para que uso esto se destina?

Hola, es solamente para reproducir el error, obviamente no lo uso de esta forma en mis programas.

Saludos.

Manuel Mercado

FiveTech Software tech support forums

Para A. Linares Compatibilidad con Clipper falla

Para A. Linares Compatibilidad con Clipper falla