xbrdbu : new version

[Franklin Demont]

Si. Ese es el problema que procuraré solventar del mejor modo posible.. Gracias de nuevo por su dedicación.
=====================================================================
If. That one is the problem that I will try to solve as good as possible.. Thanks again for its dedication.

If your name points to clipper Summer 87 , me too is still active from these days.

Frank

[desdesummer87]

desdesummer87 is only a nick

[desdesummer87]

Saludos.

He conseguido evitar el error que se producia al modificar la estructura
de una base de datos con campos Memo.
( La extension "XXXX.DBT" no era renombrada al salvar los cambios)

Para ello ha sido necesario modificar las funciones afectadas tal como
indico más abajo

Confío en que esté usted de acuerdo con los cambios.

desdesummer87.

==============================================================================

Greetings.

I have managed to avoid the error that took place when modifying the structure
Of a data base with fields Silly.
(the extension XXXX.DBT was not renamed when saving changes)

For it it has been necessary to modify the affected functions same as
I indicate further down

I trust that you agree upon the changes.

Desdesummer87.

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

Func TempFile(cExtension,cPath)
Local cFile
default cPath:=""
cExtension:= StrTran(cExtension,".","")
While .T.
cFile:="AAA" +"." + upper(cExtension)
cFile:= cPath + cFile
If .NOT. file( cFile )
Exit
End
End

Return cPath + cFile

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

Static Func BuildDbf( cDbfName, oLbx )

Local aFields := {}
Local n
Local cTempFile:=""

If Empty( cDbfName )
MsgAlert( "Se necesita un nombre para la DBF", "" )
Return Nil
End

If Len( oLbx:aItems ) == 0
MsgAlert( "No se han definido campos", "" )
Return Nil
End

If At( ".", cDbfName ) == 0
cDbfName += ".dbf"
End

For n = 1 to Len( oLbx:aItems )
AAdd( aFields, _FieldInfo( AllTrim( oLbx:aItems[ n ] ) ) )
Next

If File( cDbfName )
If MsgYesNo( "DBF existente. ¿ Modificar estructura...?", "" )
cTempFile:= tempFile("dbf")
DbCreate( cTempFile, aFields )
Use (cTempFile)
Append from (cDbfName)
Use
Ferase( cDbfName )
Rename ( cTempFile ) to (cDbfName)
If file( cFileNoExt( cTempFile ) +".dbt" )
nLen := Len(cDbfName)
nLong := (nLen - 4)
cNomb := SubStr(cDbfName, 1 ,nLong)
cBase := (cNomb + ".dbt")
FErase(cBase)
Rename ("AAA.dbt") To (cBase)
End
Return nil
End
End

DbCreate( cDbfName, aFields )
MsgInfo( "DBF creada", "" )

Return Nil

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

[Franklin Demont]

I provided only support for FTP-files see also (init) procedure prginit :

RDDSetDefault( 'DBFCDX' )
set(_SET_MFILEEXT,".fpt")

Allowing also dbt format would require a configuration procedure to install the used dbf driver.

Frank

[Franklin Demont]

30/03/2013

Exe-file generated with FWH1303 , HB 3.2 (28/2/2013)
Working with xbrdbu , some errors were corrected , some modules improved

File menu

Open recent files : added to file menu , saved in xbrdbu.ini

Configuration : Dbfdriver (dbfcdx , dbfntx) , open shared , Dateformat , autopen
extension dbt should be recognised in routines as modify structure
Saved in xbrdbu.ini

Map network drive , disconnect drive

Frank Demont


http://rapidshare.com/files/2255720945/XBRDBUFD3.ZIP

[Antonio Linares]

Frank,

I have placed a copy of your new XbrDbu build in FiveWin contributions
https://code.google.com/p/fivewin-contributions/downloads/detail?name=XBRDBUFD3.ZIP&can=2&q=

thanks,

[driessen]

Antonio,
Frank,

Fantastic job done. It's really a great utility.

One small remark : to my opinion the correct key is not always shown. If you select "Natural order", the last index used is displayed in the status bar.

[jllinas]

Frank,

Very usefull and nice utility. Exactly what I was waiting for. I just want to make a small suggestion (request?):

in "PROC OpenMyIndex()" would be a great idea to use "*.cdx" or "*.ntx" according with default RDD (CDX or NTX) chose in preferences. Some of our customers use NTX and others CDX.

Thanks in advance,

[Franklin Demont]

April 2013

* Index menu : added when clausule in close index , index order and filter by scope

* Closing index folowed with Change/add index gives a error. Now it is ok

* Added to Tag message : order number / total orders (only DBF Browse)
In bMsg added oMsgBar:Refresh() ('Sometimes,if you select "Natural order", the last index used is displayed in the status bar')
maybe it helps

* Open index file : Rdd from alias determinates the extension

* NEW : Dialog to open a dbf-file , input fields :
- RDD (Radio buttons DBFCDX/DBFNTX)
Depending from memo-file or index-file found in combination with autopen the rdd input field is disabled or enabled
- Shows asociated memo file (same name) (checkbox).
- Open asociated index file (same name) (checkbox). Autopen determines the default value

- DBF/ARRAY BROWSE (Radio buttons)
Very powerfull feature , each column is sort- and search column, eliminating the need from index files.
Most from menu utility's should work. Also editing , relations , index files are still updated.


Download link : http://rapidshare.com/files/80261082/XBRDBUFD4.ZIP

Frank Demont

[cnavarro]

Code: Select all  Expand view

