Commit inicial Ventas Productivo

AF/RepDepreciacion.aspx.vb

@@ -0,0 +1,58 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Microsoft.Reporting.WebForms
+Imports Extensiones
+Partial Class AF_RepDepreciacion
+    Inherits ClsPaginas
+
+#Region "PROPIEDADES"
+
+
+#End Region
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            txtFechaI.Text = Now.ToString
+        End If
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+        If GvDatos.Rows.Count = 0 Then Alert("No se encontraron Registros con los filtros actuales.", TipoMensaje.MsgAdvertencia)
+    End Sub
+
+#Region " C A R G A - D A T O S "
+    Public Sub CargaDatos()
+        Dim ObjAF As New ClsAF
+
+        If ObjAF.GetRepActivosFijosDepreciacion(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate) Then
+            GvDatos.DataSource = ObjAF.DtResultados
+            GvDatos.DataBind()
+            UPDatos.Update()
+        End If
+
+        ObjAF.Dispose()
+    End Sub
+#End Region
+
+#Region "G V - D A T O S "
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DataKey("CveActivoFijo") = "0" Then
+                e.Row.BackColor = Drawing.Color.LightGray
+                e.Row.Font.Bold = True
+                e.Row.Font.Size = 10
+                e.Row.FCLiteral("LtlDepreciacion").Text = "%"
+            End If
+        End If
+    End Sub
+#End Region
+
+#Region "CARGA COMBOS FILTRO"
+#End Region
+
+#Region "DDLS SELECTED INDEX CHANGED"
+#End Region
+
+End Class