Option Explicit On
Option Strict On

Imports System.Data
Imports System.Linq
Imports Extensiones

Partial Class CatUnidadesMedida
    Inherits ClsPaginas

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            ViewState("Orden") = ""
            CargaDdlSATUnidadMedida()
            CargaDatos()

            ''Permiso Registro
            'If PermisoRegistro Then
            '    LbAgregar.Enabled = True
            'Else
            '    LbAgregar.Enabled = False
            'End If

        End If
    End Sub

    Dim UM As String

    Public Sub CargaDatos()


        Dim ObjUnidadesMedida As New ClsUnidadesMedida
        If ObjUnidadesMedida.GetUnidadesMedida(UsuarioActual.CveEmpresa) Then
            GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
            ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
            GvDatos.DataSource = ViewState("DTUnidadesMedida")
            GvDatos.DataBind()
        Else
            Me.GvDatos.DataSource = Nothing
        End If
        ObjUnidadesMedida.Dispose()
    End Sub

    Protected Sub LbAgregarAlias_Click(sender As Object, e As System.EventArgs) Handles LbAgregarAlias.Click
        Dim ObjUnidadesMedida As New ClsUnidadesMedida
        Dim cve As Integer
        cve = lblClave.Text.ToEntero


        If ObjUnidadesMedida.AddUnidadMedidaAlias(TxtAlias.Text.Trim, cve) Then
            TxtAlias.Text = ""
            Alert("El nueva Alias Unidad de Medida se guardó correctamente.", TipoMensaje.MsgInformacion)
            UpDatosAlias.Update()
            GlobalDTUnidadesMedidaAlias = ObjUnidadesMedida.DtResultados
            ViewState("DTUnidadesMedidaAlias") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).FiltraParametros("CveUnidadMedida = " & cve)
        End If
        CargaGridAlias()
        ObjUnidadesMedida.Dispose()
    End Sub



    Protected Sub BtnCancelarIE_Click(sender As Object, e As EventArgs)
        RegistraScript("$('#DivCancelarIE').modal('hide');")

    End Sub

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

        Dim cve = CType(sender, Button).CommandArgument.ToEntero
        Dim btn As Button = CType(sender, Button)


        Dim gvr As GridViewRow = CType(btn.NamingContainer, GridViewRow)
        Dim NombreUnidad As String = CType(gvr.FindControl("LtlUnidadMedida"), Literal).Text

        headeralias.InnerText = String.Format("Alias de: {0}", NombreUnidad)


        lblClave.Text = cve.ToString


        Dim ObjUnidadesMedida As New ClsUnidadesMedida
        If ObjUnidadesMedida.GetUnidadesMedidaAlias(UsuarioActual.CveEmpresa, cve) Then
            ViewState("DTUnidadesMedidaAlias") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
        Else
            ViewState("DTUnidadesMedidaAlias") = Nothing
        End If

        CargaGridAlias()

        ObjUnidadesMedida.Dispose()

        RegistraScript("$('#DivCancelarIE').modal();")
        UpDatosAlias.Update()
    End Sub

