Gracias a las sugerencias de Geoavila, paso mi pregunta a este lado del foro.
Necesito generar un query, que me traiga las ventas de un mes, pero necesito que agupe por semanas del mes, mostrando subtotales por semana y un subtotal por el mes.
Lo que quiero es que me agupe por semana..por ejemplo
Fecha1 = FechaIni1 and FechaFin1 ; Sum( Subtotalsemana1)
Fecha2 = FechaIni2 and FechaFin2 ; Sum( Subtotalsemana2)
Fecha3 = FechaIni3 and FechaFin3 ; Sum ( Subtotalsemana3)
Fecha4 = FechaIni4 and FechaFin4 ; Sum( Subtotalsemana4)
Fecha5 = FechaIni5 and FechaFin5 ; Sum( Subtotalsemana5)
Mes = Sum (subtotalSemana1+...+ Subtotalsemana5).
Pero que me despliegue los datos que pongo en mi SQL, es decir; el producto, la cantidad, SubtotalSemana1,..., SubtotalSemana5, SubtotalMes.
Pero no se como hacer el sQL, para que me los agupe por semana y despliegue el subtotalSemanal.
Mi query esta asi:
SQL = "SELECT DetalleDeRemiFact.Producto, DetalleDeRemiFact.Unidad, DetalleDeRemiFact.Precio, Sum(DetalleDeRemiFact.Cantidad) AS SumaDeCantidad, Sum(DetalleDeRemiFact.Subtotal) AS SumaDeSubtotal "
SQL = SQL + "FROM RemiFact INNER JOIN (DetalleDeRemiFact INNER JOIN Productos ON DetalleDeRemiFact.IdProducto = Productos.IdProducto) ON RemiFact.NumRemFact = DetalleDeRemiFact.NumRemFact "
SQL = SQL + "WHERE RemiFact.FechaRemFac BETWEEN #" & Format(FechaIni1, "m/d/yyyy") & "# And #" & Format(FechaFin1, "m/d/yyyy") & "# "
SQL = SQL + "AND RemiFact.FechaRemFac BETWEEN #" & Format(FechaIni2, "m/d/yyyy") & "# And #" & Format(FechaFin2, "m/d/yyyy") & "# "
SQL = SQL + "AND RemiFact.FechaRemFac BETWEEN #" & Format(FechaIni3, "m/d/yyyy") & "# And #" & Format(FechaFin3, "m/d/yyyy") & "# "
SQL = SQL + "AND RemiFact.FechaRemFac BETWEEN #" & Format(FechaIni4, "m/d/yyyy") & "# And #" & Format(FechaFin4, "m/d/yyyy") & "# "
SQL = SQL + "AND RemiFact.FechaRemFac BETWEEN #" & Format(FechaIni5, "m/d/yyyy") & "# And #" & Format(FechaFin5, "m/d/yyyy") & "# "
SQL = SQL + "AND RemiFact.Estatus <> 'C' AND RemiFact.Tipo = '" & Mid(TipoProceso, 1, 1) & "' And DetalleDeRemiFact.Tipo = '" & Mid(TipoProceso, 1, 1) & "' " + vCategoria + vCalidad
SQL = SQL + "GROUP BY DetalleDeRemiFact.Producto, DetalleDeRemiFact.Unidad "
SQL = SQL + "ORDER BY DetalleDeRemiFact.Producto;"
Ojala me puedan dar una ayudadita..
Gracias!!
