Commit inicial Ventas Productivo

General/CatPaqueterias.aspx.vb

@@ -0,0 +1,117 @@
+Imports Extensiones
+
+Partial Class Inventarios_CatPaqueterias
+    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 ObjGral As New ClsGenerales
+        ' Dim dt As Data.DataTable
+        If ObjGral.GetGralPaqueterias() Then
+            GvDatos.DataSource = ObjGral.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+        ObjGral.Dispose()
+
+        GvDatos.DataBind()
+    End Sub
+
+    Public Sub Delete_Click(sender As Object, e As EventArgs)
+        Dim ObjGral As New ClsGenerales
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        HdnID.Value = GvRow.DataKey("CvePaqueteria")
+        UpDatos.Update()
+        If ObjGral.RemoveGralPaqueterias(HdnID.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            CargaDatos()
+        End If
+        Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
+        ObjGral.Dispose()
+        UpDatos.Update()
+    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("CvePaqueteria")
+        UpDatos.Update()
+        BtnAgregarPaqueteria.Text = "Actualizar"
+        myModalLabel.InnerText = "Actualizar Paqueteria"
+        'DdlSucursal.SelectedValueExist(GvRow.DataKey("CveSucursal"))
+        'DdlTipoPaqueteria.SelectedValueExist(GvRow.DataKey("CveTipoPaqueteria"))
+        TxtPaqueteria.Text = GvRow.DataKey("Paqueteria")
+        TxtLiga.Text = GvRow.DataKey("Liga")
+        divEstatus.Visible = True
+        ChkEstatus.Checked = If((GvRow.DataKey("Estatus")) = "Activo", True, False)
+        UpAddPaqueteria.Update()
+        RegistraScript(String.Format("$('#{0}').modal('show');", "divAddPaqueteria"))
+
+    End Sub
+
+    Private Sub LnkPaqueteria_Click(sender As Object, e As EventArgs) Handles LnkPaqueteria.Click
+        Agregar()
+    End Sub
+
+    Public Sub Agregar()
+        HdnModalidad.Value = "A"
+        UpDatos.Update()
+
+        BtnAgregarPaqueteria.Text = "Agregar"
+        myModalLabel.InnerText = "Agregar Paquetería"
+        TxtPaqueteria.Text = ""
+        TxtLiga.Text = ""
+        ChkEstatus.Checked = True
+        divEstatus.Visible = False
+        UpAddPaqueteria.Update()
+        RegistraScript(String.Format("$('#{0}').modal('show');", "divAddPaqueteria"))
+
+
+    End Sub
+
+    Private Sub BtnAgregarPaqueteria_Click(sender As Object, e As EventArgs) Handles BtnAgregarPaqueteria.Click
+        Dim ObjGral As New ClsGenerales
+        Dim TieneError = False
+        Dim Estatus = 0
+        If ChkEstatus.Checked Then Estatus = 1
+
+        If HdnModalidad.Value = "A" Then
+            If ObjGral.AddGralPaqueterias(TxtPaqueteria.Text.Trim, TxtLiga.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                Alert("Se guardó correctamente la paquetería.", TipoMensaje.MsgInformacion)
+                UpDatos.Update()
+
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddPaqueteria"))
+            Else
+                TieneError = True
+            End If
+        ElseIf ObjGral.UpdateGralPaqueterias(TxtPaqueteria.Text.Trim, TxtLiga.Text.Trim, Estatus, HdnID.Value.ToEntero) Then
+            Alert("El Paqueteria se actualizo correctamente.", TipoMensaje.MsgInformacion)
+            UpDatos.Update()
+
+            RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddPaqueteria"))
+        End If
+
+        ObjGral.Dispose()
+        RecargaGlobal()
+        CargaDatos()
+    End Sub
+
+#Region "G L O B L A L"
+    Private Sub RecargaGlobal()
+        Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
+        Hilo.Start()
+    End Sub
+    Private Sub GeneraGlobalDT()
+        Dim ObjGenerales As New ClsGenerales
+
+        If ObjGenerales.GetGralPaqueterias(-1) Then
+            Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados
+        End If
+
+        ObjGenerales.Dispose()
+    End Sub
+#End Region
+End Class