SIG/Inventarios/RepMaximoMinimo.aspx.vb

Option Explicit On
Option Strict On

Imports Extensiones
Imports Microsoft.Reporting.WebForms
Imports System.Data

Partial Class Inventarios_RepMaximoMinimo
    Inherits ClsPaginas

#Region "  PROPIEDADES  "
    Private Property PS As String
        Get
            If ViewState("PS") Is Nothing Then
                Return ""
            Else
                Return ViewState("PS").ToString
            End If
        End Get
        Set(value As String)
            ViewState("PS") = value
        End Set
    End Property

    Private Property DTOCDetalle As DataTable
        Get
            If ViewState("DTOCDetalle") Is Nothing Then
                Return New DataTable
            Else
                Return DirectCast(ViewState("DTOCDetalle"), DataTable)
            End If
        End Get
        Set(value As DataTable)
            ViewState("DTOCDetalle") = value
        End Set
    End Property

    Private ReadOnly Property PermiteClasificacion2 As Boolean
        Get
            Return (UsuarioActual.CveEmpresa.Contiene(72, 80))
        End Get
    End Property
#End Region

    Private Sub Inventarios_RepMaximoMinimo_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            CargaCombos()
        End If
    End Sub

#Region "  INICIALIZA VALORES  "
    Private Sub CargaCombos()

        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.Empresa.CveEmpresa, 1)
        DdlSubProyecto.DataBind()
        DdlSubProyecto.Items.Insert(0, New ListItem("Todas", "-1"))


        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
        DdlAlmacen.DataBind()
        DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlAlmacenModal.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1)
        DdlAlmacenModal.DataBind()
        DdlAlmacenModal.Items.Insert(0, New ListItem("Seleccione Almacén", "-1"))

        'DdlPSModal.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
        'DdlPSModal.DataBind()
        'DdlPSModal.Items.Insert(0, New ListItem("Seleccione", "-1"))
        UpModalMaximoMinimo.Update()


        DdlClasificacion2.DataSource = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa)
        DdlClasificacion2.DataBind()
        DdlClasificacion2.Items.Insert(0, New ListItem("Todas", "-1"))
        'BLOQUEA DDL CLASIFICACION
        DivClaisficacionLabel.Visible = PermiteClasificacion2
        DivClasificacion2.Visible = PermiteClasificacion2
        TdModalClasificacion2.Visible = PermiteClasificacion2

    End Sub

    Private Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged

        'Dim DtSubptoyecto As DataTable = GlobalDTSubProyectos(-1, -1, UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros(String.Format(" CveSubProyecto ={0}", DdlSubProyecto.SelectedValue.ToEntero))        'GlobalDTSucursales(" CveSucursal = ")
        DdlAlmacen.Items.Clear()
        'If DtSubptoyecto.Rows.Count > 0 Then
        'Dim CveSucursal As Integer = DtSubptoyecto(0)("CveSucursal").ToString.ToEntero
        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros(String.Format("CveSubProyecto={0}", DdlSubProyecto.SelectedValue.ToEntero))
        DdlAlmacen.DataBind()
        DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
        'Else
        '    DdlAlmacen.DataSource = Nothing
        '    DdlAlmacen.DataBind()
        'End If

        'GvDatos.DataSource = Nothing
        'GvDatos.DataBind()

        'DdlAlmacen.SelectedIndex = 0
        OrdenaDatos()
        UpDatos.Update()
        UpTitulos.Update()

    End Sub
#End Region

