Commit inicial Ventas Productivo

CGame/CatTipoMaduracion.aspx.vb

@@ -0,0 +1,158 @@
+Option Strict On
+Imports System.Data
+Imports System.Collections.Generic
+Imports System.Linq
+Imports Extensiones
+Imports System.Web.UI.WebControls
+
+Partial Class CGame_CatTipoMaduracion
+    Inherits ClsPaginas
+
+#Region "Propiedades"
+    Private Property RcveTipoMaduracion() As Int32
+        Get
+            Return If(IsNothing(ViewState("RcveTipoMaduracion")), 0, CInt(ViewState("RcveTipoMaduracion")))
+        End Get
+        Set
+            ViewState("RcveTipoMaduracion") = Value
+        End Set
+    End Property
+    Private Property CcveTipoMaduracion() As Int32
+        Get
+            Return If(IsNothing(ViewState("CcveTipoMaduracion")), 0, CInt(ViewState("CcveTipoMaduracion")))
+        End Get
+        Set
+            ViewState("CcveTipoMaduracion") = Value
+        End Set
+    End Property
+    Private Property RcveUsuario() As Int32
+        Get
+            Return If(IsNothing(ViewState("RcveUsuario")), 0, CInt(ViewState("RcveUsuario")))
+        End Get
+        Set
+            ViewState("RcveUsuario") = Value
+        End Set
+    End Property
+    Private Property RcveEmpresa() As Int32
+        Get
+            Return If(IsNothing(ViewState("RcveEmpresa")), 0, CInt(ViewState("RcveEmpresa")))
+        End Get
+        Set
+            ViewState("RcveEmpresa") = Value
+        End Set
+    End Property
+
+#End Region
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            RcveTipoMaduracion = If(IsNothing(Request("cveTipoMaduracion")), 0, Request("cveTipoMaduracion").ToString().ToEntero())
+            RcveUsuario = If(IsNothing(Request("cveUsuario")), 0, Request("cveUsuario").ToString().ToEntero())
+            RcveEmpresa = If(IsNothing(Request("cveEmpresa")), 0, Request("cveEmpresa").ToString().ToEntero())
+            CargaTipoMaduracion()
+            CargaProductos()
+            ChkCGamestatus.Checked = True
+        End If
+    End Sub
+    Protected Sub CargaTipoMaduracion()
+        Dim ObjCGam As New ClsCGame()
+        If ObjCGam.GetTipoMaduracion(-1, -1, -1, UsuarioActual.CveEmpresa) Then
+            GVCGame_TipoMaduracion.DataSource = ObjCGam.DtResultados
+        End If
+
+        ObjCGam.Dispose()
+        GVCGame_TipoMaduracion.DataBind()
+        upDatosCGam.Update()
+    End Sub
+    Protected Sub LimpiaCGame_TipoMaduracion()
+        TxtCGamtipoMaduracion.Text = ""
+        DdlPS.SelectedIndex = 0
+        UPModalCGam.Update()
+    End Sub
+
+    Protected Sub CargaProductos()
+        Dim ObjCGame As New ClsCGame
+        If ObjCGame.GetPS(UsuarioActual.CveEmpresa) Then
+            DdlPS.DataSource = ObjCGame.DtResultados
+            ObjCGame.Dispose()
+        End If
+        DdlPS.DataBind()
+        UPModalCGam.Update()
+    End Sub
+    Protected Sub LnkEditarCGam_Click(sender As Object, e As EventArgs)
+        ltlCGamtitulo.Text = "Editar Tipo de Maduración"
+        LimpiaCGame_TipoMaduracion()
+        divEstatus.Visible = True
+        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+        CcveTipoMaduracion = gvRow.DataKey("CveTipoMaduracion").ToEntero()
+        Dim tipoMaduracion As String = gvRow.DataKey("TipoMaduracion")
+        Dim estatus As Boolean = CBool(gvRow.DataKey("Estatus"))
+        Dim fechaIng As DateTime = gvRow.DataKey("FechaIng").ToDateTime()
+        Dim cveUsuario As Int32 = gvRow.DataKey("CveUsuario").ToEntero()
+        Dim cveEmpresa As Int32 = gvRow.DataKey("CveEmpresa").ToEntero()
+
+        DdlPS.SelectedValueExist(gvRow.DataKey("CvePS"))
+        TxtCGamtipoMaduracion.Text = tipoMaduracion.ToString()
+        ChkCGamestatus.Checked = estatus
+        RegistraScript("$('#DModalCGame_TipoMaduracion').modal('show')")
+        BtnCGamADD.Visible = False
+        BtnCGamEdit.Visible = True
+        UPModalCGam.Update()
+    End Sub
+    Protected Sub LnkAgregarCGam_Click(sender As Object, e As EventArgs)
+        divEstatus.Visible = False
+        ltlCGamtitulo.Text = "Agregar Tipo de Maduración"
+        RegistraScript("$('#DModalCGame_TipoMaduracion').modal('show')")
+        LimpiaCGame_TipoMaduracion()
+        BtnCGamADD.Visible = True
+        BtnCGamEdit.Visible = False
+        UPModalCGam.Update()
+    End Sub
+    Protected Sub BtnCGamADD_Click(sender As Object, e As EventArgs)
+
+        Dim tipoMaduracion As String = TxtCGamtipoMaduracion.Text
+        Dim estatus As Boolean = ChkCGamestatus.Checked
+        Dim fechaIng As DateTime = Now
+        Dim cveUsuario As Int32 = UsuarioActual.CveUsuario
+        Dim cveEmpresa As Int32 = UsuarioActual.CveEmpresa
+        Dim ObjCGam As New ClsCGame()
+        Dim Continuar As Boolean = ObjCGam.AddTipoMaduracion(DdlPS.SelectedValue.ToEntero, tipoMaduracion, estatus, fechaIng, cveUsuario, cveEmpresa)
+        ObjCGam.Dispose()
+        If (Continuar) Then
+            RegistraScript("$('#DModalCGame_TipoMaduracion').modal('hide')")
+            LimpiaCGame_TipoMaduracion()
+            UPModalCGam.Update()
+            CargaTipoMaduracion()
+            Alert("La variedad se ha agregado correctamente.")
+        End If
+    End Sub
+    Protected Sub BtnCGamEdit_Click(sender As Object, e As EventArgs)
+
+        Dim tipoMaduracion As String = TxtCGamtipoMaduracion.Text
+        Dim estatus As Boolean = ChkCGamestatus.Checked
+        Dim fechaIng As DateTime = Now
+        Dim cveUsuario As Int32 = UsuarioActual.CveUsuario
+        Dim cveEmpresa As Int32 = UsuarioActual.CveEmpresa
+        Dim ObjCGam As New ClsCGame()
+        Dim Continuar As Boolean = ObjCGam.UpdateTipoMaduracion(DdlPS.SelectedValue.ToEntero(), CcveTipoMaduracion, tipoMaduracion, estatus, fechaIng, cveUsuario, cveEmpresa)
+        ObjCGam.Dispose()
+        If (Continuar) Then
+            RegistraScript("$('#DModalCGame_TipoMaduracion').modal('hide')")
+            LimpiaCGame_TipoMaduracion()
+            UPModalCGam.Update()
+            CargaTipoMaduracion()
+            Alert("La variedad se ha actualizado correctamente.")
+        End If
+    End Sub
+    Protected Sub LnkEliminarCGam_Click(sender As Object, e As EventArgs)
+        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+        CcveTipoMaduracion = gvRow.DataKey("CveTipoMaduracion").ToEntero()
+        Dim ObjCGam As New ClsCGame()
+        Dim Continuar As Boolean = ObjCGam.RemoveTipoMaduracion(CcveTipoMaduracion)
+        ObjCGam.Dispose()
+        If (Continuar) Then
+            CargaTipoMaduracion()
+            CargaTipoMaduracion()
+            Alert("La variedad se ha eliminado correctamente.")
+        End If
+    End Sub
+End Class