FiveTech Software tech support forums

I have this xbrowse




and I made oBrowse:report()



I made
@ 0, 05 XBROWSE oBrowse OF oDlg ;
SIZE 315,200 PIXEL ;
CURSOR oCursorBtn NOBORDER


oBrowse:cAlias := "MV"


oCol := oBrowse:AddCol()
oCol:bStrData := { || Cf(MV->data) }
oCol:cHeader := i18n( "Data" )
oCol:nWidth := 80

oCol := oBrowse:AddCol()
oCol:bStrData := { || MV->attivita }
oCol:cHeader := i18n( "Attività" )
oCol:nWidth := 200

oCol := oBrowse:AddCol()
oCol:bStrData := { || MV->causale }
oCol:cHeader := i18n( "Causale" )
oCol:nWidth := 200

oCol := oBrowse:AddCol()
oCol:bStrData := { || round(MV->importo,2) }
oCol:cHeader := i18n( "Importo Totale" )
oCol:nWidth := 150
oCol:nDataStrAlign := AL_RIGHT
oCol:cEditPicture := PictEuros()
oCol:lTotal := .t.
oCol:nTotal :=0
oCol:nFooterType := AGGR_SUM
oCol:nFootStrAlign := AL_RIGHT


FUNCTION PictEuros()
RETURN( "@E 9,999,999,999.99" )




Another test
I change on this type

oCol := oBrowse:AddCol()
oCol:bStrData := { || Cf(MV->data) }
oCol:cHeader := i18n( "Data" )
oCol:nWidth := 80

oCol := oBrowse:AddCol()
oCol:bStrData := { || MV->attivita }
oCol:cHeader := i18n( "Attività" )
oCol:nWidth := 200

oCol := oBrowse:AddCol()
oCol:bStrData := { || MV->causale }
oCol:cHeader := i18n( "Causale" )
oCol:nWidth := 200

oCol := oBrowse:AddCol()
oCol:bStrData := { || MV->importo}
oCol:cHeader := i18n( "Importo Totale" )
oCol:nWidth := 150

oBrowse:lHScroll := .f.
oBrowse:SetRDD()
oBrowse:CreateFromCode()
oBrowse:lFooter:=.t.
oBrowse:MakeTotals()

the xbrowse seems ok



and I try to make a report



but the report is bad


the importo is numeric field
{ "IMPORTO", "N", 9, 2 }

Silvio,

This looks like some kind of math bug in Harbour/xHarbour that we just found in you other problem.

I workaround might be to convert all the numbers to text when importing them to the xBrowse and also right justify the column.

James

there is a bug on harbour
not run round function
but now I tried with
#xtranslate round(<nVal>,<nDec>) => val(str(<nVal>,20,<nDec>))
and run ok

converting my applications to Harbor made me waste only a lot of precious time

Please replace this part of the code:

Code: Select all  Expand view

oCol := oBrowse:AddCol()
oCol:bStrData := { || round(MV->importo,2) }
oCol:cHeader := i18n( "Importo Totale" )
oCol:nWidth := 150
oCol:nDataStrAlign := AL_RIGHT
oCol:cEditPicture := PictEuros()
oCol:lTotal := .t.
oCol:nTotal :=0
oCol:nFooterType := AGGR_SUM
oCol:nFootStrAlign := AL_RIGHT
 

with

Code: Select all  Expand view

oCol := oBrowse:AddCol()
oCol:bEditValue := { || round(MV->importo,2) }
oCol:cHeader := i18n( "Importo Totale" )
oCol:nWidth := 150
oCol:nDataStrAlign := AL_RIGHT
oCol:cEditPicture := PictEuros()
oCol:nFooterType := AGGR_SUM
oCol:nFootStrAlign := AL_RIGHT
 

Please also remove the #xtranslate for round.
Please use Harbour's built in Round()

=======
OR
=======
You send me the DBF

Silvio,

there is a bug on harbour
not run round function

Can you give us an example?

James

Mr James

There is no bug in Harbour.
It is all in the way you write the browse code.

Rao,
I tried as you sad but it make error here
when I insert #translate string run perfectly
As you told me I can send you a test

Silvio.Falconi wrote:Rao,
I tried as you sad but it make error here
when I insert #translate string run perfectly
As you told me I can send you a test

Please just send me the DBF

Now seem run ok
perhaps I found the error
oCol:lTotal := .t.
oCol:nTotal :=0

Silvio.Falconi wrote:Now seem run ok
perhaps I found the error
oCol:lTotal := .t.
oCol:nTotal :=0

Do you now mean, there is no bug in xbrowse or report or round function of Harbour?

perhaps on win 10 because I try on win7 and run ok
I not Know How and why
but I published snapshot you saw