118 lines
3.6 KiB
VB.net
118 lines
3.6 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System.Data
|
|
Imports Extensiones
|
|
Imports Microsoft.Reporting.WebForms
|
|
|
|
Partial Class Compras_RepCartaPorteTraslados
|
|
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
|
|
|
|
DdlProveedores.setEsWebService(True)
|
|
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
|
|
|
|
'DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
|
'DdlProveedores.DataBind()
|
|
'DdlProveedores.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
|
|
'DdlSubProyecto.DataBind()
|
|
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto:=LblSubProyecto)
|
|
|
|
DdlUsuarioRegistra.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
|
|
DdlUsuarioRegistra.DataBind()
|
|
DdlUsuarioRegistra.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
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 CveProveedor As Integer = If(DdlProveedores.SelectedValue.ToEntero = 0, -1, DdlProveedores.SelectedValue.ToEntero)
|
|
Dim CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero
|
|
Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha)
|
|
Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha)
|
|
Dim Count As Integer = 0
|
|
|
|
Dim ObjCompras As New ClsCompras
|
|
If ObjCompras.GetComplementoTrasladoRep(UsuarioActual.CveEmpresa, CveProveedor, CveTipoProveedor, FechaInicio, FechaFin, UsuarioActual.CveUsuario, DdlUsuarioRegistra.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero) Then
|
|
GvDatos.DataSource = ObjCompras.DtResultados
|
|
|
|
If ObjCompras.DtResultados.Rows.Count > 0 Then
|
|
LnkExcel.Visible = True
|
|
End If
|
|
Else
|
|
GvDatos.DataSource = Nothing
|
|
End If
|
|
|
|
ObjCompras.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("Excel")
|
|
End Sub
|
|
|
|
Private Sub GeneraImpresion(Optional Formato As String = "PDF")
|
|
|
|
GvDatos.ExportToExcel2("RepCartaPorteTraslados.xlsx")
|
|
|
|
End Sub
|
|
#End Region
|
|
End Class
|