Cxp, Cxp Detalle IE OC

Bancos/IE.aspx

@@ -477,6 +477,21 @@
                                 </div>
                             </div>
 
+                             <div class="row" id="DVBancosOrdenCompra" runat="server" visible="False">
+                                 
+                                 <div class="col-md-2"></div>
+                                 <div class="col-md-5">
+
+                                     <asp:GridView ID="GvBancosOrdenCompra" runat="server" GridLines="None" CssClass="table xspadding table-striped table-advance Widthall" AutoGenerateColumns="False" Width="250px">
+                                        <Columns>                                           
+                                            <asp:HyperLinkField DataNavigateUrlFields="CveOrdenCompra" HeaderText="Folio OC" DataNavigateUrlFormatString="~/OC/OC.aspx?OC={0}" DataTextField="FolioOC" Target="_blank" />
+                                            <asp:BoundField DataField="ImporteAnticipo" HeaderText="Importe Anticipo"   DataFormatString="{0:C}" > <ItemStyle HorizontalAlign="Right" /></asp:BoundField>                                           
+                                        </Columns>
+                                    </asp:GridView>
+
+                                 </div>
+                             </div>
+
                         </div>
                     </div>
                 </div>

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