SoloCodigo

Hola

Tengo unas dudas sobre una SQL que debe hacer algo en un pequeño programa que lleva un control de horario laboral, en esto tengo algo que se llama "Clausula 26" lo cual establece como máximo de horas laboradas de un empleado a la semana, de 44 horas, por ejemplo, una idea de esa supuesta clausula la explico con un codigo:

If TotalLb > 44 Then
    R = TotalLb - 44
Else
    R = 0
End If

Pero ¿cómo se hace esto en una sentencia SQL?

Este es la SQL con la que estoy trabajando:

Select Sum(AM_lb) AS AM1, Sum(PM_lb) AS PM1, Sum(Total_lb) As Total1, Sum(Clausula) As Clau26,
Sum(AM_ext_d) As AM2, Sum(PM_ext_d) As PM2, Sum(Total_ext_d) As Total2,
Sum(AM_ext_n) As AM3, Sum(PM_ext_n) As PM3, Sum(Total_ext_n) As Total3
From chl_tb
Where NumEmp=30915
 And Fecha Between #08/05/2007# And #20/05/2007#

Pero Sum(Clausula) As Clau26 no me sirve así, la puse de relleno (mientras tanto de esa forma), ese campo es en este caso R.

He probado algo como:

Select Sum(AM_lb) AS AM1, Sum(PM_lb) AS PM1, Sum(Total_lb) As Total1,
(Select (Sum(Total_lb)-44) As TotalLb From chl_tb Where TotalLb > 44) As Clau26,
Sum(AM_ext_d) As AM2, Sum(PM_ext_d) As PM2, Sum(Total_ext_d) As Total2,
Sum(AM_ext_n) As AM3, Sum(PM_ext_n) As PM3, Sum(Total_ext_n) As Total3
From chl_tb
Where NumEmp=30915
And Fecha Between #08/05/2007# And #20/05/2007#

Pero eso no funciona, en resumen de todo esto, la idea que me da vueltas es la cuestion de que esta SQL (que es para un MSFlexGrid2) tenga dentro otra SQL como la que está entre ( ). Pero me ha costado ver como formarla para que con respecto a ese campo, haga lo del codigo VB pero en SQL.

Alguien sabe?  

Es que la BD está en Access, eso podría servirme en SQL Server por ejemplo, esto parece que se unirá luego a otro programa que trabaja con archivos planos, yo lo hice así con esta Bd y pues como que me parece que voy a tener que recurrir a unas marañas y actos de magia que ya estoy determinando para salir de este muerto  

Yo decia con el Case lo llegue a poner y ZAS! error, el resto del Query si rula bien en Access, cualquier cosa rara en las SQLs puede ser debido a posibles desesperos por el tiempo en que le he estado dando vueltas a esto, lo cual ha sido un par de días  

Epale F_Tanori que tal como va todo, y la familia bien? a que bueno me alegro, que siga asi entonces  

Con eso que expones ya tengo plan B  

El plan A al cual había recurrido es el siguiente, con esta SQL de siempre:

