-- globals - tipo global

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -47,12 +47,10 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         GvDatos.Columns(5).Visible = ObjConta.DtResultados.MAX("PorcentajeIVA").ToDecimal > 0
         GvDatos.Columns(6).Visible = ObjConta.DtResultados.MAX("TipoGasto") <> ""
 
-
         If ObjConta.GetCuentasGlobales(UsuarioActual.CveEmpresa) Then
             GvGlobal.DataSource = ObjConta.DtResultados
         End If
 
-
         ObjConta.Dispose()
         GvDatos.DataBind()
         GvGlobal.DataBind()
@@ -334,4 +332,18 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
     Private Sub DdlCconceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCconceptosContables.SelectedIndexChanged
         RecargaConcepto(DdlCconceptosContables.SelectedValue.ToEntero)
     End Sub
+
+    Private Sub DdlTipoGlobal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoGlobal.SelectedIndexChanged
+        Dim Afectables As Integer = 1
+        If DdlTipoGlobal.SelectedValue = "2" Then 'cuando es detallado, que de la opción de seleccionar una de mayor y/o no afectable
+            Afectables = -1
+        End If
+
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentas(-1, "-1", Afectables, UsuarioActual.CveEmpresa) Then
+            DdlCuentaGlobal.DataSource = ObjConta.DtResultados.FiltraParametros("", Orderby:="Codigo")
+        End If
+        ObjConta.Dispose()
+        DdlCuentaGlobal.DataBind()
+    End Sub
 End Class