From 793b06166a2d0c15a1139de0370e779cec1e3887 Mon Sep 17 00:00:00 2001
From: MLopez <Mario.lopez@adssistemas.mx>
Date: Sat, 21 Jan 2023 14:10:24 -0700
Subject: [PATCH] =?UTF-8?q?Rep=20Compras=20AF=20Detalle:=20Agregar=20Tipo,?=
 =?UTF-8?q?=20SubTipo,=20Clasificacion.=20Limpiar=20c=C3=B3digo.=20Corregi?=
 =?UTF-8?q?r=20configuraci=C3=B3n=20de=20centros=20de=20costo.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/RepComprasAFDetalle.aspx    | 160 ++++------------------------
 Compras/RepComprasAFDetalle.aspx.vb |  38 ++-----
 2 files changed, 30 insertions(+), 168 deletions(-)

diff --git a/Compras/RepComprasAFDetalle.aspx b/Compras/RepComprasAFDetalle.aspx
index bb5fbd9fa..2d2fb3f5d 100644
--- a/Compras/RepComprasAFDetalle.aspx
+++ b/Compras/RepComprasAFDetalle.aspx
@@ -8,6 +8,9 @@
             max-width:600px;
             width:600px;
         }
+        .margenbound {
+            text-align: right;
+        }
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
@@ -156,7 +159,6 @@
                         <div class="col-md-1"><asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label></div>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
 
@@ -164,7 +166,6 @@
                        <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlSubProyecto" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>                        
 
@@ -213,144 +214,25 @@
         <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" data-sort="true" DataKeyNames="Cantidad,Total,Moneda"  AutoGenerateColumns="False" EmptyDataText="No se encontraron registros con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
