This commit is contained in:
HECTOR RODRIGUEZ
2021-07-20 18:44:56 -07:00
24 changed files with 2844 additions and 368 deletions

View File

@@ -3334,7 +3334,7 @@ Partial Class Contratos_ContratoObra
Dim StrReturn As String = String.Empty
Dim CvePS As Integer = 0
CvePS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", Opt & " = '" & Valor & "'").ToString.ToEntero
CvePS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", String.Format("{0}= '{1}'", Opt, Valor.Replace("'", ""))).ToString.ToEntero
If CvePS > 0 Then
StrReturn = "True|" & CvePS.ToString