Ayuda sql

publicado el 18 de septiembre10 años

cordial saludo,

quisiera que me ayudaran con el siguinte caso, tengo un archivo en donde extraigo los datos del programa de la empresa que trabajo, pero esta consulta sql me los agrupa y no me los muestra de forma individual.

Private Sub UserForm_Activate()

    Dim Db As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    Dim SQL As String
    Dim i As Integer 

    Call InicializarVariables
    Db.Open CONSTRING

    For i = 0 To 365
         Me.cmb_Fini.AddItem Format(CDate(CAL_FECHA) - i, "YYYY/MM/DD")
         Me.cmb_FFin.AddItem Format(CDate(CAL_FECHA) - i, "YYYY/MM/DD")
    Next i

    Me.cmb_Fini.ListIndex = 180
    Me.cmb_FFin.ListIndex = 0

    SQL = "Select * from linea Where Cod_Linea not in (0,1,6,13,14) order by Nom_Linea"
    Rs.Open SQL, Db

    Me.cmb_LProd.Clear
    Me.List_LProd.Clear
    If Not Rs.EOF Then
        While Not Rs.EOF
            Me.cmb_LProd.AddItem Rs("Nom_Linea")
            Me.List_LProd.AddItem Rs("Cod_Linea")
            Rs.MoveNext
        Wend
        Me.cmb_LProd.AddItem "TODAS"
        Me.List_LProd.AddItem "999"
    End If
    Rs.Close
    Db.Close

    Me.cmb_LProd.ListIndex = 0
    Me.List_LProd.ListIndex = Me.cmb_LProd.ListIndex

End Sub

Private Sub cmb_LProd_Click()

    Me.List_LProd.ListIndex = Me.cmb_LProd.ListIndex

End Sub

