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 TipoContrato = GvContratos.Rows(e.RowIndex).FCTextBox("TxtTipoContrato").Text.Trim
Dim Descripcion = GvContratos.Rows(e.RowIndex).FCTextBox("TxtDescripcion").Text.Trim Dim Descripcion = GvContratos.Rows(e.RowIndex).FCTextBox("TxtDescripcion").Text.Trim
Dim Clave = GvContratos.Rows(e.RowIndex).DataKey("CveContratoTipo").ToEntero 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) Alert("El Tipo de Contrato se actualizó correctamente.", TipoMensaje.MsgInformacion)
GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Nothing
End If End If
GvContratos.EditIndex = -1 GvContratos.EditIndex = -1
CargaDatos() CargaDatos()