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
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to