Commit inicial Ventas Productivo

Compras/CatEstatusFactura.aspx.vb

@@ -0,0 +1,169 @@
+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(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 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))
+
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", logouri))
+        Else
+            params.Add(New ReportParameter("LogoPath", ""))
+        End If
+
+        ImprimirPDF("Empresas/Grales/Formatos/RepEstatusFactura.rdlc", GlobalDTCompEstatusFactura, params, "Reporte de Estatus Factura", Formato)
+    End Sub
+
+
+
+End Class