with the following test.prgProc MAIN()
----------
REQUEST ADS
AdsSetServerType( 1 )
dbCreate( "test.DBF", {;
{ "ITEMID", "C", 8, 0 }, ;
{ "ITEM", "C", 12, 0 }, ;
{ "CLASS", "C", 8, 0 }, ;
{ "SUB", "C", 8, 0 }, ;
{ "CQTY", "N", 7, 2 }, ;
{ "R_PAK_BULK", "C", 1, 0 }, ;
{ "C_PAK_BULK", "C", 1, 0 }, ;
{ "LDESC", "C", 30, 0 }, ;
{ "MAN", "C", 15, 0 }, ;
{ "BRAND", "C", 15, 0 }, ;
{ "SHELF", "C", 6, 0 }, ;
{ "DESC", "C", 40, 0 }, ;
{ "MINS", "N", 8, 2 }, ;
{ "ONHAND", "N", 15, 2 }, ;
{ "PRICE", "N", 6, 2 }, ;
{ "PRICE2", "N", 6, 2 }} )
USE test VIA "ADS" SHARED
for lop := 1 to 100
append blank
NEXT
BROWSE()
------------
and make command
hbmk2 test -lrddads -lace32
now look at field DESC it's being expended to lenght 41 with a garbage
character at the end.
--
View this message in context:
http://n2.nabble.com/Bug-in-ADS-tp2886000p2886000.html
Sent from the harbour-devel mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
