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

23
OC/OC.aspx.vb
View File

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