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

Mejora visual y de ortografia

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-05-22 12:03:37 -07:00
parent d33073e323
commit 8b047db320
4 changed files with 146 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
RH/CatDocumentos.aspx.vb
View File

@@ -560,7 +560,7 @@ Partial Class RH_CatDocumentos
Dim ObjDoc As New ClsEdocumentacion
If ObjDoc.RemoveDocumentacionParametros(CveDocumentacionParametroEliminar, UsuarioActual.CveEmpresa) Then
Alert("Parametro eliminado correctamente.")
Alert("Parámetro eliminado correctamente.")
End If
ObjDoc.Dispose()
@@ -569,7 +569,7 @@ Partial Class RH_CatDocumentos
Dim DRow As DataRow = DTTempParametros(IndexEliminar)
DRow.Delete()
DTTempParametros.AcceptChanges()
Alert("Parametro eliminado correctamente.")
Alert("Parámetro eliminado correctamente.")
End If
@@ -612,12 +612,12 @@ Partial Class RH_CatDocumentos
If CveDocumentacionParametro > 0 Then
If ObjDoc.UpdateDocumentacionParametros(CveDocumentacionParametro, CveDocumentacion, TxtParametro.Text.Trim, TxtParametroDescripcion.Text.Trim, UsuarioActual.CveEmpresa) Then
Alert("Parametro actualizado correctamente.")
Alert("Parámetro actualizado correctamente.")
ErrorProceso = False
End If
Else
If ObjDoc.AddDocumentacionParametros(CveDocumentacion, TxtParametro.Text.Trim, TxtParametroDescripcion.Text.Trim, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
Alert("Parametro agregado correctamente.")
Alert("Parámetro agregado correctamente.")
ErrorProceso = False
End If
End If
@@ -632,7 +632,7 @@ Partial Class RH_CatDocumentos
Drow("Descripcion") = TxtParametroDescripcion.Text
'Editar Row en base a index
ErrorProceso = False
Alert("Parametro actualizado correctamente.")
Alert("Parámetro actualizado correctamente.")
Else
Dim Drow As DataRow = DTTempParametros.NewRow
@@ -641,7 +641,7 @@ Partial Class RH_CatDocumentos
DTTempParametros.Rows.Add(Drow)
Alert("Parametro agregado correctamente.")
Alert("Parámetro agregado correctamente.")
ErrorProceso = False
'Agreagr Row
End If