Nages, Cristobal, this is very strange !!!!
I am trying to intercept the error again but it does not always come out and then this evening
a strange very strange thing happened because I called a function which is on line 128
and instead made a mistake in another function which is on line 154
I'll explain with more details
the error - Code: Select all Expand view
Compiler version: Harbour 3.2.0dev (r1904111533)
FiveWin version: FWH 21.04
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.1, Build 7601 Service Pack 1
Time from start: 0 hours 1 mins 18 secs
Error occurred at: 06/06/21, 19:17:33
Error description: Error BASE/1004 No exported method: END
Args:
[ 1] = U
Stack Calls
===========
Called from: => END( 0 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:SHOWPOPUP( 2091 )
Called from: James.prg => (b)TESTTDATABASE( 154 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 713 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 999 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1817 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2051 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3560 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: James.prg => TESTTDATABASE( 202 )
I explain you
I have on line 128 of my procedure this line
oBrw:bRClicked := {|nRow,nCol| CLDisp_Men(nRow,nCol,oBrw,cPrefixState+"Aux",oDbf,oDlg)}
CLDisp_Men function open a menu
- Code: Select all Expand view
Function CLDisp_Men(nRow,nCol,oBrw,cIniEntry,oDbf,oDlg)
local oMenu
MENU oMenu POPUP
MENUITEM "Esporta" ACTION ExportToExcel( oBrw )
SEPARATOR
MENUITEM "Colonne" ACTION Ut_BrwColConfig( oBrw, cIniEntry )
SEPARATOR
MENUITEM "al primo record " +space(6)+ CHR(VK_TAB) + "Ctrl+Home";
MESSAGE "Mostra la lista dal primo record";
RESOURCE "GRID_TOP";
ACTION oBrw:KeyDown(VK_HOME, 0) WHEN (oDbf:KeyCount()) > 0
.......
ENDMENU
ACTIVATE POPUP oMenu OF oDlg AT oBrw:nTop+nRow, oBrw:nLeft+nCol
return NIL
and this evening I 'm using this menu when is go out the error
But the error is go out to another line 154 where I have this
@ oBrw:nBottom+2, oBrw:nWidth-20 BTNBMP aBtnBrow[4] ;
FLAT SIZE 30, 30 OF oDlg PIXEL ;
COLOR nRgb(238,236,219),nRgb(238,236,219) ;
BITMAP ".\bitmaps\impostazioni.bmp" NOROUND;
ACTION ::ShowPopUp( { |oBtn| MenuContextual(oBtn,oBrw,cPrefixState+"Aux",oDbf) } )MenuContextual(oBtn,oBrw,cPrefixState+"Aux",oDbf) is a copy of CLDisp_Men function but return oMenu object
- Code: Select all Expand view
Function MenuContextual(oControl,oBrw,cIniEntry,oDbf)
local oMenu
MENU oMenu POPUP
MENUITEM "Esporta" ACTION ExportToExcel( oBrw )
SEPARATOR
MENUITEM "Colonne" ACTION Ut_BrwColConfig( oBrw, cIniEntry )
SEPARATOR
MENUITEM "al primo record " +space(6)+ CHR(VK_TAB) + "Ctrl+Home";
MESSAGE "Mostra la lista dal primo record";
RESOURCE "GRID_TOP";
ACTION oBrw:KeyDown(VK_HOME, 0) WHEN (oDbf:KeyCount()) > 0
.....
ENDMENU
return oMenu
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com