-- carga excel, ignora la comilla sencilla
This commit is contained in:
@@ -3327,7 +3327,7 @@ Partial Class Contratos_ContratoObra
|
|||||||
Dim StrReturn As String = String.Empty
|
Dim StrReturn As String = String.Empty
|
||||||
Dim CvePS As Integer = 0
|
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
|
If CvePS > 0 Then
|
||||||
StrReturn = "True|" & CvePS.ToString
|
StrReturn = "True|" & CvePS.ToString
|
||||||
|
|||||||
Reference in New Issue
Block a user