aOdata

[nageswaragunupudi]

The function aOData does not return all Data of an Object in (x)Harbour. I think this subject was discussed earlier. Is it possible to make the following changes in odata.prg, so that the function aOData is useful to us ?

Code: Select all  Expand view  RUN

#ifdef __HARBOUR__
      if AScan( aInfo, "_" + aInfo[ n ], n + 1 ) != 0
#else
      if AScan( aInfo, "_" + SubStr( aInfo[ n ], 1, 9 ), n + 1 ) != 0
#endif


With this modification I guess the code will work correctly on both Harbour and non-Harbour applications.

By the way, can any one advise whether there is any native function in Harbour or xHarbour which gives a list of all Data like aOData, so that I can use that function instead of aOData ?

[Antonio Linares]

Nageswararao,

Implemented, thanks!

We are not aware of a Harbour/xHarbour native function that provides the same functionality