Application
===========
   Path and name: C:\Users\C\Downloads\XBRDBUFD4\xbrdbu.Exe (32 bits)
   Size: 3,572,224 bytes
   Compiler version: Harbour 3.2.0dev (Rev. 18881)
   FiveWin  Version: FWH 13.02
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 1 secs
   Error occurred at: 13/04/04, 23:40:38
   Error description: Error BASE/1004  Message not found: NIL:LARRAY
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => NIL:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => NIL:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => NIL:LARRAY( 0 )
   Called from: xbrdbu.prg => (b)MAINMENU( 307 )
   Called from: .\source\classes\MENU.PRG => TMENU:INITIATE( 431 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:INITMENUPOPUP( 2580 )
   Called from:  => TMDIFRAME:HANDLEEVENT( 0 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3178 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 991 )
   Called from: xbrdbu.prg => MAIN( 73 )

En la opcion Indexes sin abrir ningun fichero

In the Indexes option without opening any file

Regards

[Franklin Demont]

Line 303 ,310 , 317 :

WHEN ! Empty(alias()) .AND. (Alias())->(OrdCount())>0 .AND. ! oDbfWnd:lArray;

We have to test first on empty(alias()) !

Frank

[Franklin Demont]

I uploaded a new version : http://rapidshare.com/files/2132244470/XBRDBUFD5.ZIP

5/4/2013

* Open dialog : added checkbox shared

* file2Brow , open : added parameter lDefault
Open dialog is only used when this parameter is .F.
Starting the aplication with default dbf's (start parameters or AALIAS section in (x)ini-file),
will not show the open dialog ! Default values will be used !

1/5/2013 : XBRDBUFD5.ZIP
------------------------
* Preferences dialog (configuration)
- Added : Checkbox "Open dbf with default's (no dialog)"
If not checked, opening a dbf opens also the open dialog
- Added : Checkbox "Load, save previous DBF configuration"
This configuration is saved in a xbr-file , i.e. Gemeente.xbr
containing : Filter , columns , arelations , scopes and aindex.
- Added to (x)ini-file : [AALIAS]
Containing the open dbf's when closing XbrDbu (Upper right corner)
When a file window is closed , this will NOT be present
When a list from dbf-files is specified as start parameter , this
will overwrite the aAlias Section

* Open dialog
- Discarded Array Browse , new button in File window
- Added : Checkbox "Restore previous state (... . xbr)"
Default value from preferences
If Checked the values from the xbr-file are loaded
Closing the dbf will only write the status
if in the preferences this value is .T.
- Added : Memo say with showing some values from the xbr-file (short)
- Added : Button : "View State" , Showing the xbr-file

* Start parameters
- It is possible to give more dbf's , i.e.
XbrDbu.exe Gemeente Customer (overwrite AALIAS section in ini file)
- One from the parameters can be a xIni-file.
This overwrite the default one "XbrDbu.ini" in the workdir from the exe-file
- Without parameter ,xbrdbu searches (and asks to select) in the current directory to all xIni-files.
If none , XbrDbu.ini is used


* Main window (oWndDbu)
- Changed : MsgBar , shows the configuration file (ini-file)

* File Window (Dbf) Added to BtnBar :
- Colums : Same as utility's , Browse columns
Column configuration. Closing the dbf will write in the xbr-file
- Added to BtnBar : Array Browse / Dbf Browse
Will read the dbf in a array (column recno added) and browse the array
Pushing the button again returns to the dbf-browse
- Filter : Same as utility's , filter OR clicking in the messagebar
- Top Bottom Scope : Same as Indexes , Establish filter
- Relations : Same as utility's , Relations
- Indexes : Same as Indexes (menu)

* File Window (Dbf) Added to MsgBar :
- Status file , i.e. Gemeente.xbr

Frank Demont

[cnavarro]

Code: Select all  Expand view

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

Stack Calls
===========
   Called from:  => LARRAY( 0 )
   Called from: xbrdbu.prg => (b)MAINMENU( 255 )
   Called from: .\source\classes\MENU.PRG => TMENU:INITIATE( 431 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:INITMENUPOPUP( 2584 )
   Called from:  => TMDIFRAME:HANDLEEVENT( 0 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3182 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 995 )
   Called from: xbrdbu.prg => MAIN( 65 )

 

Ejecutas la aplicacion y moverte por el menu principal
Saludos

[Franklin Demont]

Line 251 must be :

WHEN ! EMPTY(alias()) .AND. OrdCount()>0 .AND. ! oDbfWnd:lArray ;

! oDbfWnd:lArray must always be the last one from the line

FRank

Code: Select all  Expand view

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

Stack Calls
===========
   Called from:  => LARRAY( 0 )
   Called from: xbrdbu.prg => (b)MAINMENU( 255 )
   Called from: .\source\classes\MENU.PRG => TMENU:INITIATE( 431 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:INITMENUPOPUP( 2584 )
   Called from:  => TMDIFRAME:HANDLEEVENT( 0 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3182 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 995 )
   Called from: xbrdbu.prg => MAIN( 65 )

 

Ejecutas la aplicacion y moverte por el menu principal
Saludos

[Silvio.Falconi]

Application
===========
Path and name: C:\Work\Prg\xdbu\xbrdbu.Exe (32 bits)
Size: 2,810,368 bytes
Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715)
FiveWin Version: FWHX 13.01
Windows version: 6.1, Build 7600

Time from start: 0 hours 0 mins 0 secs
Error occurred at: 14/05/2013, 17:33:22
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 2

Stack Calls
===========
Called from: xbrdbu.prg => FSETUP( 3898 )
Called from: xbrdbu.prg => (b)MSGSELECT( 6542 )
Called from: .\source\function\XBROWSER.PRG => XBROWSE( 118 )
Called from: xbrdbu.prg => MSGSELECT( 6542 )
Called from: xbrdbu.prg => LOADPREFERENCES( 5971 )
Called from: xbrdbu.prg => MAIN( 40 )