[#Module: AlterSalesPrice] Add: AddSalesPriceButton [#Form: AlterSalesPriceForm] Use: AddSalesPriceButton [Button: AddSalesPriceButton] Method: OnButtonClick [Field: PercentageField] Type: Number Label: Enter Percentage [Button: AddSalesPriceButton] Method: OnButtonClick [Field: PercentageField] Type: Number Label: Enter Percentage [Action: UpdateSalesPrice] Include: STDVouch Script: Procedure UpdateSalesPrice Variable: SalesPrice Variable: Percentage Variable: NewSalesPrice Percentage = $$PercentageField SalesPrice = $$VoucherAmount NewSalesPrice = SalesPrice + (SalesPrice * (Percentage / 100)) $$VoucherAmount = NewSalesPrice SetFocus($$VoucherAmount) EndProcedure