From 4e1b04f878c6df66bd43f813a88b893e04da7ea1 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Thu, 17 Dec 2020 17:27:02 -0700
Subject: [PATCH] Contratos Usuarios detalle

---
 Contratos/ContratoObra.aspx     | 21 +++++++++++++----
 Contratos/ContratoObra.aspx.vb  | 42 ++++++++++++++++++++++++++++++++-
 Sistemas/UsuarioDetalle.aspx    | 18 ++++++++++++--
 Sistemas/UsuarioDetalle.aspx.vb | 24 +++++++++++++++----
 4 files changed, 94 insertions(+), 11 deletions(-)

diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx
index ef3d982e3..ea4c94e5d 100644
--- a/Contratos/ContratoObra.aspx
+++ b/Contratos/ContratoObra.aspx
@@ -1365,7 +1365,7 @@
                                                         </div>
 
                                                             <asp:GridView ID="GvDatosAvanceControl" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" 
-                                                                DataKeyNames="CveClasificacion,CvePS,CodigoPS,Clasificacion"
+                                                                DataKeyNames="CveClasificacion,CvePS,CodigoPS,Clasificacion,CveContratoDetalle"
                                                                 CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
                                                                 <Columns>
                                                                     <asp:BoundField HeaderText="Producto/Servicio" DataField="CodigoPS" ItemStyle-Width="30%" />
@@ -1375,12 +1375,12 @@
 
                                                                     <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="7.5%" ItemStyle-CssClass="Derecha">
                                                                         <ItemTemplate>
-                                                                            <asp:LinkButton ID="LBAvanceCantidad" OnClick="MuestaModalVentasAvance" Text='<%# Eval("AvanceCantidad", "{0:###,###,##0.00##}") %>' runat="server" />
+                                                                            <asp:LinkButton ID="LBAvanceCantidad" OnClick="MuestaModalVentasAvanceInterno" Text='<%# Eval("AvanceCantidad", "{0:###,###,##0.00##}") %>' runat="server" />
                                                                         </ItemTemplate>
                                                                     </asp:TemplateField>
                                                                     <asp:TemplateField HeaderText="Importe $" ItemStyle-Width="7.5%" ItemStyle-CssClass="Derecha">
                                                                         <ItemTemplate>
-                                                                            <asp:LinkButton ID="LBAvanceImporte" OnClick="MuestaModalVentasAvance" Text='<%# Eval("AvanceImporte", "{0:###,###,##0.00##}") %>' runat="server" />
+                                                                            <asp:LinkButton ID="LBAvanceImporte" OnClick="MuestaModalVentasAvanceInterno" Text='<%# Eval("AvanceImporte", "{0:###,###,##0.00##}") %>' runat="server" />
                                                                         </ItemTemplate>
                                                                     </asp:TemplateField>
                                                                     <asp:BoundField HeaderText="%" DataField="AvancePorcentaje" ItemStyle-HorizontalAlign="Right"  ItemStyle-Width="5%" />
@@ -2391,7 +2391,8 @@
                                     </table>
 
                                     <div style="overflow-y: auto; height: 400px;">
-                                        <asp:GridView ID="GvDatosVentasAvance" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
+
+                                        <asp:GridView ID="GvDatosVentasAvance" Visible="false" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
                                             <Columns>
                                                 <asp:HyperLinkField HeaderText="Folio" DataTextField="SerieFolio" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                                 <asp:HyperLinkField HeaderText="Fecha" DataTextField="Fecha" Target="_blank" ItemStyle-Width="10%" ItemStyle-CssClass="Texto" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
