125 lines
3.5 KiB
VB.net
125 lines
3.5 KiB
VB.net
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 = NowADS().FirstDayOfMonth.ToShortDateString
|
|
TxtFiltrosFechaFin.Text = NowADS().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
|