Contratos Usuarios detalle

Sistemas/UsuarioDetalle.aspx.vb

@@ -3701,9 +3701,16 @@ Partial Class Sistemas_UsuarioDetalle
 
             End If
 
-            ObjUsuarios.Dispose()
-        End If
-
+            ObjUsuarios.Dispose()
+
+            LblClonarMensaje.Text = $"En el usuario {TxtUsuario.Text} se reemplazará la información del usuario {DdlUsuarioClonar.SelectedItem.Text} con las siguientes secciones que seleccione."
+        Else
+            LblClonarMensaje.Text = ""
+        End If
+
+
+
+
         UpClonarUsuario.Update()
     End Sub
     Protected Sub BtnClonar_Click(sender As Object, e As EventArgs)
@@ -4832,5 +4839,14 @@ Partial Class Sistemas_UsuarioDetalle
         End Try
 
         Return resultado
-    End Function
+    End Function
+
+    Protected Sub LnkClonarUsuario_Click(sender As Object, e As EventArgs)
+
+        RegistraScript("$('#DivClonar').modal('show');")
+        LblClonarMensaje.Text = ""
+        UpClonarUsuario.Update()
+
+    End Sub
+
 End Class