#Region "  CARGA DATOS  "
    Private Sub BtnFiltrar_Click(sender As Object, e As EventArgs) Handles BtnFiltrar.Click
        CargaGrid()
        OrdenaDatos()
    End Sub
    Private Sub CargaGrid()
        Dim ObjMaxMin As New ClsInventarios

        If ObjMaxMin.RepMaximoMinimo(DdlSubProyecto.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = ObjMaxMin.DtResultados
        Else
            GvDatos.DataSource = Nothing
        End If


        If DdlAlmacen.SelectedValue.ToEntero > 0 Then
            GvDatos.Columns(9).Visible = True
        Else
            GvDatos.Columns(9).Visible = False
        End If

        ObjMaxMin.Dispose()
        GvDatos.DataBind()
        UpDatos.Update()
    End Sub
    Private Sub OrdenaDatos()

        'If (GvDatos.Rows.Count > 0) Then
        '    GvDatos.UseAccessibleHeader = True
        '    GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
        '    RegistraScript("OrdenarGV();", "ScriptOrdenamiento")
        'End If
    End Sub

    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.FCLiteral("LtCodigo").Text = $"<a class=""Texto"" target='_blank' href=""/Ventas/ProductosServicios.aspx?CvePS={e.Row.DataKey("CvePS")}"">{e.Row.DBCampo("Codigo")}</a>"
            e.Row.FCLabel("LtDescripcion").Text = $"<a class=""Texto"" target='_blank' href=""/Ventas/ProductosServicios.aspx?CvePS={e.Row.DataKey("CvePS")}"">{e.Row.DBCampo("PS")}</a>"



            If e.Row.FCLinkButton("LnkPteRecibir").Text = "-" Then
                e.Row.FCLinkButton("LnkPteRecibir").Visible = False
                e.Row.FCLabel("LblPteRecibir").Visible = True
            End If




        End If
    End Sub
#End Region

#Region "  PENDIENTE POR RECIBIR  "
    Private Sub GvDetalleOrdenCompra_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDetalleOrdenCompra.RowDataBound

        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.FCLiteral("LtlOc").Text = $"<a class=""Texto"" target='_blank' href=""/OC/OC.aspx?OC={e.Row.DataKey("CveOrdenCompra")}"">{e.Row.DBCampo("OC")}</a>"
        End If
    End Sub
    Public Sub Click_VerDetalleOC(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim activo As Boolean = False
        Dim CvePs As Integer = GvRow.DataKey("CvePS").ToString.ToEntero
        Dim CodigoPS As String = GvRow.DataKey("CodigoPS").ToString
        Dim Descripcion As String = GvRow.DataKey("PS").ToString

        PS = Descripcion
        Dim objInventarios As New ClsInventarios

        If objInventarios.RepMaximoMinimoDetalleGet(DdlSubProyecto.SelectedValue.ToEntero, CvePs, UsuarioActual.Empresa.CveEmpresa) Then
            DTOCDetalle = objInventarios.DtResultados
            GvDetalleOrdenCompra.DataSource = objInventarios.DtResultados
        End If
        OrdenaDatos()
        objInventarios.Dispose()
        GvDetalleOrdenCompra.DataBind()

        LtlTitulo.Text = String.Format("{0}", CodigoPS)
        RegistraScript("$('#ModalDetalleOrdenCompra').modal({ backdrop: 'static',  keyboard: false})", "ModalDetalle")

        UpModaletalle.Update()
    End Sub
#End Region

#Region "  MODAL  "
    Private Sub LnkDefinir_Click(sender As Object, e As EventArgs) Handles LnkDefinir.Click
        HFDefinir.Value = "I"
        DdlAlmacenModal.SelectedIndex = 0
        DdlPSModal.SelectedValue = "-1"
        DdlPSModal.SelectedText = "Seleccione"
        TxtMaximo.Text = ""
        TxtMinimo.Text = ""
        DdlAlmacenModal.Enabled = True
        DdlPSModal.Enabled = True
        LbAgregarMaximoMinimo.Text = "Agregar"
        UpModalMaximoMinimo.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "ModalMaximoMinimo"))
    End Sub

    Private Sub LbAgregarMaximoMinimo_Click(sender As Object, e As EventArgs) Handles LbAgregarMaximoMinimo.Click
        If DdlPSModal.SelectedValue.ToEntero > 0 Then

            Using ObjInventario As New ClsInventarios

                If HFDefinir.Value = "I" Then
                    If ObjInventario.AddAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
                        Alert("El Máximo/Mínimo se agregó correctamente.", TipoMensaje.MsgInformacion)
                    End If
                ElseIf HFDefinir.Value = "U" Then
                    If ObjInventario.UpdateAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
                        Alert("El Máximo/Mínimo se actualizó correctamente.", TipoMensaje.MsgInformacion)
                    End If
                End If
            End Using

            CargaGrid()
            RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalMaximoMinimo"))
        Else
            Alert("Seleccione un producto o servicio", TipoMensaje.ToastAdventencia)
        End If
    End Sub

    Protected Sub UpdateMaximoMinimo(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        HFDefinir.Value = "U"
        Dim CveAlmacen As Integer = GvRow.DataKey("CveAlmacen").ToString.ToEntero
        Dim CvePS As Integer = GvRow.DataKey("CvePS").ToString.ToEntero
        Dim Maximo As String = GvRow.DataKey("Maximo").ToString
        Dim Minimo As String = GvRow.DataKey("Minimo").ToString

        DdlAlmacenModal.Enabled = False
        DdlPSModal.Enabled = False

        DdlAlmacenModal.SelectedValue = CveAlmacen.ToString
        DdlPSModal.SelectedValue = CvePS.ToString
        TxtMaximo.Text = Maximo
        TxtMinimo.Text = Minimo
        LbAgregarMaximoMinimo.Text = "Actualizar"
        UpModalMaximoMinimo.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "ModalMaximoMinimo"))

    End Sub

