Cxp, Cxp Detalle IE OC

Bancos/IE.aspx.vb

@@ -798,6 +798,9 @@ Partial Class Bancos_IE
                 HlEvento.Visible = True
                 HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveIE=" & CveIE & "&TB_iframe=true&height=370&width=600;"
 
+                CargaOCRelacionadas()
+
+
             Else
                 'Configuración de Modalidad Insert
                 ImgAddObs.Visible = False
@@ -6798,6 +6801,30 @@ Partial Class Bancos_IE
     Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
         RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
         Calendario.EndDate = DateTime.Now
+    End Sub
+
+    Private Sub CargaOCRelacionadas()
+
+        DVBancosOrdenCompra.Visible = False
+        If CveIE > 0 Then
+            Dim objBanco As New ClsBancos
+
+            If objBanco.GetBancosOrdenCompra(CveIE, UsuarioActual.CveEmpresa) Then
+
+                If objBanco.DtResultados.Rows.Count > 0 Then
+                    GvBancosOrdenCompra.DataSource = objBanco.DtResultados
+                    DVBancosOrdenCompra.Visible = True
+                End If
+            End If
+            objBanco.Dispose()
+            GvBancosOrdenCompra.DataBind()
+        End If
+
+
+
+
+
+
     End Sub
 
 End Class