Hola!! ojala alguien me pueda orientar. Voy al mehoyo del aunto.
MANEJO ESTA CONSULTA PARA VER UN REPORTE DE VENTAS POR CLIENTE(COMEDOR)
PERO NECESITO SACAR LAS VENTAS POR MES Y DESPLEGAR LA POR SEMANA.
LO UNICO QUE SE ME OCURRE ES METER POR CADA SEMANA(considerando 5 semanas) 2 TDPICKTERS, PERO TENGO PROBLEMAS PARA GENERAR EL FILTRO DE LAS FECHAS.
EL FILTRO ES EL SIGUIENTE:
' FILTRO FECHA
funcion FiltroFechas ( FechaRemiFact as string, FechaIni as Date, FechaFin as Date) as string
' Donde FechaRemiFact es el nombre de campo en mi BD que contiene el dato de la fecha
FiltroFechas = ""
if ( Existe.FechaIni) AND (existe.FechaFin) 'Quiero indicar si tiene valor
if FR(FechaIni, 0) <> 0 AND FR(FechaFin,0) <> 0 then
If FechaIni = FechaFin then
FiltroFechas = RemiFac.RemiFact = #" & Format (FechaIni, "m/d/yyyy")& "#"
Else
FiltroFechas = RemiFact.FechaFin Entre #" & Format (FechaIni, "m/d/yyyy") & "# AND #" & Format (FechaFin, "m/d/yyyy") & "#
'que vea entre estos dos rangos de fecha
End if
Else
If FR(FechaIni, 0 ) <> 0 then
FiltroFechas = RemiFact.FechaRemiFact >= #" & Format (FechaIni, "m/d/yyyy") & "#
End If
if FR(FechaFin,0) <>0 then
FiltroFechas = RemiFact.FechaRemiFact <= #" & Format (FechaFin, "m/d/yyyy") & "#
End if
end If
Else
If (not misisng (FechaFin) AND Is missing (FechaIni) then
If FR(FechaIni,0) <> 0 then
FiltroFechas = RemiFact.fechaIni <= #" & Format (FechaIni, "m/d/yyyy") & "#
End if
End If
If (not misisng (FechaFin) AND Is missing (FechaIni) then
If FR(FechaIni,0) <> 0 then
FiltroFechas = RemiFact.fechaIni <= #" & Format (FechaFin, "m/d/yyyy") & "#
end If
End If
End sub ()
ESTA ES LA CONSULTA QUE EFECTUO, AQUI SOLO LO HACE EN UN 1 SOLO RANGO DE FECHAS.Funciona perfecto pero no me hace el filtro
Private Sub CmdImprimir_Click()
Comedor = "": Producto = "": Categoria = "": Calidad = "": LasCategorias = ""
FiltroFechas ' Llamo a la funcion y lo debe de considerar en el Where de la consulta.
FiltroComedor
FiltroProducto
FiltroCategoria
FiltroCalidad
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 >= #" & Format(FechaIni, "m/d/yyyy") & "# And RemiFact.FechaRemFac <= #" & Format(FechaFin, "m/d/yyyy") & "# " ''hacer la consulta entre 2 fechas
SQL = SQL + "AND RemiFact.Estatus <> 'C' AND RemiFact.Tipo = '" & Mid(TipoProceso, 1, 1) & "' And DetalleDeRemiFact.Tipo = '" & Mid(TipoProceso, 1, 1) & "' "
SQL = SQL + Comedor + Producto + Categoria + Calidad
SQL = SQL + "GROUP BY DetalleDeRemiFact.Producto, DetalleDeRemiFact.Unidad, DetalleDeRemiFact.Precio "
SQL = SQL + "ORDER BY DetalleDeRemiFact.Producto;"
GRACIAS POR SU ATENCION ESPERO NO ABRUMARLOS, OJALA ALGUIEN PUEDA ORIENTARME.
SALUDOS
ROUSS.