Contratos Usuarios detalle

Sistemas/UsuarioDetalle.aspx

@@ -57,7 +57,11 @@
     <asp:UpdatePanel runat="server">
         <ContentTemplate>
             <li>
-                <a id="BtnClonarModal" runat="server" data-toggle="modal" style="width: 100%; margin-bottom: 10px;" href="#DivClonar"><i class="fa fa-clone"></i>Clonar Usuario </a>
+               
+                 <%--<a id="BtnClonarModal" runat="server" data-toggle="modal" style="width: 100%; margin-bottom: 10px;" href="#DivClonar"><i class="fa fa-clone"></i>Clonar Usuario </a>--%>
+
+                <asp:LinkButton runat="server" ID="LnkClonarUsuario"  OnClick="LnkClonarUsuario_Click" ><i class="fa fa-clone"></i> Clonar Usuario</asp:LinkButton>
+
             </li>
             <li>
                 <a id="BtnUpdateMasivoUsuarioResponsable" runat="server" data-toggle="modal" style="width: 100%; margin-bottom: 10px;" href="#DivUpdateUsuarioResponsable">Actualizar Gestor Cobranza </a>
@@ -2398,7 +2402,17 @@
                             </div>
                             <br />
 
-                            <div class="row">
+                            <div class="row">
+                                  
+                                
+                                <div class="col-md-12">
+                                    <p>
+                                        <asp:Label runat="server" ID="LblClonarMensaje"></asp:Label>
+                                    </p>
+                                </div>                              
+                                    
+                                
+
                                 <div class="col-md-4" runat="server" id="DivClonarProyectos" visible="false">
                                     <asp:CheckBox Text="Proyectos" ID="ChkProyectos" TextAlign="Right" runat="server" />
                                 </div>

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