@@ -2401,6 +2402,18 @@
                                                 <asp:HyperLinkField HeaderText="Total" DataTextField="SubTotalDetalle" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Texto Derecha" DataTextFormatString="{0:###,###,##0.00##}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                             </Columns>
                                         </asp:GridView>
+
+                                        <asp:GridView ID="GvDatosVentasAvanceInterno" Visible="false" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
+                                            <Columns>
+                                                <asp:HyperLinkField HeaderText="Folio" DataTextField="SerieFolio" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" />
+                                                <asp:HyperLinkField HeaderText="Fecha" DataTextField="Fecha" Target="_blank" ItemStyle-Width="10%" ItemStyle-CssClass="Texto" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" />
+                                                <asp:HyperLinkField HeaderText="Sucursal" DataTextField="SubProyecto" Target="_blank" ItemStyle-Width="15%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" />
+                                                <asp:HyperLinkField HeaderText="Proveedor" DataTextField="Proveedor" Target="_blank" ItemStyle-Width="35%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" />
+                                                <asp:HyperLinkField HeaderText="Cantidad" DataTextField="Cantidad" Target="_blank" ItemStyle-Width="5%" ItemStyle-CssClass="Texto Derecha" DataTextFormatString="{0:###,##0.00##}" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" />
+                                                <asp:HyperLinkField HeaderText="Total" DataTextField="SubTotalDetalle" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Texto Derecha" DataTextFormatString="{0:###,###,##0.00##}" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" />
+                                            </Columns>
+                                        </asp:GridView>
+
                                     </div>
 
                                 </ContentTemplate>
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index f627ea687..84bf44ec2 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -2299,7 +2299,7 @@ Partial Class Contratos_ContratoObra
 
             If e.Row.DBCampo("CveClasificacion").ToString.ToEntero = 0 Then
                 e.Row.CssClass = "Totales white"
-            ElseIf e.Row.DBCampo("CvePS").ToString.ToEntero = 0 Then
+            ElseIf e.Row.DBCampo("CveContratoDetalle").ToString.Length = 0 And e.Row.DBCampo("CveClasificacion").ToString.ToEntero <> 0 Then
                 e.Row.CssClass = "SubTotales"
             End If
 
@@ -2313,10 +2313,13 @@ Partial Class Contratos_ContratoObra
 
         End If
     End Sub
+
     Protected Sub MuestaModalVentasAvance(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
 
+        GvDatosVentasAvance.Visible = True
+        GvDatosVentasAvanceInterno.Visible = False
 
         'Dim Btn = CType(sender, LinkButton)
         'Dim Parametros = Btn.CommandArgument.Split("|"c)
@@ -2347,6 +2350,43 @@ Partial Class Contratos_ContratoObra
         UpVentasAvance.Update()
 
     End Sub
+
+
+    Protected Sub MuestaModalVentasAvanceInterno(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
+
+
+        GvDatosVentasAvance.Visible = False
+        GvDatosVentasAvanceInterno.Visible = True
+
+
+        Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero
+        Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
+        Dim CodigoPS As String = GvRow.DataKey("CodigoPS")
+        Dim Clasificacion As String = GvRow.DataKey("Clasificacion")
+
+        Dim ObjContratos As New ClsContratos
+
+        If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 2) Then
+            GvDatosVentasAvanceInterno.DataSource = ObjContratos.DtResultados
+            RegistraScript("$('#ModalVentasAvance').modal('show');RecargaAvances = true;")
+        Else
+            Alert("Ocurrió un error al obtener el Listado de Ventas de Avance. Por favor vuelva a intentar", TipoMensaje.MsgError)
+        End If
+
+        ObjContratos.Dispose()
+        GvDatosVentasAvanceInterno.DataBind()
+
+        LbTituloModalVentasAvance.Text = "Compras de Avance"
+
+        LbClasificacionVentasAvance.Text = Clasificacion
+        LbPSVentasAvance.Text = CodigoPS
+
+        UpVentasAvance.Update()
+
+    End Sub
+
 #End Region
 
 #Region "  TAB: REPORTE AVANCES POR DOCUMENTO "
diff --git a/Sistemas/UsuarioDetalle.aspx b/Sistemas/UsuarioDetalle.aspx
index 065bfcd50..e8217723e 100644
--- a/Sistemas/UsuarioDetalle.aspx
+++ b/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>
diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index 64e54fe8e..67eb0733e 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/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