FiveTech Software tech support forums

1º Hola, hace tiempo estuve en el foro antiguo. Mi problema es que pasando el ejemplo dbf01.prg tengo siempre un error, he probado casi todos los ejemplos del odf y siempre me han dado herror , copio el error .log debajo de mi mensaje. Estoy utilizando el buidlh que viene en la carpeta samples. La version de fivewin es la 2.8 de noviembre del 2006.

De antemano muchas gracias.

Application
===========
Path and name: D:\FWH\SAMPLES\dbf01.exe (32 bits)
Size: 1,159,168 bytes
Time from start: 0 hours 0 mins 2 secs
Error occurred at: 03/28/07, 23:58:51
Error description: Error BASE/44 Assigned value is wrong class: TDATABASE:BBOF
Args:
[ 1] = B {|| ... }

Stack Calls
===========
Called from: => TDATABASE:_BBOF(0)
Called from: dbf01.prg => TDATABASE:NEW(0)
Called from: dbf01.prg => CLIENTSREC(64)
Called from: dbf01.prg => (b)BUILDMENU(39)
Called from: => TMENU:COMMAND(0)
Called from: => TWINDOW:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: => TWINDOW:ACTIVATE(0)
Called from: dbf01.prg => MAIN(25)

System
======
CPU type: Intel(R) Pentium(R) 4 CPU 3.00GHz 3017 Mhz
Hardware memory: 512 megs

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

Compiler version: Harbour Alpha build 46.2 Intl. (Flex)
Windows version: 5.1, Build 2600 Service Pack 2

Windows total applications running: 63
15 C:\WINDOWS\system32\cmd.exe - buildh dbf01

Variables in use
================
Procedure Type Value
==========================
TDATABASE:_BBOF
Param 1: B {|| ... }
Local 1: N 0
TDATABASE:NEW
Local 1: N 1
Local 2: O Class: TDATABASE
Local 3: U
Local 4: U
Local 5: A Len: 0
Local 6: A Len: 0
CLIENTSREC
Local 1: U
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: U
Local 10: L .F.
(b)BUILDMENU
Param 1: O Class: TMENUITEM
TMENU:COMMAND
Param 1: N 20001
Local 1: O Class: TMENU
Local 2: O Class: TMENUITEM
TWINDOW:COMMAND
Param 1: N 20001
Param 2: N 0
Local 1: O Class: TWINDOW
Local 2: N 0
Local 3: N 20001
Local 4: N 0
TWINDOW:HANDLEEVENT
Param 1: N 273
Param 2: N 20001
Param 3: N 0
_FWH
Param 1: N 0
Param 2: N 273
Param 3: N 20001
Param 4: N 0
Param 5: N 1
Local 1: O Class: TWINDOW
WINRUN
Param 1: N 5178918
TWINDOW:ACTIVATE
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: B {|| ... }
Param 18: U
Param 19: U
Local 1: O Class: TWINDOW
Local 2: U
Local 3: U
MAIN

Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFNTX

DataBases in use
================

1: => CUSTOMER RddName: DBFNTX
==============================
RecNo RecCount BOF EOF
1 500 .F. .F.

Indexes in use TagName

Relations in use

Classes in use:
===============
1 HBCLASS
2 HBOBJECT
3 TWINDOW
4 TMENU
5 TMENUITEM
6 TBRUSH
7 TFONT
8 TMSGBAR
9 TRECT
10 TDATABASE
11 ERROR
12 TREG32

Memory Analysis
===============
121 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes

Modifica la clase TDataBase y quita todas las claúsulas "AS":

DATA ... // AS ...

OK Ahora funciona quitanso el as del la linea 23
DATA bBoF, bEoF, bNetError //AS CODEBLOCK
Gracias por tu ayuda.

Saludos
Cuco