cambios para que tome los datos de sistema

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -15,10 +15,15 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
     End Property
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not Page.IsPostBack Then
-            CargaDatos()
+        If Not Page.IsPostBack Then
+
             CargaDatosModal()
         End If
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+        CargaDatosSistema()
+
     End Sub
 
     Private Sub CargaDatos()
@@ -28,8 +33,19 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         End If
         ObjConta.Dispose()
         GvDatos.DataBind()
+    End Sub
+
+    Private Sub CargaDatosSistema()
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.selectedvalue.toentero) Then
+            GvDatos.DataSource = ObjConta.DtResultados
+        End If
+        ObjConta.Dispose()
+        GvDatos.DataBind()
+        UpDatos.Update()
     End Sub
 
+
     Private Sub CargaDatosModal()
         DdlConceptoNomina.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa)
         DdlConceptoNomina.DataBind()
@@ -53,7 +69,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
         DdlAlmacen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
 
-
+        DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
 
         Dim ObjBancos As New ClsBancos
         If ObjBancos.GetBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) Then
@@ -79,46 +95,79 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
     End Sub
 
     Protected Sub ActualizaModulo(sender As Object, e As EventArgs)
-        LimpiarDatos()
-
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
-        DdlCconceptosContables.SelectedValue = GvRow.DataKey("CveConceptoContable").ToEntero
-        DdlCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToEntero
-        DdlConceptoNomina.SelectedValueExist(GvRow.DataKey("CveConceptoNomina").ToEntero)
-        DdlProveedor.SelectedValue = GvRow.DataKey("CveProveedor").ToEntero
-        DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion").ToEntero
-        DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero
-        TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta")
-        TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA")
-        DdlCuentaBancaria.SelectedValueExist(GvRow.DataKey("CveBancoCuenta"))
-
-        Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
-        Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
-
-        If CveCliente > 0 Then
-            DdlClientes.setEsWebService(False)
-            Dim ObjCliente As New ClsClientes
-            If ObjCliente.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-                DdlClientes.ddl.DataSource = ObjCliente.DtResultados
-            End If
-            DdlClientes.ddl.DataBind()
-            DdlClientes.ddl.SelectedValue = CveCliente
-        End If
-
-        If CvePersonal > 0 Then
-            DdlPersonal.setEsWebService(False)
-            Dim ObjPersonal As New ClsRH
-            If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
-                DdlPersonal.ddl.DataSource = ObjPersonal.DtResultados
-            End If
-            DdlPersonal.ddl.DataBind()
-            DdlPersonal.ddl.SelectedValue = CvePersonal
-        End If
-
-        LbAgregar.Text = "Actualizar"
-        UpModalModulos.Update()
-        RegistraScript("$('#ModalCat').modal();")
+        LimpiarDatos()
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim Dr As DataRow = GlobalDTContaConceptosContables(GvRow.DataKey("CveConceptoContable").ToEntero).FiltroPrimero("")
+        Dim CveConceptoContable As Integer = GvRow.DataKey("CveConceptoContable").ToString.ToEntero
+        HdnCveCuentaAsignacion.Value = GvRow.DataKey("CveCuentaAsignacion").ToString
+
+        If Dr IsNot Nothing Then
+            CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
+            DdlCconceptosContables.SelectedValueExist(GvRow.DataKey("CveConceptoContable"))
+            DdlCuenta.SelectedValueExist(GvRow.DataKey("CveCuenta"))
+            DdlConceptoNomina.SelectedValueExist(GvRow.DataKey("CveConceptoNomina").ToEntero)
+            DdlProveedor.SelectedValueExist(GvRow.DataKey("CveProveedor"))
+            DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion"))
+            DdlAlmacen.SelectedValueExist(GvRow.DataKey("CveAlmacen"))
+            TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta")
+            TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA")
+            DdlCuentaBancaria.SelectedValueExist(GvRow.DataKey("CveBancoCuenta"))
+
+            Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
+            Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
+
+            If Dr("AplicaCliente").ToString = "True" Then
+                divCliente.Visible = True
+                If CveCliente > 0 Then
+                    DdlClientes.setEsWebService(False)
+                    Dim ObjCliente As New ClsClientes
+                    If ObjCliente.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+                        DdlClientes.ddl.DataSource = ObjCliente.DtResultados
+                    End If
+                    DdlClientes.ddl.DataBind()
+                    DdlClientes.ddl.SelectedValue = CveCliente
+                End If
+            End If
+            If Dr("AplicaProveedor").ToString = "True" Then
+                divProveedor.Visible = True
+            End If
+
+            If Dr("AplicaPersonal").ToString = "True" Then
+                divPersonal.Visible = True
+                If CvePersonal > 0 Then
+                    DdlPersonal.setEsWebService(False)
+                    Dim ObjPersonal As New ClsRH
+                    If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
+                        DdlPersonal.ddl.DataSource = ObjPersonal.DtResultados
+                    End If
+                    DdlPersonal.ddl.DataBind()
+                    DdlPersonal.ddl.SelectedValueExist(CvePersonal)
+                End If
+            End If
+
+            If Dr("AplicaClasificacion").ToString = "True" Then
+                divClasificacion.Visible = True
+            End If
+
+            If Dr("AplicaBancos").ToString = "True" Then
+                divBancos.Visible = True
+            End If
+
+            If Dr("AplicaAlmacen").ToString = "True" Then
+                divAlmacen.Visible = True
+            End If
+
+            If Dr("AplicaActivoFijo").ToString = "True" Then
+                divActivoFijo.Visible = True
+            End If
+
+
+            LbAgregar.Text = "Actualizar"
+            UpModalModulos.Update()
+            RegistraScript("$('#ModalCat').modal();")
+        End If
+
+
     End Sub
 
     Protected Sub EliminarRow(sender As Object, e As EventArgs)
@@ -127,7 +176,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         If ObjConta.RemoveCuentasAsignaciones(GvRow.DataKey("CveCuentaAsignacion").ToEntero) Then
             Alert("se elimino correctamente")
         End If
-        CargaDatos()
+        CargaDatosSistema()
         UpDatos.Update()
         ObjConta.Dispose()
     End Sub
@@ -162,13 +211,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
     Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
         Dim ObjConta As New ClsContabilidad
         Dim ErrorString As String = ""
-        If LbAgregar.Text = "Agregar" Then
+        If HdnCveCuentaAsignacion.Value.ToEntero <= 0 Then
             If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                                DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero()) Then
                 ErrorString = "Error al agregar"
             End If
-        ElseIf LbAgregar.Text = "Actualizar" Then
+        ElseIf HdnCveCuentaAsignacion.Value.ToEntero > 0 Then
             If Not ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                                DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero()) Then
@@ -183,7 +232,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         Else
             Alert("Agregado correctamente")
         End If
-        CargaDatos()
+        CargaDatosSistema()
         UpDatos.Update()
     End Sub
 End Class