MoviminetosSUA filtro Resgistro patronal, Reporte Cancelaciones Ventas

Ventas/RepCancelacionesVentas.aspx.vb

@@ -0,0 +1,124 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Compras_RepCancelacionesVentas
+    Inherits ClsPaginas
+
+    'Private Property DTComplemntos As DataTable
+    '    Get
+    '        If ViewState("DTComplemntos") Is Nothing Then
+    '            Return New DataTable
+    '        Else
+    '            Return DirectCast(ViewState("DTComplemntos"), DataTable)
+    '        End If
+    '    End Get
+    '    Set(value As DataTable)
+    '        ViewState("DTComplemntos") = value
+    '    End Set
+    'End Property
+
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+
+            InicializaValores()
+
+        End If
+    End Sub
+
+#Region "  INICIALIZA VALORES  "
+    Private Sub InicializaValores()
+
+        TxtFiltrosFechaInicio.Text = Now.FirstDayOfMonth.ToShortDateString
+        TxtFiltrosFechaFin.Text = Now.ToShortDateString
+
+
+
+        Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+        If EsWS Then
+            DdlClientes.setEsWebService(True)
+        Else
+            DdlClientes.setEsWebService(False)
+            DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+            DdlClientes.DataBind()
+            DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+
+
+
+        DdlMotivoCancelacion.DataSource = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltraParametros("CveSATMotivoCancelacion IN (2,3)")
+        DdlMotivoCancelacion.DataBind()
+
+        DdlMotivoCancelacion.Items.Insert(0, New ListItem("Todos", "-1"))
+
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto:=LblSubProyecto)
+
+        GvDatos.Columns(4).HeaderText = LblSubProyecto.Text
+
+
+        UpFiltros.Update()
+    End Sub
+#End Region
+
+
+#Region "  CARGA DATOS  "
+    Protected Sub BtnConsultarFiltros_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+    End Sub
+    Private Sub CargaDatos()
+
+        LnkExcel.Visible = False
+
+        Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
+        Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha)
+        Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha)
+
+
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetRepCancelacionVentas(FechaInicio, FechaFin, DdlSubProyecto.SelectedValue.ToEntero, CveCliente, DdlMotivoCancelacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjVentas.DtResultados
+
+            If ObjVentas.DtResultados.Rows.Count > 0 Then
+                LnkExcel.Visible = True
+            End If
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+
+        ObjVentas.Dispose()
+
+        GvDatos.DataBind()
+
+        UpAcciones.Update()
+        UpDatos.Update()
+
+
+    End Sub
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+        End If
+    End Sub
+#End Region
+
+
+
+
+#Region "IMPRESION"
+
+    Protected Sub LnkExcel_Click(sender As Object, e As EventArgs)
+        GeneraImpresion()
+    End Sub
+
+    Private Sub GeneraImpresion()
+
+        GvDatos.ExportToExcel2("RepCancelacionVentas.xlsx")
+
+    End Sub
+#End Region
+End Class