Access - Suma total en informe

 
Vista:

Suma total en informe

Publicado por ROBERTO (145 intervenciones) el 16/04/2013 18:34:09
Buenas. Tengo un informe donde la mayoria de datos que muestro son calculados o traidos de otras tablas con DLookup o Dsum. En el Evento al Imprimir e insertado este código:

BUSCOHORAS = DLookup("HORASHP", "Horas_Pagas_Delegaciones", "DELHP=DELEG_EMPLE AND ANOHP=ANO")
BUSCOANTI = DLookup("ANTIG", "Sueldos", "RELIDEMPLE_ANO=IDANO")
BUSCOBASE = DLookup("BASE", "Sueldos", "RELIDEMPLE_ANO=IDANO")
PAGA2540 = DSum("BASEX+ANTIGEX+BPAGAEX", "Sueldos_Extra", "RELIDEMPLEX=IDANO AND (DESCPAGAEX = 'Paga de Antiguedad (25 Años)' or DESCPAGAEX = 'Paga de Antiguedad (40 Años)')")
NPAGASCONVE = DLookup("NUMPAGAS", "Porcentaje IRPF", "RELEMPLEPORC=ID_EMPLE AND ANOPORC=ANO")

TOTBRUTINCB1 = DSum("BASE+ANTIG+TRANSP+SUPLI+INCENT+IDIOM+OTROS+OTROS1+CIT+ITBAJA+COMI+PPEXTRA+BSUELDO+BEXTRA", "Sueldos", "RELIDEMPLE_ANO=IDANO")
TOTBRUTINCB2 = DSum("BASEX+ANTIGEX+BPAGAEX", "Sueldos_Extra", "RELIDEMPLEX=IDANO")
TOTBRUTINCB = Nz([TOTBRUTINCB1] + [TOTBRUTINCB2]) - Nz([PAGA2540])

Me.COSTE_HORA = Nz(TOTBRUTINCB / BUSCOHORAS)
Me.COSTE_HORA_EXTRA = Nz(([BUSCOBASE] + [BUSCOANTI]) * (12 + [NPAGASCONVE]) / [BUSCOHORAS]) * 2

Me.IMPORTE_HORAS_EXTRAS = Nz(Me.COSTE_HORA_EXTRA * Me.HORAS_EX)
Me.IMPORTE_ESPECIALES = Nz(Me.COSTE_HORA_EXTRA * 1.5) * Me.HORAS_ESPE

Me.SUMA_TOTAL = Nz(Me.IMPORTE_HORAS_EXTRAS) + Nz(Me.IMPORTE_ESPECIALES) + Nz(Me.IMPORTE_VIAJE)

En el informe muestro IMPORTE_HORAS_EXTRAS, IMPORTE_ESPECIALES e IMPORTE_VIAJE.

El único que es un campo de verdad y su informacion está guardada previamente es IMPORTE_VIAJE. El tema es que cuando quiero hacer la suma total de SUMA_TOTAL al pié del informe no me lo hace bien. Siempre me muestra el valor de SUMA_TOTAL del último registro. No sé si habrá alguna funcion para hacer esto.
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Suma total en informe

Publicado por 2pl (461 intervenciones) el 16/04/2013 19:51:58
=Suma([Suma_total])
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar