AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2021-12-13 05:41:07 -07:00
parent 01d0d6128a
commit fffbfa8576
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsRH.vb
View File

@@ -1974,10 +1974,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
ElseIf Ex1.Message.Contains("dbo.Vw_Val_Nom_Curps") Then ElseIf Ex1.Message.Contains("dbo.Vw_Val_Nom_Curps") Then
Alert(String.Format("El nuevo personal no se guardo, ya existe un personal con esta curp '{0}'", CURP), TipoMensaje.MsgAdvertencia) Alert(String.Format("El nuevo personal no se guardo, ya existe un personal con esta curp '{0}'", CURP), TipoMensaje.MsgAdvertencia)
Else Else
Me.OnError("Ocurrió un error al guardar el nuevo Personal.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Me.OnError("Ocurrió un error al guardar el nuevo personal.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If End If
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al guardar el nuevo Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al guardar el nuevo personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno

3
Ashx/SIGWeb.ashx
View File

@@ -1360,6 +1360,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
End Function End Function
#End Region #End Region
Private Function GetFilesDirectory(ByVal context As HttpContext) As String Private Function GetFilesDirectory(ByVal context As HttpContext) As String
Dim retorno As String = "" Dim retorno As String = ""
Dim urlhost As String = context.Request.Url.Host.ToUpper() Dim urlhost As String = context.Request.Url.Host.ToUpper()
@@ -1376,7 +1377,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Next Next
xmlarchivos.Add(xfolder) xmlarchivos.Add(xfolder)
retorno = xmlarchivos.ToString() retorno = xmlarchivos.ToString()
context.Response.ContentType = "text/xml" context.Response.ContentType = "application/xml"
context.Response.Write(retorno) context.Response.Write(retorno)
context.Response.StatusCode = 200 context.Response.StatusCode = 200
Else Else