purchprice is not updated while creating purchline by code

purchprice is not updated while creating purchline by code

                purchline1.PurchId = PurchTable.PurchId;

                purchline1.ItemId = fieldItem.value();

                purchline1.PurchQty = fieldQuantity.value();

                purchLine1.PurchPrice  = fieldUnitPrice.value();

                purchline1.initFromPurchTable(PurchTable);

                 inventDim1.InventSiteId = fieldSite.value();

                inventDim1.InventLocationId = fieldwareHouse.value();

                PurchLine1.InventDimId =  InventDim::findOrCreate(inventdim1).inventDimId;

                purchline1.CurrencyCode =   Ledger::accountingCurrency(CompanyInfo::current());

                purchline1.createLine(true,true,true,true,true,true,true,true);