FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Como puedo aplicar un descuento con excepción
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; 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' Última edición por esimon fecha: 10-01-2009 a las 15:24:50. |
#2
|
|||
|
|||
creo que las instrucciones un poco corregidas quedarian asi:
lo que esta en negritas es lo corregido aunque no por eso puede quedar bien jeje |
#3
|
|||
|
|||
mucha gracias LuisGutierrez por tu ayuda, tengo que probar luego de digo como fue
|
#4
|
|||
|
|||
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.
Código:
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; Código:
[Hint] Un_Reporte_de_Nomina.pas(118): Variable 'Sueldo_Bruto_Empleado' is declared but never used in 'TFrm_Reporte_de_Nomina.ppVariable2Print' |
#5
|
||||
|
||||
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.
__________________
Progress Openedge https://abevoelker.com/progress_open...dered_harmful/ Delphi forever... |
#6
|
|||
|
|||
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 |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Cómo puedo capturar una excepción en delphi? | Fenix_Dark | OOP | 3 | 29-04-2008 14:17:47 |
Como Aplicar Transacción en ADO ???? | AGAG4 | Conexión con bases de datos | 3 | 07-10-2006 20:48:06 |
aplicar sentencias SQL , como ? | Pascual Montes | SQL | 3 | 08-04-2005 23:22:03 |
Como aplicar tranparencia a un componente | quetzal | Varios | 1 | 21-09-2004 10:11:00 |
¿Cómo podemos dejar de aplicar un filtro? | vhirginia | Conexión con bases de datos | 3 | 27-04-2004 17:34:24 |
|