ERROR ON TBTNBMP:SHOWPOPUP

[Silvio.Falconi]

I made

oApp:aBmps[nY,nX]:baction:= {|Self|::ShowPopUp( { |oBtn| BtnPopMenu( oBtn ) } )}

it run for some buttons then sometimes it show this error

Code: Select all  Expand view

Application
===========
   Path and name: C:\Users\silvio\Desktop\Release_TPlan\Normale_monoutente\Bikini\main.Exe (32 bits)
   Size: 7,095,296 bytes
   Compiler version: Harbour 3.2.0dev (r1904111533)
   FiveWin  version: FWH 19.05
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 4 mins 40 secs
   Error occurred at: 25-07-2019, 21:36:43
   Error description: Error BASE/1004  Metodo non disponibile: END
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => END( 0 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:SHOWPOPUP( 2046 )
   Called from: source\PSpiaggia.prg => (b)CHANGE_PLAN( 828 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 697 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 983 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1791 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2006 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3546 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1078 )
   Called from: source\main.prg => TAPPLICATION:ACTIVATE( 406 )
   Called from: source\main.prg => MAIN( 77 )

the menu popup is made with

Code: Select all  Expand view

MENU oPop POPUP

   MENUITEM cDescElemento+" numero "+ Ltrim(str( ncella)) DISABLED
    If  nstatus = 2
            MENUITEM "Visualizza prenotazione " +IF(lgiornaliero,(IF(lMattina,"Mattina","Pomeriggio")),"Tutto il giorno") FILENAME ".\bitmaps\edit_Prenota.png"
            MENUITEM "Elimina prenotazione " +IF(lgiornaliero,(IF(lMattina,"Mattina","Pomeriggio")),"Tutto il giorno")    FILENAME ".\bitmaps\del_Prenota.png"
            MENUITEM "Salda prenotazione " +IF(lgiornaliero,(IF(lMattina,"Mattina","Pomeriggio")),"Tutto il giorno")      FILENAME ".\bitmaps\salda_Prenota.png"
            MENUITEM "Sposta il cliente " action nil
     ELSEIF nstatus = 5 // revisionare per Free
            MENUITEM "Giornaliero " FILENAME ".\bitmaps\time.png"   action Invoice(oBtn)
            MENUITEM "Periodico "  FILENAME ".\bitmaps\Prenota.png"  action NIL
         Endif



   
    SEPARATOR
    MENUITEM "Disponibilità " action ShowTables(  LoadData(cTypeRoom),ncella, cTypeRoom,oBtn,cTitle4Disponibile,oBold )
 
    ENDMENU
 return oPop

on June 2018 Nages sad me to make a modify into btnbmp class on this topic

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35769&p=213170&hilit=showpopup#p213170

I thinked it is made on the last release april 2019 but on my release I found different lines

[nageswaragunupudi]

Can you please make a small independent program to reproduce this error?

[Silvio.Falconi]

Nages,

Today perhaps I found the error but I wish ask you if this can be the error

To draw the beach before I load all umbrellas and make

btnbmp..... ACTION ::ShowPopUp( { |oBtn| BtnPopMenu( oBtn ) } )

then on the function to change the umbrella ( because the user can change the date or show th payments)
I make the search on reservation archive , set all cargos values and , on old source, I made

oApp:aBmps[nY,nX]:baction:= {|Self|::ShowPopUp( { |oBtn| BtnPopMenu( oBtn ) } )}

so I call twice the popup ... perhaps it can be the error ?
canceling this last line this morning the error has not yet come out

[Silvio.Falconi]

unfortunately it is not the way I thought,

I have that mistake again,

now the error is still on popup, it goes to the beach loading function, if the user starts clicking the buttons many times before then the error comes out and I'm sure it doesn't depend on my source because I tried to compile with an old release of fwh and in this one the error does not come out, therefore the error comes out because in the release april / may something has been changed in fact the method showpopupup has been modified over time

I don't know how to create an example and recreate the error for you, the procedure is created with many sources and I can't create an example for you,

[Silvio.Falconi]

I sent you a small independent program...

[Silvio.Falconi]

any solution please ?