diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 9741e5338..9e80b2a01 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1120,9 +1120,9 @@ Partial Class Clientes
 
         Select Case HdnCuenta.Value
             Case "1"
-                CargaDdlCuentasContables(DdlCtaContableClientes, UsuarioActual.Empresa.Funcionalidad(246).ToEntero)
+                CargaDdlCuentasContables(DdlCtaContableClientes, 1)'UsuarioActual.Empresa.Funcionalidad(246).ToEntero
             Case "2"
-                CargaDdlCuentasContables(DdlCtaContableAnticipos, UsuarioActual.Empresa.Funcionalidad(237).ToEntero)
+                CargaDdlCuentasContables(DdlCtaContableAnticipos, 1)' UsuarioActual.Empresa.Funcionalidad(237).ToEntero
             Case "3"
                 CargaDdlCuentasContables(DdlCtaContableRetIVA, -1)
             Case "4"
@@ -1130,13 +1130,13 @@ Partial Class Clientes
             Case "5"
                 CargaDdlCuentasContables(DdlCtaContableFondoGarantia, -1)
             Case "6"
-                CargaDdlCuentasContables(DdlCtaContableCompClientes, UsuarioActual.Empresa.Funcionalidad(248).ToEntero)
+                CargaDdlCuentasContables(DdlCtaContableCompClientes, 1)'UsuarioActual.Empresa.Funcionalidad(248).ToEntero
             Case "7"
                 CargaDdlCuentasContables(DdlCtaContableCompAnticipos, -1)
             Case "8"
-                CargaDdlCuentasContables(DdlMonedaExtranjeraClientes, UsuarioActual.Empresa.Funcionalidad(247).ToEntero)
+                CargaDdlCuentasContables(DdlMonedaExtranjeraClientes, 1)'UsuarioActual.Empresa.Funcionalidad(247).ToEntero
             Case "9"
-                CargaDdlCuentasContables(DdlMonedaExtranjeraAnticipos, UsuarioActual.Empresa.Funcionalidad(542).ToEntero)
+                CargaDdlCuentasContables(DdlMonedaExtranjeraAnticipos, 1) 'UsuarioActual.Empresa.Funcionalidad(542).ToEntero
         End Select
         UpFiscalContable.Update()