Boton que lleva a la prepoliza

Contabilidad/RegPrePoliza.aspx.vb

@@ -1843,7 +1843,7 @@ Partial Class ContabilidadC_RegPrePoliza
             End If
 
         Catch ex As Exception
-            Alert("Error")
+            Alert("Error al descargar el paquete", TipoMensaje.MsgError)
         End Try
     End Sub
     Private Function ImprimirPolizaPDF(IdPoliza As Integer) As String
@@ -1857,11 +1857,8 @@ Partial Class ContabilidadC_RegPrePoliza
 
         'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
         If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-            Try
-
-
-                Dim dtVC As DataTable
-                Dim dr As DataRow
+            Dim dtVC As DataTable
+            Dim dr As DataRow
                 dtVC = ObjConta.DtResultados
                 dr = dtVC.Rows(0)
                 Dim ruta As String = ""
@@ -1895,9 +1892,6 @@ Partial Class ContabilidadC_RegPrePoliza
                 End If
 
                 Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString)
-            Catch ex As Exception
-                Alert("ggg")
-            End Try
         End If