Commit inicial Ventas Productivo

Compras/RepPromociones.aspx.vb

@@ -0,0 +1,51 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Partial Class Compras_RepPromociones
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+
+            InicializaValores()
+
+        End If
+    End Sub
+
+    Private Sub InicializaValores()
+
+        TxtFiltrosFechaInicio.Text = $"01/01/{Now.Year}"
+        TxtFiltrosFechaFin.Text = $"{Now.Day}/{Now.Month}/{Now.Year}"
+
+        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        DdlProveedor.DataBind()
+
+        'DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
+        'DdlTipoGasto.DataBind()
+
+        UpFiltros.Update()
+    End Sub
+
+
+
+    Protected Sub BtnConsultarFiltros_Click(sender As Object, e As EventArgs) Handles BtnConsultarFiltros.Click
+        CargaDatos()
+    End Sub
+    Private Sub CargaDatos()
+        Dim CveProveedor = DdlProveedor.SelectedValue.ToEntero
+        Dim CveTipoGasto = -1 'DdlTipoGasto.SelectedValue.ToEntero
+        Dim Tipo = DdlTipo.SelectedValue.ToEntero
+        Dim FechaI = TxtFiltrosFechaInicio.Text.ToDate
+        Dim FechaF = TxtFiltrosFechaFin.Text.ToDate
+
+        Dim ObjCompras As New ClsCompras
+        If ObjCompras.GetRepPromociones(CveProveedor, CveTipoGasto, FechaI, FechaF, Tipo, UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjCompras.DtResultados
+        End If
+        ObjCompras.Dispose()
+        GvDatos.DataBind()
+        UpDatos.Update()
+
+    End Sub
+End Class