When I create table with field types (Currency) Y and Z I get wrong result.
Database header contain I and B.
Is corect integer values with decimals?
-------------------------------------
REQUEST DBFCDX
procedure TestFieldType()
local i
local aStruct:={;
{"CURRENCY" , "Y", 8,0},;
{"CURDOUBLE", "Z", 8,5},;
{"INTEGER" , "I", 4,2};
}
dbCreate("TEST", aStruct, "DBFCDX" )
USE TEST EXCLUSIVE
APPEND BLANK
TEST->CURRENCY := 1234567890.12345
TEST->CURDOUBLE:= 1234567890.12345
TEST->INTEGER := 12345.12345 // store 12345.12
FOR i:=1 to FCount()
? Pad( FieldName( i ), 10 ), FieldType( i ), FieldLen( i ),
FieldDec( i )
?
? FieldGet( i )
? "ValType( FieldGet( i ) ) =", ValType( FieldGet( i ) ) // show
allways N
? "ValType( &(FieldName(i)) )=", ValType( &(FieldName(i)) )
?
?
NEXT
wait
return
---------------------------------------------------
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