#End Region



#Region "I M P R I M I R "
    Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click

        GvDatos.ExportToExcel("RepFacturas_" & Now.ToShortDateString())

    End Sub

    Private Sub GenerarPDF()
        Dim ObjDatos As New ClsInventarios

        If ObjDatos.RepMaximoMinimo(DdlSubProyecto.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then

            If ObjDatos.DtResultados.Rows.Count > 0 Then

                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                Dim dt As DataTable = ObjDatos.DtResultados
                Dim params As New List(Of ReportParameter)
                params.Add(New ReportParameter("SubProyecto", DdlSubProyecto.SelectedItem.Text))
                params.Add(New ReportParameter("Almacen", DdlAlmacen.SelectedItem.Text))
                params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
                If Imagen.Exists Then
                    params.Add(New ReportParameter("LogoPath", logouri))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If
                ImprimirPDF("Empresas/Grales/Formatos/RepMaximosMinimos.rdlc", dt, params, "ReporteMaxMin")

            Else
                Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
            End If
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
        End If

    End Sub
    Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
        GenerarPDF()
    End Sub

    Protected Sub LnkImprimirDetalle_Click(sender As Object, e As EventArgs)

        If DTOCDetalle.Rows.Count > 0 Then

            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
            Dim dt As DataTable = DTOCDetalle
            Dim params As New List(Of ReportParameter)

            params.Add(New ReportParameter("SubProyecto", DdlSubProyecto.SelectedItem.Text))
            params.Add(New ReportParameter("Almacen", DdlAlmacen.SelectedItem.Text))
            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
            params.Add(New ReportParameter("PS", PS))

            If Imagen.Exists Then
                params.Add(New ReportParameter("LogoPath", logouri))
            Else
                params.Add(New ReportParameter("LogoPath", ""))
            End If
            ImprimirPDF("Empresas/Grales/Formatos/RepMaximosMinimosDetalle.rdlc", dt, params, "ReporteMaxMinDetalle")

        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
        End If
        OrdenaDatos()

    End Sub

#End Region


#Region "  PERSONALIZAR COLUMNAS  "
    Private Sub BtnPersonalizar_Click(sender As Object, e As EventArgs) Handles BtnPersonalizar.Click

        If ChkClasificacion2.Checked Then
            GvDatos.Columns(1).Visible = True
        Else
            GvDatos.Columns(1).Visible = False
        End If

        If ChkMarca.Checked Then
            GvDatos.Columns(3).Visible = True
        Else
            GvDatos.Columns(3).Visible = False
        End If

        RegistraScript("$('#DivPersonalizar').modal('hide')")
        CargaGrid()
    End Sub
#End Region

End Class