-- cambios en idcta

This commit is contained in:
2023-11-16 20:52:12 -07:00
parent 7bacc44b84
commit 6808a9cb3c

View File

@@ -64,7 +64,6 @@ Public Class ClsAF
Public Property SubProyecto As String Public Property SubProyecto As String
Public Property CveProyecto As Integer Public Property CveProyecto As Integer
Public Property Proyecto As String Public Property Proyecto As String
Public Property Cuenta As Integer
Public Property CveEstadoActivoFijo As Integer Public Property CveEstadoActivoFijo As Integer
Public Property EstadoActivoFijo As String Public Property EstadoActivoFijo As String
Public Property PorDepreciacion As Double Public Property PorDepreciacion As Double
@@ -219,7 +218,6 @@ Public Class ClsAF
Me.SubProyecto = Data.Rows(0)("SubProyecto").ToString Me.SubProyecto = Data.Rows(0)("SubProyecto").ToString
Me.CveProyecto = Data.Rows(0)("CveProyecto").ToString.ToEntero Me.CveProyecto = Data.Rows(0)("CveProyecto").ToString.ToEntero
Me.Proyecto = Data.Rows(0)("Proyecto").ToString Me.Proyecto = Data.Rows(0)("Proyecto").ToString
Me.Cuenta = Data.Rows(0)("Cuenta").ToString.ToEntero
Me.CveEstadoActivoFijo = Data.Rows(0)("CveEstadoActivoFijo").ToString.ToEntero Me.CveEstadoActivoFijo = Data.Rows(0)("CveEstadoActivoFijo").ToString.ToEntero
Me.EstadoActivoFijo = Data.Rows(0)("EstadoActivoFijo").ToString Me.EstadoActivoFijo = Data.Rows(0)("EstadoActivoFijo").ToString
Me.PorDepreciacion = Data.Rows(0)("PorDepreciacion").ToString.ToDouble Me.PorDepreciacion = Data.Rows(0)("PorDepreciacion").ToString.ToDouble
@@ -343,7 +341,6 @@ Public Class ClsAF
Me.SubProyecto = Data.Rows(0)("SubProyecto").ToString Me.SubProyecto = Data.Rows(0)("SubProyecto").ToString
Me.CveProyecto = Data.Rows(0)("CveProyecto").ToString.ToEntero Me.CveProyecto = Data.Rows(0)("CveProyecto").ToString.ToEntero
Me.Proyecto = Data.Rows(0)("Proyecto").ToString Me.Proyecto = Data.Rows(0)("Proyecto").ToString
Me.Cuenta = Data.Rows(0)("Cuenta").ToString.ToEntero
Me.CveEstadoActivoFijo = Data.Rows(0)("CveEstadoActivoFijo").ToString.ToEntero Me.CveEstadoActivoFijo = Data.Rows(0)("CveEstadoActivoFijo").ToString.ToEntero
Me.EstadoActivoFijo = Data.Rows(0)("EstadoActivoFijo").ToString Me.EstadoActivoFijo = Data.Rows(0)("EstadoActivoFijo").ToString
Me.PorDepreciacion = Data.Rows(0)("PorDepreciacion").ToString.ToDouble Me.PorDepreciacion = Data.Rows(0)("PorDepreciacion").ToString.ToDouble