From ea4601b3d157b93dfe4c9a0d983e6fe25f906129 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 23 Feb 2023 23:42:50 -0700
Subject: [PATCH] -- subproyeccto de Af

---
 AF/RepDepreciacion.aspx    | 2 +-
 AF/RepDepreciacion.aspx.vb | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/AF/RepDepreciacion.aspx b/AF/RepDepreciacion.aspx
index 81b4c087e..1c991098c 100644
--- a/AF/RepDepreciacion.aspx
+++ b/AF/RepDepreciacion.aspx
@@ -97,7 +97,7 @@
     <br />
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Activo Fijo con depreciación" DataKeyNames="CveActivoFijo, TipoActivoFijo, Descripcion, TasaDepreciacion" ToolTip="Reporte de Depreciacion" CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center; position: static" UseAccessibleHeader="false" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Activo Fijo con depreciación" DataKeyNames="CveActivoFijo, TipoActivoFijo, Descripcion, TasaDepreciacion, CveSubProyecto" ToolTip="Reporte de Depreciacion" CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center; position: static" UseAccessibleHeader="false" GridLines="None">
                 <Columns>
                     <asp:TemplateField>
                         <HeaderTemplate>
diff --git a/AF/RepDepreciacion.aspx.vb b/AF/RepDepreciacion.aspx.vb
index ca2c7f659..63e255224 100644
--- a/AF/RepDepreciacion.aspx.vb
+++ b/AF/RepDepreciacion.aspx.vb
@@ -30,11 +30,12 @@ Partial Class AF_RepDepreciacion
             Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
             Dim ErrorMovInv As Boolean = False
             Dim ConceptoPoliza As String = String.Format("Depreciación - {0}", txtFechaI.Text)
-            Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
+            Dim CveSubProyecto As Integer ' = DdlSubProyecto.SelectedValue.ToEntero
             Dim CvePrePoliza = ObjConta.AddPrePolizas("Depreciacion", 74, 0, 0, 1, txtFechaI.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
             For Each RowsDt As GridViewRow In GvDatos.Rows
                 CveActivoFijo = RowsDt.DataKey("CveActivoFijo").ToEntero
+                CveSubProyecto = RowsDt.DataKey("CveSubProyecto").ToEntero
                 Dim MontoDepreciacion As Decimal = RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDecimal
                 If MontoDepreciacion > 0 And CveActivoFijo <> 0 Then
                     Dim ConceptoPolizaDetalle As String = String.Format("Depreciación - {0} - {1}", txtFechaI.Text, RowsDt.FCLiteral("LtlDescripcion").Text)