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"))