FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour xbrdbu : new version
Posts: 166
Joined: Wed Aug 29, 2012 08:25 AM
xbrdbu : new version
Posted: Mon Jan 28, 2013 03:28 PM

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

test
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: xbrdbu : new version
Posted: Mon Jan 28, 2013 03:36 PM
A copy of the file placed at FiveWin-Contributions:

http://code.google.com/p/fivewin-contributions/downloads/detail?name=XBRDBUFD.ZIP&can=2&q=

Thanks! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 166
Joined: Wed Aug 29, 2012 08:25 AM
Re: xbrdbu : new version
Posted: Mon Jan 28, 2013 04:16 PM
Antonio Linares wrote:A copy of the file placed at FiveWin-Contributions:

http://code.google.com/p/fivewin-contributions/downloads/detail?name=XBRDBUFD.ZIP&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
test
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: xbrdbu : new version
Posted: Mon Jan 28, 2013 04:29 PM
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 :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: xbrdbu : new version
Posted: Mon Jan 28, 2013 04:42 PM
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 166
Joined: Wed Aug 29, 2012 08:25 AM
Re: xbrdbu : new version
Posted: Mon Jan 28, 2013 07:13 PM
ukoenig wrote: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
test
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: xbrdbu : new version
Posted: Mon Jan 28, 2013 11:54 PM

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

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

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.

Regards



G. N. Rao.

Hyderabad, India
Posts: 824
Joined: Thu Oct 13, 2005 07:39 AM
Re: xbrdbu : new version
Posted: Tue Jan 29, 2013 07:32 AM

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

kind regards

Stefan
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: xbrdbu : new version
Posted: Tue Jan 29, 2013 07:43 AM

\fwh\source\classes

Regards



G. N. Rao.

Hyderabad, India
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: xbrdbu : new version
Posted: Tue Jan 29, 2013 08:45 AM

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.

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM
Re: xbrdbu : new version
Posted: Tue Jan 29, 2013 10:59 AM

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

Posts: 166
Joined: Wed Aug 29, 2012 08:25 AM
Re: xbrdbu : new version
Posted: Tue Jan 29, 2013 01:35 PM
Otto wrote:

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 ?

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

test
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM
Re: xbrdbu : new version
Posted: Tue Jan 29, 2013 03:06 PM

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

Posts: 18
Joined: Thu May 19, 2011 04:50 PM
Re: xbrdbu : new version
Posted: Wed Jan 30, 2013 04:01 PM

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

Posts: 18
Joined: Thu May 19, 2011 04:50 PM
Re: xbrdbu : new version
Posted: Wed Feb 06, 2013 10:14 PM

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.