Correcion BDH

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -216,12 +216,34 @@ Partial Class Acumuladores_CatFoliosGarantia
 
         RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarFolioGarantia"))
 
-    End Sub
+    End Sub
+
+    Public Sub ImgVer_Click(sender As Object, e As EventArgs)
 
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
+        CveFolioGarantia = GvRow.DataKey("CveFolioGarantia")
 
+        LblFolio.Text = GvRow.DataKey("FolioGarantia")
+
+        Using ObjAcum As New ClsAcumuladores
+            If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia) Then
+                GvGarantiasDetalle.DataSource = ObjAcum.DtResultados
+            End If
+        End Using
+        GvGarantiasDetalle.DataBind()
+
+        UpGarantiasDetalle.Update()
+
+        RegistraScript("$('#DivGarantiasDetalle').modal('show');")
+
+    End Sub
+
+
+
+
 #End Region
-
+
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
         CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, DdlTipoFolio.SelectedValue)
     End Sub