#Region "G V  A L I A S"
    Protected Sub GvAlias_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAlias.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.RowIndex = 0 Then
                e.Row.Cells(0).Width = Unit.Pixel(400)



            End If

            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left



        End If
    End Sub


    Protected Sub GvAlias_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvAlias.RowDeleting
        Dim ObjUnidadesMedida As New ClsUnidadesMedida
        Dim cve As Integer
        cve = lblClave.Text.ToEntero
        Dim Row As GridViewRow = GvAlias.Rows(e.RowIndex)
        Dim nombrealias As String = CType(Row.FindControl("LtlAlias"), Literal).Text


        If ObjUnidadesMedida.RemoveUnidadMedidaAlias(cve, nombrealias) Then
            GvAlias.EditIndex = -1
            GlobalDTUnidadesMedidaAlias = ObjUnidadesMedida.DtResultados
            ViewState("DTUnidadesMedidaAlias") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).FiltraParametros("CveUnidadMedida = " & cve)
            Alert("La Unidad de Medida se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If

        ObjUnidadesMedida.Dispose()
        CargaGridAlias()


        'If ViewState("Orden").ToString() <> String.Empty Then
        '    CargaGridAlias(ViewState("Orden").ToString())
        'Else
        '    CargaGridAlias("")
        'End If
    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.RowIndex = 0 Then
                e.Row.Cells(0).Width = Unit.Pixel(260)
                e.Row.Cells(1).Width = Unit.Pixel(110)
                e.Row.Cells(2).Width = Unit.Pixel(80)
                'e.Row.Cells(3).Width = Unit.Pixel(80)
                'e.Row.Cells(4).Width = Unit.Pixel(80)
                e.Row.Cells(3).Width = Unit.Pixel(90)
                e.Row.Cells(4).Width = Unit.Pixel(90)
                e.Row.Cells(5).Width = Unit.Pixel(100)
                e.Row.Cells(6).Width = Unit.Pixel(100)
                e.Row.Cells(7).Width = Unit.Pixel(61)
            End If
            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
            e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
            e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Left

            e.Row.FCButton("BtnAlias").CommandArgument = e.Row.DBCampo("CveUnidadMedida")
        End If
    End Sub

    'Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
    '    Dim ObjUnidadesMedida As New ClsUnidadesMedida
    '    If ObjUnidadesMedida.RemoveUnidadMedida(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
    '        GvDatos.EditIndex = -1
    '        GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
    '        ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
    '        Alert("La Unidad de Medida se eliminó correctamente.", TipoMensaje.MsgInformacion)
    '    End If

    '    ObjUnidadesMedida.Dispose()

    '    If ViewState("Orden").ToString() <> String.Empty Then
    '        CargaGrid(ViewState("Orden").ToString())
    '    Else
    '        CargaGrid("")
    '    End If
    'End Sub

    'Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
    '    GvDatos.EditIndex = -1
    '    If ViewState("Orden").ToString() <> String.Empty Then
    '        CargaGrid(ViewState("Orden").ToString())
    '    Else
    '        CargaGrid("")
    '    End If
    'End Sub



    'Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating

    '    Dim ObjUnidadesMedida As New ClsUnidadesMedida
    '    Dim UnidadMedida As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtUnidadMedida"), TextBox).Text.Trim
    '    Dim SATUnidadMedida As Integer = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("SATUnidadMedida"), DropDownList).ToString.ToEntero
    '    Dim Abreviatura As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtAbreviatura"), TextBox).Text.Trim
    '    'Dim Alias1 As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtAlias1"), TextBox).Text.Trim
    '    'Dim Alias2 As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtAlias2"), TextBox).Text.Trim
    '    'Dim Alias3 As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtAlias3"), TextBox).Text.Trim
    '    Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstado").Checked
    '    Dim CveUnidadMedida As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero

    '    If ObjUnidadesMedida.UpdateUnidadMedida(UnidadMedida, Abreviatura, "", "", "", Estatus, UsuarioActual.CveUsuario, CveUnidadMedida, SATUnidadMedida) Then
    '        GvDatos.EditIndex = -1
    '        GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
    '        ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
    '        Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
    '    End If

    '    ObjUnidadesMedida.Dispose()

    'End Sub

    'Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing
    '    CargaDdlSATUnidadMedida()
    '    GvDatos.EditIndex = e.NewEditIndex


    '    If ViewState("Orden").ToString() <> String.Empty Then
    '        CargaGrid(ViewState("Orden").ToString())
    '    Else
    '        CargaGrid("")
    '    End If
    '    CargaDdlSATUnidadMedida()
    'End Sub
#End Region

    Public Sub CargaDdlSATUnidadMedida()
        DdlSATUnidadMedida.setEsWebService(True)
        DdlSATUnidadMedida.Attributes.Add("data-metodo", "getumsat")

    End Sub

#Region "O R D E N A M I E N T O"


    Private Sub CargaGrid()
        Dim DV As New DataView(CType(ViewState("DTUnidadesMedida"), DataTable), "", "", DataViewRowState.CurrentRows)
        GvDatos.DataSource = DV.ToTable()
        DV.Dispose()
        GvDatos.DataBind()
        UpDatos.Update()
    End Sub

    Private Sub CargaGridAlias()

        Dim DV As New DataView(CType(ViewState("DTUnidadesMedidaAlias"), DataTable), "", "", DataViewRowState.CurrentRows)
        GvAlias.DataSource = DV.ToTable()
        DV.Dispose()
        GvAlias.DataBind()
        UpGvAlias.Update()
    End Sub
#End Region

    Private Sub BtnAgregarUnidadMedida_Click(sender As Object, e As EventArgs) Handles BtnAgregarUnidadMedida.Click

        Dim ObjUnidadesMedida As New ClsUnidadesMedida
            Dim Estatus = 0
            If ChkEstatus.Checked Then Estatus = 1
            If HdnModalidad.Value = "A" Then
            If ObjUnidadesMedida.AddUnidadMedida(TxtUnidadMedida.Text.Trim, TxtAbreviatura.Text.Trim, "-1", "-1", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                                     DdlSATUnidadMedida.SelectedValue.ToEntero) > 0 Then
                TxtUnidadMedida.Text = ""
                TxtAbreviatura.Text = ""
                Alert("La nueva Unidad de Medida se guardó correctamente.", TipoMensaje.MsgInformacion)
                UpAddUnidadMedida.Update()
                GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
                ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
                If ViewState("Orden").ToString() <> String.Empty Then
                    CargaGrid()
                Else
                    CargaGrid()
                End If
            End If
        Else
            If ObjUnidadesMedida.UpdateUnidadMedida(TxtUnidadMedida.Text.Trim, TxtAbreviatura.Text.Trim, "", "", "", CBool(Estatus),
                                                        UsuarioActual.CveUsuario, HdnID.Value.ToEntero, DdlSATUnidadMedida.SelectedValue.ToEntero) Then
                GvDatos.EditIndex = -1
                GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
                ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
                Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
            End If
            If ViewState("Orden").ToString() <> String.Empty Then
                    CargaGrid()
                Else
                    CargaGrid()
                End If

            End If
            RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddUnidadMedida"))
        ObjUnidadesMedida.Dispose()
    End Sub



    Public Sub Edit_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        HdnModalidad.Value = "U"
        HdnID.Value = GvRow.DataKey("CveUnidadMedida")
        UpDatos.Update()
        BtnAgregarUnidadMedida.Text = "Actualizar"
        myModalLabel.InnerText = "Actualizar Unidad de Medida"
        TxtUnidadMedida.Text = GvRow.DataKey("UnidadMedida")
        DdlSATUnidadMedida.SelectedValue = ""
        DdlSATUnidadMedida.SelectedText = ""
        'DdlImpEmpaque.SelectedValueExist(GvRow.DataKey("CveImpEmpaque"))
        'DdlImpUM.SelectedValueExist(GvRow.DataKey("CveImpUM"))
        If GvRow.DataKey("CveUnidadMedidaSAT") <> Nothing Then
            DdlSATUnidadMedida.SelectedValue = GvRow.DataKey("CveUnidadMedidaSAT")
            DdlSATUnidadMedida.SelectedText = GvRow.DataKey("ClaveNombre")
        End If
        TxtAbreviatura.Text = GvRow.DataKey("Abreviatura")
        divEstatus.Visible = True
        If GvRow.DataKey("Estado") = "Activo" Then
            ChkEstatus.Checked = True
        Else
            ChkEstatus.Checked = False
        End If
        UpAddUnidadMedida.Update()
        RegistraScript(String.Format("$('#{0}').modal('show');", "divAddUnidadMedida"))
    End Sub

    Public Sub Delete_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim ObjUnidadesMedida As New ClsUnidadesMedida
        HdnID.Value = GvRow.DataKey("CveUnidadMedida")
        UpDatos.Update()
        If ObjUnidadesMedida.RemoveUnidadMedida(HdnID.Value.ToEntero) Then
            GvDatos.EditIndex = -1
            GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
            ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
            Alert("La Unidad de Medida se eliminó correctamente.", TipoMensaje.MsgInformacion)
        End If
        CargaGrid()
        ObjUnidadesMedida.Dispose()
    End Sub

    Private Sub LnkAgregar_Click(sender As Object, e As EventArgs) Handles LnkAgregar.Click
        HdnModalidad.Value = "A"
        UpDatos.Update()
        BtnAgregarUnidadMedida.Text = "Agregar"
        myModalLabel.InnerText = "Agregar Unidad de Medida"
        TxtUnidadMedida.Text = ""
        DdlSATUnidadMedida.SelectedValue = ""
        DdlSATUnidadMedida.SelectedText = ""
        'DdlImpEmpaque.SelectedValueExist("-1")
        'DdlImpUM.SelectedValueExist("-1")
        TxtAbreviatura.Text = ""
        divEstatus.Visible = False
        UpAddUnidadMedida.Update()
        RegistraScript(String.Format("$('#{0}').modal('show');", "divAddUnidadMedida"))
    End Sub
End Class