Private Sub cmd_Aceptar_Click()
    Dim Db As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    Dim Rs2 As New ADODB.Recordset
    Dim Rs3 As New ADODB.Recordset
    Dim Rs4 As New ADODB.Recordset
    Dim SQL As String
    Dim i As Integer
    Dim j As Long
    Dim k As Long
    Dim sLineas As String
    Dim QLote, QTarjeta, QEmpaque As Integer

  '------------------------------------
  Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
  '------------------------------------

    Hoja1.Range("A10:U20000").Clear
    Hoja1.Range("A10:U20000").Interior.Color = &amp;HF5F5F5
    Hoja1.Range("A10:U20000").Font.Color = &amp;H8000000D
    Hoja1.Cells(4, 1) = "Intervalo:" &amp; Me.cmb_Fini &amp; "-" &amp; Me.cmb_FFin
    Hoja1.Cells(5, 1) = "Linea de Producción:" &amp; Me.cmb_LProd

    SQL = "Select C.nom_cliente,O.Cod_Cliente,O.Cod_Obra,O.Estado,O.FAprob,O.FDesp,P.NoOrden_Pprog,P.CodLote_pprog, L.nom_linea,min(P.Fecha_Pprog) Fecha_Pprog,Sum(P.Cantidad_Pprog) Cantidad, OT.descrip_tord "
    SQL = SQL &amp; "From cliente C, orden O, programacion_prod P, linea L, ordentipo OT  "
    SQL = SQL &amp; "Where O.Cod_Cliente=P.CodCliente_Pprog AND  "
    SQL = SQL &amp; "O.No_Orden=P.NoOrden_Pprog AND  "
    SQL = SQL &amp; "P.CodLote_pprog&lt;&gt;-1 AND P.codlinea_pprog=L.cod_linea AND O.codtipoorden = OT.cod_tord AND C.cod_cliente not in (2478,2479) AND "
    If Me.cmb_LProd.List(Me.cmb_LProd.ListIndex) &lt;&gt; "TODAS" Then
        SQL = SQL &amp; "P.CodLinea_Pprog=" &amp; Me.List_LProd.List(Me.cmb_LProd.ListIndex) &amp; " AND "
    End If
    SQL = SQL &amp; "P.Fecha_pprog&gt;='" &amp; Me.cmb_Fini &amp; "' AND "
    SQL = SQL &amp; "P.Fecha_pprog&lt;='" &amp; Me.cmb_FFin &amp; "' AND "
    SQL = SQL &amp; "C.cod_cliente=O.cod_cliente "
    SQL = SQL &amp; "AND O.ESTADO='APROBADA' "
   [COLOR=#ff0000] SQL = SQL &amp; "Group BY C.nom_cliente,O.Cod_Cliente,O.Cod_Obra,O.Estado,O.FAprob,P.NoOrden_Pprog,P.CodLote_pprog,L.nom_linea "
    SQL = SQL &amp; "Order BY O.FAprob,P.NoOrden_Pprog, P.CodLote_pprog"[/COLOR]
    Db.Open CONSTRING
    Rs.Open SQL, Db
     i = 10
    While Not Rs.EOF
        DoEvents

        Hoja1.Cells(i, 20) = Rs("Nom_Linea")
        Hoja1.Cells(i, 21) = Rs("descrip_tord")

        Hoja1.Cells(i, 1) = Rs("Nom_Cliente")
        'Obra
        SQL = "Select Nom_Obra From obra Where Cod_Cliente='" &amp; Rs("Cod_Cliente") &amp; "' and Cod_Obra='" &amp; Rs("Cod_Obra") &amp; "'"
        Rs3.Open SQL, Db
        If Not Rs3.EOF Then
            Hoja1.Cells(i, 2) = Rs3("Nom_Obra")
        End If
        Rs3.Close

         'ANCHO

       SQL = "Select Ancho_mm From detalle_pedido Where Cod_Cliente='" &amp; Rs("Cod_Cliente") &amp; "' and no_orden='" &amp; Rs("noorden_pprog") &amp; "'"
        Rs3.Open SQL, Db
        If Not Rs3.EOF Then
            Hoja1.Cells(i, 23) = Rs3("Ancho_mm")
        End If
        Rs3.Close

        'LARGO
        ''''''''''''''''''
      SQL = "Select Largo_mm From detalle_pedido Where Cod_Cliente='" &amp; Rs("Cod_Cliente") &amp; "' and no_orden='" &amp; Rs("noorden_pprog") &amp; "'"
        Rs3.Open SQL, Db
        If Not Rs3.EOF Then
            Hoja1.Cells(i, 24) = Rs3("Largo_mm")
        End If
        Rs3.Close

        'ITEM
        ''''''''''''''''''
       SQL = "Select N_Item From detalle_pedido Where Cod_Cliente='" &amp; Rs("Cod_Cliente") &amp; "' and no_orden='" &amp; Rs("noorden_pprog") &amp; "'"
        Rs3.Open SQL, Db
        If Not Rs3.EOF Then
            Hoja1.Cells(i, 22) = Rs3("N_Item")
        End If
        Rs3.Close


        'COMPOSICION
        SQL = "Select Composicion From orden Where Cod_Cliente='" &amp; Rs("Cod_Cliente") &amp; "' and no_orden='" &amp; Rs("noorden_pprog") &amp; "'"
        Rs3.Open SQL, Db
        If Not Rs3.EOF Then
            Hoja1.Cells(i, 25) = Rs3("Composicion")
        End If
        Rs3.Close
       'M2

        Hoja1.Cells(i, 3) = Rs("NoOrden_Pprog") &amp; IIf(Mid(Rs("estado"), 1, 2) = "AP", "", "(" &amp; Mid(Rs("estado"), 1, 2) &amp; ")")
        Hoja1.Cells(i, 4) = Rs("CodLote_pprog")
        Hoja1.Cells(i, 5) = Rs("Cantidad")
        'Fecha Aprobación
        If Rs("FAprob") &gt; Rs("Fecha_Pprog") Then
            Hoja1.Cells(i, 6) = Rs("Fecha_Pprog")
        Else
            If Trim(Rs("faprob")) = "" Then
                Hoja1.Cells(i, 6) = Rs("Fecha_Pprog")
            Else
                Hoja1.Cells(i, 6) = Rs("FAprob")
            End If
        End If

        Hoja1.Cells(i, 7) = Rs("FDesp")

        'Fecha Programación
        Hoja1.Cells(i, 8) = Rs("Fecha_Pprog")
        Hoja1.Cells(i, 14) = DateDiff("d", CDate(Rs("Fecha_Pprog")), Format(Now(), "yyyy/mm/dd"))
        Hoja1.Cells(i, 17) = DateDiff("d", CDate(Rs("FAprob")), Format(Now(), "yyyy/mm/dd"))
        'Fecha Corte
        SQL = "Select min(Fecha) fechaini From corte "
        SQL = SQL &amp; "Where No_Lote =" &amp; Rs("CodLote_pprog") &amp; ""
        Rs3.Open SQL, Db
            If Not Rs3.EOF Then
                Hoja1.Cells(i, 9) = Rs3("fechaini")
            End If
        Hoja1.Cells(i, 18) = DateDiff("d", CDate(Rs("FAprob")), Rs3("fechaini"))
        Rs3.Close
        Hoja1.Cells(i, 12) = CInt(DateDiff("d", CDate(Hoja1.Cells(i, 6)), Format(Now, "YYYY/MM/DD")))
        Hoja1.Cells(i, 11) = CInt(DateDiff("d", CDate(Hoja1.Cells(i, 6)), CDate(Hoja1.Cells(i, 8))))

        QLote = 0
        QTarjeta = 0
        QEmpaque = 0

        If Rs("noorden_pprog") = "4500017903" Then
            a = 0
        End If

        SQL = "Select sum(Cantidad)-sum(Empacado) dif from detalle_pedido where cod_cliente='" &amp; Rs("cod_cliente") &amp; "' and no_orden='" &amp; Rs("noorden_pprog") &amp; "'"
        Rs2.Open SQL, Db

        If Not Rs2.EOF Then
            If Rs2("Dif") &gt; 0 Then
                SQL = "Select Sum(Cantidad),Sum(cantidad)-Sum(empacado) From detalle_lote Where cod_cliente='" &amp; Rs("cod_cliente") &amp; "' and No_Lote=" &amp; Rs("CodLote_pprog") &amp; " and No_Orden= '" &amp; Rs("NoOrden_Pprog") &amp; "'"
                Rs3.Open SQL, Db

                If Not Rs3.EOF And Rs3(1) &gt; 0 Then
                     QLote = Rs("Cantidad")

                     SQL = "Select Sum(En_TarjetaEsp) From tarjeta T,detalle_tarjeta DT Where T.Cod_tarjeta=DT.Cod_Tarjeta and T.cod_cliente='" &amp; Rs("cod_cliente") &amp; "' and No_Orden= '" &amp; Rs("NoOrden_Pprog") &amp; "' and No_Lote=" &amp; Rs("CodLote_pprog") &amp; ""
                     'If InStr(1, Me.cmb_LProd.List(Me.cmb_LProd.ListIndex), "LAMINADO") = 0 Then
                     '   SQL = SQL &amp; " and cod_empaque like 'E%'"
                     'Else
                        SQL = SQL &amp; " and num_linea=" &amp; Me.List_LProd.List(Me.cmb_LProd.ListIndex) &amp; ""
                     'End If
                     Rs4.Open SQL, Db

                     If Not Rs4.EOF And Rs4(0) &lt;&gt; "" Then
                         QEmpaque = Rs4(0)
                     Else
                         QEmpaque = 0
                     End If
                     Rs4.Close

                     Hoja1.Cells(i, 13) = QLote - QEmpaque


                     'QUERY para Mt2 Faltantes por producir. - Rafa
                     SQL = "Select B.Mt2_Tarjeta,A.Mt2_Lote " _
                        &amp; "From " _
                        &amp; "(Select sum(round((dp.ancho_mm*dp.largo_mm)/1000000,2) * pp.cantidad_pprog) Mt2_Lote,dp.cod_cliente,dp.no_orden  " _
                            &amp; "From programacion_prod pp  " _
                                &amp; "Inner Join detalle_pedido dp on dp.cod_cliente=pp.codcliente_pprog and dp.no_orden=pp.noorden_pprog and dp.n_item=pp.nitem_pprog " _
                            &amp; "Where pp.codcliente_pprog = " &amp; Rs("cod_cliente") &amp; " and pp.noorden_pprog = '" &amp; Rs("NoOrden_Pprog") &amp; "' and pp.codlote_pprog = " &amp; Rs("CodLote_pprog") &amp; " and pp.codlinea_pprog = " &amp; Me.List_LProd.List(Me.cmb_LProd.ListIndex) &amp; " Group by pp.codcliente_pprog,pp.noorden_pprog ) A " _
                            &amp; "Left Join   " _
                            &amp; "(Select sum(round((dp.ancho_mm*dp.largo_mm)/1000000,2) * en_tarjetaesp) Mt2_Tarjeta, dl.cod_cliente,dl.no_orden " _
                        &amp; "From detalle_lote dl  " _
                            &amp; "Left Join tarjeta t on t.cod_cliente=dl.cod_cliente and t.no_orden=dl.no_orden  " _
                            &amp; "Left Join detalle_tarjeta dt on dt.cod_tarjeta=t.cod_tarjeta and dt.no_lote=dl.no_lote and dt.no_item=dl.n_item " _
                            &amp; "Inner Join detalle_pedido dp on dp.cod_cliente=dl.cod_cliente and dp.no_orden=dl.no_orden and dp.n_item=dl.n_item " _
                        &amp; "Where dl.cod_cliente = " &amp; Rs("cod_cliente") &amp; " and dl.no_orden = '" &amp; Rs("NoOrden_Pprog") &amp; "' and dl.no_lote = " &amp; Rs("CodLote_pprog") &amp; " and num_linea=" &amp; Me.List_LProd.List(Me.cmb_LProd.ListIndex) &amp; " Group by dl.cod_cliente,dl.no_orden) B on A.cod_cliente=B.cod_cliente and A.no_orden=B.no_orden "
                     Rs4.Open SQL, Db

                    If Not Rs4.EOF Then
                        Hoja1.Cells(i, 19) = Rs4(1) - (IIf(IsNull(Rs4(0)), 0, Rs4(0)))
                    Else
                        Hoja1.Cells(i, 19) = 0
                    End If
                    Rs4.Close

                     If Hoja1.Cells(i, 13) &lt;= 0 Then
                        'Fecha Ultimo Empaque
                        SQL = "Select max(fecha_actualizacion) UltEmp, sum(en_tarjetaesp) TEmp "
                        SQL = SQL &amp; " From tarjeta e,detalle_tarjeta de "
                        SQL = SQL &amp; " Where e.cod_tarjeta=de.cod_tarjeta and e.cod_cliente='" &amp; Rs("cod_cliente") &amp; "' and de.no_lote=" &amp; Rs("CodLote_pprog") &amp; " and e.no_orden= '" &amp; Rs("NoOrden_Pprog") &amp; "'"
                        Rs4.Open SQL, Db
                        If Not Rs3.EOF Then
                            Hoja1.Cells(i, 12) = CInt(DateDiff("d", CDate(Hoja1.Cells(i, 6)), CDate(Rs4("UltEmp"))))
                            Hoja1.Cells(i, 10) = Rs4("UltEmp")
                        End If
                        Rs4.Close
                     Else
                        cant = 1
                        If Me.List_LProd.List(Me.cmb_LProd.ListIndex) = 4 Then
                            SQL = "Select count(distinct(codlinea_pprog)) "
                            SQL = SQL &amp; "From programacion_prod P "
                            SQL = SQL &amp; "Where "
                            SQL = SQL &amp; "P.CodLote_pprog&lt;&gt;-1 AND "
                            SQL = SQL &amp; "codcliente_pprog&gt;='" &amp; Rs("cod_cliente") &amp; "' AND "
                            SQL = SQL &amp; "noorden_pprog='" &amp; Rs("noorden_pprog") &amp; "' "
                            Rs4.Open SQL, Db

                            If Not Rs4.EOF Then
                                cant = Rs4(0)
                            End If
                            Rs4.Close
                        End If

                        Select Case cant

                        Case Is = 1
                            If Hoja1.Cells(i, 12) &gt; 3 Then
                               Hoja1.Cells(i, 1).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 2).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 3).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 4).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 5).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 6).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 7).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 8).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 9).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 10).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 11).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 12).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 13).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 15).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 10) = "VENCIDO"
                            Else
                               Hoja1.Cells(i, 1).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 2).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 3).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 4).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 5).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 6).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 7).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 8).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 9).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 10).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 11).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 12).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 13).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 10) = "NO VENCIDO"
                            End If
                        Case Is &gt; 1
                            If Hoja1.Cells(i, 12) &gt; 7 Then
                               Hoja1.Cells(i, 1).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 2).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 3).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 4).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 5).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 6).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 7).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 8).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 9).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 10).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 11).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 12).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 13).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 17).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 10) = "VENCIDO"
                            Else
                               Hoja1.Cells(i, 1).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 2).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 3).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 4).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 5).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 6).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 7).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 8).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 9).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 10).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 11).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 12).Interior.Color = &amp;HD0C0A8
                               Hoja1.Cells(i, 13).Interior.Color = &amp;HFF&amp;
                               Hoja1.Cells(i, 10) = "NO VENCIDO"
                            End If

                        End Select
                     End If

                Else
                    'terminado
                    'Fecha Ultimo Empaque
                    SQL = "Select max(fecha_actualizacion) UltEmp "
                    SQL = SQL &amp; " From tarjeta e,detalle_tarjeta de "
                    SQL = SQL &amp; " Where e.cod_tarjeta=de.cod_tarjeta and e.cod_cliente='" &amp; Rs("cod_cliente") &amp; "' and de.no_lote=" &amp; Rs("CodLote_pprog") &amp; " and e.no_orden= '" &amp; Rs("NoOrden_Pprog") &amp; "'"
                    Rs4.Open SQL, Db
                    If Not Rs4.EOF And IsNull(Rs4("ultemp")) = False Then
                        Hoja1.Cells(i, 12) = CInt(DateDiff("d", CDate(Hoja1.Cells(i, 6)), CDate(Rs4("UltEmp"))))
                        Hoja1.Cells(i, 10) = Rs4("UltEmp")
                    End If
                    Rs4.Close

                    Hoja1.Cells(i, 13) = QLote - QEmpaque

                End If
                Rs3.Close
            Else
                'terminado
                'Fecha Ultimo Empaque
                SQL = "Select max(fecha_actualizacion) UltEmp "
                SQL = SQL &amp; " From tarjeta e,detalle_tarjeta de "
                SQL = SQL &amp; " Where e.cod_tarjeta=de.cod_tarjeta and e.cod_cliente='" &amp; Rs("cod_cliente") &amp; "' and de.no_lote=" &amp; Rs("CodLote_pprog") &amp; " and e.no_orden= '" &amp; Rs("NoOrden_Pprog") &amp; "'"
                Rs4.Open SQL, Db
                If Not Rs4.EOF And IsNull(Rs4("ultemp")) = False Then
                    Hoja1.Cells(i, 12) = CInt(DateDiff("d", CDate(Hoja1.Cells(i, 6)), CDate(Rs4("UltEmp"))))
                    Hoja1.Cells(i, 10) = Rs4("UltEmp")
                End If
                Rs4.Close

                Hoja1.Cells(i, 13) = QLote - QEmpaque

            End If
        End If
        Rs2.Close

    'Si es cero no pasa a la siguiente línea
    If CStr(Hoja1.Cells(i, 13)) &lt;&gt; 0 Then
        sLineas = ""
        SQL = "select nom_linea from linea, orden_linea where cod_linea=codlinea_ola and " _
        &amp; "codcliente_ola=" &amp; Rs("Cod_Cliente") &amp; " and noorden_ola='" &amp; Rs("NoOrden_Pprog") &amp; "' " _
        &amp; "group by nom_linea order by nom_linea"
        Rs3.Open SQL, Db

         While Not Rs3.EOF
            sLineas = sLineas &amp; "-" &amp; Left(Rs3("nom_linea"), 3) '&amp; IIf(IsNumeric(Right(Rs3("nom_linea"), 1)), Right(Rs3("nom_linea"), 1), "")
            Rs3.MoveNext
        Wend
        Rs3.Close

        Hoja1.Cells(i, 15) = Right(sLineas, Len(sLineas) - 1)
        i = i + 1
    End If

    Rs.MoveNext

    Wend
