From a8eb7895e0cd05a16ea686fa883993abb37ee639 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 18 Feb 2023 13:36:44 -0700
Subject: [PATCH] =?UTF-8?q?--=20E119,=20para=20que=20genere=20las=20prep?=
 =?UTF-8?q?=C3=B3lizas=20desde=20la=20informaci=C3=B3n=20de=20SIG?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Contabilidad/PolizasImpresion.aspx    | 1 +
 Contabilidad/PolizasImpresion.aspx.vb | 6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/Contabilidad/PolizasImpresion.aspx b/Contabilidad/PolizasImpresion.aspx
index f692083ca..8d7a7fab1 100644
--- a/Contabilidad/PolizasImpresion.aspx
+++ b/Contabilidad/PolizasImpresion.aspx
@@ -5,6 +5,7 @@
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Impresión Masiva de pólizas
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
diff --git a/Contabilidad/PolizasImpresion.aspx.vb b/Contabilidad/PolizasImpresion.aspx.vb
index cc9a97589..2b015f44a 100644
--- a/Contabilidad/PolizasImpresion.aspx.vb
+++ b/Contabilidad/PolizasImpresion.aspx.vb
@@ -28,7 +28,7 @@ Partial Class Contabilidad_PolizasImpresion
 
         If Not IsPostBack Then
 
-            ContabilidadSIG = UsuarioActual.Empresa.TipoContabilidad = 1
+            ContabilidadSIG = UsuarioActual.Empresa.TipoContabilidad = 1 OrElse UsuarioActual.CveEmpresa = 119
 
             TxtFechaInicio.Text = Now.AddDays(-1).ToShortDateString
             TxtFechaFin.Text = Now.ToShortDateString
@@ -88,7 +88,7 @@ Partial Class Contabilidad_PolizasImpresion
                                            FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSegmentoNeg.SelectedValue.ToEntero,
                                            CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CvePlantillaPoliza:=DdlGrupoPlantilla.SelectedValue.ToEntero,
                                            CveTipoProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then
-            If ObjConta.DtResultados.Rows.Count < 10000 Then
+            If ObjConta.DtResultados.Rows.Count < 12000 Then
 
                 If ObjConta.DtResultados.Rows.Count > 0 Then
                     Dim dr As DataRow
@@ -125,7 +125,7 @@ Partial Class Contabilidad_PolizasImpresion
 
     Private Sub CargaDdlPolizasSIG()
         Dim objcont As New ClsContabilidad
-        If objcont.GetTiposPoliza(-1, "-1", UsuarioActual.CveEmpresa) Then
+        If objcont.GetTiposPoliza(-1, "-1", 1) Then
             ddlTipoPoliza.DataSource = objcont.DtResultados
             ddlTipoPoliza.DataBind()
             ddlTipoPoliza.Items.Insert(0, New ListItem("Todos", "-1"))