Title: Pesquisa em desenvolvimento
Not understand cause , code very simple:
note:Call EscolheRegistro(), Button in Dialog Resource.
if not exist Browse, not cause problem.
Code: Select all
Redefine BMPGET ::oDBCli:Field:CLI_RAMATI ;
ID 4016 ;
OF oFld:aDialogs[1] ;
VALID GetFill() ;
READONLY ;
ACTION RMA->(EscolheRegistro(oDBRMA,::oDlgCliente,2))
function EscolheRegistro( oDB, oDlg )
local oWin,oBrw
select rma
Define DIALOG oWin ;
TITLE 'Pesquisa em desenvolvimento' ;
SIZE 300,300
@00,00 BROWSE oBrw of oWin
ADD COLUMN TO oBrw DATA RMA_DESCRI HEADER "DESCRICAO"
ADD COLUMN TO oBrw DATA RMA_CODIGO HEADER "CODIGO"
// here, cause problem.
ACTIVATE dialog oWin
Application
===========
Path and name: D:\sistema\masterl\master.exe (32 bits)
Size: 1,740,800 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 07/03/2007, 07:17:52
Error description: Error FiveWin/3 Cannot create Dialog Box:
Title: Pesquisa em desenvolvimento
Stack Calls
===========
Called from: => CREATEDLGERROR(565)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(287)
Called from: FUNCAO.PRG => ESCOLHEREGISTRO(454)
Called from: CLIENTE.PRG => (b)TCLIENTE:DLGCLIENTE(123)
Called from: CLASSES.PRG => (b)TBMPGET:DEFAULT(202)
Called from: WINDOW.PRG => TWINDOW:LBUTTONDOWN(0)
Called from: CONTROL.PRG => TBITMAP:LBUTTONDOWN(0)
Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: BITMAP.PRG => TBITMAP:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(270)
Called from: CLIENTE.PRG => TCLIENTE:DLGCLIENTE(181)
Called from: CLIENTE.PRG => TCLIENTE:DLGALTERAR(61)
Called from: CLIENTE.PRG => (b)TCLIENTE:DLGBROWSE(242)
Called from: TCBROWSE.PRG => TMBROWSE:LDBLCLICK(0)
Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.PRG => TMBROWSE:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(270)
Called from: CLIENTE.PRG => TCLIENTE:DLGBROWSE(279)
Called from: CLIENTE.PRG => FRMCLIENTE(5)
Called from: MASTER.PRG => (b)MAIN(27)
Called from: MENU.PRG => TMENU:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0)
Called from: MASTER.PRG => MAIN(137)
System
======
CPU type: Intel(R) Pentium(R) D CPU 2.80GHz 2800 Mhz
Hardware memory: 512 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
Variables in use
================
Procedure Type Value
==========================
CREATEDLGERROR
Param 1: O Class: TDIALOG
Local 1: U
Local 2: C " "
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: U
Param 4: L .F.
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 591902
Local 3: U
Local 4: U
ESCOLHEREGISTRO
Param 1: O Class: TDBTABLE
Param 2: O Class: TDIALOG
Param 3: O Class: TDIALOG
Local 1: O Class: TCBROWSE
(b)TCLIENTE:DLGCLIENTE
Param 1: O Class: TGET
Local 1: N 5
(b)TBMPGET:DEFAULT
Param 1: N 7
Param 2: N 6
Param 3: N 1
Param 4: O Class: TBITMAP
TWINDOW:LBUTTONDOWN
Param 1: N 7
Param 2: N 6
Param 3: N 1
Local 1: O Class: TBITMAP
TBITMAP:LBUTTONDOWN
Param 1: N 7
Param 2: N 6
Param 3: N 1
Local 1: O Class: TBITMAP
TWINDOW:HANDLEEVENT
Param 1: N 513
Param 2: N 1
Param 3: N 458758
TCONTROL:HANDLEEVENT
Param 1: N 513
Param 2: N 1
Param 3: N 458758
Local 1: O Class: TBITMAP
TBITMAP:HANDLEEVENT
Param 1: N 513
Param 2: N 1
Param 3: N 458758
Local 1: O Class: TBITMAP
_FWH
Param 1: N 458758
Param 2: N 513
Param 3: N 1
Param 4: N 458758
Param 5: N 71
Local 1: O Class: TBITMAP
DIALOGBOX
Param 1: N 4194304
Param 2: C "CDT_CLIENTE"
Param 3: N 3016624
Param 4: O Class: TDIALOG
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: B {|| ... }
Param 6: L .T.
Param 7: B {|| ... }
Param 8: U
Param 9: U
Param 10: L .F.
Local 1: O Class: TDIALOG
Local 2: N 3016624
Local 3: U
Local 4: U
Local 5: U
Local 6: O Class: TDIALOG
TCLIENTE:DLGCLIENTE
Local 1: O Class: TCLIENTE
Local 2: O Class: TCLIENTE
Local 3: O Class: TFOLDER
Local 4: O Class: TCOMBOBOX
Local 5: O Class: TCOMBOBOX
Local 6: O Class: TGET
Local 7: O Class: TDBTABLE
TCLIENTE:DLGALTERAR
Local 1: O Class: TCLIENTE
(b)TCLIENTE:DLGBROWSE
Param 1: N 122
Param 2: N 188
Param 3: N 1
TMBROWSE:LDBLCLICK
Param 1: N 122
Param 2: N 188
Param 3: N 1
Local 1: O Class: TMBROWSE
Local 2: N 8
Local 3: N 1
Local 4: U
TWINDOW:HANDLEEVENT
Param 1: N 515
Param 2: N 1
Param 3: N 7995580
TMBROWSE:HANDLEEVENT
Param 1: N 515
Param 2: N 1
Param 3: N 7995580
Local 1: O Class: TMBROWSE
_FWH
Param 1: N 7995580
Param 2: N 515
Param 3: N 1
Param 4: N 7995580
Param 5: N 52
Local 1: O Class: TMBROWSE
DIALOGBOX
Param 1: N 4194304
Param 2: C "CDT_CLIENTE_GRID"
Param 3: N 2032922
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: B {|| ... }
Param 8: U
Param 9: U
Param 10: L .F.
Local 1: O Class: TDIALOG
Local 2: N 2032922
Local 3: U
Local 4: U
Local 5: U
Local 6: O Class: TDIALOG
TCLIENTE:DLGBROWSE
Local 1: O Class: TCLIENTE
Local 2: O Class: TFOLDER
Local 3: O Class: TCLIENTE
Local 4: O Class: TMBROWSE
Local 5: O Class: TMBROWSE
FRMCLIENTE
(b)MAIN
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 2032922
TWINDOW:ACTIVATE
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: B {|| ... }
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
Local 1: O Class: TWINDOW
Local 2: O Class: TMENU
Local 3: O Class: TFONT
Local 4: O Class: TOUTLOOK
Local 5: O Class: TSPLITTER
Local 6: O Class: TTOOLBAR
Local 7: U
Local 8: U
Local 9: N 0
Local 10: C "Master Lite - compilação 20070307.07:17:45"
Linked RDDs
===========
ADS
ADT
ADSCDX
ADSNTX
DBF
DBFFPT
DBFBLOB
DBFNTX
DataBases in use
================
1: CLI RddName: ADSCDX
==============================
RecNo RecCount BOF EOF
20 24 .F. .F.
Indexes in use TagName
CLI_CODIGO CLI001
=> CLI_RAZSOC CLI002
Relations in use
2: FOR RddName: ADSCDX
==============================
RecNo RecCount BOF EOF
1 0 .T. .T.
Indexes in use TagName
=> FOR_CODIGO FOR001
FOR_RAZSOC FOR002
Relations in use
3: => RMA RddName: ADSCDX
==============================
RecNo RecCount BOF EOF
1 3 .F. .F.
Indexes in use TagName
=> RMA_CODIGO RMA001
RMA_DESCRI RMA002
Relations in use
4: CTC RddName: ADSCDX
==============================
RecNo RecCount BOF EOF
1 3 .F. .F.
Indexes in use TagName
=> CTC_CLICOD CTC001
Relations in use
5: CTF RddName: ADSCDX
==============================
RecNo RecCount BOF EOF
1 0 .T. .T.
Indexes in use TagName
=> CTF_FORCOD CTF001
Relations in use
Classes in use:
===============
1 HASHENTRY
2 HBCLASS
3 HBOBJECT
4 TWINDOW
5 TDIALOG
6 TBRUSH
7 TFONT
8 TMENU
9 TMENUITEM
10 TIMAGELIST
11 TCONTROL
12 TBITMAP
13 TTOOLBAR
14 TOUTLOOK
15 TCURSOR
16 TBTNBMP
17 TBUTTON
18 TSAY
19 TSPLITTER
20 TMSGBAR
21 TRECT
22 TMSGITEM
23 TTIMER
24 TCLIENTE
25 TDBTABLE
26 TDBFIELD
27 TDBFIELD
28 TFOLDER
29 TWBROWSE
30 TCBROWSE
31 TMBROWSE
32 TCCOLUMN
33 TGET
34 MGET
35 GET
36 TCLIPGET
37 TSCROLLBAR
38 TDBFIELD
39 TCOMBOBOX
40 MCOMBOBOX
41 TBMPGET
42 TCHECKBOX
43 ERROR
44 TREG32
Memory Analysis
===============
173 Static variables
Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes