From 3745123a0122f882577b7fee4c193e3d0d2a44bd Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 20 Jul 2021 12:54:16 -0700
Subject: [PATCH] -- carga excel, ignora la comilla sencilla

---
 Contratos/ContratoObra.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index acff7db4c..716e6cac0 100644
--- 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