From ec753bf3dcb32b269eea8d1564887ff10e4e8639 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Sat, 22 Jun 2024 12:07:26 -0700
Subject: [PATCH] =?UTF-8?q?Saldos=20Menores,=20=20EMD=20-=20impresi=C3=B3n?=
 =?UTF-8?q?=20de=20presupuestos,=20en=20base=20a=20OC=20autorizadas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb                           |  4 ++--
 Contratos/RepPresupuestos.aspx.vb                 | 14 ++++++++++++--
 Empresas/Grales/Formatos/RepPresupuestoAnual.rdlc |  6 +++++-
 General/SaldosMenores.aspx.vb                     |  6 +++---
 OC/OC.aspx.vb                                     | 10 +++++-----
 5 files changed, 27 insertions(+), 13 deletions(-)

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/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/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 @@
           <DataField>Autorizado</DataField>
           <rd:TypeName>System.Double</rd:TypeName>
         </Field>
+        <Field Name="Comprometido">
+          <DataField>Comprometido</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
         <Field Name="Ejercido">
           <DataField>Ejercido</DataField>
           <rd:TypeName>System.Double</rd:TypeName>
@@ -245,7 +249,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>= IIF( Parameters!PresupuestoRestrictivo.Value = "2",  IIF(CDec(Fields!Autorizado.Value)=0,"-",Fields!Autorizado.Value),IIF(CDec(Fields!Ejercido.Value)=0,"-",Fields!Ejercido.Value))</Value>
+                                  <Value>= IIF( Parameters!PresupuestoRestrictivo.Value = "2", iif(CDec(Fields!Comprometido.Value)=0,"-",Fields!Comprometido.Value), iif(CDec(Fields!Ejercido.Value)=0,"-",Fields!Ejercido.Value))</Value>
                                   <Style>
                                     <Format>#,0.00</Format>
                                     <Color>=IIf(Fields!Tipo.Value = 0, "White","Black")</Color>
diff --git a/General/SaldosMenores.aspx.vb b/General/SaldosMenores.aspx.vb
index 1859ef420..23b0c27fd 100644
--- a/General/SaldosMenores.aspx.vb
+++ b/General/SaldosMenores.aspx.vb
@@ -298,7 +298,7 @@ Partial Public Class General_SaldosMenores
         Dim ImporteTotalGasto As Decimal = 0
         Dim MsgError As String = ""
 
-        CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepNCXAplicar", 6, 0, 0, 1, TxtFecha.Text.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)
+        CvePrePoliza = ObjConta.AddPrePolizas("SaldosMenores/RepNCXAplicar", 6, 0, 0, 1, TxtFecha.Text.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)
         Dim tMovto As Boolean = True
         Dim tConceptoSaldar As Integer = 78
 
@@ -536,7 +536,7 @@ Partial Public Class General_SaldosMenores
             End If
         End If
 
-        CvePrePoliza = ObjConta.AddPrePolizas("Bancos/ClientesAbonar/SaldarI", 47, 0, 0, 1, TxtFecha.Text.ToDate, TxtConcepto.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        CvePrePoliza = ObjConta.AddPrePolizas("SaldosMenores/SaldarI", 47, 0, 0, 1, TxtFecha.Text.ToDate, TxtConcepto.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
 
         For Each gr As GridViewRow In GvCxC.Rows
@@ -722,7 +722,7 @@ Partial Public Class General_SaldosMenores
 
         Dim EsContabilizable As Boolean = If(UsuarioActual.CveEmpresa.Contiene(13, 83), False, True)
 
-        CvePrePoliza = ObjConta.AddPrePolizas("Bancos/ProveedoresAbonar/Saldar", 98, 0, 0, 1, TxtFecha.Text.ToDate, TxtConcepto.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        CvePrePoliza = ObjConta.AddPrePolizas("SaldosMenores/SaldarE", 98, 0, 0, 1, TxtFecha.Text.ToDate, TxtConcepto.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
         For Each gr As GridViewRow In GvCxP.Rows
             If gr.FCCheckBox("Chk").Checked Then
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index f62be8914..3b435163b 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -3553,7 +3553,7 @@ Partial Class OC_OC
 
             End If
 
-            If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
+            If UsuarioActual.Empresa.Funcionalidad(532).Contiene("1", "2") Then
 
                 If Not GeneraPrePolizaPresupuesto(objOrdenCompra.CveOrdenCompra, objOrdenCompra.IniciaTransacSQL) Then
                     HuboError = True
@@ -3717,7 +3717,7 @@ Partial Class OC_OC
                 TieneError = True
             End If
 
-            If (UsuarioActual.Empresa.Funcionalidad(532) = "1") Then
+            If (UsuarioActual.Empresa.Funcionalidad(532).Contiene("1", "2")) Then
                 GeneraPrePolizaPresupuesto(CveOrdenCompra, objOrdenCompra.IniciaTransacSQL, True)
             End If
 
@@ -4190,7 +4190,7 @@ Partial Class OC_OC
             Proyecto = gvr.FCDropDownList("DdlProyectoEdit").SelectedItem.Text
         End If
 
-        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 Decimal = 0
@@ -9090,7 +9090,7 @@ Partial Class OC_OC
 
         Dim respuesta As Boolean = False
 
-        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
@@ -9202,7 +9202,7 @@ Partial Class OC_OC
 
         Dim Respuesta As Boolean = True
 
-        If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(532).Contiene("1", "2") Then
 
             Dim CveMonedaPresupuesto As Integer = DdlMoneda.SelectedValue.ToEntero
             Dim TC As Decimal = If(CveMonedaPresupuesto = 1, 1, GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal)