funcionalidad 545

OC/OC.aspx.vb

@@ -2110,14 +2110,16 @@ Partial Class OC
         DrPSValidar("Cantidad") = TxtCant.Text.Trim.ToDecimal
         DrPSValidar("PU") = txtPrecioUnitario.Text.Trim.ToDecimal
         dttemp.Rows.Add(DrPSValidar)
-
-        Dim dtPSInvalidos As String = ValidarPSContrato(dttemp)
-        If dtPSInvalidos <> "" Then
-            Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia)
-            Exit Sub
+        If UsuarioActual.Empresa.Funcionalidad(545) = "1" Then
+            Dim dtPSInvalidos As String = ValidarPSContrato(dttemp)
+            If dtPSInvalidos <> "" Then
+                Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
         End If
 
 
+
         If DtDetalle IsNot Nothing Then
             Dim DrPS = GlobalDTPS(CveEmpresaActual, CvePS:=DdlP2.SelectedValue.ToEntero).FiltroPrimero("")
             If DrPS Is Nothing Then
@@ -2485,12 +2487,15 @@ Partial Class OC
             TieneError = True
         End If
 
-        Dim dtPSInvalidos As String = ValidarPSContrato(DtDetalle.FiltraParametros("", "", {"CveSubProyecto", "CvePS", "Cantidad", "PU"}))
-        If dtPSInvalidos <> "" Then
-            Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia)
-            TieneError = True
+        If UsuarioActual.Empresa.Funcionalidad(545) = "1" Then
+            Dim dtPSInvalidos As String = ValidarPSContrato(DtDetalle.FiltraParametros("", "", {"CveSubProyecto", "CvePS", "Cantidad", "PU"}))
+            If dtPSInvalidos <> "" Then
+                Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia)
+                TieneError = True
+            End If
         End If
 
+
         Return TieneError
     End Function
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click