FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour TOTAL ON command
Posts: 113
Joined: Wed Feb 08, 2006 10:32 PM
TOTAL ON command
Posted: Wed Feb 08, 2006 10:43 PM

I found a bug in function __dbtotal (TOTAL ON ...) if the source file contains a memo field. I don't know why but the memo fields are cutted off from the target database causing a "data type error".

here the modification I made to the source code (dbtotal.prg) from xHarbour (version 0.99.50) at line 128

CurSelect    := SELECT()
// r.c. mod: includes memo fields also - 08/02/2006
/*
aNewDbStruct := {}
Aeval( Dbstruct(), { | _1 | Iif( _1[ 2 ] == "M", NIL, Aadd( aNewDbStruct, _1 ) ) } )
IF ( Empty( aNewDbStruct ) )
    RETURN ( .F. )
ENDIF
*/
aNewDbStruct := DbStruct()

Now it works for me. Hope it can be useful
Roberto

Roberto Chiaiese
R&C Informatica S.n.c.
https://www.recinformatica.it
info@recinformatica.it

Harbour 3.2 - FW2512

Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: TOTAL ON command
Posted: Thu Feb 09, 2006 07:34 AM

Can you try with latest xHarbour from CVS?

EMG

Posts: 113
Joined: Wed Feb 08, 2006 10:32 PM
TOTAL ON command
Posted: Thu Feb 09, 2006 10:16 AM

I see this is the latest official version from xHarbour.org, where can I download from CVS (what is CVS ?)

Roberto Chiaiese
R&C Informatica S.n.c.
https://www.recinformatica.it
info@recinformatica.it

Harbour 3.2 - FW2512

Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
TOTAL ON command
Posted: Thu Feb 09, 2006 10:58 AM

It would be easier if you post a little and self-contained sample that I can test with the latest xHarbour from CVS.

EMG

Continue the discussion