Commit inicial Ventas Productivo

Compras/RepImportaciones.aspx.vb

@@ -0,0 +1,80 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Partial Class Compras_RepImportaciones
+    Inherits ClsPaginas
+
+#Region "PROPIEDADES"
+    Private Property DtImportaciones As DataTable
+        Get
+            Return CType(ViewState("DtImportaciones"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtImportaciones") = value
+        End Set
+    End Property
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            InicializaValores()
+
+        End If
+    End Sub
+
+    Private Sub InicializaValores()
+        TxtFechaI.Text = Date.Now.AddDays(-Now.DayOfYear + 1).ToShortDateString
+        TxtFechaF.Text = Date.Now.ToShortDateString
+
+        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        DdlProveedor.DataBind()
+        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        'DdlAF.DataSource = GlobalDTActivoFijos
+        'DdlAF.DataBind()
+        'DdlAF.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+
+#Region "  CARGA DAATOS  "
+    Protected Sub BtnConsultarFiltros_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+    End Sub
+    Private Sub CargaDatos()
+        Dim ObjImportaciones As New ClsCompras
+        Dim FechaI, FechaF As String
+
+        If TxtFechaI.Text <> "" Then FechaI = TxtFechaI.Text Else FechaI = "-1"
+        If TxtFechaF.Text <> "" Then FechaF = TxtFechaF.Text Else FechaF = "-1"
+
+        If ObjImportaciones.GetImportaciones(-1, DdlProveedor.SelectedValue.ToString.ToEntero, -1, FechaI, FechaF, UsuarioActual.CveEmpresa) Then
+            DtImportaciones = ObjImportaciones.DtResultados
+        Else
+            Alert("Ocurrió un error al cargar las importaciones", TipoMensaje.MsgError)
+        End If
+        ObjImportaciones.Dispose()
+
+        CargaGrid()
+    End Sub
+    Private Sub CargaGrid()
+        GvDatos.DataSource = DtImportaciones
+        GvDatos.DataBind()
+        UpDatos.Update()
+    End Sub
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.FCLiteral("Consecutivo").Text = (GvDatos.Rows.Count + 1).ToString
+        End If
+    End Sub
+#End Region
+
+
+    Protected Sub LnkExportar_Click(sender As Object, e As EventArgs)
+        GvDatos.ExportToExcel("Reporte de Importaciones")
+    End Sub
+
+End Class