-- carga excel, ignora la comilla sencilla

2021-07-20 12:54:16 -07:00
parent 03331a9639
commit 3745123a01
1 changed files with 1 additions and 1 deletions
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -3327,7 +3327,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