SIG/Ventas/RepRemisionesDetalle.aspx.vb

Option Explicit On
Option Strict On

Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports Extensiones
Partial Class RepRemisionesDetalle
    Inherits ClsPaginas
    Private Shared missing As Object = System.Reflection.Missing.Value

#Region "PROPIEDADES"
    Private Property CveVenta As Integer
        Get
            Return ViewState("CveVenta").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveVenta") = value
        End Set
    End Property
    Private Property FechaI As String
        Get
            Return ViewState("FechaI").ToString
        End Get
        Set(value As String)
            ViewState("FechaI") = value
        End Set
    End Property
    Private Property FechaF As String
        Get
            Return ViewState("FechaF").ToString
        End Get
        Set(value As String)
            ViewState("FechaF") = value
        End Set
    End Property
    Private Property FechaV As String
        Get
            Return ViewState("FechaV").ToString
        End Get
        Set(value As String)
            ViewState("FechaV") = value
        End Set
    End Property
    Private Property CveCliente As Integer
        Get
            Return ViewState("CveCliente").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveCliente") = value
        End Set
    End Property
    Private Property CveContrato As Integer
        Get
            Return ViewState("CveContrato").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveContrato") = value
        End Set
    End Property
    Private Property CveSubProyecto As String
        Get
            Return ViewState("CveSubProyecto").ToString
        End Get
        Set(value As String)
            ViewState("CveSubProyecto") = value
        End Set
    End Property
    Private Property CveMoneda As Integer
        Get
            Return ViewState("CveMoneda").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveMoneda") = value
        End Set
    End Property
    Private Property DtVentas As DataTable
        Get
            Return DirectCast(ViewState("DtVentas"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtVentas") = value
        End Set
    End Property
#End Region
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            CargaCombos()

            If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero > 0 Then
                CveVenta = Request("CveVenta").ToEntero
            Else
                CveVenta = -1
            End If
            If Request("FechaI") IsNot Nothing AndAlso Request("FechaI").ToString.Length = 10 AndAlso Request("FechaI").ToDate > "01/01/1000".ToDate Then
                FechaI = Request("FechaI").ToString
                txtFechaI.Text = FechaI
            Else
                FechaI = "-1"
            End If
            If Request("FechaF") IsNot Nothing AndAlso Request("FechaF").ToString.Length = 10 AndAlso Request("FechaF").ToDate > "01/01/1000".ToDate Then
                FechaF = Request("FechaF").ToString
                txtFechaF.Text = FechaF
            Else
                FechaF = "-1"
            End If
            If Request("FechaV") IsNot Nothing AndAlso Request("FechaV").ToString.Length = 10 AndAlso Request("FechaV").ToDate > "01/01/1000".ToDate Then
                FechaV = Request("FechaV").ToString
                TxtFechaVencimiento.Text = FechaV
            Else
                FechaV = "-1"
            End If

            If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 Then
                CveCliente = Request("CveCliente").ToEntero

                Dim Cliente = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "")
                If Cliente <> "" Then
                    DdlClientes.SelectedValue = CveCliente.ToString
                    DdlClientes.SelectedText = Cliente
                End If

            Else
                CveCliente = -1
            End If

            'If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero > 0 Then
            '    CveContrato = Request("CveContrato").ToEntero
            '    DdlContrato.SelectedValueExist(CveContrato)
            'Else
            CveContrato = -1
            'End If
            If Request("CveSubProyecto") IsNot Nothing Then
                CveSubProyecto = Request("CveSubProyecto").ToString
                DdlSubProyectos.SelectedValuesIfExistM(CveSubProyecto)
            Else
                CveSubProyecto = "-1"
            End If
            If Request("CveMoneda") IsNot Nothing AndAlso IsNumeric(Request("CveMoneda")) AndAlso Request("CveMoneda").ToEntero > 0 Then
                CveMoneda = Request("CveMoneda").ToEntero
            Else
                CveMoneda = -1
            End If

            CargaDatos()
            'OrdenaDatos()
        End If
    End Sub

#Region " C A R G A - D A T O S "
    Public Sub CargaDatos()
        Dim ObjVentas As New ClsVentas

        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
        FechaV = If(IsDate(TxtFechaVencimiento.Text.Trim()), TxtFechaVencimiento.Text.Trim(), "-1")
        CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
        'CveContrato = If(DdlContrato.SelectedValue.ToEntero > 0, DdlContrato.SelectedValue.ToEntero, -1)
        CveSubProyecto = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString

        If ObjVentas.GetRepRemisionesSinFacturarDetalle(FechaI, FechaF, FechaV, CveCliente, CveContrato, CveVenta, UsuarioActual.CveEmpresa, CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, ConsultaInventario:=chkInv.Checked) Then
            If CveMoneda = 1 Or CveMoneda = 2 Then
                DtVentas = ObjVentas.DtResultados.FiltraParametros($"CveMoneda = {CveMoneda}")
            Else
                DtVentas = ObjVentas.DtResultados
            End If
            GvDatos.DataSource = DtVentas
        End If
        ObjVentas.Dispose()

        GvDatos.DataBind()
        GvDatos.Columns(8).Visible = chkInv.Checked

        UPDatos.Update()
    End Sub
    Public Sub CargaCombos()
        CargaCliente()
        'CargaContrato()
        CargaSucursales()
    End Sub
    Private Sub CargaCliente()
        'CargaClientes
        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

    End Sub
    'Private Sub CargaContrato()
    '    Dim ObjContratos As New ClsContratos
    '    DdlContrato.Items.Clear()
    '    If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, -1, -1) Then
    '        If ObjContratos.DtResultados.Rows.Count > 0 Then
    '            DdlContrato.DataSource = ObjContratos.DtResultados
    '            DdlContrato.DataBind()
    '        End If

    '    End If

    '    ObjContratos.Dispose()
    '    DdlContrato.Items.Insert(0, New ListItem("Todos", "-1"))
    'End Sub
    Private Sub CargaSucursales()
        DdlSubProyectos.DataSource() = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
        DdlSubProyectos.DataBind()
        'DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub
#End Region


#Region "G V - D A T O S "
    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.DBCampo("FechaVencimiento").ToDate < Now Then
                ' e.Row.Cells(2).CssClass = "danger"
                e.Row.Cells(2).ForeColor = Drawing.Color.Red
            End If
        End If
    End Sub
#End Region



#Region "PDF"
    Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
        If DtVentas IsNot Nothing Then
            Dim StrFiltro As New StringBuilder

            If DdlSubProyectos.GetSelectedText <> "" Then StrFiltro.AppendFormat("&emsp;<b>Sucursal</b>: {0}", DdlSubProyectos.GetSelectedText)
            If DdlClientes.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("&emsp;<b>Cliente</b>: {0}", DdlClientes.SelectedText)
            'If DdlContrato.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Contrato</b>: {0}", DdlContrato.SelectedItem.Text)

            If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
            If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)
            If TxtFechaVencimiento.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Vencimiento al</b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)

            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))

            Dim FechaI = "", FechaF = ""


            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
            params.Add(New ReportParameter("FechaInicio", FechaI))
            params.Add(New ReportParameter("FechaFin", FechaF))
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
            params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
            If Imagen.Exists Then
                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
            Else
                params.Add(New ReportParameter("LogoPath", ""))
            End If
            ImprimirPDF("Empresas/Grales/Formatos/RepRemisionesDetalle.rdlc", DtVentas, params, String.Format("ReporteRemisionesDetalle-{0}", Now.ToDateTime.ToShortDateString))
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
        End If
    End Sub
#End Region

    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
    End Sub


    Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
        'GvDatos.ExportToExcel("Reporte de Remisiones por Facturar Detalle" & Now.ToShortDateString)
        GvDatos.ExportToExcelG("Reporte de Remisiones por Facturar Detalle" & Now.ToShortDateString, Titulo:="Reporte de Remisiones por Facturar Detalle ", Usuario:=UsuarioActual)
    End Sub
    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
        CargaDatos()
    End Sub
    Public Overrides Sub VerifyRenderingInServerForm(control As Control)
        'MyBase.VerifyRenderingInServerForm(control)
    End Sub
End Class