ProgrammaticChange Method
Object:orderentry.txtSubTotal
Expand/Collapse source code of procedure txtSubTotal.ProgrammaticChange Source Code
*-- Calculate discount
IF thisform.txtDiscountPerc.Value > 0
  thisform.txtDiscount.Value = ;
    thisform.txtSubTotal.Value * ;
    (thisform.txtDiscountPerc.Value / 100)
ELSE
  thisform.txtDiscount.Value = 0
ENDIF