cargas de trabajo 1 y 2 terminadas

Ventas/Ventas.aspx.vb

@@ -2106,6 +2106,8 @@ Partial Class Ventas
                         DivDevAlm.Visible = True
                     End If
 
+                    'CARGA GV DE OC RELACIONADAS
+                    CargarOCRelacionadas()
                 End If
             Else
                 If Request("CveOS") IsNot Nothing AndAlso IsNumeric(Request("CveOS")) AndAlso Request("CveOS").ToEntero() > 0 Then
@@ -25699,4 +25701,24 @@ Partial Class Ventas
         MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Entrega en mostrador", "Pendiente", CorreosCC)
         MailCls = Nothing
     End Sub
+
+    Private Sub CargarOCRelacionadas()
+        Dim GridViewPSAux As GridView = GvPS
+        Dim CveVentasDetalle As New StringBuilder()
+        For Each vd As GridViewRow In GridViewPSAux.Rows
+            Dim CveVentaDetalle As String = vd.DataKey("CveVentaDetalle")
+            CveVentasDetalle.AppendFormat("{0},", CveVentaDetalle)
+        Next
+        Dim ObjVentas As New ClsVentas()
+        If ObjVentas.GetOCRelacionadas(CveVentasDetalle.ToString) Then
+            Dim OC As DataTable = ObjVentas.DtResultados
+            If OC.Rows.Count > 0 Then
+                trOCRelacionadasLabel.Visible = True
+                trOCRelacionadas.Visible = True
+                GvOCRelacionadas.DataSource = OC
+                GvOCRelacionadas.DataBind()
+            End If
+        End If
+        ObjVentas.Dispose()
+    End Sub
 End Class