FiveTech Software tech support forums

... of the field, but also an expression for example " trim(first) + ' ' + trim(last) " "alltrim(str(id))" this way we can select numeric fields I leave the source and example, the example is in the dbcombo.prg source https://app.box.com/s/tdp8d0odtcydwcld755e0e5etcv18v75

... Regarding this suggestion, I have two concerns: 1. I believe this change has an error, as the original code of the CalcSize() Method checks for a numeric value with "if PCount() > 0", not a boolean "if .F.". This causes applications to break in other parts where ::CalcSize() ...

...   1:    O    Class: TDIALOG     Local   2:    C    " It is understandable, somewhere the call to the CalcSize() method needs to evaluate a numeric value with PCount and not a Boolean value. The expression "if PCount() > 0" handles a different type compared to "if .F.". ...

... upper(cSearchField) + cOpsType + cValToChar(uOldValue ) ) /code] bFor becomes a code block. The field I am searching is CLSBAL The type is Numeric However uOldValue is translated to a character. Using dbEval(), will it compare a character value to a numeric field and get a match ? The code ...

Actually, the number of trailing zeros after decimal place should not and does not make any difference at all. SET DECIMALS TO has not effect at all. Here is a sample for testing. customer.dbf has two records with Salary = 16300.00 Both for conditions viz. "SALARY = 16300" and "SALARY...

... I think the issue is with the second method in my post which converts the number to a string, and I don't see how that can get a match with a numeric field. All other data types work fine, but not the numeric replace. I have looked at other options ( like what is used in the newer versions ...

... = "N"       uNewValue :=  ROUND( VAL( cNewValue ), nDec )  OR In this statement case cOldType = "N"  // Numeric                bFor:= compile( "_Field->"+ upper(cSearchField) + cOpsType + ...

... upper(cSearchField) + cOpsType + cValToChar(uOldValue ) )       case cOldType = "N"  // Numeric                bFor:= compile( "_Field->"+ upper(cSearchField) + cOpsType + ...

SET DECIMALS TO 6

Dear Tim,

Try with SET DECIMALS TO 6

... ) I enter a number ( ie. 4051.25 ). Because it is a string in the GET field ( which must accomodate any type of data type ), I convert it to a Numeric using VAL( ). The problem is that it adds many zeros using VAL ( Harbour ). When I go to seek the value in the database ( 4051.21 ), it can't ...

... ) I enter a number ( ie. 4051.25 ). Because it is a string in the GET field ( which must accomodate any type of data type ), I convert it to a Numeric using VAL( ). The problem is that it adds many zeros using VAL ( Harbour ). When I go to seek the value in the database ( 4051.21 ), it can't ...

...  LOCAL oDlg, oGet, oBtn   LOCAL lTest := .T.   //LOCAL cPicture :=  "@E ##,###,###.#" // ALPHA/NUMERIC-SOLO PRUEBA   LOCAL cPicture :=  "@E ########.#"   LOCAL nDimx := 0, nDimy := 0, nDimz := 0   SET ...

https://i.postimg.cc/HWwc4NWY/gert.png on field I set { "DimX" ,"N", 9,1 } ,; Please see this small test #include 'fivewin.ch'function Main()   local oDlg, oGet, oBtn   local lTest := .t.   local cPicture :=  "@E #######.#"   local nDimx:= 0, nD...

Are the last three fields of numeric type? If yes, why are you using a NIL picture for them? Only a stab in the dark.