AF apicola, terminal cuentas

AF/AF.aspx.vb

@@ -270,6 +270,19 @@ Partial Class AF_AF
         End Set
     End Property
 
+
+    Private Property CvePlagaEnfermedad As Integer
+        Get
+            If ViewState("CvePlagaEnfermedad") Is Nothing Then
+                ViewState("CvePlagaEnfermedad") = -1
+            End If
+            Return ViewState("CvePlagaEnfermedad").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CvePlagaEnfermedad") = value
+        End Set
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -288,6 +301,7 @@ Partial Class AF_AF
                 CargaActividades()
                 CargaProduccion()
                 CargaMantenimento()
+                CargaPlagaEnfermedad()
 
                 'Configuración de Modalidad Update
                 BtnGuardar.Text = "Guardar Cambios"
@@ -4159,6 +4173,124 @@ Partial Class AF_AF
 #End Region
 
 
+#Region "PLAGA ENFERMEDAD"
+
+
+
+    Private Sub CargaPlagaEnfermedad()
+
+        Dim ObjAF As New ClsAF
+
+        If ObjAF.GetPlagaEnfermedad(CveActivoFijo, UsuarioActual.CveEmpresa) Then
+            GvPlagaEnfermedad.DataSource = ObjAF.DtResultados
+        Else
+            GvPlagaEnfermedad.DataSource = Nothing
+        End If
+
+        ObjAF.Dispose()
+        GvPlagaEnfermedad.DataBind()
+
+        UpPlagaEnfermedad.Update()
+
+    End Sub
+
+
+    Protected Sub LnkAgregarPlagaEnfermedad_Click(sender As Object, e As EventArgs)
+
+        LblModalTituloPlagaEnfermedad.Text = "Agregar Plaga Enfermedad"
+        LnkModalAgregarProduccion.Text = "Agregar"
+
+        CvePlagaEnfermedad = -1
+
+        TxtModalPlagaEnfermedadObservaciones.Text = ""
+        TxtModalPlagaEnfermedadFecha.Text = ""
+
+        RegistraScript("$('#DVModalPlagaEnfermedad').modal('show');")
+
+        UpModalPlagaEnfermedad.Update()
+    End Sub
+
+    Protected Sub LnkGvPlagaEnfermedadEdit_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        CvePlagaEnfermedad = GvRow.DataKey("CvePlagaEnfermedad").ToEntero
+
+        Dim Observaciones As String = GvRow.DataKey("Observaciones")
+        Dim Fecha As Date = GvRow.DataKey("Fecha").ToDate
+
+
+        TxtModalPlagaEnfermedadObservaciones.Text = Observaciones
+        TxtModalPlagaEnfermedadFecha.Text = Fecha.ToString("dd/MM/yyyy")
+
+
+        LblModalTituloPlagaEnfermedad.Text = "Actualizar plaga enfermedad"
+        LnkModalAgregarPlagaEnfermedad.Text = "Actualizar"
+
+        UpModalPlagaEnfermedad.Update()
+
+
+        RegistraScript("$('#DVModalPlagaEnfermedad').modal('show');")
+    End Sub
+
+    Protected Sub LnkGvPlagaEnfermedadRemove_Click(sender As Object, e As EventArgs)
+
+        Dim ErrorProceso As Boolean = False
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim CvePlagaEnfermedadEliminar As Integer = GvRow.DataKey("CvePlagaEnfermedad").ToEntero
+
+        Dim ObjAF As New ClsAF
+
+        If ObjAF.RemovePlagaEnfermedad(CvePlagaEnfermedadEliminar, UsuarioActual.CveEmpresa) Then
+            ErrorProceso = False
+        Else
+            ErrorProceso = True
+        End If
+
+
+        ObjAF.Dispose()
+
+
+        If Not ErrorProceso Then
+            Alert("Plaga Enfermedad Eliminada Correctamente.")
+            CargaPlagaEnfermedad()
+        End If
+
+    End Sub
+
+
+
+    Protected Sub LnkModalAgregarPlagaEnfermedad_Click(sender As Object, e As EventArgs)
+        Dim ErrorProceso As Boolean = False
+        Dim ObjAF As New ClsAF
+
+        If CvePlagaEnfermedad > 0 Then
+            If ObjAF.UpdatePlagaEnfermedad(CvePlagaEnfermedad, CveActivoFijo, TxtModalPlagaEnfermedadObservaciones.Text, TxtModalPlagaEnfermedadFecha.Text.ToDate, UsuarioActual.CveUsuario) Then
+                ErrorProceso = False
+            Else
+                ErrorProceso = True
+            End If
+        Else
+            If ObjAF.AddPlagaEnfermedad(CveActivoFijo, TxtModalPlagaEnfermedadObservaciones.Text, TxtModalPlagaEnfermedadFecha.Text.ToDate, UsuarioActual.CveUsuario) Then
+                ErrorProceso = False
+            Else
+                ErrorProceso = True
+            End If
+        End If
+
+
+
+        ObjAF.Dispose()
+
+        If Not ErrorProceso Then
+            RegistraScript("$('#DVModalPlagaEnfermedad').modal('hide');")
+            Alert("Plaga Enfermedad guardada Correctamente.")
+            CargaPlagaEnfermedad()
+        End If
+
+    End Sub
+
+#End Region