Y de esa SQL meti sus Alias en unos Labels así:

        Dim AMLb As Double
        Dim PMLb As Double
        Dim TotalLb As Double
        Dim Clausula26 As Double
        Dim AMextD As Double
        Dim PMextD As Double
        Dim TotalextD As Double
        Dim AMextN As Double
        Dim PMextN As Double
        Dim TotalextN As Double
       
        With Data2.Recordset
            While Not .EOF
                '.......................................
                'AM: (Horario Laboral Normal)
                If IsNumeric(![AM1]) = False Then
                    Exit Sub
                Else
                    AMLb = Val(AMLb) + Val(![AM1])
                End If
                '.......................................
                'PM: (Horario Laboral Normal)
                If IsNumeric(![PM1]) = False Then
                    Exit Sub
                Else
                    PMLb = Val(PMLb) + Val(![PM1])
                End If
                '.......................................
                'Total1: (Total Horas Laboradas)
                If IsNumeric(![Total1]) = False Then
                    Exit Sub
                Else
                    TotalLb = TotalLb + Val(![Total1])
                End If
                '.......................................
                'Clausula 26:
                If IsNumeric(![Total1]) = False Then
                    Exit Sub
                End If
               
                If Val(![Total1]) > 44 Then
                    Clausula26 = Clausula26 + Val(![Total1]) - 44
                Else
                    Clausula26 = 0
                End If
               
                '.......................................
                'AM Extra Diurna:
                If IsNumeric(![AM2]) = False Then
                    Exit Sub
                Else
                    AMextD = AMextD + Val(![AM2])
                End If
                '.......................................
                'PM Extra Diurna:
                If IsNumeric(![PM2]) = False Then
                    Exit Sub
                Else
                    PMextD = PMextD + Val(![PM2])
                End If
                '.......................................
                'Total Extra Diurnas:
                If IsNumeric(![Total2]) = False Then
                    Exit Sub
                Else
                    TotalextD = TotalextD + Val(![Total2])
                End If
                '.......................................
                'AM Extra Nocturna:
                If IsNumeric(![AM3]) = False Then
                    Exit Sub
                Else
                    AMextN = AMextN + Val(![AM3])
                End If
                '.......................................
                'PM Extra Nocturna:
                If IsNumeric(![PM3]) = False Then
                    Exit Sub
                Else
                    PMextN = PMextN + Val(![PM3])
                End If
                '.......................................
                'Total Extra Nocturna:
                If IsNumeric(![Total3]) = False Then
                    Exit Sub
                Else
                    TotalextN = TotalextN + Val(![Total3])
                End If
                '.......................................
                .MoveNext
            Wend
        End With
        LbAM1.Caption = AMLb
        LbPM1.Caption = PMLb
        LbTotal1.Caption = TotalLb
    LbClau26.Caption = Clausula26
        LbAM2.Caption = AMextD
        LbPM2.Caption = PMextD
        LbTotal2.Caption = TotalextD
        LbAM3.Caption = AMextN
        LbPM3.Caption = PMextN
        LbTotal3.Caption = TotalextN

Los Exit Sub entre ellas es porque cuando la SQL2 no encuentra nada en el rango de fechas, entonces daba error de Null. Estos Labels están abajo de un MSFlexGrid el cual es el que muestra la consulta de la tabla, generado por una SQL1. Estos Labels son Totales de columna del MSFlexGrid pero exactamente de la Tabla de la BD, la grilla solo se lo trae.

Pero con esto ultimo he visto que los Totales no sirven para decimales ya que esos Labels de Totales hacen esto: 1 + 1.5 = 2  

Yo creo que pondre en comentarios el Plan A y pasare a tu Plan B de "rompa el vidrio en caso de emergencia" y que quede lo que por fin sirva al 100% sin fallos

PD: Estos totales solo salen en la ventana (Form) no se guardan en la BD, se generan en base a los datos de la BD pero no se guardan. Si salen en un reporte. Gracias a las funciones de Crystal eso del TotalLB>44 si se hace bien en el reporte, me costó pero ya se guardan decimales en la BD antes tambien caían redondeados como enteros, ya había provado con CDec(), CDbl(), CCur(), si salian los decimales pero se guardaban en la BD valores enteros, pero ya, ahora si se guardan decimales.  Todo estos datos son de Horas, al hablar de decimales es por lo que trabajar 1 y 1/2 siendo asi 1.5 (una hora y media)  En pocas palabras mi problme es realmente dos, decimales (2 digitos) sin redondeo y ese susodicho dato de Clausula26 y es todo y lo único que me falta para cerrar ese capitulo jum!

Lo siento pero lo expuesto aquí anteriormente no dio resultado, se perdia la conexión (link) con los campos de la tabla, quedando de esa forma, un reporte en blanco, seguire intentando con la esperanza de por fin encontrar la solucion de esto.  

Si, si funciona  

Bueno yo ya le había dado la vuelta por otra vía pero ya copie el Query, veo que te sentaste al pc   y le diste al asunto, Thank's man  

Por cierto, lo de Crystal que me dio y luego parecia que no, pues volvio a dar  
Decimales redondeados, todo con formula para evitar ese redondeo

El campo lo meti en formula, esta:
ToText(tabla.campo)

Y su suma pues en otra formula:
Sum(tabla.campo)

Lo que si es extraño y me ha pasado es que al indicar Sumatoria de un campo desde Crystal (menú de botones o boton derecho sobre el campo; no por formula) me lo redondea, pero el indicado por Formula no me lo redondea  

Pero el Crystal me sacaba luego un error, pero era por link entre las tablas del reporte., siempre el Crystal ha dado su lata en eso de los links entre tablas del reporte haciendo que el reprote no trabaje, pero las tablas estan bien como estan, no puedo complacer al Crystal en eso, cambie los links entre tablas y... pues, ya sale otra vez, espero que se quede asi. Los datos presentes y decimalmente  

Bueno ya es Lunes, así que me furulo
Nuevamente gracias, ese Query está tremendo