How can we apply penalty to vendors using voucher?

There is equirement of charging penalties for suppliers who deliver late (goods receipt day exceeded the delivery date in PO). Thus, upon invoicing , the system should automatically be able to compute for the correct amount for payment which is after deducting the penalties already (since the vendor delivered late). Usually, these penalties are computed by deducting 1% for each day of delay from the total original payment amount. So for example, if the GR date exceeds the delivery date in PO by 5 days, 5% should be deducted in the amount to be invoiced.

Is there any functionality available in the system?