Como puedo aplicar un descuento con excepción

[luisgutierrezb]

creo que las instrucciones un poco corregidas quedarian asi:

Código Delphi [-]
procedure TFrm_Reporte_de_Nomina.ppVariable2Print(Sender: TObject);
var Sueldo_Bruto_Empleado : Double;
begin
      if Qry_Hacer_CalculoSueldo_Bruto_Empleado.value > 112700 then begin
         sueldo_Bruto_Empleado := 112700
       ppVariable2.Value := Qry_Hacer_CalculoSueldo_Bruto_Empleado.Value * 3.01 /100;
      end;
end;

lo que esta en negritas es lo corregido aunque no por eso puede quedar bien jeje