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
Código:
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.
Código:
[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