desdesummer87 wrote: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.

desdesummer87 is only a nick

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

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

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

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.

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,

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

Line 303 ,310 , 317 :

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

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

Frank

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

   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

cnavarro wrote:

Code (fw): Select all Collapse

   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

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 )