Actualización FiveDBU con arreglo en modif struct

[Antonio Linares]

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

[sysctrl2]

Antonio,

todavia no se puede hacer un REPLECE a la base de datos,

como en el viejo DBU.EXE ? TECLA [F6 ] / REPLACE.

gracias y saludos.

[surGom]

Un error:

Code: Select all  Expand view

Application
===========
   Path and name: E:\fivedbu\fivedbu.exe (32 bits)
   Size: 5,361,664 bytes
   Compiler version: Harbour 3.2.0dev (Rev. 17765)
   FiveWin  Version: FWH 12.08
   Windows version: 5.1, Build 2600 Service Pack 3

   Time from start: 0 hours 1 mins 12 secs
   Error occurred at: 26/09/2012, 18:36:32
   Error description: Error BASE/1004  Message not found: NIL:EVAL
   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 => (b)EVAL( 0 )
   Called from: C:\fwteam\samples\fivedbu.prg => DELRECORD( 419 )
   Called from: C:\fwteam\samples\fivedbu.prg => (b)PROCESSES( 980 )
   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( 1714 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1408 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3177 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 990 )
   Called from: C:\fwteam\samples\fivedbu.prg => MAIN( 59 )

 

[Antonio Linares]

Luis,

En la línea 419 hay que hacer este cambio:

Code: Select all  Expand view

  if oBrw != nil
      Eval( oBrw:bChange )
      oBrw:Refresh()
   endif
 

gracias!

[surGom]

Otro error

Code: Select all  Expand view

Called from:  => ORDKEYCOUNT( 0 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE_SETRDD( 3885 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 411 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYCOUNT( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:REFRESH( 1215 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:MAKEBRUSH( 5430 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 441 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:RESIZE( 0 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1724 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11734 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3177 )
   Called from:  => WNDADJCLIENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TXBROWSE:ADJCLIENT( 275 )
   Called from: .\source\classes\WINDOW.PRG => TMDICHILD:RESIZE( 2154 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\MDICHILD.PRG => TMDICHILD:HANDLEEVENT( 322 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3177 )
   Called from:  => SENDMESSAGE( 0 )
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW( 559 )
   Called from: .\source\classes\WINDOW.PRG => TMDICLIENT:SENDMSG( 0 )
   Called from: .\source\classes\MDICLIEN.PRG => TMDICLIENT:CHILDCLOSE( 189 )
   Called from: .\source\classes\MDICHILD.PRG => TMDICHILD:END( 268 )
   Called from: .\source\classes\WINDOW.PRG => TMDICHILD:SYSCOMMAND( 2396 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\MDICHILD.PRG => TMDICHILD:HANDLEEVENT( 322 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3177 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 990 )
   Called from: C:\fwteam\samples\fivedbu.prg => MAIN( 59 )

System

Ademas cuando modificas la estructura te muestra otro alias en otra ventana pero cuando las cerras las ventanas no modifico la base de datos

Luis

[Antonio Linares]

Luis,

has puesto la lista de llamadas (calls stack) pero no la descripción del error.

Cuando modificamos una DBF creamos una nueva para no alterar la original, de momento, por seguridad

[surGom]

Sí revisando la crea pero en el directorio de Fivedbu por eso no la veía. El error lo tengo en otra computadora y si no lo borre te lo envío mas tarde

Luis

[surGom]

He aquí el error

Error description: Error DBCMD/2001 Workarea not in use: ORDKEYCOUNT

Luis

[TOTOVIOTTI]

Hola amigos:
Estoy viendo para empezar a usar el fiveDbu, lo estoy modificando para que los textos me
aparezcan en castellano.
Cuando compilo, todo perfecto. A la hora de abrir un browse, e intentar moverme con el mouse o flecha arriba
o abajo, me aparece el siguiente error:

Error description: Error BASE/1004 Message not found: TMSGITEM:SETBITMAP
Args:
[ 1] = O TMSGITEM

tack Calls
==========
Called from: => __ERRRT_SBASE( 0 )
Called from: ../../../tobject.prg => TMSGITEM:ERROR( 0 )
Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
Called from: ../../../tobject.prg => TMSGITEM:MSGNOTFOUND( 0 )
Called from: ../../../tobject.prg => TMSGITEM:SETBITMAP( 0 )

Que podrá ser?
Muchas gracias!
Roberto

[Antonio Linares]

Roberto,

Que versión de FWH usas ?

Si añades él método SetBitmap() en la clase TMsgItem, aunque no haga nada, será suficiente para que no de el error:

METHOD SetBitmap() VIRTUAL

[TOTOVIOTTI]

Antonio... 6.12....
Funciona?
Roberto

[Antonio Linares]

Roberto,

No lo he probado. Pruébalo

[desdesummer87]

Al igual que en el xbrdbu citado en otra entrada, al modificar el nombre de un campo no vacío, se pierden los datos contenidos en el mismo.

Una lástima... ¿ Tendrá arreglo...?

Gracias.