Option Explicit On
Option Strict On

Imports System.Data
Imports Extensiones
Imports System.IO

Partial Class CatFolios
    Inherits ClsPaginas

#Region "P R O P I E D A D E S"
    Private Property CveFolio As Integer
        Get
            Return ViewState("CveFolio").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveFolio") = 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
            ViewState("Orden") = ""
            Session("FileUpload") = ""
            CargaSubProyectos()
            CargaDdlTipoDocto()
            CargaDatos()
        End If
    End Sub


#Region "C A R G A S"

    Private Sub CargaDdlTipoDocto()
        DdlTipoDocto.Items.Insert(0, New ListItem("Seleccione", "-1"))
        If UsuarioActual.Empresa.CvePlataforma = 1 Then
            DdlTipoDocto.Items.Insert(1, New ListItem("Facturas", "Ing"))
            DdlTipoDocto.Items.Insert(2, New ListItem("Remisión", "Rem"))
            DdlTipoDocto.Items.Insert(3, New ListItem("Notas de Crédito", "Egs"))
            DdlTipoDocto.Items.Insert(4, New ListItem("Devoluciones", "Dev"))
            DdlTipoDocto.Items.Insert(5, New ListItem("Cotización", "Cot"))
            DdlTipoDocto.Items.Insert(6, New ListItem("Requisiciones", "Req"))
            DdlTipoDocto.Items.Insert(7, New ListItem("Orden de Compra", "OC"))
            DdlTipoDocto.Items.Insert(8, New ListItem("Orden de Servicio", "OS"))
            DdlTipoDocto.Items.Insert(9, New ListItem("Nomina", "Nom"))
            DdlTipoDocto.Items.Insert(10, New ListItem("Organización Interna", "OI"))
            DdlTipoDocto.Items.Insert(11, New ListItem("Vale Gasolina", "VaG"))
            DdlTipoDocto.Items.Insert(12, New ListItem("Resguardo AF", "AFR"))
            DdlTipoDocto.Items.Insert(13, New ListItem("Traslado AF", "AFT"))
            DdlTipoDocto.Items.Insert(14, New ListItem("Acarreo", "Aca"))
            DdlTipoDocto.Items.Insert(15, New ListItem("Contratos", "Con"))
            DdlTipoDocto.Items.Insert(16, New ListItem("Pedido", "Ped"))
            DdlTipoDocto.Items.Insert(17, New ListItem("Devolución de Pedido", "DPe"))
            DdlTipoDocto.Items.Insert(18, New ListItem("Pedido de Consignación", "PeC"))
            DdlTipoDocto.Items.Insert(19, New ListItem("Órden de Producción", "OP"))
            DdlTipoDocto.Items.Insert(20, New ListItem("Órden de Corte", "OCO"))
            DdlTipoDocto.Items.Insert(21, New ListItem("Entrada de Materia Prima a Empaque", "EME"))
            DdlTipoDocto.Items.Insert(22, New ListItem("Empaque", "EMP"))
            DdlTipoDocto.Items.Insert(23, New ListItem("Solicitud de Traslado", "STr"))
            DdlTipoDocto.Items.Insert(24, New ListItem("Complemento Pago", "CP"))
            DdlTipoDocto.Items.Insert(24, New ListItem("Fletes", "FLE"))
            DdlTipoDocto.Items.Insert(25, New ListItem("Activos Fijos", "AF"))
            DdlTipoDocto.Items.Insert(26, New ListItem("Viaticos", "VIA"))
            DdlTipoDocto.Items.Insert(27, New ListItem("Remanufactura", "RMF"))
            DdlTipoDocto.Items.Insert(28, New ListItem("PedidoA", "PA"))
            DdlTipoDocto.Items.Insert(29, New ListItem("Pedido2", "Pd2"))
            DdlTipoDocto.Items.Insert(30, New ListItem("Proveedor/Acreedor", "Amb"))
            DdlTipoDocto.Items.Insert(31, New ListItem("Proveedor", "Pro"))
            DdlTipoDocto.Items.Insert(32, New ListItem("Acreedor", "Acr"))
            DdlTipoDocto.Items.Insert(33, New ListItem("Productos/Servicios", "PS"))
            DdlTipoDocto.Items.Insert(34, New ListItem("NC de Remisión", "RNC"))
        ElseIf UsuarioActual.Empresa.CvePlataforma = 2 Then
            DdlTipoDocto.Items.Insert(1, New ListItem("Facturas", "Ing"))
            DdlTipoDocto.Items.Insert(2, New ListItem("Notas de Crédito", "Egs"))
            DdlTipoDocto.Items.Insert(3, New ListItem("Cotización", "Cot"))
            DdlTipoDocto.Items.Insert(4, New ListItem("Remisión", "Rem"))
            DdlTipoDocto.Items.Insert(5, New ListItem("Orden de Compra", "OC"))
        End If
        DdlTipoDocto.DataBind()
    End Sub
    Private Sub CargaSubProyectos()
        DdlSubProyecto.Items.Clear()
        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
        DdlSubProyecto.DataBind()

        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub
    Public Sub CargaDatos()
        Dim ObjFolios As New ClsGralFolios
        If ObjFolios.GetFolios() Then
            ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
            GlobalDTFolios = ObjFolios.DtResultados
            GvDatos.DataSource = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
            GvDatos.DataBind()
        Else
            Me.GvDatos.DataSource = Nothing
        End If

        ObjFolios.Dispose()

    End Sub
