diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index a7bd91c78..2f8a91298 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -609,7 +609,8 @@ Public Class ClsMovimientos
'CveAplicaNC
Public Function GetCxPProveedor(CveProveedor As Integer, FechaI As String, FechaF As String, CveUsuarioProgramo As Integer, CveUsuarioRegistro As Integer,
CveUsuarioResponsable As Integer, CveClasificacionProveedor As Integer, CveMoneda As Integer, CveEstatus As Integer, CveProveedorSucursal As Integer, CveAplicaNC As Integer,
- Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional CodigoProgramacion As String = "-1", Optional CveSubProyecto As Integer = -1) As Boolean
+ Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional CodigoProgramacion As String = "-1", Optional CveSubProyecto As Integer = -1, Optional Opcion As Integer = 1,
+ Optional CveEmpresa As Integer = -1, Optional SaldoMayorA As Decimal = -999999999999, Optional SaldoMenorA As Decimal = 999999999999) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ProveedorCxP")
With SqlAdapter.SelectCommand.Parameters
@@ -628,7 +629,10 @@ Public Class ClsMovimientos
.Add("@FechaVF", SqlDbType.VarChar).Value = FechaVF
.Add("@CodigoProgramacion", SqlDbType.VarChar).Value = CodigoProgramacion
.Add("@CveSubProyecto", SqlDbType.SmallInt).Value = CveSubProyecto
-
+ .Add("@Opcion", SqlDbType.SmallInt).Value = Opcion
+ .Add("@CveEmpresaOp", SqlDbType.SmallInt).Value = CveEmpresa
+ .Add("@SaldoMayorA", SqlDbType.Money).Value = SaldoMayorA
+ .Add("@SaldoMenorA", SqlDbType.Money).Value = SaldoMenorA
End With
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index faeecc9df..f5244df41 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -416,7 +416,7 @@ Partial Class Bancos_DepositosCaja
Next
Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEOrigen}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")
- documentos += String.Format("Imprimir {1}
", StrEncript, "Depósito Bancario")
+ documentos += String.Format("Imprimir {1}
", StrEncript, "Depósito Bancario")
@@ -430,7 +430,11 @@ Partial Class Bancos_DepositosCaja
End If
If Not OcurrioError Then
- documentos += String.Format("Prepóliza
", NuevaCvePrePoliza)
+ documentos += String.Format("Prepóliza
", NuevaCvePrePoliza)
+ If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+ Dim ParametrosPrePoliza As String = Encripta($"OP=PREPO&CvePrePoliza={NuevaCvePrePoliza}")
+ documentos += String.Format("Imprimir {1}
", ParametrosPrePoliza, "PrePoliza")
+ End If
End If
Catch ex As Exception
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index d945f314e..6b13d5b35 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -17096,7 +17096,7 @@ Partial Class Compras_Compras
Dim Total As Decimal = (TxtCantidad.Text.ToDecimal * TxtPrecio.Text.ToDecimal) - TxtDescuentoModal.Text.ToDecimal
- 'If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
+ 'If UsuarioActual.Empresa.Funcionalidad(532).Contiene( "1","2") Then
' Dim ObjCon As New ClsContratos
' Dim CvePresupuesto As Integer = 0
' Dim Autorizado As Double = 0
@@ -20760,7 +20760,7 @@ Partial Class Compras_Compras
Dim respuesta As Boolean = False
- If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
+ If UsuarioActual.Empresa.Funcionalidad(532).Contiene("1", "2") Then
If Opcion = 1 Or OCVinculada Or DdlTipoComprobante.SelectedValue <> "Fac" Then
Return True
diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs
index ace02b2f8..1a90339d7 100644
--- a/Contabilidad/RepIVA.aspx.cs
+++ b/Contabilidad/RepIVA.aspx.cs
@@ -253,14 +253,33 @@ public partial class Contabilidad_RepIVA : ClsPaginas
if (Archivo.Exists)
{
Ruta = string.Format("{0}Formatos\\{1}", UsuarioActual.Empresa.Ruta, Formato);
- ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+ //ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+
+ if (UsuarioActual.Empresa.Funcionalidad(713).ToEntero() == 1)
+ {
+ ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta, Dt, para, DtIEPSA, DtIVAA, "RepIEPSPorcentaje.rpt", "RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+ }
+ else
+ {
+ //ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+ ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta, Dt, para, new DataTable(), new DataTable(), "RepIEPSPorcentaje.rpt", "RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+ }
+
}else
{
Ruta = ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}";
-
-
+ //ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta, Dt, para, DtIEPSA, DtIVAA, "RepIEPSPorcentaje.rpt", "RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+ if (UsuarioActual.Empresa.Funcionalidad(713).ToEntero() == 1)
+ {
ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta, Dt, para, DtIEPSA, DtIVAA, "RepIEPSPorcentaje.rpt", "RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
- //ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+ }
+ else
+ {
+ //ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+ ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta, Dt, para, new DataTable(), new DataTable(), "RepIEPSPorcentaje.rpt", "RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+ }
+
+
}
diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb
index 7995872cd..88b7becb7 100644
--- a/Contratos/RepPresupuestos.aspx.vb
+++ b/Contratos/RepPresupuestos.aspx.vb
@@ -602,11 +602,21 @@ Partial Class Contratos_RepPresupuestos
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("AgrupadoPor", $"{FechaIn}{FechaFn}{Agrupador}{Proyecto}{SubProyecto}{Clasificacion}{TipoGasto}"))
- params.Add(New ReportParameter("Autorizado", LtlAutorizado.Text.FormatoNumero()))
- params.Add(New ReportParameter("Ejercido", LtlEjercido.Text.FormatoNumero()))
+ params.Add(New ReportParameter("Autorizado", LtlAutorizado.Text.FormatoNumero()))
+
params.Add(New ReportParameter("PorEjercer", LtlPorEjercer.Text.FormatoNumero()))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+ If UsuarioActual.Empresa.Funcionalidad(532) = "2" Then
+ Dim DrPresupuesto = DtPresupuestos.FiltroPrimero("Tipo = 0 AND CveAgrupador IS NULL")
+ Dim Comprometido = DrPresupuesto("Comprometido").ToString.ToDecimal
+ params.Add(New ReportParameter("Ejercido", Comprometido.ToString.FormatoNumero()))
+ Else
+ params.Add(New ReportParameter("Ejercido", LtlEjercido.Text.FormatoNumero()))
+ End If
+
+
+
params.Add(New ReportParameter("PresupuestoRestrictivo", UsuarioActual.Empresa.Funcionalidad(532)))
diff --git a/Empresas/119/Formatos/RepIVA.rpt b/Empresas/119/Formatos/RepIVA.rpt
index dac02e363..746765840 100644
Binary files a/Empresas/119/Formatos/RepIVA.rpt and b/Empresas/119/Formatos/RepIVA.rpt differ
diff --git a/Empresas/Grales/Formatos/CatPS.rpt b/Empresas/Grales/Formatos/CatPS.rpt
index b1c8440bf..d6860ee14 100644
Binary files a/Empresas/Grales/Formatos/CatPS.rpt and b/Empresas/Grales/Formatos/CatPS.rpt differ
diff --git a/Empresas/Grales/Formatos/RepPresupuestoAnual.rdlc b/Empresas/Grales/Formatos/RepPresupuestoAnual.rdlc
index 446a7587f..210c0ed97 100644
--- a/Empresas/Grales/Formatos/RepPresupuestoAnual.rdlc
+++ b/Empresas/Grales/Formatos/RepPresupuestoAnual.rdlc
@@ -25,6 +25,10 @@
Autorizado
System.Double
+
+ Comprometido
+ System.Double
+
Ejercido
System.Double
@@ -245,7 +249,7 @@
- = IIF( Parameters!PresupuestoRestrictivo.Value = "2", IIF(CDec(Fields!Autorizado.Value)=0,"-",Fields!Autorizado.Value),IIF(CDec(Fields!Ejercido.Value)=0,"-",Fields!Ejercido.Value))
+ = IIF( Parameters!PresupuestoRestrictivo.Value = "2", iif(CDec(Fields!Comprometido.Value)=0,"-",Fields!Comprometido.Value), iif(CDec(Fields!Ejercido.Value)=0,"-",Fields!Ejercido.Value))