FiveTech Software tech support forums

Posted: **Tue Jun 09, 2009 10:09 am**

Hola a todos

Estoy intentando poner un TBROWSE en una ventana y me da el siguiente error:

Application
===========
Path and name: C:\ColtHop\cyewin\cyewin.exe (32 bits)
Size: 4,285,952 bytes
Time from start: 0 hours 0 mins 24 secs
Error occurred at: 09/06/2009, 12:03:34
Error description: Error BASE/1004 Message not found: TMDICHILD:DEFCONTROL

Stack Calls
===========
Called from: tobject.prg => TMDICHILD:ERROR(172)
Called from: tobject.prg => TMDICHILD:MSGNOTFOUND(205)
Called from: tobject.prg => TMDICHILD:DEFCONTROL(0)
Called from: XBROWSE.PRG => TXBROWSE:CREATEFROMRESOURCE(0)
Called from: gestutil.prg => REALREST(1460)
Called from: gestutil.prg => GESTUTIL(19)
Called from: gestmenu.prg => OPCIMENU(512)
Called from: gestmenu.prg => SELMEN01(179)
Called from: gestmenu.prg => CONMEN01(63)
Called from: gestmenu.prg => (b)GESTMENU(47)
Called from: WINDOW.PRG => TWINDOW:KEYDOWN(0)
Called from: MDICHILD.PRG => TMDICHILD:KEYDOWN(0)
Called from: WINDOW.PRG => TWINDOW:KEYDOWN(0)
Called from: CONTROL.PRG => TSAY:KEYDOWN(0)
Called from: WINDOW.PRG => TWINDOW:KEYDOWN(0)
Called from: CONTROL.PRG => TSAY:KEYDOWN(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: SAY.PRG => TSAY:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: cyewin.prg => MAIN(253)

System
======
CPU type: Intel(R) Core(TM)2 CPU T5300 @ 1.73GHz 15683 Mhz
Hardware memory: 1022 megs

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

Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)
Windows version: 5.1, Build 2600 Service Pack 2

Windows total applications running: 56

Variables in use
================
Procedure Type Value
==========================
TMDICHILD:ERROR
Param 1: C "Message not found"
Param 2: C "TMDICHILD"
Param 3: C "DEFCONTROL"
Param 4: N 1004
Local 1: U
Local 2: O Class: TMDICHILD
Local 3: N 13
TMDICHILD:MSGNOTFOUND
Param 1: C "DEFCONTROL"
Param 2: O Class: TMDICHILD
TMDICHILD:DEFCONTROL
Param 1: O Class: TXBROWSE
TXBROWSE:CREATEFROMRESOURCE
Param 1: N 100
Local 1: O Class: TXBROWSE
REALREST
GESTUTIL
Param 1: N 3
OPCIMENU
SELMEN01
CONMEN01
Param 1: N 13
(b)GESTMENU
Param 1: N 13
Param 2: N 1835009
TWINDOW:KEYDOWN
Param 1: N 13
Param 2: N 1835009
Local 1: O Class: TMDICHILD
Local 2: U
TMDICHILD:KEYDOWN
Param 1: N 13
Param 2: N 1835009
Local 1: O Class: TMDICHILD
TWINDOW:KEYDOWN
Param 1: N 13
Param 2: N 1835009
Local 1: O Class: TSAY
Local 2: U
TSAY:KEYDOWN
Param 1: N 13
Param 2: N 1835009
Local 1: O Class: TSAY
TWINDOW:KEYDOWN
Param 1: N 13
Param 2: N 1835009
Local 1: O Class: TSAY
Local 2: U
TSAY:KEYDOWN
Param 1: N 13
Param 2: N 1835009
Local 1: O Class: TSAY
TWINDOW:HANDLEEVENT
Param 1: N 256
Param 2: N 13
Param 3: N 1835009
TCONTROL:HANDLEEVENT
Param 1: N 256
Param 2: N 13
Param 3: N 1835009
Local 1: O Class: TSAY
TSAY:HANDLEEVENT
Param 1: N 256
Param 2: N 13
Param 3: N 1835009
Local 1: O Class: TSAY
_FWH
Param 1: N 1835009
Param 2: N 256
Param 3: N 13
Param 4: N 1835009
Param 5: N 25
Local 1: O Class: TSAY
WINRUN
Param 1: N 1705940
TMDIFRAME: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: B {|| ... }
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: TMDIFRAME
Local 2: U
Local 3: U
MAIN
Param 1: C "3"

Linked RDDs
===========
DBF
DBFCDX

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

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

Indexes in use TagName

Relations in use

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

Memory Analysis
===============
146 Static variables

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

yo lo hago asi:

        oBrw := TxBrowse():New( oDlgwVen )
        oBrw:nHeaderLines        := 1
        oBrw:lAllowColSwapping   := .f.
        oBrw:nRowHeight          := 18
        oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLROW
        oBrw:nColDividerStyle    := LINESTYLE_BLACK
        oBrw:lColDividerComplete := .t.
        oBrw:lHScroll            := .f.
        oBrw:lFooter             := .t.
        oBrw:bLDblClick          := { || realrest1(2) }
        oBrw:nTop                :=  5*ProPorV
        oBrw:nLeft               :=  5*ProPorH
        oBrw:nBottom             := 144*ProPorV
        oBrw:nRight              := 235*ProPorH
        oBrw:nClrPane            := { || IIF( ( oBrw:cAlias)->( OrdKeyNo()) %2 == 1, RGB (  0,255,  0),RGB (225,225,225))}
        oBrw:bClrStd             := { ||{escri01, IIF( ( oBrw:cAlias )->( OrdKeyNo() ) %2 == 0,fondo02,fondo01 ) }}
        oCol := oBrw:AddCol() // linea 1
        oCol:cHeader             := zCab01
        oCol:bStrData            := { || empres->numero }
        oCol:nWidth              := 70*ProPorH
        oCol:nDataStrAlign       := AL_RIGHT
        oCol:nHeadStrAlign       := AL_RIGHT
        oCol:lAllowSizing        :=.F.
        oCol := oBrw:AddCol() // linea 2
        oCol:cHeader             := zCab02
        oCol:bStrData            := { || alltrim(empres->apellidos) + " " + empres->nombre }
        oCol:nWidth              := 400*ProPorH
        oCol:nDataStrAlign       := AL_LEFT
        oCol:nHeadStrAlign       := AL_LEFT
        oCol:lAllowSizing        :=.F.
        oBrw:SetRdd()
        oBrw:CreateFromResource ( 100 )

y lo que no entiendo es porque si oDlgwVen es un DIALOG en vez de una WINDOW si funciona.

Alguien me podria ayudar.

Gracias

FiveTech Software tech support forums

Problema con TBrowse

Problema con TBrowse