diff --git a/General/CatMedidas.aspx.vb b/General/CatMedidas.aspx.vb index c5d6058a0..3d5c389c1 100644 --- a/General/CatMedidas.aspx.vb +++ b/General/CatMedidas.aspx.vb @@ -56,6 +56,7 @@ Partial Class General_CatMedidas Dim CveMedida = gvRow.DataKey("CveMedida").ToEntero() If ObjGral.RemoveMedidas(CveMedida) Then Alert("La medida se eliminó correctamente.", TipoMensaje.MsgInformacion) + GlobalDTPSMedidas(UsuarioActual.CveEmpresa) = Nothing Else Alert("La medida esta siendo utilizada por un Producto", TipoMensaje.MsgError) End If @@ -75,11 +76,13 @@ Partial Class General_CatMedidas If ObjPS.AddMedidas(DdlClasificacion.SelectedValue.ToEntero(), TxtCodigo.Text.Trim(), TxtMedida.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then RegistraScript("$('#DModal').modal('hide')") Alert("La medida se agregó correctamente.", TipoMensaje.MsgInformacion) + GlobalDTPSMedidas(UsuarioActual.CveEmpresa) = Nothing End If ElseIf Modalidad = "U" Then If ObjPS.UpdateMedidas(CveMedida, DdlClasificacion.SelectedValue.ToEntero(), TxtCodigo.Text.Trim(), TxtMedida.Text.Trim()) Then RegistraScript("$('#DModal').modal('hide')") Alert("La medida se actualizo correctamente.", TipoMensaje.MsgInformacion) + GlobalDTPSMedidas(UsuarioActual.CveEmpresa) = Nothing End If End If ObjPS.Dispose()