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

-correccion

Browse Source
This commit is contained in:
Rene Molina
2020-01-30 17:11:06 -07:00
parent 7634c88e60
commit d259d6b86d
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Contratos/CatContratosTipos.aspx.vb
View File

@@ -66,8 +66,9 @@ Partial Class Contratos_CatContratosTipos
Dim TipoContrato = GvContratos.Rows(e.RowIndex).FCTextBox("TxtTipoContrato").Text.Trim
Dim Descripcion = GvContratos.Rows(e.RowIndex).FCTextBox("TxtDescripcion").Text.Trim
Dim Clave = GvContratos.Rows(e.RowIndex).DataKey("CveContratoTipo").ToEntero
If Update.UpdateContratosTipos(Clave, TipoContrato, Descripcion, True, UsuarioActual.CveEmpresa) Then
If Update.UpdateContratosTipos(Clave, TipoContrato, Descripcion, True, UsuarioActual.CveUsuario) Then
Alert("El Tipo de Contrato se actualizó correctamente.", TipoMensaje.MsgInformacion)
GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Nothing
End If
GvContratos.EditIndex = -1
CargaDatos()