Para A. Linares Compatibilidad con Clipper falla

[mmercado]

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

[Antonio Linares]

Manuel,

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

[karinha]

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

[mmercado]

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