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