Source position: googlecontent.pp line 3647
protected procedure TProduct.SetunitPricingBaseMeasure(
AIndex: Integer;
const AValue: TProductUnitPricingBaseMeasure
); virtual;