Saldos Menores, EMD - impresión de presupuestos, en base a OC autorizadas

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

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

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>

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

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)