fix en Generacion de PDF's

Contabilidad/RegPrePolizaS.aspx.vb

@@ -201,6 +201,8 @@ Partial Class ContabilidadC_RegPrePolizaS
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
+            Tick = DateTime.Now.Ticks.ToString
+
             CveMoneda = 1
             ViewState("CvePrePoliza") = 0
             ViewState("CvePeriodo") = "0"
@@ -439,6 +441,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     If dr("IdPoliza").ToString.ToEntero > 0 Then
                         HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
                         divContabilizada.Visible = True
+                        IdPoliza = dr("IdPoliza").ToString.ToEntero
                     ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then
                         'sino está contabilizada, se activa el botón
                         BtnContabilizar.Visible = True
@@ -515,7 +518,6 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If CveConceptoContable.Contiene(30) Then
                 LnkImprimirPDF.Visible = True
-                LnkComprobante.Visible = True
                 CveIE = e.Row.DBCampo("CveIE").ToString.ToEntero
             End If
 
@@ -2131,6 +2133,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     Response.Flush() ' send it to the client to download
                     HttpContext.Current.Response.SuppressContent = True
                     HttpContext.Current.ApplicationInstance.CompleteRequest()
+                    Response.End()
 
                 End If
                 result = True