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 @@
+ Impresión Masiva de pólizas
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"))