Xbrowse Builder having a strange error (SOLVED)

[Otto]

Hello Marc,
I saw that. But I do not have the right structure for customer.
I changed forumsetup().
Best regards,
Otto

LOCAL_PATH := "c:\fwharb\samples\"
cLocal := "C:\fwharb\samples\"

and I changed

Code: Select all  Expand view

 function forumsetup()
    local aFields:={}, aF2:={}
        cFile =  LOCAL_PATH + "brwsetup.dbf"
       
    IF .NOT. FILE(  cFile )

          aFields := { { "BRWNAAM", "C", 15, 0 },;
                       { "TOP", "N", 4, 0 },;
                       { "LEFT", "N", 4, 0 },;
                       { "BREED", "N", 4, 0 },;
                       { "HOOGTE", "N", 4, 0 },;
                       { "DATABASE", "C", 15, 0 },;
                       { "RELATION", "C", 200, 0 },;
                       { "INDEX", "C", 15, 0 },;
                       { "INFO", "C", 250, 0 },;
                       { "MASTER", "C", 10, 0 } }

      DbCreate( cFile, aFields, "DBFCDX" )
      use cFile NEW VIA "DBFCDX"
      index on upper(brwnaam) tag code
      append blank
      brwsetup->brwnaam = "CUSTOMERS"
      brwsetup->DATABASE = "CUSTOMER"

      close brwsetup

    endif
 

[Marc Venken]

I send the files (FB)

[Otto]

Hello Marc,
I copied the files and I need to comment these two lines, then the source code will compile.
// HeaderFonts := oBold
// :nHeadStrAligns := AL_CENTER

The program starts. Can you briefly explain how to use it?

Best regards,
Otto

[Marc Venken]

If you click on customers, the program will crash (at least here it does) and that because of the 2 lines of code or lines 577

//aadd(aVeld,alltrim(tempXb->veld))
//aadd(aKop,alltrim(tempXb->brnaam))
aadd(aVeld,tempXb->veld)
aadd(aKop,tempXb->brnaam)

Do you have a crach ?

There error file is giving a other error : that I can't find. Only if I commend the 2 lines on 577 it gives no error ? Strange thing...

Time from start: 0 hours 0 mins 1 secs
Error occurred at: 27/01/2022, 21:08:31
Error description: Error BASE/1004 No exported method: VALUE
Args:
[ 1] = U

Stack Calls
===========
Called from: => VALUE( 0 )
Called from: demo.prg => STYLEBROWSE( 687 )
Called from: demo.prg => GETXBROWSER( 602 )
Called from: demo.prg => MARC_FOLDEREX( 451 )
Called from: demo.prg => (b)MAIN( 122 )

[Otto]

Good morning,
here is my test.
What are the next steps?
Best regards,
Otto

[Marc Venken]

Otto,

Can you try : around lines 577

Works here !

//aadd(aVeld,alltrim(tempXb->veld))
//aadd(aKop,alltrim(tempXb->brnaam))
aadd(aVeld,tempXb->veld)
aadd(aKop,tempXb->brnaam)

and

Error here !

aadd(aVeld,alltrim(tempXb->veld))
aadd(aKop,alltrim(tempXb->brnaam))
//aadd(aVeld,tempXb->veld)
//aadd(aKop,tempXb->brnaam)

[Otto]

Marc,

I can't test this because my brwdetail is empty.
Best regards,
Otto

Code: Select all  Expand view

  netopen("brwdetail","Code","TempXb")
      select tempXb
     
      xbrowse("tempXb")

[Marc Venken]

Just delete the dbf. The sample creates it again with data
brwdetail.dbf

[Otto]

Hello Marc,

You can't just TRIM the column name.
You then have a different name when you query it - a name that does not exist in your xBrowser and therefore the error.
You could maybe test with the column number instead of oBrw:oCol( cCol ).

Would you be so kind to repost your code after the changes. This seems a very interesting project. Congratulations and respect.
If you need more help, please let me know.

Best regards,
Otto


aBarget

FOR EACH cCol in aBarget
? cCol + "|" + str(len(cCol))
xbrowse(oBrw)
WITH OBJECT oBrw:oCol( cCol )

[Marc Venken]

Hi Otto,

I found the error !!

You pointed me in the right direction with the headernames that are not the same, so I noticed the folowing in the program.

The browse is auto-made correctly with the headers :

aadd(aVeld,alltrim(tempXb->veld))
aadd(aKop,alltrim(tempXb->brnaam))

BUT.... in the selection witch field should be editable and can be searched I did not used the alltrim function, so at that point the names are not the same.
Putting the alltrim insite, the problem is solved. GREAT and many Thanks.

if tempXb->sel_bar
aadd(aBrwGet,alltrim(tempXb->brnaam))
endif
if tempXb->sel_edit
aadd(aBrwEdit,alltrim(tempXb->brnaam))
endif

StyleBrowse(oBrw, aBrwGet, aBrwEdit ,cData ) // Pimping the browser with colors etc...

[Otto]

Hi Marc,
Glad I could help.
Would you be so kind to post the corrected code so that we can follow your work?

Best regards,
Otto

[Marc Venken]

Otto,

It is only these 2 lines of code that need to be changed. The ALLTRIM is needed.

if tempXb->sel_bar
aadd(aBrwGet,alltrim(tempXb->brnaam))
endif
if tempXb->sel_edit
aadd(aBrwEdit,alltrim(tempXb->brnaam))
endif

[Marc Venken]

We can shared code, ideas if you are interested in Xbrowse as a general Builder. I like the idea and it works great and is very time reducing in time of devellopment
I gonna try to put as much as possible in the dbf, so only changing the dbf is needed and not the code.