Rs.Close
Db.Close

If CStr(Hoja1.Cells(i, 13)) = "0" Then
    Hoja1.Range("A" &amp; i, "U" &amp; i) = ""
End If

'---------------------------

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False

'-------------------------------

UserForm1.Hide
End Sub

el texto sombreado con rojo es el que agrupa los datos, pero al quitar este group by no me aparece nada en la hoja.

les agradezco su atención.

Editado por moderación para envolver código con etiquetas.

publicado el 18 de septiembre10 años

Se usa las funciones de agregado MIN y SUM. Debería funcionar si modificas loa primera línea (No puedo modificar el color). Siendo una conexión a SQL será dificil darte una respuesta final.

 SQL = "Select C.nom_cliente,O.Cod_Cliente,O.Cod_Obra,O.Estado,O.FAprob,O.FDesp,P.NoOrden_Pprog,P.CodLote_pprog, L.nom_linea,P.Fecha_Pprog Fecha_Pprog,P.Cantidad_Pprog Cantidad, OT.descrip_tord "

    SQL = SQL & "From cliente C, orden O, programacion_prod P, linea L, ordentipo OT  "

    SQL = SQL & "Where O.Cod_Cliente=P.CodCliente_Pprog AND  "

    SQL = SQL & "O.No_Orden=P.NoOrden_Pprog AND  "

    SQL = SQL & "P.CodLote_pprog<>-1 AND P.codlinea_pprog=L.cod_linea AND O.codtipoorden = OT.cod_tord AND C.cod_cliente not in (2478,2479) AND "

    If Me.cmb_LProd.List(Me.cmb_LProd.ListIndex) <> "TODAS" Then

        SQL = SQL & "P.CodLinea_Pprog=" & Me.List_LProd.List(Me.cmb_LProd.ListIndex) & " AND "

    End If

    SQL = SQL & "P.Fecha_pprog>='" & Me.cmb_Fini & "' AND "

    SQL = SQL & "P.Fecha_pprog<='" & Me.cmb_FFin & "' AND "

    SQL = SQL & "C.cod_cliente=O.cod_cliente "

    SQL = SQL & "AND O.ESTADO='APROBADA' "

    SQL = SQL & "Group BY C.nom_cliente,O.Cod_Cliente,O.Cod_Obra,O.Estado,O.FAprob,P.NoOrden_Pprog,P.CodLote_pprog,L.nom_linea "

    SQL = SQL & "Order BY O.FAprob,P.NoOrden_Pprog, P.CodLote_pprog"[/CODE]

