Buscar palabras clave en la documentación    Buscar Ayuda

Doc. Ref. 7823
Título: Ejemplo de cambio de dígitos en la contabilidad
Autor: Philippe Calvó
Última actualización: 18/06/2007


Ejemplo de cambio de dígitos en la contabilidad

En este ejemplo, se describe el procedimiento a seguir para pasar una contabilidad de 7 a 8 dígitos. La situación inicial es la siguiente:

  1. Todas las sub-cuentas tienen 7 dígitos
  2. Hasta ahora los códigos de clientes y proevedores tenían 4 dígitos. La necesidad de aumentar la longitud de las cuentas, viene de que ahora va a haber códigos con 5 dígitos.
  3. Los clientes contabilizan todas sus cuentas creando el número a partir de los dígitos 430 y seguido del código de cliente.
  4. Los proveedores contabilizan todas sus cuentas creando el número a partir de los dígitos 400 y seguido del código de cliente.
  5. Todas las ventas se asignan a la cuenta especificada en la configuración
  6. La mayor parte de las compras se asignan a la cuenta especificada en la configuración. Pero hay excepciones de proveedores que tienen una cuenta de 7 dígitos especificada en el registro correspondiente de la tabla proveedor.
  7. Algunas cuentas tienen como cuenta superior o anterior una de tres dígitos pero otras una de 4. Todas las cuentas cuyo superior es de 3, tienen un cero en el cuarto dígito, excepto en el caso de clienets y proveedores que comienzan por "400" y "430"

El procedimiento a seguir será el siguiente:

CLIENTES

Borrar el campo contabilidad en todos los clientes porque no lo necesitan y hay algunos que lo tienen:
UPDATE cliente SET Contabilidad = ""

Actualizar el campo CuentaVentas a 8 dígitos:
UPDATE cliente SET CuentaVentas = Left(cuentaventas,3) & Right("00000" & Right (cuentaventas,4),5) WHERE CuentaVentas<>""

PROVEEDORES

Borrar el campo contabilidad en todos los proveedores porque no lo necesitan y hay algunos que lo tienen:
UPDATE proveedor SET Contabilidad = ""

Actualizar el campo CuentaCompras a 8 dígitos:
UPDATE proveedor SET Cuentacompras = Left(cuentacompras,3) & Right("00000" & Right(cuentacompras,4),5)
WHERE CuentaCompras<>""

FACTURAS DE CLIENTES

Borrar en todas el campo cuentacliente
UPDATE factura SET CuentaCliente = ""
WHERE "" & cuentacliente<>""

Actualizar el campo cuentaventas a 8 dígitos
UPDATE factura SET CuentaVentas = Left(cuentaventas,3) & Right("00000" & Right(cuentaventas,4),5)
WHERE CuentaVentas<>""

FACTUARS DE PROVEEDOR

Pasar el campo CuentaCompras a 8 dígitos
UPDATE facturaproveedor SET CuentaCompras = Left(cuentaCompras,3) & Right("00000" & Right(cuentaCompras,4),5)
WHERE facturaproveedor.CuentaCompras)<>""

CUENTAS

Con cuenta superior de 3 dígitos: Empiezan por 430 o 400 o bien tienen un "0" en el cuarto digito
UPDATE Cuenta SET Numero = Left (Numero, 3) & Right ("00000" & Right (Numero, 4), 5)
WHERE subcuenta and left (numero, 1) <> "N" and len (numero) < 8 and (mid (numero, 4, 1) = "0" or left (numero, 3) = "430" or left (numero, 3) = "400")

Con cuenta superior de 4 dígitos: Tienen un número no "0" en el cuarto dígito y no empiezan por 430 ni 400
UPDATE Cuenta SET Numero = Left (Numero, 4) & Right ("0000" & Right (Numero, 3), 4)
WHERE subcuenta and len (numero)<8 and left (numero, 1)<> "N" and mid (numero, 4, 1) <> "0" and left (numero, 3) <> "430" and left (numero, 3) <> "400"

APUNTES

Con cuenta superior de 3 dígitos: Empiezan por 430 o 400 o bien tienen un "0" en el cuarto digito
UPDATE Apunte SET cuenta = Left (Numero, 3) & Right ("00000" & Right (Numero, 4), 5)
WHERE len (cuenta) < 8 and (mid (cuenta, 4, 1) = "0" or left (cuenta, 3) = "430" or left (cuenta, 3) = "400")

Con cuenta superior de 4 dígitos: Tienen un número no "0" en el cuarto dígito y no empiezan por 430 ni 400
UPDATE Apunte SET cuenta = Left (Cuenta, 4) & Right ("0000" & Right (Cuenta, 3), 4)
WHERE len (cuenta)<8 and mid (cuenta, 4, 1) <> "0" and left (cuenta, 3) <> "430" and left (cuenta, 3) <> "400"

Tags Relacionados:

Configuracion Contabilidad Parametrizacion