AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

funcionalidad 545

Browse Source
This commit is contained in:
Hector
2021-07-29 10:21:58 -07:00
parent d8b20e3df3
commit d30769ac80
1 changed files with 14 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
OC/OC.aspx.vb
View File

@@ -2110,12 +2110,14 @@ Partial Class OC
DrPSValidar("Cantidad") = TxtCant.Text.Trim.ToDecimal DrPSValidar("Cantidad") = TxtCant.Text.Trim.ToDecimal
DrPSValidar("PU") = txtPrecioUnitario.Text.Trim.ToDecimal DrPSValidar("PU") = txtPrecioUnitario.Text.Trim.ToDecimal
dttemp.Rows.Add(DrPSValidar) dttemp.Rows.Add(DrPSValidar)
If UsuarioActual.Empresa.Funcionalidad(545) = "1" Then
Dim dtPSInvalidos As String = ValidarPSContrato(dttemp) Dim dtPSInvalidos As String = ValidarPSContrato(dttemp)
If dtPSInvalidos <> "" Then If dtPSInvalidos <> "" Then
Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia) Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
End If
If DtDetalle IsNot Nothing Then If DtDetalle IsNot Nothing Then
@@ -2485,11 +2487,14 @@ Partial Class OC
TieneError = True TieneError = True
End If End If
If UsuarioActual.Empresa.Funcionalidad(545) = "1" Then
Dim dtPSInvalidos As String = ValidarPSContrato(DtDetalle.FiltraParametros("", "", {"CveSubProyecto", "CvePS", "Cantidad", "PU"})) Dim dtPSInvalidos As String = ValidarPSContrato(DtDetalle.FiltraParametros("", "", {"CveSubProyecto", "CvePS", "Cantidad", "PU"}))
If dtPSInvalidos <> "" Then If dtPSInvalidos <> "" Then
Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia) Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia)
TieneError = True TieneError = True
End If End If
End If
Return TieneError Return TieneError
End Function End Function