[SOLUCIONADO] Sumar registros repetidos de un datagridview en otro

[PatricioGalarzaR]

Hola, gracias de antemano por la ayuda.

mi inquietud es la siguiente, quiero sumar los registros repetidos de mi tabla REQUISICION_PRODUCTO para agregarlos a la tabla ORDEN_COMPRA:
--------------------------------------
- REQUISICION_PRODUCTO -
--------------------------------------
Nº ITEM CANT ESTADO
001 005 10 2
002 010 02 2
003 005 01 2
004 007 15 2
005 010 11 2

-------------------------------------------
- ORDEN_COMPRA -
-------------------------------------------
Nº ITEM CANT VALOR U VALOR T
001 005 11 1.5 16.5
002 010 13 2.7 08.1
003 007 15 3.0 45.0

No lo hago directo desde la base de datos porque necesito identificar los registros de la REQUISICION DE PRODUCTO para cambiar su estado a 3, que seria aprobado y no se me listen en una nueva ORDEN DE COMPRA.

Lo he estado intentando sin exito de la siguiente forma, se el bucle se vuelve infinito:
Public Sub cargarDetalleOrdenCompra()
Try
'Aqui cargo el primer DataGridView
dgvDetalleRequisicionPS.DataSource = objetoOrdenCompra.buscarDetalleRequisicionProducto ServicioXIdProveedor(lblIdProveedorGeneral.Text)
'Aqui intento pasar los datos al otro Datagridview
For Each Fila1 As DataGridViewRow In dgvDetalleRequisicionPS.Rows

Dim Añadir As Boolean = True

For Each Fila2 As DataGridViewRow In dgvDetalleOrdenCompra.Rows
If Fila2.Cells("idItem").Value = Fila1.Cells("ID_SECUENCIAL_ITEM").Value.ToString Then
Fila2.Cells("cantidadProductoServicio").Value = CType(Fila2.Cells("cantidadProductoServicio").Valu e, Integer) + CType(Fila1.Cells("CANTIDAD").Value, Integer)
Añadir = False
End If
If Añadir = True Then
'los dos últimos campos los envió como "" porque los valores unitarios se los ingresa manualmente y el valor total se calcula de forma automática dgvDetalleOrdenCompra.Rows.Add(Fila1.Cells("ID_SEC UENCIAL_ITEM").Value.ToString, Fila1.Cells("UMEDIDA_DETALLE_REQUISICION_PS").Valu e.ToString, Fila1.Cells("CANTIDAD").Value.ToString, "", "")
End If
Next
Next
Catch ex As Exception
MsgBox("CARGAR DETALLE ORDEN DE COMPRA." & vbNewLine & ex.Message.ToString, MsgBoxStyle.Critical, "MENSAJE DE EXCEPCIÓN")
End Try
End Sub

[alexg88]

Me extraña que se forme un bucle infinito, más bien sería que no hace nada, a no ser que falte algo más en el código.

El problema es que el If de "Añadir" debe estar fuera del segundo For:

Código vb:

Public Sub cargarDetalleOrdenCompra()
    Try
        'Aqui cargo el primer DataGridView
        dgvDetalleRequisicionPS.DataSource = objetoOrdenCompra.buscarDetalleRequisicionProducto ServicioXIdProveedor(lblIdProveedorGeneral.Text)
        'Aqui intento pasar los datos al otro Datagridview
        For Each Fila1 As DataGridViewRow In dgvDetalleRequisicionPS.Rows
            Dim Añadir As Boolean = True
            For Each Fila2 As DataGridViewRow In dgvDetalleOrdenCompra.Rows
                If Fila2.Cells("idItem").Value = Fila1.Cells("ID_SECUENCIAL_ITEM").Value.ToString Then
                    Fila2.Cells("cantidadProductoServicio").Value = CType(Fila2.Cells("cantidadProductoServicio").Valu e, Integer) + CType(Fila1.Cells("CANTIDAD").Value, Integer)
                    Añadir = False
                    Exit For
                End If              
            Next 
            
            If Añadir = True Then
                dgvDetalleOrdenCompra.Rows.Add(Fila1.Cells("ID_SECUENCIAL_ITEM").Value.ToString, Fila1.Cells("UMEDIDA_DETALLE_REQUISICION_PS").Value.ToString, Fila1.Cells("CANTIDAD").Value.ToString, "", "")
            End If
        Next
    Catch ex As Exception
        MsgBox("CARGAR DETALLE ORDEN DE COMPRA." & vbNewLine & ex.Message.ToString, MsgBoxStyle.Critical, "MENSAJE DE EXCEPCIÓN")
    End Try
End Sub
 

Si sigue dando problemas, habría que ver que datos hay exactamente.

[PatricioGalarzaR]

Hola gracias por responder, le hice seguimiento al codigo y se hace un blucle infinito que va agregando nuevas filas al datagridview. Y al poner el if añadir donde tu sigieres pasa los campos sin repetir pero no suma las cantidades

