-- que se visualicen las cuentas de SIG en caso de gasto

Ventas/CatClasificaciones.aspx.vb

@@ -109,25 +109,15 @@ Partial Class CatClasificaciones
             End If
             UpModalClasif.Update()
 
-            If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
 
-                ''COMENTADO DF 30 JUNIO 2017
-                'Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa)
-                'If Cuenta.GetCuentas(-1, "-1", 1, 20000) Then
-                '    DtCuentas = Cuenta.DtResultados
-                'End If
-                'Cuenta.Dispose()
-            Else
-                If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                    DivCuentaIngresos.Visible = False
-                    DivCuentaCostos.Visible = False
-                    DivCuentaGasto.Visible = False
-
-                    GvDatos.Columns(1).Visible = False
-                    GvDatos.Columns(2).Visible = False
-                    GvDatos.Columns(3).Visible = False
-                End If
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                DivCuentaIngresos.Visible = False
+                DivCuentaCostos.Visible = False
+                'DivCuentaGasto.Visible = False
 
+                ' GvDatos.Columns(1).Visible = False
+                GvDatos.Columns(2).Visible = False
+                GvDatos.Columns(3).Visible = False
             End If
 
             DdlCuentaGasto.Items.Insert(0, New ListItem("-", "-1"))
@@ -226,14 +216,12 @@ Partial Class CatClasificaciones
 
             DdlCuentaGasto.DataValueField = "CveCuenta"
             DdlCuentaGasto.DataTextField = "Cuenta"
-            Dim ObjContabilidad As New ClsContabilidad
-            If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
-                DtCuentasContables = ObjContabilidad.DtResultados
-                'Cuenta, CtaCodigo
-                DtCuentasContables.Columns("CtaCodigo").ColumnName = "Cuenta"
-            End If
-            ObjContabilidad.Dispose()
-        ElseIf UsuarioActual.Empresa.TipoContabilidad = 1 Then
+
+            DtCuentasContables = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1)
+            'Cuenta, CtaCodigo
+            DtCuentasContables.Columns("CtaCodigo").ColumnName = "Cuenta"
+
+        ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
 
             Dim ObjEmpresa As New ClsSisEmpresas
             Dim Empresa As Empresa = Nothing
@@ -319,7 +307,7 @@ Partial Class CatClasificaciones
             If e.Row.DBCampo("CuentaIngresos") = "Seleccione" Or e.Row.DBCampo("CuentaIngresos") = "" Then e.Row.FCLabel("LtlCuentaIngresos").Text = "-"
             e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
 
-            If UsuarioActual.Empresa.UsaContabilidad Then
+            If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                 e.Row.FCLabel("LtlClasificacion").Text = String.Format("<a Class='Texto' href='/Ventas/CatClasificacionesDetalle.aspx?CveClasificacion={0}'>{1}</a>", e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("Clasificacion"))
             End If
 
@@ -420,7 +408,14 @@ Partial Class CatClasificaciones
         If CuentaGasto.Length > 1 And CargaGastos Then
             DdlCuentaGasto.Items.Insert(0, New ListItem(CuentaGasto, CveCuentaGastoActual.ToString))
             DdlCuentaGasto.SelectedIndex = 0
-            CargaGastos = False
+
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                DdlCuentaGasto.Items.Clear() : DdlCuentaGasto.Items.Add(New ListItem("-", "-1"))
+                'DdlCuentaGasto.Text = ""
+                DdlCuentaGasto.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1) : DdlCuentaGasto.DataBind()
+                DdlCuentaGasto.SelectedValueExist(GvRow.DataKey("CveCuentaGasto"))
+            End If
+
         Else
             DdlCuentaGasto.SelectedValueExist(CveCuentaGastoActual)
         End If