FiveTech Software tech support forums

... rounds <nNumber> to the number of places specified by <nDecimals>. Specifying a zero or negative value for <nDecimals> allows rounding of whole numbers. A negative <nDecimals> indicates the number of digits to the left of the decimal point to round. Digits between five ...

... the result is correct. I've tried with FORTRAN too, with 2 decimals and floating point variables and the result is correct, without using rounding functions.

... it was a challenge to find those values since they needed to be rounded up (or down) to a reasonable number that made the chart look right. E.G. rounding 10.3 to 11 or 15 or whatever. Of course, being able to specify the ranges by overriding the internal calculations would also be useful. ------------------------------ ...

... it was a challenge to find those values since they needed to be rounded up (or down) to a reasonable number that made the chart look right. E.G. rounding 10.3 to 11 or 15 or whatever. Of course, being able to specify the ranges by overriding the internal calculations would also be useful. ------------------------------ ...

Thank you. That resolves the problem.

Tim

I would call this a workaround rather than 'fix'. But this works for the time being. Please locate the line ::oEditGet := TGet():New( 0,0,{ | u | If(PCount()==0,uValue,uValue:= u ) },; in METHOD Edit( nKey ) CLASS TXBrwColumn. Just above this line, please insert...

Mr. Rao,

I just wanted to keep this on top since you said you would be addressing the issue.

Your help is greatly appreciated.

Tim Stone

I use this code in a record editor. The left column ( element 1 of the array ) is a field name. The 2nd column ( EDITABLE ) is a value, and it could be of any data type. Thus, I couldn't set the column with a picture clause because sometimes the value is a string, or a date, or a decimal. Thanks for...

Good that you pointed this out. I have reduced your sample to this following code. function xbrnumedit()   local aData := { { "C", "String" }, { "N", 27 }, { "N", 12.34 }, { "C", "STRING&...

James, Here is a cut down that makes it rather straight forward: METHOD TestEditRec(  ) CLASS MLSEditor  MEMVAR oBrush, oMFont    LOCAL aEdits := {}, n, nCcol, oHd2  LOCAL oERecEdt, oERec, lSaveEdits := .f.    AADD( aEdits, { "C"...

Tim,

Still, a small self-contained program would make it easier for Antonio to check and fix.

James

James, This is probably the only code I have that is actually allowing an edit in xBrowse. It may help to note that the error only occurs with Harbour / MSVC, and is fine with xHarbour / Pelles C builds. It may be that Antonio made a change in a build that he did not include in the Microsoft librari...

Tim, I don't know why this is happening, but have you tried: SET FIXED ON SET DECIMAL TO 2 I know that is supposed to be the default, but maybe the preprocessor is messing something up. Try making as small of a program as you can showing the problem--just create an array of a couple of items and a b...

Perhaps with a new title, someone will actually respond to this question ?

In a file editor class, the following function is used to edit a single record from a file: METHOD EditRec(  ) CLASS MLSEditor  MEMVAR oBrush, oMFont    LOCAL aEdits := {}, n, nCcol, oHd2  LOCAL oERecEdt, oERec, lSaveEdits := .f.    FOR n := 1 TO LEN( ::oDbfr:aBuffer )    A...