funcionalidad 545

OC/OC.aspx.vb

@@ -2110,12 +2110,14 @@ Partial Class OC
         DrPSValidar("Cantidad") = TxtCant.Text.Trim.ToDecimal
         DrPSValidar("PU") = txtPrecioUnitario.Text.Trim.ToDecimal
         dttemp.Rows.Add(DrPSValidar)
-
+        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
@@ -2485,11 +2487,14 @@ Partial Class OC
             TieneError = True
         End If
 
+        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