Slds.-

publicado el 18 de septiembre10 años

Autor

ya me aparece el primer item de la orden, pero una orden tiene varios item y distintas cantidades, los trae agrupados, quiero que me muestre todos los item de esa orden, como hago para que la consulta lo haga ?

gracias.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

193 Archivos
99 Comentarios
30 Revisiones
Última descarga

Agenda Calendario Vintage
- 2

Fechas Móviles

...la tabla no queda bien...
Adjunto archivo.
Feriados Moviles (B).xlsx

Por Victor7, · publicado el martes a las 19:452 días
Fechas Móviles

Lo siento, pero voy a repetirme sobre lo que dije en mi anterior intervención: "Sería interesante que explicaras con detalle qué es lo que falla de tu archivo, por qué, y qué es lo que buscas obtener".
A ver si así avanzamos: Supongamos que tienes esta tabla:
Inicial
Final
Inicial
Final
Ajuste
Dia Habil
Habiles
Habiles
Año
2025
2026
01/10/2025
31/10/2025
01/10/2026
31/10/2026
5
5
23
23

01/10/2025
31/10/2025
01/10/2026
31/10/2026
3
4
23
23

01/10/2025
31/10/2025
01/10/2026
31/10/2026
2
7
23
23

01/10/2025
31/10/2025
01/10/2026
31/10/2026
7
3
23
23

