Need help oBar not working. Need help.

hag · Post by **hag** » Thu Jul 31, 2008 4:08 am

Tool bar still not working
Get this error:
Error description: Error BASE/1004 No exported method: GETBTNTOP

Program works fine if I compile the prg alone using buildh.
When I link with other prgs using rmk file I get the above message.
Not a clue as to problem. Makes no sense.

if i comment out code in the prg links perfectly using rmk file.

Here is my code.

DEFINE BUTTONBAR oBar2 SIZE 76.5 ,36.25 3D OF OWND1
DEFINE BUTTONBAR oBar3 SIZE 78.5 ,36.25 3D OF OWND1
DEFINE BUTTONBAR oBar4 SIZE 78.5 ,36.25 3D OF OWND1
DEFINE BUTTONBAR oBar1 SIZE 69.75,38 _3DLOOK OF oWnd1 COLOR CLR CYAN

DEFINE BUTTON of oBar1 TOOLTIP " Selected financial analysis:"+CRLF+;
" Business valuation. "+CRLF+ ;
" Sensitivity analysis. "+CRLF+ ;
" Annual ratios. "+CRLF+ ;
" Monthly ratios. "+CRLF+ ;
" Z score. "+CRLF+ ;
" Currency converter. " ;
ACTION (SelBar(oBar2,oBar,oBar3))

Post by **Antonio Linares** » Thu Jul 31, 2008 9:45 am

Harvey,

Please provide a small and self contained example to reproduce the error, thanks

Also please provide the complete error.log

hag · Post by **hag** » Thu Jul 31, 2008 11:57 am

Antonio wrote "Please provide a small and self contained example to reproduce the error, thanks"

Can't do it. The error only occurs when I link with all of my 153 prgs.
You won't be able to reproduce it.
Even linking the FWH sample code for buttonbars causes the same error when linked with the other prgs using my make file.

It works perfectly when the code is compiled on a stand alone basis using buildh. But won't work when using my make file.
Below is error code.

Code: Select all | Expand

Application
===========
   Path and name: F:\cash32\cashver3.exe (32 bits)
   Size: 9,489,920 bytes
   Time from start: 0 hours 0 mins 0 secs 
   Error occurred at: 07/31/08, 04:34:26
   Error description: Error BASE/1004  No exported method: GETBTNTOP
   Args:
     [   1] = U   
     [   2] = L   .F.
     [   3] = U   

Stack Calls
===========
   Called from:  => GETBTNTOP(0)
   Called from:  => TBTNBMP:NEWBAR(0)
   Called from: .\CASHVER3.PRG => SETWINDOWS(2962)
   Called from: .\CASHVER3.PRG => MSCREEN2(698)

System
======
   CPU type: Intel(R) Core(TM)2 Duo CPU     E4400  @ 2.00GHz 2000 Mhz
   Hardware memory: 2014 megs

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

   Compiler version: Harbour 1.0.0RC1 Intl. (Rev. 8835)
   Windows version: 5.1, Build 2600 Service Pack 2

   Windows total applications running: 0

Variables in use
================
   Procedure     Type   Value
   ==========================
   GETBTNTOP
     Param   1:    L    .F.
     Param   2:    U    
     Local   1:    U    
     Local   2:    N    0
   TBTNBMP:NEWBAR
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    C    ""
     Param   6:    B    {|| ... }
     Param   7:    L    .F.
     Param   8:    U    
     Param   9:    L    .F.
     Param  10:    U    
     Param  11:    C    "  Selected financial analysis:
   Business valuation.     
   Sensitivity analysis.   
   Annual ratios.          
   Monthly ratios.         
   Z score.                
   Currency converter.     "
     Param  12:    L    .F.
     Param  13:    U    
     Param  14:    C    "(SelBar(oBar2,oBar,oBar3))"
     Param  15:    U    
     Param  16:    U    
     Param  17:    U    
     Param  18:    U    
     Param  19:    U    
     Param  20:    L    .T.
     Param  21:    U    
     Param  22:    C    "CENTER"
     Local   1:    O    Class: TBTNBMP
     Local   2:    S    
     Local   3:    O    Class: TBTNBMP
   SETWINDOWS
     Local   1:    U    
     Local   2:    N    1
     Local   3:    O    Class: TFONT
     Local   4:    U    
     Local   5:    U    
     Local   6:    U    
     Local   7:    U    
     Local   8:    A    Len:    0
     Local   9:    L    .T.
     Local  10:    U    
     Local  11:    U    
     Local  12:    C    "[InternetShortcut]
