Code: Select all
REM ***** BASIC *****
Sub oPct
oDoc = ThisComponent'Clearance Tag
oDocView = oDoc.getCurrentController()
oForm = oDoc.drawpage.forms(0)
tbp = oForm.getbyname("tbp")'percent discount
tbr = oForm.getbyname("tbr")'retail price
tbd = oForm.getbyname("tbd")'discounted price
tbp.text = (tbr.value - tbd.value) / tbr.value * 100
End Sub
[code]
The file is too large to attach.
Thank you in advance for the assistance.
Streub