[PatricioGalarzaR]

no esta acumulando las cantidades porque se esta generando una excepcion con el siguiente mensaje "la conversión de la cadena "" en el tipo 'Integer' no es valida." creo que hay un problema con el recorrido de los 'for each' pero no lo capto todavía, o existirá otra forma de hacerlo no se si me pudieran ayudar por favor.

[PatricioGalarzaR]

HAS QUE POR FIN, YA FUNCIONO LE HICE UNOS CAMBIOS AL RECORRIDO CAMBIE LOS 'FOR EACH' POR UN 'FOR' NORMAL PARA PODER HACER MEJOR EL SEGUIMIENTO Y ME DI CUENTA QUE AL AGREGAR LA NUEVA FILA AL DGV DE ORDEN DE COMPRA TENIA 6 COLUMNAS Y ESTABA ENVIANDO 5 PARÁMETROS POR ESO NO ACUMULABA PORQUE LA CANTIDAD LA COLUMNA ESTABA VACIA.... COSAS QUE PASAN

AQUÍ PONGO EL CÓDIGO DE COMO ME FUNCIONO:

Código vb:

Try
            ' SE CARGA EL PRIMER DATAGRIDVIEW
            dgvDetalleRequisicionPS.DataSource = objetoOrdenCompra.buscarDetalleRequisicionProductoServicioXIdProveedor(lblIdProveedorGeneral.Text)
            'RECORRE EL DATAGRIDVIEW CARGADO ANTERIORMENTE
            For indice = 0 To dgvDetalleRequisicionPS.RowCount - 1
                Dim Añadir As Boolean = True
                'RECORRE EL DATAGRIDVIEW QUE SE VA A LLENAR
                For indiceOrden = 0 To dgvDetalleOrdenCompra.RowCount - 2
                    'PREGUNTA SI LOS ITEMS SON IGUALES, PARA VER SI YA HA SIDO AGREGADO
                    If dgvDetalleOrdenCompra.Rows(indiceOrden).Cells("idItem").Value = dgvDetalleRequisicionPS.Rows(indice).Cells("ID_SECUENCIAL_ITEM").Value Then
                    'SI YA HA SIDO AGREGADO ACUMULA LAS CANTIDADES                        
dgvDetalleOrdenCompra.Rows(indiceOrden).Cells("cantidadProductoServicio").Value = CType(dgvDetalleOrdenCompra.Rows(indiceOrden).Cells("cantidadProductoServicio").Value, Integer) + CType(dgvDetalleRequisicionPS.Rows(indice).Cells("CANTIDAD").Value, Integer)
                        'SE CAMBIA EL VALOR DE "AÑADIR" PARA QUE NO AGREGUE NUEVA FILA
                        Añadir = False
                    End If
                Next
                'SI "AÑADIR" ES VERDADERO NO HUBO COINCIDENCIAS Y AGREGA NUEVA FILA
                If Añadir = True Then
                    'CREA LA NUEVA FILA
                    dgvDetalleOrdenCompra.Rows.Add()
                    'SE AGREGA VALORES SOLO A LAS COLUMNAS QUE NECESITAMOS DE LA NUEVA FILA
                    dgvDetalleOrdenCompra.Rows(indice).Cells(0).Value = dgvDetalleRequisicionPS.Rows(indice).Cells("ID_SECUENCIAL_ITEM").Value.ToString
'ESTE PASO ES PROPIO DE LAS NECESIDADES DEL FORMULARIO SE PUEDE ENVIAR UN VALOR DIRECTO PERO QUI SE ENVIA EL VALOR DEL ID_ITEM PAR QUE ME DEVUELVA EL NOMBRE_ITEM
                    objetoSecuencialItem.buscarNombreSecuencialItemXIdSecuencialItem(dgvDetalleOrdenCompra.Rows(indice).Cells(0).Value)
                    dgvDetalleOrdenCompra.Rows(indice).Cells(1).Value = objetoSecuencialItem.nombreSecuencial
                    dgvDetalleOrdenCompra.Rows(indice).Cells(2).Value = dgvDetalleRequisicionPS.Rows(indice).Cells("UMEDIDA_DETALLE_REQUISICION_PS").Value.ToString
                    dgvDetalleOrdenCompra.Rows(indice).Cells(3).Value = dgvDetalleRequisicionPS.Rows(indice).Cells("CANTIDAD").Value
                End If
            Next
        Catch ex As Exception
            MsgBox("CARGAR DETALLE ORDEN DE COMPRA." & vbNewLine & ex.Message.ToString, MsgBoxStyle.Critical, "MENSAJE DE EXCEPCIÓN")
        End Try
 

[PatricioGalarzaR]

GRACIAS alexg88 por tu tiempo y tu aporte. Y espero a los que lean este tema que les sirva de ayuda