Commit inicial Ventas Productivo

Ventas/RepAnticiposEspeciales.aspx.vb

@@ -0,0 +1,66 @@
+Imports System.Data
+Imports Extensiones
+
+
+Partial Class Ventas_RepAnticiposEspeciales
+    Inherits ClsPaginas
+
+
+
+
+#Region "Propiedades"
+    Private Property CveAnticiposEspeciales As Integer
+        Get
+            If Not ViewState("CveAnticiposEspeciales") Is Nothing Then
+                Return ViewState("CveAnticiposEspeciales").ToString.ToEntero
+            Else
+                Return -1
+            End If
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveAnticiposEspeciales") = value
+        End Set
+
+    End Property
+#End Region
+
+    Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        If Not Page.IsPostBack Then
+            Cargadatos()
+            CargadatosGvAnticiposEspeciales()
+        End If
+
+    End Sub
+
+    Private Sub Cargadatos()
+        TxtFechaI.Text = FirstDayOfMonth(Now).ToShortDateString
+        TxtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
+
+        DdlSucursal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSucursal.DataBind()
+        DdlSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub CargadatosGvAnticiposEspeciales()
+
+        Dim ObjVentas As New ClsVentas
+
+        If ObjVentas.GetAnticiposEspeciales(TxtFechaI.Text.ToDateTime, TxtFechaF.Text.ToDateTime, DdlSucursal.SelectedValue.ToEntero, DdlEspeciales.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvAnticiposEspeciales.DataSource = ObjVentas.DtResultados
+        Else
+            GvAnticiposEspeciales.DataSource = Nothing
+        End If
+
+        ObjVentas.Dispose()
+
+        UPGvAnticiposEspeciales.DataBind()
+        UpGral.Update()
+
+    End Sub
+
+    Protected Sub btConsultar_Click(sender As Object, e As EventArgs)
+        CargadatosGvAnticiposEspeciales()
+    End Sub
+End Class