procedure TFrm_Reporte_de_Nomina.ppVariable7Print(Sender: TObject);
begin
ppVariable6.Value := ppVariable6.Value * 12;
if (ppVariable6.Value >= 330301.00) AND (ppVariable6.Value <= 495450.00) then begin
ppVariable8.Value := 495450.00 - 330301.00;
ppVariable8.Value := ppVariable8.Value - (ppVariable1.Value - ppVariable2.Value);
ppVariable7.Value := ppVariable8.Value * 15/100;
ppVariable7.Value := ppVariable7.Value / 12;
ppVariable6.Value := ppVariable6.Value / 12;
end
else
if (ppVariable6.Value >= 495450.01) AND (ppVariable6.Value <= 688125.00) then begin
ppVariable8.Value := 688125.00 - 495450.01;
ppVariable7.Value := ppVariable8.Value * 20/100;
ppVariable7.Value := ppVariable7.Value / 12;
ppVariable6.Value := ppVariable6.Value / 12;
end
else
if (ppVariable6.Value > 688125.00) then begin
ppVariable7.Value := ppVariable8.Value * 25/100;
ppVariable7.Value := ppVariable7.Value / 12;
ppVariable6.Value := ppVariable6.Value / 12;
end;
end;
end.