-                <Columns>                    
-                    <asp:TemplateField>
-                        <HeaderTemplate>
-                            Factura
-                        </HeaderTemplate>
-                        <ItemTemplate>                           
-                            <asp:Label  ID="LblFactura"  runat="server"   Text='<%#   Eval("SerieFolio")    %>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-
-                    <asp:TemplateField>
-                        <HeaderTemplate>
-                           SubProyecto
-                        </HeaderTemplate>
-                        <ItemTemplate>                            
-                            <asp:Label  ID="LblSubProyecto"  CssClass="ML Truncate"  runat="server" Text='<%#    Eval("SubProyecto")    %>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                     <asp:TemplateField>
-                        <HeaderTemplate>
-                            ActivoFijo
-                        </HeaderTemplate>
-                        <ItemTemplate>                           
-                            <%--<asp:Label  ID="LblActivoFijo"  CssClass="ML Truncate"  runat="server" Text='<%#    Eval("Descripcion")    %>'></asp:Label>--%>
-                            <asp:Label  ID="LblActivoFijo"  CssClass="ML Truncate"  runat="server" Text='<%#    Eval("CodigoAF")    %>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                    <asp:TemplateField Visible="false">
-                        <HeaderTemplate>
-                            No. Serie
-                        </HeaderTemplate>
-                        <ItemTemplate>                           
-                            <asp:Label  ID="LblNoSerie"  CssClass="ML Truncate"  runat="server" Text='<%#    Eval("NoSerie")    %>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                     <asp:TemplateField>
-                        <HeaderTemplate>
-                            Producto
-                        </HeaderTemplate>
-                        <ItemTemplate>                           
-                            <asp:Label  ID="LblPS"   runat="server"  CssClass="ML Truncate"  Text='<%#   Eval("CodigoPS")    %>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-
-                      <asp:TemplateField>
-                        <HeaderTemplate>
-                            Responsable
-                        </HeaderTemplate>
-                        <ItemTemplate>                           
-                            <asp:Label  ID="LblResponsable"   runat="server"  CssClass="ML Truncate"  Text='<%#   Eval("NombreCompleto")    %>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                    <asp:TemplateField>
-                        <HeaderTemplate>
-                            Horometro/Odometro
-                        </HeaderTemplate>
-                        <ItemTemplate>                           
-                            <asp:Label  ID="LblHorometroOdometro"   runat="server"  CssClass="ML Truncate"  Text='<%#   Eval("AFMedida")    %>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-
-                    <asp:TemplateField>
-                        <HeaderTemplate>
-                           Tipo Mantenimiento
-                        </HeaderTemplate>
-                        <ItemTemplate>                           
-                            <asp:Label  ID="LblAFTipoMantenimientoStr"   runat="server"  CssClass="ML Truncate"  Text='<%#   Eval("AFTipoMantenimientoStr")    %>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                     <asp:TemplateField>
-                        <HeaderTemplate>
-                           Clasificación 2
-                        </HeaderTemplate>
-                        <ItemTemplate>                           
-                            <asp:Label  ID="LblClasificacion2"   runat="server"  CssClass="ML Truncate"  Text='<%#   Eval("Clasificacion2")    %>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                    
-
-                    
-
-                    <asp:TemplateField  ItemStyle-HorizontalAlign="Left">
-                        <HeaderTemplate>
-                           Unidad de Medida
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Label Id="LtlPU"   runat="server" Text='<%# Eval("UnidadMedida") %>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                <asp:TemplateField   ItemStyle-HorizontalAlign="Right">
-                        <HeaderTemplate>
-                            Cantidad
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Label Id="LtlCantidad"   runat="server" Text='<%# Eval("Cantidad", "{0:N0}") %>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                      <asp:TemplateField  ItemStyle-HorizontalAlign="Right">
-                        <HeaderTemplate>
-                            PU
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Label Id="LtlPU"   runat="server" Text='<%# Eval("PU", "{0:N2}") %>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                    <asp:TemplateField  ItemStyle-HorizontalAlign="Right">
-                        <HeaderTemplate>
-                            Total
-                        </HeaderTemplate>
-                        <ItemTemplate>                             
-                            <asp:Label  ID="LblCantidad" style="margin-right:15px"   runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                      <asp:TemplateField  ItemStyle-HorizontalAlign="Left" ItemStyle-Width="100px">
-                        <HeaderTemplate>
-                          Cuenta
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Label Id="LtlPU"   runat="server" Text='<%# Eval("CuentaContable") %>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
+                <Columns>
+                    <asp:BoundField DataField="SerieFolio" HeaderText="Factura" />
+                    <asp:BoundField DataField="SubProyecto" ItemStyle-CssClass="ML Truncate" HeaderText="SubProyecto" />
+                    <asp:BoundField DataField="CodigoAF" ItemStyle-CssClass="ML Truncate" HeaderText="Activo Fijo" />
+                    <asp:BoundField DataField="NoSerie" ItemStyle-CssClass="ML Truncate" HeaderText="No. Serie" Visible="false"/>
+                    <asp:BoundField DataField="CodigoPS" ItemStyle-CssClass="ML Truncate" HeaderText="Producto" />
+                    <asp:BoundField DataField="NombreCompleto" ItemStyle-CssClass="ML Truncate" HeaderText="Responsable" />
+                    <asp:BoundField DataField="AFMedida" ItemStyle-CssClass="ML Truncate" HeaderText="Horómetro/Odómetro" />
+                    <asp:BoundField DataField="AFTipoMantenimientoStr" ItemStyle-CssClass="ML Truncate" HeaderText="Tipo Mantenimiento" />
+                    <asp:BoundField DataField="TipoActivoFijo" ItemStyle-CssClass="ML Truncate" HeaderText="Tipo AF" />
+                    <asp:BoundField DataField="SubTipoActivoFijo" ItemStyle-CssClass="ML Truncate" HeaderText="SubTipo AF" />
+                    <asp:BoundField DataField="Clasificacion" ItemStyle-CssClass="ML Truncate" HeaderText="Clasificación" />
+                    <asp:BoundField DataField="Clasificacion2" ItemStyle-CssClass="ML Truncate" HeaderText="Clasificación 2" />
+                    <asp:BoundField DataField="UnidadMedida" HeaderText="Unidad de Medida" />
+                    <asp:BoundField DataFormatString="{0:N0}" DataField="Cantidad" ItemStyle-CssClass="margenbound" HeaderText="Cantidad" />
+                    <asp:BoundField DataFormatString="{0:C2}" DataField="PU" ItemStyle-CssClass="margenbound" HeaderText="PU" />
+                    <asp:BoundField DataFormatString="{0:C2}" DataField="Total" ItemStyle-CssClass="margenbound" HeaderText="Total" />
+                    <asp:BoundField DataField="CuentaContable" HeaderText="Cuenta" ItemStyle-Width="100px" />
                 </Columns>
-                <%--<RowStyle CssClass="Texto" />
-                <HeaderStyle CssClass="Titulos" />--%>
             </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>
diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb
index 5b19beed7..d6bcbd3a5 100644
--- a/Compras/RepComprasAFDetalle.aspx.vb
+++ b/Compras/RepComprasAFDetalle.aspx.vb
@@ -226,31 +226,7 @@ Partial Class Compras_RepComprasAFDetalle
             DdlPS.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
         End If
 
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlProyecto.Visible = False
-            LblSubProyecto.Text = "Sucursal"
-            LblProyecto.Visible = False
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlProyecto.Visible = False
-            LblSubProyecto.Text = "Proyecto"
-            LblProyecto.Visible = False
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Or UsuarioActual.Empresa.Tipo_CentroCosto = 0 Then
-            LblProyecto.Text = "Proyecto"
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.Text = "Sucursal"
-            LblSubProyecto.Text = "Proyecto"
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.Text = "Proyecto"
-            LblSubProyecto.Text = "Sucursal"
-        End If
-
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
 
     End Sub
 
@@ -264,15 +240,19 @@ Partial Class Compras_RepComprasAFDetalle
 
     End Sub
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        If DdlProyecto.SelectedValue = "-1" Then
+            DdlProyecto.Items.Clear()
+            DdlSubProyecto.Items.Clear()
+            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+        Else
+            CargaSubProyecto()
+        End If
     End Sub
     Private Sub CargaSubProyecto()
-
         DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue), "SubProyecto")
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
     End Sub
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
         CargaDatos()