Ajustes AF

AF/AF.aspx

@@ -1182,7 +1182,7 @@
                                 </ContentTemplate>
                             </ajax:TabPanel>
 
-                            <ajax:TabPanel ID="TabServyMant" runat="server" HeaderText="Servicios y Mto">
+                            <ajax:TabPanel ID="TabServyMant" runat="server" HeaderText="Servicios y Mto"  Visible="false">
                                 <ContentTemplate>
                                     <asp:Literal ID="Literal2" runat="server"></asp:Literal>
 
@@ -2188,7 +2188,7 @@
 
 
 
-                            <ajax:TabPanel ID="TabPlagaEnfermedad" runat="server" HeaderText="Plagas Enfermedades" Visible="true">
+                            <ajax:TabPanel ID="TabPlagaEnfermedad" runat="server" HeaderText="Plagas Enfermedades" Visible="false">
                                 <ContentTemplate>
 
 

AF/AF.aspx.vb

@@ -14,7 +14,11 @@ Partial Class AF_AF
     'Configuración
 #Region "PROPIEDADES"
     Private Property CveActivoFijo As Integer
-        Get
+        Get
+
+            If ViewState("CveActivoFijo") Is Nothing Then
+                ViewState("CveActivoFijo") = -1
+            End If
             Return ViewState("CveActivoFijo").ToString.ToEntero
         End Get
         Set(value As Integer)
@@ -22,7 +26,10 @@ Partial Class AF_AF
         End Set
     End Property
     Private Property CodigoAF As String
-        Get
+        Get
+            If ViewState("CodigoAF") Is Nothing Then
+                ViewState("CodigoAF") = ""
+            End If
             Return ViewState("CodigoAF").ToString
         End Get
         Set(value As String)
@@ -294,6 +301,8 @@ Partial Class AF_AF
                 CargaCuentasContables()
             End If
 
+            CargaCombos()
+
             If Request("CveActivoFijo") IsNot Nothing AndAlso IsNumeric(Request("CveActivoFijo")) AndAlso Request("CveActivoFijo").ToEntero > 0 Then
                 ViewState("CveActivoFijo") = Request("CveActivoFijo")
                 CargaDatos()
@@ -311,8 +320,8 @@ Partial Class AF_AF
                 HlEvento.Visible = True
                 HlEvento.NavigateUrl = String.Format("/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveActivoFijo=" & CveActivoFijo & "&TB_iframe=true&height=370&width=600;")
             Else
-                ViewState("CveActivoFijo") = -1
-                CargaCombos()
+                ViewState("CveActivoFijo") = -1
+
 
                 'Configuración de Modalidad Insert
                 ImgAddObs.Visible = False
@@ -422,18 +431,38 @@ Partial Class AF_AF
         CveEmpresaActual = UsuarioActual.CveEmpresa
     End Sub
 
-    Private Sub ModalidadesPaginaAF(Op As String)
+    Private Sub ModalidadesPaginaAF(Optional Op As String = "")
 
-        Select Case Op
-            Case "AR" 'Arbol Frutal etc
-                LblFechaCompra.Text = "Fecha de Nacimiento"
-                LblFechaBaja.Text = "Fecha de Muerte"
-                TabProduccion.Visible = True
-                Exit Select
-            Case Else
-                Exit Select
-        End Select
+        TabProduccion.Visible = False
+        TabPlagaEnfermedad.Visible = False
+        TabServyMant.Visible = False
 
+        LblFechaCompra.Text = "Fecha de Compra:"
+        LblFechaBaja.Text = "Fecha de Baja:"
+
+        'Arbol Frutal
+        If DdlTipoActivoFijo.SelectedValue.ToEntero = 150 And DdlSubTipoActivoFijo.SelectedValue.ToEntero = 1936 And CveActivoFijo > 0 Then
+            LblFechaCompra.Text = "Fecha de Nacimiento"
+            LblFechaBaja.Text = "Fecha de Muerte"
+            TabProduccion.Visible = True
+        End If
+
+        'Arbol Apicola
+        If DdlTipoActivoFijo.SelectedValue.ToEntero = 151 And DdlSubTipoActivoFijo.SelectedValue.ToEntero = 1937 And CveActivoFijo > 0 Then
+            TabPlagaEnfermedad.Visible = True
+        End If
+
+        'Pozos
+        If DdlTipoActivoFijo.SelectedValue.ToEntero = 152 And DdlSubTipoActivoFijo.SelectedValue.ToEntero = 1938 And CveActivoFijo > 0 Then
+            TabServyMant.Visible = True
+        End If
+
+        'Inmuebles
+        If DdlTipoActivoFijo.SelectedValue.ToEntero = 153 And DdlSubTipoActivoFijo.SelectedValue.ToEntero = 1939 And CveActivoFijo > 0 Then
+
+        End If
+
+        UpDatos.Update()
 
     End Sub
 
@@ -467,13 +496,18 @@ Partial Class AF_AF
     Private Sub CargaTipoActivoFijo()
         DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(CveEmpresaActual).FiltraParametros("", "TipoActivoFijo")
         DdlTipoActivoFijo.DataBind()
+        CargaSubTipoActivoFijo()
     End Sub
     Private Sub CargaSubTipoActivoFijo()
+
         DdlSubTipoActivoFijo.Items.Clear()
         DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(CveEmpresaActual).FiltraParametros(String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue), "SubTipoActivoFijo")
         DdlSubTipoActivoFijo.DataBind()
         DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlSubTipoActivoFijo.SelectedIndex = 0
+
+        UpDatos.Update()
+
     End Sub
     Private Sub CargaDispositivos()
         DivDispositivo.Visible = False
@@ -556,6 +590,7 @@ Partial Class AF_AF
 
     Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlTipoActivoFijo.SelectedIndexChanged
         CargaFolios()
+        ModalidadesPaginaAF()
     End Sub
 
     Private Sub CargaFolios()
@@ -2744,6 +2779,7 @@ Partial Class AF_AF
     Protected Sub DdlSubTipoActivoFijo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubTipoActivoFijo.SelectedIndexChanged
         CargaCaracteristicas()
         CargaDispositivos()
+        ModalidadesPaginaAF()
     End Sub
 
 #Region "CARGAR CUENTA CONTABLE"