FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Hola hacer calculo con el esedente de dos cantidades
Saludo para todo, estoy haciendo un reporte, en el cual tengo que hacer un descuento al esedente entre dos cantidades, o sueldo y esto es lo que estoy haciendo.
Código:
procedure TFrm_Reporte_de_Nomina.ppVariable7Print(Sender: TObject); begin ppVariable6.Value := ppVariable6.Value * 12; if (ppVariable6.Value >= 330301.00) or (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) or (ppVariable6.Value <= 688125.00) then begin ppVariable8.Value := 688125.00 - 495450.01; // ppVariable8.Value := ppVariable8.Value - (ppVariable1.Value - ppVariable2.Value); 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 // ppVariable8.Value := ppVariable8.Value - (ppVariable1.Value - ppVariable2.Value); ppVariable7.Value := ppVariable8.Value * 25/100; ppVariable7.Value := ppVariable7.Value / 12; ppVariable6.Value := ppVariable6.Value / 12; end; end; end. uso delphi 7 y accesse y para el reporte uso ReportBuilder. |
#2
|
||||
|
||||
Cita:
|
#3
|
||||
|
||||
Si el código es Delphi, utiliza los tags [ DELPHI ] y [ / DELPHI ] para encerrar el código.
De eta forma se ve mejor y se resaltan las palabras reservadas. |
#4
|
|||
|
|||
Mil gracias duilioisola, por la informacion y disculpa por no haber usado la etiqueta correspondiente.
pasa un feliz reto del día. |
#5
|
||||
|
||||
Disculpa, pero, ¿qué significa esedente? ¿Excedente? Si es así, ¿cuál es el "excedente entre dos cantidades"? Es que no lo entiendo.
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
como puedo hacer este calculo | esimon | Impresión | 2 | 27-10-2008 14:01:19 |
Hacer calculo con condicion | esimon | OOP | 4 | 14-10-2008 13:04:41 |
hola tengo un Microsoft Fingerprint Reader y me gustaria hacer algo en delphi | vroa74 | Varios | 0 | 09-03-2007 03:41:24 |
Busqueda de solo cantidades | koalasoft | SQL | 8 | 16-01-2006 16:07:22 |
Traduccion de cantidades a letras | yokonda | Varios | 2 | 28-07-2004 16:38:31 |
|