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

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)