nuevo con Fwh

[norte_67]

Amigos, empece con FWH, 2.7 build diciembre,
Harbour 0.45, borland cc.5.5


Application
===========
Path and name: C:\prgfwh\gestionh.Exe (32 bits)
Size: 1,608,192 bytes
Time from start: 0 hours 0 mins 8 secs
Error occurred at: 10/10/06, 23:16:58
Error description: Error BASE/1004 Class: 'LOGICAL' has no exported method: EVAL
Args:

a que se debe esto amigos

[norte_67]

esto me ocurre cuando pincho un boton con btnget y usando un browse con tsbrowse


Redefine BtnBmp oBot1 Id 1001 Resource "BTO_NUEVO" Of oDlgFam;
NoBorder;
Message "Agrega Nuevo Registro..." Action (EditFamilia(.T.,oLbx1), oLbx1:Reset())

[Antonio Linares]

Luis,

>
Error description: Error BASE/1004 Class: 'LOGICAL' has no exported method: EVAL
Args:
>

Copia las siguientes líneas del error, gracias.

[norte_67]

Stack Calls
===========
Called from: => (b)EVAL(0)
Called from: => __EVAL(0)
Called from: => TWINDOW:LVALID(0)
Called from: => TCONTROL:FWLOSTFOCUS(0)
Called from: => TCONTROL:HANDLEEVENT(0)
Called from: => TCONTROL:HANDLEEVENT(8592)
Called from: => _FWH(0)
Called from: => SYSREFRESH(0)
Called from: => TWINDOW:LBUTTONDOWN(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => _FWH(0)
Called from: => DIALOGBOX(0)
Called from: => TDIALOG:ACTIVATE(0)
Called from: => PRG_101(99)
Called from: => (b)BUILDMENU(130)
Called from: => TMENU:COMMAND(0)
Called from: => TWINDOW:COMMAND(0)
Called from: => TWINDOW:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => _FWH(0)
Called from: => WINRUN(0)
Called from: => TWINDOW:ACTIVATE(0)
Called from: => MAIN(112)

System
======
CPU type: Pentium III 1583 Mhz
Hardware memory: 224 megs

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

Compiler version: Harbour Alpha build 45.0 Intl. (Flex)
Windows version: 5.2, Build 3790 Service Pack 1

Windows total applications running: 39
1 Barra de acceso directo de Office
2 Menú Inicio
3 SysFader
4 CiceroUIWndFrame
5 TF_FloatingLangBar_WndTitle
6 Maestro de Familias
7 Sistema de Control y Gestion 2005 Version 3.0
8 C:\prgfwh
9 Armando - Conversación
10 DDE Server Window
11 MCI command handling window
12 MSNUnnamedWindow
13 MSNMSGRAbsConnWindow
14 Dummy Video Parent
15 EchoPortManagerWnd
16 IHW2
17 File Open Message Window
18 Aviso
19 Búsqueda rápida
20 Connections Tray
21 Medidor de energía
22 MS_WebcheckMonitor
23 NOD32KrnSvcWindow
24 Cuarentena
25 Registros de NOD32 Scanner
26 Registros de amenazas
27 Registros del sistema NOD32
28 Tareas programadas
29 Información
30 Configuración general del sistema NOD32
31 NOD32 Kernel
32 AMON - Monitor del sistema de archivos
33 DMON - Protección de documentos Microsoft Office
34 EMON - Protección de correo para Microsoft Outlook
35 IMON - Protección para el tráfico de Internet
36 NOD32 Scanner
37 NOD32 Update
38 NOD32 2.5 Control Center
39 Program Manager

Variables in use
================
Procedure Type Value
==========================
(b)EVAL
__EVAL
Param 1: O Class: TSBROWSE
TWINDOW:LVALID
TCONTROL:FWLOSTFOCUS
Param 1: N 328564
Local 1: O Class: TSBROWSE
Local 2: U
TCONTROL:HANDLEEVENT
Param 1: N 2057
Param 2: N 328564
Param 3: N 0
Local 1: O Class: TSBROWSE
TCONTROL:HANDLEEVENT
Param 1: N 2057
Param 2: N 328564
Param 3: N 0
Local 1: O Class: TSBROWSE
Local 2: U
Local 3: U
Local 4: U
Local 5: U
_FWH
Param 1: N 0
Param 2: N 2057
Param 3: N 328564
Param 4: N 0
Param 5: N 16
Local 1: O Class: TSBROWSE
SYSREFRESH
TWINDOW:LBUTTONDOWN
Param 1: N 13
Param 2: N 57
Param 3: O Class: TBTNBMP
TWINDOW:HANDLEEVENT
Param 1: N 513
Param 2: N 1
Param 3: N 852025
TWINDOW:HANDLEEVENT
Param 1: N 513
Param 2: N 1
Param 3: N 852025
Local 1: O Class: TBTNBMP
_FWH
Param 1: N 852025
Param 2: N 513
Param 3: N 1
Param 4: N 852025
Param 5: N 10
Local 1: O Class: TBTNBMP
DIALOGBOX
Param 1: N 4194304
Param 2: C "P_VENTANA"
Param 3: N 197576
Param 4: O Class: TDIALOG
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: U
Param 8: U
Param 9: U
Param 10: L .F.
Local 1: O Class: TDIALOG
Local 2: N 197576
Local 3: U
Local 4: U
Local 5: U
Local 6: O Class: TDIALOG
PRG_101
Local 1: O Class: TSBROWSE
Local 2: O Class: TDIALOG
Local 3: N 1
Local 4: A Len: 2
Local 5: L .F.
Local 6: O Class: TSAY
Local 7: O Class: TFONT
Local 8: O Class: TFONT
Local 9: C "DOBLE CLICK SOBRE TITULO ( ), ORDENA DESCENDENTE..."
Local 10: O Class: TSAY
Local 11: O Class: TFONT
Local 12: O Class: TBTNBMP
Local 13: O Class: TBTNBMP
Local 14: O Class: TBTNBMP
Local 15: O Class: TBTNBMP
Local 16: O Class: TBTNBMP
Local 17: U
Local 18: U
(b)BUILDMENU
Param 1: O Class: TMENUITEM
TMENU:COMMAND
Param 1: N 20002
Local 1: O Class: TMENU
Local 2: O Class: TMENUITEM
TWINDOW:COMMAND
Param 1: N 20002
Param 2: N 0
Local 1: O Class: TMDIFRAME
Local 2: N 0
Local 3: N 20002
Local 4: N 0
TWINDOW:COMMAND
Param 1: N 20002
Param 2: N 0
Local 1: O Class: TMDIFRAME
Local 2: L .F.
TWINDOW:HANDLEEVENT
Param 1: N 273
Param 2: N 20002
Param 3: N 0
_FWH
Param 1: N 0
Param 2: N 273
Param 3: N 20002
Param 4: N 0
Param 5: N 1
Local 1: O Class: TMDIFRAME
WINRUN
Param 1: N 197576
TWINDOW:ACTIVATE
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: B {|| ... }
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: U
Param 18: U
Param 19: U
Local 1: O Class: TMDIFRAME
Local 2: U
Local 3: U
MAIN
Local 1: U
Local 2: O Class: TBAR
Local 3: O Class: TCURSOR
Local 4: U
Local 5: O Class: TFONT
Local 6: U
Local 7: C " "
Local 8: C " "
Local 9: U
Local 10: N 1
Local 11: U
Local 12: C " "
Local 13: L .F.
Local 14: O Class: TBITMAP
Local 15: U
Local 16: O Class: TICON
Local 17: U
Local 18: U
Local 19: U
Local 20: A Len: 9
Local 21: A Len: 2
Local 22: L .F.
Local 23: O Class: TBTNBMP
Local 24: O Class: TBTNBMP
Local 25: O Class: TBTNBMP
Local 26: O Class: TBTNBMP
Local 27: O Class: TBTNBMP

Linked RDDs
===========
DBF
DBFFPT
DBFCDX
DBFNTX

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

1: => B_FAMI RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 2 .F. .F.

Indexes in use TagName
=> Cod_Fam B_FAMI1
Nom_Fam B_FAMI2

Relations in use

Classes in use:
===============
1 HBCLASS
2 HBOBJECT
3 TCURSOR
4 TWINDOW
5 TCONTROL
6 TICON
7 TBRUSH
8 TFONT
9 TBITMAP
10 TMDIFRAME
11 TMENU
12 TMENUITEM
13 TMDICLIENT
14 TMSGBAR
15 TRECT
16 TMSGITEM
17 TTIMER
18 TBAR
19 TBTNBMP
20 TDIALOG
21 TSAY
22 TSBROWSE
23 ERROR
24 TSCOLUMN
25 TSBSCRLBAR

Memory Analysis
===============
132 Static variables

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

[Antonio Linares]

Luis,

Estás usando un VALID en el control TSBROWSE ?

Prueba a hacer oBrowse:bValid = nil

[norte_67]

amigos hice el siguiente cambio y se arreglo el problema

Redefine BtnBmp oBot1 Id 1001 Resource "BTO_NUEVO" Of oDlgFam;
NoBorder;
Message "Agrega Nuevo Registro..." Action (EditFamilia(.T.,oLbx1), oLbx1:Reset())

por este otro

lok1:= .T.

Redefine BtnBmp oBot1 Id 1001 Resource "BTO_NUEVO" Of oDlgFam;
NoBorder;
Message "Agrega Nuevo Registro..." Action (EditFamilia(lOk1,oLbx1), oLbx1:Reset())