#End Region

    Public Sub BtnAgregarFolio_Click(sender As Object, e As EventArgs)
        CveFolio = -1
        HdnModalidad.Value = "I"
        ChkEstatus.Checked = True
        TxtFolioInicial.Text = ""
        TxtFolioFinal.Text = ""
        TxtFolioActual.Text = ""
        DivFactual.Visible = False
        CargaSubProyectos()

        BtnGuardar.Text = "Agregar"
        UpAddFolio.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarFolio"))
    End Sub

    Public Sub Edit_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        CveFolio = (GvRow.DataKey("CveFolio")).ToEntero
        HdnModalidad.Value = "U"
        DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
        DdlTipoDocto.SelectedValueExist(GvRow.DataKey("TipoDocto"))
        ChkEstatus.Checked = If(GvRow.DataKey("Estado").ToString = "Activo", True, False)
        TxtFolioInicial.Text = (GvRow.DataKey("FInicial"))
        TxtFolioFinal.Text = (GvRow.DataKey("FFinal"))
        TxtFolioActual.Text = (GvRow.DataKey("FActual"))
        DivFactual.Visible = True


        BtnGuardar.Text = "Actualizar"
        UpAddFolio.Update()

        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarFolio"))
    End Sub

#Region "GV"
    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
            e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
            e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
            e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right

        End If
    End Sub
    Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
        Dim ObjFolios As New ClsGralFolios
        If ObjFolios.RemoveFolios(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
            GvDatos.EditIndex = -1
            ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
            GlobalDTFolios = ObjFolios.DtResultados
            Alert("La Aprobación de Folios se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If
        ObjFolios.Dispose()
    End Sub

#End Region


#Region "G U A R D A R "
    Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
        Dim ObjFolios As New ClsGralFolios
        Dim TieneError = False


        If HdnModalidad.Value = "I" Then
            If Not ObjFolios.AddFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, TxtFolioInicial.Text.Trim.ToEntero, TxtFolioInicial.Text.Trim.ToEntero,
                                   TxtFolioFinal.Text.Trim.Trim.ToEntero, Session("FileUpload").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                TieneError = True
            End If
        Else
            If Not ObjFolios.UpdateFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, TxtFolioInicial.Text.Trim.ToEntero, TxtFolioActual.Text.Trim.ToEntero, TxtFolioFinal.Text.Trim.ToEntero,
                                          "", If(ChkEstatus.Checked, True, False), UsuarioActual.CveUsuario, CveFolio) Then
                TieneError = True
            End If

        End If


        If TieneError Then
            Alert("Ocurrio un error al guardar/editar la nueva aprobación de Folios", TipoMensaje.MsgError)
        Else

            DdlTipoDocto.SelectedIndex = 0
            TxtFolioInicial.Text = ""
            TxtFolioActual.Text = ""
            TxtFolioFinal.Text = ""

            Session("FileUpload") = ""

            Alert("La nueva Aprobación de Folios se guardó/editó correctamente.", TipoMensaje.MsgInformacion)
            GlobalDTFolios = ObjFolios.DtResultados
            ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)


            CargaDatos()
            UpDatos.Update()
            UpAddFolio.Update()
            RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolio"))
        End If


        ObjFolios.Dispose()
    End Sub

#End Region



End Class