¿Qué 4 fechas concretas deberían aparecer en cada una de las 2 últimas columnas?
¿Cómo se llega a ellas? ¿Qué cálculos son necesarios?

Por Victor7, · publicado el martes a las 19:392 días
Fechas Móviles

Saludos Sr @Victor7
Con este cuadro lo que pretendo es poder obtener cualquier fecha móvil existente en el calendario festivo y que la misma se actualice de manera automática en las Celdas AB y AC sin la necesidad de hacer ajustes posteriores de allí que tome las formulas que se muestran en el tutorial y las fui anidando de forma tal que pudiera obtener el mismo resultado del ejemplo por lo cual es conveniente indicar que de acuerdo al ejemplo del tutorial:
Celda X: Aquí se introduce manualmente el número del día de la semana donde se ubica la fecha móvil buscada
Celda Y: Aquí se introduce manualmente la cantidad de días hábiles existentes antes de la fecha móvil buscada
Celdas Z y AA: Muestra la cantidad de días hábiles existentes en el mes de la fecha móvil
Celdas AB y AC: Arrojan la fecha móvil exacta conforme al año y los datos introducidos en las Celdas X y Y
Haciendo un análisis de los datos infiero que el problema radica en que el ejemplo del tutorial está configurado para arrojar resultados correctos solamente para la semana que contenga el tercer viernes de un mes determinado de allí que al buscar otra fecha móvil los datos que se introducen en las Celdas X y Y no sean no sean los que realmente deberían para que se puedan alcanzar las fechas exactas en las Celdas AB y AC, sin embargo hay fechas que aun introduciendo datos correctos en las Celdas X y Y o aproximándolos lo más posible no es posible obtener resultados correctos.

