Grupos y Clacificacaiones Comprobaciones

General/CatClasificacionesComprobaciones.aspx.vb

@@ -23,13 +23,41 @@ Partial Class Gral_CatClasificacionesComprobaciones
 
     End Property
 
+    Property Actualizar As Boolean
+        Get
+
+            If ViewState("Actualizar") Is Nothing Then
+                Return False
+            Else
+                Return Boolean.Parse(ViewState("Actualizar").ToString)
+            End If
+
+        End Get
+        Set(value As Boolean)
+            ViewState("Actualizar") = value
+        End Set
+
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+            CargaDropDownList()
             CargaGridClasificaciones()
         End If
     End Sub
 
+
+
 #Region " C L A S I F I C A C I O N E S"
+    Protected Sub CargaDropDownList()
+
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=-1).FiltraParametros("", Orderby:="Clasificacion") 'GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataBind()
+        DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+
+    End Sub
+
+
     Protected Sub CargaGridClasificaciones()
 
         Dim ObjClasificaciones As New ClsClasificaciones()
@@ -47,23 +75,27 @@ Partial Class Gral_CatClasificacionesComprobaciones
         Dim ObjClasificaciones As New ClsClasificaciones()
 
 
-        If ObjClasificaciones.AddClasificacionesComprobaciones(CveClasificacion, UsuarioActual.CveEmpresa, DdlTipoComprobacion.SelectedValue.ToEntero) Then
+
+        If ObjClasificaciones.AddClasificacionesComprobaciones(DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlTipoComprobacion.SelectedValue.ToEntero) Then
             Alert("La clasificación se actualizo correctamente.")
-            CargaGridClasificaciones()
+
             UpDatos.Update()
 
             RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalClasificaciones"))
         End If
 
-        ObjClasificaciones.Dispose()
+
+        ObjClasificaciones.Dispose()
+        CargaGridClasificaciones()
 
     End Sub
 
     Public Sub ActualizaModalClasif(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Actualizar = True
 
-        TxtClasificaciones.Text = GvRow.DataKey("Clasificacion")
+        DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion"))
         CveClasificacion = GvRow.DataKey("CveClasificacion").ToString.ToEntero
         RegistraScript(String.Format("$('#{0}').modal();", "ModalClasificaciones"))
 
@@ -79,4 +111,39 @@ Partial Class Gral_CatClasificacionesComprobaciones
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
         CargaGridClasificaciones()
     End Sub
+
+    Protected Sub LnkAgregarClasificacion_Click(sender As Object, e As EventArgs)
+
+        Actualizar = False
+
+        DdlClasificacion.SelectedValueExist("-1")
+        CveClasificacion = -1
+
+        RegistraScript(String.Format("$('#{0}').modal('show');", "ModalClasificaciones"))
+
+        DdlTipoComprobacion.SelectedValueExist("-1")
+
+        UpModalClasificaciones.Update()
+
+    End Sub
+
+    Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
+
+
+        Dim ObjClasificaciones As New ClsClasificaciones()
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim CveClasificacionEliminar As Integer = GvRow.DataKey("CveClasificacion").ToString.ToEntero
+        Dim TipoComprobacionEliminar As Integer = GvRow.DataKey("TipoComprobacion").ToString.ToEntero
+
+        If ObjClasificaciones.RemoveClasificacionesComprobaciones(CveClasificacionEliminar, UsuarioActual.CveEmpresa, TipoComprobacionEliminar) Then
+            Alert("La clasificación se elimino correctamente.")
+        End If
+
+        ObjClasificaciones.Dispose()
+        CargaGridClasificaciones()
+        UpDatos.Update()
+
+    End Sub
 End Class