Ver Mensaje Individual
  #10  
Antiguo 12-01-2009
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.735
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Por lo que entiendo, devuelves en ppVariable2.Value el 3.01% del Sueldo Bruto, si no pasa de 112700. Si sobrepasa ese valor devuelves el 3.01% de 112700.
Creo que deberías hacerlo así:
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 
         ppVariable2.Value := 112700.00 * 3.01 / 100
      else
         ppVariable2.Value := Qry_Hacer_CalculoSueldo_Bruto_Empleado.Value * 3.01 /100;
end;
Responder Con Cita