Como puedo aplicar un descuento con excepción

[esimon]

ok. por ejemplo tu puedes ganar un sueldo de 112,701.00, pero yo tengo que hablicarte el descuento en base a 112,700.00, claro esta tu sueldo sigue siendo 112,701.00. y el S.F.S seria 3,392.27 el sueldo neto seria 109,307.73.

y lo que hice fue esto para tratar de resolver el problema.

procedure TFrm_Reporte_de_Nomina.ppVariable2Print(Sender: TObject);
begin
      if Qry_Hacer_CalculoSueldo_Bruto_Empleado.value > 112700.00 then begin
         Qry_Hacer_Calculosueldo_Bruto_Empleado.Value := 112700.00;
         ppVariable2.Value := ppVariable6.Value * 3.01 /100;
      end;
end;