xbrdbu : new version

[Franklin Demont]

Hello ,

Last months i worked on xbrdbu. Startting from http://fivewin-contributions.googlecode ... rdbu_2.zop

1) Xbrdbu uses only files from his own , no files from fwh as
WindowsXP.Manifest , bmp-files , some ch-files

2) Added : launch parameter cDbfFile
From command line : xbrdbu.exe cDbfFile

3) Added : Static Var : hIndex
Hash variable , holding the data to (re)index

4) Index menu and his actions : changed

NEW

5) Index management
Open Index
Close index
Index Order
Filter by scope
Change/add index

6) Utilities
Browse columns (columns configuration)
Relations
Establish Filter
Count
Statistics
Append From
Copy To
Delete
Recall
Pack
Zap


Can be downloaded from :

http://rapidshare.com/files/3968319008/XBRDBUFD.ZIP
Frank

[Antonio Linares]

A copy of the file placed at FiveWin-Contributions:

http://code.google.com/p/fivewin-contri ... P&can=2&q=

Thanks!

[Franklin Demont]

A copy of the file placed at FiveWin-Contributions:

http://code.google.com/p/fivewin-contri ... P&can=2&q=

Thanks!

Antonio ,

xbrowse.prg should not be present in the download , it is not needed.
I changed the zip-file in rapidshare

Frank

[ukoenig]

I just found a little Error selecting < Source >

Time from start: 0 hours 0 mins 6 secs
Error occurred at: 28-01-2013, 17:27:34
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 6
Stack Calls
===========
Called from: => ARRAY:__OPARRAYINDEX( 0 )
Called from: .\source\classes\XBRCODE.PRG => CEDITCONST( 941 )
Called from: .\source\classes\XBRCODE.PRG => TXBRCOLCODE:PRGVARCODE( 752 )
Called from: .\source\classes\XBRCODE.PRG => TXBRCOLCODE:PRGCODECMD( 689 )
Called from: .\source\classes\XBRCODE.PRG => TXBRCOLCODE:PRGCODE( 564 )
Called from: .\source\classes\XBRCODE.PRG => (b)TXBRCODE_PRGCODE( 239 )
Called from: => AEVAL( 0 )
Called from: .\source\classes\XBRCODE.PRG => TXBRCODE:PRGCODE( 239 )
Called from: xbrdbu.prg => VIEWCODE( 1060 )
Called from: xbrdbu.prg => (b)BRWBTNBAR( 817 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 465 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 656 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1690 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1407 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3159 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 980 )
Called from: xbrdbu.prg => MAIN( 92 )

Best Regards
Uwe

[Antonio Linares]

http://code.google.com/p/fivewin-contri ... P&can=2&q=

thanks

[Franklin Demont]

I just found a little Error selecting < Source >

Time from start: 0 hours 0 mins 6 secs
Error occurred at: 28-01-2013, 17:27:34
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 6
Stack Calls
===========
Called from: => ARRAY:__OPARRAYINDEX( 0 )
Called from: .\source\classes\XBRCODE.PRG => CEDITCONST( 941 )
Called from: .\source\classes\XBRCODE.PRG => TXBRCOLCODE:PRGVARCODE( 752 )
Called from: .\source\classes\XBRCODE.PRG => TXBRCOLCODE:PRGCODECMD( 689 )
Called from: .\source\classes\XBRCODE.PRG => TXBRCOLCODE:PRGCODE( 564 )
Called from: .\source\classes\XBRCODE.PRG => (b)TXBRCODE_PRGCODE( 239 )
Called from: => AEVAL( 0 )
Called from: .\source\classes\XBRCODE.PRG => TXBRCODE:PRGCODE( 239 )
Called from: xbrdbu.prg => VIEWCODE( 1060 )
Called from: xbrdbu.prg => (b)BRWBTNBAR( 817 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 465 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 656 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1690 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1407 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3159 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 980 )
Called from: xbrdbu.prg => MAIN( 92 )

Best Regards
Uwe

Uwe,

This part is from the original xbrdbu , i worked only on index management and utiltys

Frank

[nageswaragunupudi]

This requires a fix in xbrcode.prg
The function cEditConst( nEditType ) is to be replaced by this new one:

Code: Select all

//----------------------------------------------------------------------------//

static function cEditConst( nEditType )
return { 'EDIT_GET', 'EDIT_LISTBOX', 'EDIT_BUTTON', "EDIT_GET_LISTBOX", "EDIT_GET_BUTTON", ;
         'EDIT_DATE', 'EDIT_TIME' }[ nEditType ]
//----------------------------------------------------------------------------//
 

Please make this change in xbrcode.prg and link with the application.

[StefanHaupt]

xbrcode.prg is not in the archive, where can I find it ?

[nageswaragunupudi]

\fwh\source\classes

[Silvio.Falconi]

Antonio, Nages, Uwe,Frank

I do not want to make any controversy

I just want to give you my thoughts ... my five cents!

For a long time that I see on this forum that someone wants to create an application like Wdbu, but it's been many months and still no one has succeeded in creating a valid application (Fwdbu, xbrdbu, ...).

For a long time you start a new tool and then not you will not finish each and every now and then recreates a new beginning.
And still I can not use a valid application for the archives as wdbu, I can not use a valid application to create reports as fr, or we cannot use a wizard for installation as Innosetup

We all have to use third parties, but I believe that we should all strive to create valuable tool within Fivewin, if all we have time, we must cooperate in the creation of these valuable tools.

[Otto]

What I miss is the “Statistics” from WDbu.
I would also suggest to rename the tool to an user-friendly name.
Best regards,
Otto

[Franklin Demont]

What I miss is the “Statistics” from WDbu.
I would also suggest to rename the tool to an user-friendly name.
Best regards,
Otto

Otto ,

Hove you taken a look in the code ?

Code: Select all

MENUITEM "&Statistics" WHEN ASCAN(oDbfWnd:aStruc , {|a|a[2]="N"})>0;
                 RESOURCE "STATICS" ;
                 ACTION oDbfWnd:ReplaceFor(5);//MsgInfo( " oDbfWnd:Sum() ");
                 MESSAGE "Statistics calculations of all numeric fields" ;
                 ENABLED
 

There must be a numeric field in the dbf !!!!!

Also relations will only be enabled as at least 2 aliasses are in use

The name was arbitrary choosen for mine own directory's. It is still xbrdbu , but more complete

Now it still have "FD" as define , to let see where the original code is changed.

Omitting this would simplify the code.

Frank

[Otto]

Hello Franklin,
thank you. Please excuse me. I mixed up the official new Fivewin DBU with the xWDBU clone.
You are right. In the xBRWDBU there is now all the functionality xWDBU had.
But the version is not very stable. Some functions freeze. Where should we report the errors.
Which version should now become the xWDBU replacement.

Best regards,
Otto

[desdesummer87]

Saludos.
Observo que tanto en esta versión de XBRDBU como en la anterior, cuando se modifica el nombre de un campo, se pierde el contenido del mismo. Es decir : Aparece el campo con el nuevo nombre, pero vacio, sin los datos que contenía antes de la modificación de la estructura.

? Es normal, o me hé perdido algo...?

Gracias

[desdesummer87]

Greetings mister Franklin.
I beg you excuse my ignorance.. .: Would it be possible to get in XBRDBU, that to rename a field the restrained data did not get lost in the same...?

Thank you for your attention.