FW_DbfToHash() falla si el DBF está vacío.

[VictorCasajuana]

Utilizo la versión 19.6 de Fivewin,
Este ejemplo da error si el DBF no contiene registros, considero que debería devolver un Hash en blanco.
No sé si en las nuevas versiones de Fivewin está solucionado, en caso contrario modificaría la función FW_DBFToArray() para solucionarlo.

Code: Select all  Expand view

#include "fivewin.ch"


FUNCTION Main()

    Local fTest:='fTest'

    DbUseArea( .T.,, "TestVacio",fTest)
    xBrowse( fTest->(FW_DbfToHash( ) ) )
 
RETU NIL

Gracias y Salud!

[VictorCasajuana]

Modificando ArrToHash() de valtostro.prg me ha funcionado:

Code: Select all  Expand view

// ------------------------------------
   if aData:Empty()
      hRet := {=>}
   elseif HB_ISARRAY( aData[ 1 ] )
// ------------------------------------

[nageswaragunupudi]

FW_DbfToHash() returns an array of hashes, but not a hash.

So in the case of empty dbf, it should return an empty array, not an empty hash.

Yes, we need to fix the function to avoid this runtime error.

[VictorCasajuana]

Thanks!
then, I think that a good solution is:

Code: Select all  Expand view

// ------------------------------------
   if aData:Empty()
      hRet := Array( 0 )
   elseif HB_ISARRAY( aData[ 1 ] )
// ------------------------------------