SIG/Compras/CatEstatusFactura.aspx.vb

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


Partial Class Compras_CatEstatusFactura
    Inherits ClsPaginas

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CargaDatos()
        End If
    End Sub

    Public Sub CargaDatos()
        Dim ObjEstatusFactura As New ClsCompEstatusFactura
        If ObjEstatusFactura.GetEstatusFactura() Then
            GlobalDTCompEstatusFactura = ObjEstatusFactura.DtResultados
            GvDatos.DataSource = GlobalDTCompEstatusFactura()
            GvDatos.DataBind()
        Else
            GvDatos.DataSource = Nothing
        End If
        UpDatos.Update()
        ObjEstatusFactura.Dispose()
    End Sub

    Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
        Dim ObjEstatusFactura As New ClsCompEstatusFactura
        If HdnModalidad.Value = "A" Then
            If ObjEstatusFactura.AddEstatusFactura(TxtClave.Text.Trim.ToEntero, TxtEstatus.Text.Trim, UsuarioActual.CveUsuario) Then
                TxtClave.Text = ""
                TxtEstatus.Text = ""
                ChkEstatus.Checked = True
                GlobalDTCompEstatusFactura = ObjEstatusFactura.DtResultados
                Alert("El Nuevo Estatus de Factura se guardó correctamente.", TipoMensaje.MsgInformacion)
            End If
        ElseIf HdnModalidad.Value = "U" Then
            If ObjEstatusFactura.UpdateEstatusFactura(TxtEstatus.Text, ChkEstatus.Checked, HdnID.Value) Then
                GlobalDTCompEstatusFactura = ObjEstatusFactura.DtResultados
                Alert("El Nuevo Estatus de Factura se Actualizó correctamente.", TipoMensaje.MsgInformacion)
                TxtClave.Text = ""
                TxtEstatus.Text = ""
                ChkEstatus.Checked = True
            End If
        End If
        CargaDatos()
        UpModal.Update()
        ObjEstatusFactura.Dispose()
    End Sub

#Region "G V  D A T O S"
    Protected Sub GvDatos_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GvDatos.RowDataBound

        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal Then
                If e.Row.RowIndex <= 1 Then
                    e.Row.Cells(0).Width = Unit.Pixel(86)
                    e.Row.Cells(1).Width = Unit.Pixel(256)
                    e.Row.Cells(2).Width = Unit.Pixel(100)
                    e.Row.Cells(3).Width = Unit.Pixel(100)
                    e.Row.Cells(4).Width = Unit.Pixel(100)
                    e.Row.Cells(5).Width = Unit.Pixel(100)
                    e.Row.Cells(6).Width = Unit.Pixel(65)

                End If
                e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
                e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
                e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
                e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
                e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
                e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
                e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
            End If
        End If

    End Sub

    Protected Sub GvDatos_RowUpdating(ByVal sender As Object, ByVal e As GridViewUpdateEventArgs) Handles GvDatos.RowUpdating

        Dim ObjEstatusFactura As New ClsCompEstatusFactura

        Dim EstatusFactura As String
        Dim CveEstatusFactura As Integer
        Dim Estatus As Boolean
        EstatusFactura = GvDatos.Rows(e.RowIndex).FCTextBox("TxtEstatus").Text.Trim
        Estatus = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstado").Checked
        CveEstatusFactura = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero

        If ObjEstatusFactura.UpdateEstatusFactura(EstatusFactura, Estatus, CveEstatusFactura) Then

            GvDatos.EditIndex = -1
            GlobalDTCompEstatusFactura = ObjEstatusFactura.DtResultados
        End If

        ObjEstatusFactura.Dispose()
    End Sub

    Protected Sub GvDatos_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
        Dim ObjEstatusFactura As New ClsCompEstatusFactura
        If ObjEstatusFactura.RemoveEstatusFactura(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
            GvDatos.EditIndex = -1
            GlobalDTCompEstatusFactura = ObjEstatusFactura.DtResultados
        End If
        CargaDatos()
        ObjEstatusFactura.Dispose()
    End Sub


#End Region

    Private Sub HlAgregarCategorias(sender As Object, e As EventArgs) Handles HlAgregar.Click
        TxtClave.Enabled = True
        TxtClave.Text = ""
        TxtEstatus.Text = ""
        LtlTituloModal.Text = "Agregar Estatus"
        LbAgregar.Text = "Agregar"
        dvEstatus.Visible = False
        HdnModalidad.Value = "A"
        UpModal.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "Modal"))
    End Sub

    Public Sub ActualizarGV(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim CveCategoria As String = GvRow.DataKey("CveEstatusFactura").ToString
        Dim EstatusFactura As String = GvRow.DataKey("EstatusFactura").ToString
        Dim Estatus As String = GvRow.DataKey("Estatus").ToString
        dvEstatus.Visible = True
        If Estatus = "Activo" Then ChkEstatus.Checked = True Else ChkEstatus.Checked = False
        TxtClave.Enabled = False
        TxtClave.Text = CveCategoria
        TxtEstatus.Text = EstatusFactura
        HdnID.Value = CveCategoria
        HdnModalidad.Value = "U"
        LtlTituloModal.Text = "Actualizar Esatus"
        LbAgregar.Text = "Actualizar"
        UpModal.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "Modal"))
    End Sub

    Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
        GenerarPDF("EXCEL")
    End Sub

    Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
        GenerarPDF()
    End Sub

    Private Sub GenerarPDF(Optional Formato As String = "PDF")
        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")

        Dim params As New List(Of ReportParameter)
        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("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirPDF("Empresas/Grales/Formatos/RepEstatusFactura.rdlc", GlobalDTCompEstatusFactura, params, "Reporte de Estatus Factura", Formato)
    End Sub



End Class