Como puedo aplicar un descuento con excepción

[esimon]

Hola saludo para todos los usuarios de este marabillo Club.......

La preguenta es la siguiente: como puedo hacer para que los sueldo que sean mayor de 112,700.00, igualarlo a dicha cantidad y aplicarle un descuento de un 3.01%, claro incluyendo los que estan por debajo de esa cantidad.
estoy usando delphi 7 y accesse.
estuve haciendo esto

procedure TFrm_Reporte_de_Nomina.ppVariable2Print(Sender: TObject);
var Sueldo_Bruto_Empleado : Double;
begin
      if Qry_Hacer_CalculoSueldo_Bruto_Empleado > 112700 then begin
         sueldo_Bruto_Empleado = 112700
       ppVariable2.Value := Qry_Hacer_CalculoSueldo_Bruto_Empleado.Value * 3.01 /100;
end;

y me da los erroes siguientes.

[Error] Un_Reporte_de_Nomina.pas(119): Incompatible types
[Error] Un_Reporte_de_Nomina.pas(120): ':=' expected but '=' found
[Error] Un_Reporte_de_Nomina.pas(121): Missing operator or semicolon
[Error] Un_Reporte_de_Nomina.pas(124): Statement expected but 'PROCEDURE' found
[Fatal Error] Prj_NominaExterior.dpr(8): Could not compile used unit 'Un_Reporte_de_Nomina.pas'

gracias

[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

[esimon]

mucha gracias LuisGutierrez por tu ayuda, tengo que probar luego de digo como fue

[esimon]

gracias LuisGutierrezd nuevamente, estuve probando la modificacion de la rutina que me hiciste y le hice alguna modificaciones proque me daba un erro y quedo asi.

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

me esta arrojando esto

[Hint] Un_Reporte_de_Nomina.pas(118): Variable 'Sueldo_Bruto_Empleado' is declared but never used in 'TFrm_Reporte_de_Nomina.ppVariable2Print'

y no tengo idea de que se trata, pero tampoco me hace los calculos que quiero.

[defcon1_es]

Lo que te está diciendo el compilador es que has declarado la variable "Sueldo_Bruto_Empleado" en el procedimiento "ppVariable2Print" y no se usa dicha variable.

Código Delphi [-]
procedure TFrm_Reporte_de_Nomina.ppVariable2Print(Sender: TObject);
// var Sueldo_Bruto_Empleado : Double;  <- borra o entrecomenta esta linea del codigo
begin
      if Qry_Hacer_CalculoSueldo_Bruto_Empleado.value > 112700.00 then begin
         Qry_Hacer_Calculosueldo_Bruto_Empleado.Value := 112700.00;
         ppVariable2.Value := Qry_Hacer_CalculoSueldo_Bruto_Empleado.Value * 3.01 /100;
      end;
end;

[esimon]

mucha gracias defcon1_es, por tu ayuda pero puedes decirme porque me muestra 00 el resulta de la operación, no se que tiene de malo la rutina.

mil gracias nuevamente y disculpa por la molestia