Compras ret iva ret isr edcion y columnas en gridview, repcomplentos descarga de personalizado

Compras/RepComplementoPago.aspx.vb

@@ -110,8 +110,6 @@ Partial Class Compras_RepComplementoPago
             GvDatos.Columns(0).ItemStyle.Width = 30%
         End If
 
-
-
         UpDatos.Update()
 
     End Sub
@@ -221,9 +219,30 @@ Partial Class Compras_RepComplementoPago
 #End Region
 
     Protected Sub BtnPersonalizar_Click(sender As Object, e As EventArgs)
-
-
         Personalizar()
+        ImgExcelPersonalizado.Visible = True
+        UpAcciones.Update()
     End Sub
 
+
+    Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click
+
+        ' GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString)
+        'GvDatos.ExportToExcelG("DetalleCompras_" & NowADS().ToShortDateString & ".xlsx")
+        Dim SubProyecto As String = ""
+
+        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
+            SubProyecto = DdlSubProyecto.SelectedItem.Text
+        End If
+
+        Dim SbFiltros As New StringBuilder()
+        SbFiltros.AppendFormat($"Fecha Inicio: {TxtFiltrosFechaInicio.Text} Fecha Fin: {TxtFiltrosFechaFin.Text}|")
+        SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto)
+
+
+        GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString, UsuarioActual, "Ordenes de Servicio Medicas", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
 End Class