Cuentas asignaciones controles activos fijos, Entradas Salidas ajuste de inventario error redondeo

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -11,8 +11,20 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         Set
             ViewState("CveConceptoAsignacion") = Value
         End Set
-    End Property
-
+    End Property
+
+    Public Property OpAgregar As Boolean
+        Get
+            If ViewState("OpAgregar") Is Nothing Then
+                ViewState("OpAgregar") = False
+            End If
+            Return Boolean.Parse(ViewState("OpAgregar").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("OpAgregar") = value
+        End Set
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
@@ -116,7 +128,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
 
-    Protected Sub ActualizaModulo(sender As Object, e As EventArgs)
+    Protected Sub ActualizaModulo(sender As Object, e As EventArgs)
+        OpAgregar = False
         LimpiarDatos()
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim Dr As DataRow = GlobalDTContaConceptosContables(GvRow.DataKey("CveConceptoContable").ToEntero).FiltroPrimero("")
@@ -149,6 +162,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
             DdlTipoGasto.SelectedValueExist(GvRow.DataKey("CveTipoGasto").ToEntero)
             DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo").ToEntero)
+            DdlActivoFijo.Enabled = False
+
 
             Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
             Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
@@ -176,29 +191,31 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         If Dr IsNot Nothing Then
 
 
-            divCliente.Visible = Dr("AplicaCliente").ToString = "True"
+            divCliente.Visible = Boolean.Parse(Dr("AplicaCliente").ToString)
+            divProveedor.Visible = Boolean.Parse(Dr("AplicaProveedor").ToString)
+            divPersonal.Visible = Boolean.Parse(Dr("AplicaPersonal").ToString)
+            divPorcentajeIVA.Visible = Boolean.Parse(Dr("AplicaImpuesto").ToString)
+            divClasificacion.Visible = Boolean.Parse(Dr("AplicaClasificacion").ToString)
+            divBancos.Visible = Boolean.Parse(Dr("AplicaBancos").ToString)
+            divAlmacen.Visible = Boolean.Parse(Dr("AplicaAlmacen").ToString)
+            divSubProyectos.Visible = Boolean.Parse(Dr("AplicaSubProyecto").ToString)
+            divActivoFijo.Visible = Boolean.Parse(Dr("AplicaActivoFijo").ToString)
 
-            divProveedor.Visible = Dr("AplicaProveedor").ToString = "True"
-
-            divPersonal.Visible = Dr("AplicaPersonal").ToString = "True"
-
-            divPorcentajeIVA.Visible = Dr("AplicaImpuesto").ToString = "True"
-
-            divClasificacion.Visible = Dr("AplicaClasificacion").ToString = "True"
-
-            divBancos.Visible = Dr("AplicaBancos").ToString = "True"
-
-            divAlmacen.Visible = Dr("AplicaAlmacen").ToString = "True"
-
-            divSubProyectos.Visible = Dr("AplicaSubProyecto").ToString = "True"
+            DdlActivoFijo.Enabled = False
 
             If Dr("AplicaActivoFijo").ToString = "True" Then
-                divActivoFijo.Visible = True
                 DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
-                DdlActivoFijo.DataBind()
-                ' DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo"))
+                DdlActivoFijo.DataBind()                ' DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo"))
+
+                If OpAgregar Then
+                    DdlActivoFijo.Enabled = True
+                Else
+                    DdlActivoFijo.Enabled = False
+                End If
+
             End If
 
+
             divConceptoNomina.Visible = Dr("AplicaNomina").ToString = "True"
 
             If CveConceptoContable = 51 Then
@@ -244,6 +261,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
     End Sub
 
     Protected Sub BtnAgregarAsignacion_Click(sender As Object, e As EventArgs) Handles BtnAgregarAsignacion.Click
+        OpAgregar = True
+
         LimpiarDatos()
         DdlCconceptosContables.Enabled = True
         DdlSubProyectos.Enabled = True
@@ -272,6 +291,23 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlPersonal.ddl.DataBind()
         DdlPersonal.setEsWebService(True)
         HdnCveCuentaAsignacion.Value = ""
+
+        If OpAgregar Then
+            divCliente.Visible = False
+            divProveedor.Visible = False
+            divPersonal.Visible = False
+            divPorcentajeIVA.Visible = False
+            divClasificacion.Visible = False
+            divBancos.Visible = False
+            divAlmacen.Visible = False
+            divSubProyectos.Visible = False
+            divActivoFijo.Visible = False
+        End If
+
+
+
+
+
     End Sub
 
     Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click