cargas de trabajo 1 y 2 terminadas

OC/OC.aspx.vb

@@ -518,6 +518,8 @@ Partial Class OC
                 End If
 
                 CargaDatos(CveOrdenCompra)
+                'CARGA VENTA RELACIONADA
+                CargaVentaRelacionada()
             Else
                 EsNuevo = True
                 InicializarValores()
@@ -7911,4 +7913,23 @@ Partial Class OC
         '    Alert("Moneda actualizada con exito")
         'End If
     End Sub
+
+    Private Sub CargaVentaRelacionada()
+        Dim GridViewPSAux As GridView = GvD
+        Dim CveOCDetalle As New StringBuilder()
+        For Each vd As GridViewRow In GridViewPSAux.Rows
+            Dim CveVentaDetalle As String = vd.DataKey("CveOrdenCompraDetalle")
+            CveOCDetalle.AppendFormat("{0},", CveVentaDetalle)
+        Next
+        Dim ObjVentas As New ClsOC()
+        If ObjVentas.GetVentasRelacionadas(CveOCDetalle.ToString) Then
+            Dim V As DataTable = ObjVentas.DtResultados
+            If V.Rows.Count > 0 Then
+                DivVentaRelacionada.Visible = True
+                GvVentaRelacionadas.DataSource = V
+                GvVentaRelacionadas.DataBind()
+            End If
+        End If
+        ObjVentas.Dispose()
+    End Sub
 End Class