Por jues, · publicado el martes a las 15:012 días
Fechas Móviles

Hola,
Sería interesante que explicaras con detalle qué es lo que falla de tu archivo, por qué, y qué es lo que buscas obtener.
Hasta la columna W todo parece entendible, pero habría que ver cómo los datos X:Y introducidos a voluntad (supongo), afectan al comportamiento (o no) de los siguientes cálculos. Igual que las columnas AB:AC, qué resultados pretenden plasmar.
Saludos,

Por Victor7, · publicado el martes a las 06:552 días
Fechas Móviles

Saludos amigos espero estén bien
Nuevamente acudo a ustedes para que me ayuden con lo siguiente inconveniente, con la ayuda de este tutorial https://youtu.be/LFCT9xU4alc?si=gVeIDHcKwCUmO0sM configure el archivo adjunto para obtener los resultados requeridos coincidentemente dos de las fechas que necesito cumplen con los parámetros utilizado en el tutorial es decir el tercer viernes de un mes, sin embargo cuando intento determinar otra fecha con el mismo metodo no me arroja resultados congruentes ejemplo el cuarto lunes de octubre o el segundo martes de febrero y así sucesivamente
Mucho les sabre agradecer la ayuda que me puedan brindar

Feriados Moviles.xlsx

Por jues, · publicado el Lunes a las 14:113 días

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Ayuda sql

Featured Replies

Archivado

Archivos

Agenda Calendario Vintage

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Cómo crear hipervínculos inteligentes con fórmulas

Estadísticas de descargas

Mensajes

Fechas Móviles

Fechas Móviles

Fechas Móviles

Fechas Móviles

Fechas Móviles

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)