-- subproyeccto de Af

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)