URL=http://www.cashplan.com/uycf/2.html
"
     Local  13:    C    "[InternetShortcut]
URL=http://www.cashplan.com/uycf/1.html
"
     Local  14:    U    
   MSCREEN2
     Local   1:    A    Len:    5
     Local   2:    A    Len:    0
     Local   3:    U    
     Local   4:    C    "20021201"
     Local   5:    L    .F.
     Local   6:    L    .F.

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFNTX

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

  1:    PERC                               RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            0      .T.   .T.

     Indexes in use                        TagName
        => perc->prod_num                     PERC

     Relations in use

  2:    CFGLOB                             RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            1      .F.   .F.

     Indexes in use                        TagName

     Relations in use

  3:    CASH                               RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
         50           54      .F.   .F.

     Indexes in use                        TagName
        => account                            CASH

     Relations in use

  4:    CREDIT                             RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            1      .F.   .F.

     Indexes in use                        TagName
        => field->account                     CREDIT

     Relations in use

  5:    TERM                               RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
         64           64      .F.   .F.

     Indexes in use                        TagName
        => term->account                      TERM

     Relations in use

  6: => GL                                 RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
        196          560      .F.   .F.

     Indexes in use                        TagName
        => account                            GL
           cr8Spec()                          JAKE
           cr8Specialntx()                    CARRY
           cr8Spec2()                         CARRY1

     Relations in use

  7:    LICENSE                            RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
        419          419      .F.   .F.

     Indexes in use                        TagName
        => account                            LICENSE

     Relations in use

  8:    PAYROLL                            RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1           12      .F.   .F.

     Indexes in use                        TagName
        => field->dept + field->empnum        PAYROLL

     Relations in use

  9:    CONT                               RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            4      .F.   .F.

     Indexes in use                        TagName
        => cont->numbr                        CONT

     Relations in use

 10:    TOT                                RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
        196          566      .F.   .F.

     Indexes in use                        TagName
        => account                            TOTAL1
           cr8Spec()                          TOTAL2
           cr8Specialntx()                    TOTAL3
           cr8Spec2()                         TOTAL4
           cr8Spec5()                         TOTAL5
           cr8Spec6()                         TOTAL6
           cr8Spec7()                         TOTAL7

     Relations in use

 11:    RATIO                              RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
         14           14      .F.   .F.

     Indexes in use                        TagName
        => account                            RATIO

     Relations in use

 12:    FIVECOL                            RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          2            2      .F.   .F.

     Indexes in use                        TagName
        => account                            FIVE

     Relations in use

 13:    BAL                                RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1           65      .F.   .F.

     Indexes in use                        TagName
        => account                            BAL

     Relations in use

 14:    SALES                              RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          2            4      .F.   .F.

     Indexes in use                        TagName
        => prod_num                           SALES

     Relations in use

 15:    GLOSS                              RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1           27      .F.   .F.

     Indexes in use                        TagName
        => gloss->glosskey                    GLOSS

     Relations in use

 16:    COMP                               RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
        910         2200      .F.   .F.

     Indexes in use                        TagName
        => cr8Specialntx()                    COMP
           donindex(3)                        COMP2

     Relations in use

 17:    COMPBAL                            RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          4           61      .F.   .F.

     Indexes in use                        TagName
        => field->account                     COMPBAL

     Relations in use

 18:    ACTBAL                             RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1           60      .F.   .F.

     Indexes in use                        TagName
        => field->account                     ACTBAL

     Relations in use

 19:    ENTITY                             RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          5            5      .F.   .F.

     Indexes in use                        TagName
        => numbr                              ENTITY

     Relations in use

 20:    ANOTE                              RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
        430          447      .F.   .F.

     Indexes in use                        TagName
        => account                            NOTE
           cr8Specialntx()                    NOTEA

     Relations in use

 21:    COMPANY                            RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            1      .F.   .F.

     Indexes in use                        TagName

     Relations in use

 22:    BANK                               RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
         12           25      .F.   .F.

     Indexes in use                        TagName
        => account                            BANK

     Relations in use

 23:    EXPTY                              RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          2            3      .F.   .F.

     Indexes in use                        TagName
        => expty->prod_num                    EXPTY

     Relations in use

 24:    CONTRACT                           RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          2            2      .F.   .F.

     Indexes in use                        TagName
        => prod_num                           CONTRACT

     Relations in use

 25:    RETAIN                             RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          2            3      .F.   .F.

     Indexes in use                        TagName
        => retain->prod_num                   RETAIN

     Relations in use

 26:    EXPCF                              RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          2            3      .F.   .F.

     Indexes in use                        TagName
        => field->prod_num                    EXPCF

     Relations in use

 27:    PASS                               RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            1      .F.   .F.

     Indexes in use                        TagName
        => pass->numbr                        PASS

     Relations in use

 28:    PLAN                               RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
         49           53      .F.   .F.

     Indexes in use                        TagName
        => plan->account                      PLAN

     Relations in use

 29:    FILE                               RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            0      .T.   .T.

     Indexes in use                        TagName
        => file->entity                       HAG

     Relations in use

 30:    COLAT                              RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            1      .F.   .F.

     Indexes in use                        TagName
        => colat->entity                      COLAT

     Relations in use

 31:    OTHRSALE                           RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            0      .T.   .T.

     Indexes in use                        TagName
        => othrsale->account                  OTHRSALE

     Relations in use

 32:    TIED                               RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
         10           13      .F.   .F.

     Indexes in use                        TagName
        => tied->thisEntity                   TIED

     Relations in use

 33:    SARGE                              RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          3            3      .F.   .F.

     Indexes in use                        TagName
        => sarge->account                     SARGE

     Relations in use

 34:    SAVEYR                             RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
         31           48      .F.   .F.

     Indexes in use                        TagName
        => saveyr->year1                      SAVEYR

     Relations in use

 35:    BASIC                              RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            1      .F.   .F.

     Indexes in use                        TagName
        => basic->account                     BASIC

     Relations in use

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 HBDEBUGGER
     5 HBDBMENU
     6 HBDBMENUITEM
     7 HBDBWINDOW
     8 GET
     9 HBGETLIST
    10 HBDBBROWSER
    11 TBCOLUMN
    12 TFONT
    13 TWINDOW
    14 TMENU
    15 TMENUITEM
    16 TBRUSH
    17 TCONTROL
    18 TBAR
    19 TRECT
    20 TBTNBMP
    21 TREG32

Memory Analysis
===============
      2544 Static variables

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

Post by **Antonio Linares** » Thu Jul 31, 2008 1:37 pm

Harvey,

Please check that in all the buttonbar buttons that you create you are using OF oBar.

It seems as oBar is nil when the button is going to be created.

hag · Post by **hag** » Thu Jul 31, 2008 2:33 pm

Fixed

was compiling bar.prg an old clipper fix. removed it from make file and works fine.

So far I have gone to 32 bits with 600+ dlls, 153 prgs from FW192 in about 2 weeks. FW192 very old but worked for many good years. Still does.

And FWH is great. :lol:

Now I'm just picking through the program and finding fixes and xbrowse changes needed.

Antonio Thanks for all the help and the many othere on the forum.

Can't wait to add some of the cool features to the program.

Want ot see my 16 bit FW192 go to http://www.cashplan.com

Post by **Antonio Linares** » Thu Jul 31, 2008 2:40 pm

Harvey,

Thanks for your kind words :-)

We are glad to know that you are moving forward and having success in your migration to 32 bits :-)