Clientes cambios cxc rpt

Contabilidad/RegPrePolizaS.aspx.vb

@@ -2724,6 +2724,17 @@ Partial Class ContabilidadC_RegPrePolizaS
         Dim params As New List(Of ReportParameter)
         Dim Bytes As Byte() = Nothing
 
+        Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero
+
+
+        If ImpresionPersonalizada = 0 Then
+
+        ElseIf ImpresionPersonalizada.Contiene(1, 2) Then
+
+
+        End If
+
+
 
         'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
         If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
@@ -2765,6 +2776,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             ImprimirbytesPDF(StreamPDF(ruta, dtVC, params, "ppoliza"), String.Format("{0}-{1}", TipoPoliza, dr("FolioPoliza").ToString), "PDF", True)
 
         End If
+
         Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString)
         ObjConta.Dispose()