diff --git a/Contratos/CatContratosTipos.aspx.vb b/Contratos/CatContratosTipos.aspx.vb
index 044ce9b99..f0bdc4aea 100644
--- a/Contratos/CatContratosTipos.aspx.vb
+++ b/Contratos/CatContratosTipos.aspx.vb
@@ -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()