RBTN No exported method: END Error

RBTN No exported method: END Error

Postby betoncu » Thu Feb 04, 2021 12:23 am

My customers reported that they are getting the error below, when they click on one of the RBTNs.
This error does not occur always, but sometimes. The error and the source is below.

Please help. Thanks in advance.

Code: Select all  Expand view
  @ 24,330 RBBTN oBtnPrn OF oToolBar2 POPUP FONT oFont2 TRANSPARENT BORDER ;
            SIZE 100,38 ;
            PROMPT "Yazıcı" ;
            MENU {|| MenuPop(oZEYIL, oTAKGEN, oPOLICE, cBrkod, cBradi, cDbadi)} ;
            BITMAP "BTN_PRINTER4" LEFT ;
            WHEN !Empty(oZEYIL:polno) .AND. PrintOK(oZEYIL, oPOLICE, oBtnOny, nZeyilTOP-nOdenenTOP)



Error description: Error BASE/1004 No exported method: END
Args:
[ 1] = U

Stack Calls
===========
Called from: => END( 0 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONUP( 886 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONDOWN( 799 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1788 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:HANDLEEVENT( 1575 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3546 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1078 )
Called from: KAYNAK\SIGORTA.PRG => MAIN( 94 )
Birol Betoncu
birol.betoncu@gmail.com
Using Harbour, FWH 19.05, BCC7
User avatar
betoncu
 
Posts: 126
Joined: Sat Oct 08, 2005 9:38 pm
Location: Cyprus (North)

Re: RBTN No exported method: END Error

Postby Antonio Linares » Thu Feb 04, 2021 8:01 am

Birol,

Please try with:

MENU MenuPop(oZEYIL, oTAKGEN, oPOLICE, cBrkod, cBradi, cDbadi)

instead of:

MENU {|| MenuPop(oZEYIL, oTAKGEN, oPOLICE, cBrkod, cBradi, cDbadi)}
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42060
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: RBTN No exported method: END Error

Postby betoncu » Thu Feb 04, 2021 5:54 pm

Ok. I will try.
Thanks
Birol Betoncu
birol.betoncu@gmail.com
Using Harbour, FWH 19.05, BCC7
User avatar
betoncu
 
Posts: 126
Joined: Sat Oct 08, 2005 9:38 pm
Location: Cyprus (North)

Re: RBTN No exported method: END Error

Postby betoncu » Thu Feb 04, 2021 6:16 pm

It does not work. Because there are some IF and WHEN conditions in my MenuPop Function and theese conditions are not executed.

Code: Select all  Expand view
STATIC FUNCTION MenuPop(oZEYIL, oTAKGEN, oPOLICE, cBrkod, cBradi, cDbadi)
LOCAL oPopup

   MENU oPopup POPUP 2007
   
      MENUITEM "Poliçe/Zeyil" ACTION ZeyPrn(oZEYIL,oPOLICE,cBrkod,'T') WHEN !Empty(oZEYIL:onysahip)

      IF oZEYIL:brkod == '15'
         MENUITEM "Sertifika" ACTION SerPrn(oZEYIL,oPOLICE) WHEN !Empty(oZEYIL:onysahip)
      ENDIF

      MENUITEM "İptal İhbarı" ACTION IptIhb(oPOLICE,oZEYIL)
      .
      .
      .
   ENDMENU
   
RETURN oPopup
Birol Betoncu
birol.betoncu@gmail.com
Using Harbour, FWH 19.05, BCC7
User avatar
betoncu
 
Posts: 126
Joined: Sat Oct 08, 2005 9:38 pm
Location: Cyprus (North)


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 30 guests