Contratos Usuarios detalle

2020-12-17 17:27:02 -07:00
parent 713f85c8dc
commit 4e1b04f878
4 changed files with 94 additions and 11 deletions
--- 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>
--- 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 "
--- 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>
--- 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