El siguiente código no generaba ningún error en Clipper aún cuando no esistiera ninguna base de datos abierta
- Code: Select all Expand view RUN
#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
