f



Error xHarbour con la Instruccion aSort

SAludos al grupo

Esta instruccion funciona con Harbour y xHarbour la ultima version.
con una version de xHArbour sin funciona no genera error
Harbour Build Info
---------------------------
Version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603)
PCode Version: 10
Compiler: Borland/Embarcadero C++ 7.0 (32-bit)
Platform: Windows 8 6.2.9200

Con esta Version genera los errores comentados
Harbour Build Info
---------------------------
Version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20161011)
PCode Version: 10
Compiler: Borland/Embarcadero C++ 7.2 (32-bit)
Platform: Windows 8 6.2.9200

Me genera error con esta instrucciones.


PROCEDURE MAKEDATASET( oFr, cAlias, oQry, bRelation )
*--
LOCAL nHeader
LOCAL cHeader := ''
*--
//DEFAULT bRelation := { || NIL }
*--
      cHeader := strucfield( oQry )  
      oFr:SetUserDataSet( cAlias, cHeader,;
       {|| DbGoTop(),  EVAL( bRelation ) } ,;
       {|| DbSkip(1),  EVAL( bRelation ) },;
       {|| DbSkip(-1), EVAL( bRelation ) },;
       {|| Eof() },;                 
       {|cField| Eval(FieldBlock( cField )) } )

RETURN


Con aSort tambien da error
---------------------------------------------------

       aSort(mararr,,,{|x,y| x[2] < y[2]})

-----------------------------------------------------


tambien da error

static function DataCol( oDbf, nDescap,xlog )
return ( { || bs_mostdato(oDbf,nDescap," ",xlog,oApp:rt) } )


0
rubendariogd
11/3/2016 4:30:09 PM
comp.lang.xharbour 5470 articles. 0 followers. Post Follow

1 Replies
95 Views

Similar Articles

[PageSpeed] 5


Il 03/11/2016 17:30, rubendariogd@gmail.com ha scritto:

> Esta instruccion funciona con Harbour y xHarbour la ultima version.
> con una version de xHArbour sin funciona no genera error

Can you provide a reduced and self-contained sample that can be compiled 
and run to get the error?

EMG

--
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
0
Enrico
11/3/2016 6:13:43 PM
Reply: