Contabilidad/RegPrePolizaS.aspx.vb

@@ -232,10 +232,13 @@ Partial Class ContabilidadC_RegPrePolizaS
                     DivTG.Visible = False
                     GvMov.Columns(5).Visible = False
                 End If
+
                 Exit Sub
             Else
                 CreaDT()
-                BtnEliminar.Visible = False
+                BtnEliminar.Visible = False
+                LnkExcel.Visible = True
+                LnkImprimirPDF.Visible = False
             End If
 
 
@@ -466,8 +469,9 @@ Partial Class ContabilidadC_RegPrePolizaS
                     '    row.FCTextBox("TxtCargo").Enabled = False
                     '    row.FCTextBox("TxtAbono").Enabled = False
                     'Next
-                End If
-
+                End If
+                LnkExcel.Visible = False
+                LnkImprimirPDF.Visible = True
             Else
                 Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
                 BtnEliminar.Visible = False
@@ -1362,6 +1366,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                     GvPrePoliza.DataBind()
                     UpPrePoliza.Update()
                 End If
+                GvPrePoliza.Columns(11).Visible = True
+
                 GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True
             End If
         End If
@@ -2028,7 +2034,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
             Dim dtVC As DataTable
             Dim dr As DataRow
-            dtVC = ObjConta.DtResultados
+            dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
             dr = dtVC.Rows(0)
             Dim ruta As String = ""
             params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))