Doc. Ref. 9361 Título: Cómo generar los códigos IBAN a partir de cuentas de 20 dígitos Autor: Hexa Última actualización: 02/12/2013 #iban #redundancias #cuenta #banco #sepa #bic

---

Cómo generar los códigos IBAN a partir de cuentas de 20 dígitos

La función "ActIBAN" de la clase "Redundancias" permite generar el código IBAN de las cuentas bancarias españolas a partir de los códigos de 20 dígitos "Entidad-Oficina-Control-Cuenta"

Al tratarse de una función poco habitual, Hexa estandar no dispone de una opción de menú o formulario específico para ejecutar un proceso que utilice esta función sobre un conjunto de registros

La forma más práctica de realizar el proceso es utilizar la función de ejecución de scripts con el siguiente código:

Function Main (PS0, PS1, PS2)
  Resultado = "Tablas y registros procesados:" & VbCrLf
  Resultado = Resultado & "Albaran: " & Redundancias.ActIBAN ("Fecha>='1/1/2014'", "Prefijo, Numero", "Tabla='Albaran'") & VbCrLf
  Resultado = Resultado & "AlbaranProveedor: " & Redundancias.ActIBAN ("Fecha>='1/1/2014'", "Prefijo, Numero", "Tabla='AlbaranProveedor'") & VbCrLf
  Resultado = Resultado & "Banco: " & Redundancias.ActIBAN ("", "Codigo", "Tabla='Banco'") & VbCrLf
  Resultado = Resultado & "Cliente: " & Redundancias.ActIBAN ("", "Codigo", "Tabla='Cliente'") & VbCrLf
  Resultado = Resultado & "ClientePotencial: " & Redundancias.ActIBAN ("", "Codigo", "Tabla='ClientePotencial'") & VbCrLf
  Resultado = Resultado & "Contrato: " & Redundancias.ActIBAN ("", "Numero", "Tabla='Contrato'") & VbCrLf
  Resultado = Resultado & "Factura: " & Redundancias.ActIBAN ("Fecha>='1/1/2014'", "Prefijo, Numero", "Tabla='Factura'") & VbCrLf
  Resultado = Resultado & "FacturaProveedor: " & Redundancias.ActIBAN ("Fecha>='1/1/2014'", "Prefijo, Numero", "Tabla='FacturaProveedor'") & VbCrLf
  Resultado = Resultado & "Pago: " & Redundancias.ActIBAN ("Fecha>='1/1/2014'", "Prefijo, Numero", "Tabla='Pago'") & VbCrLf
  Resultado = Resultado & "Pedido: " & Redundancias.ActIBAN ("Fecha>='1/1/2014'", "Prefijo, Numero", "Tabla='Pedido'") & VbCrLf
  Resultado = Resultado & "PedidoProveedor: " & Redundancias.ActIBAN ("Fecha>='1/1/2014'", "Prefijo, Numero", "Tabla='PedidoProveedor'") & VbCrLf
  Resultado = Resultado & "Proveedor: " & Redundancias.ActIBAN ("", "Codigo", "Tabla='Proveedor'") & VbCrLf
  Resultado = Resultado & "Recibo: " & Redundancias.ActIBAN ("Fecha>='1/1/2014'", "Prefijo, Numero", "Tabla='Recibo'") & VbCrLf
  Main = Resultado
End Function

Comentarios:

1. El script devuelve como resultado un resumen del proceso realizado.
2. Se ha especificado todas las tablas que tienen campos de cuenta bancaria. Si no se desea actuar sobre todas, basta con eliminar las líneas correspondientes.
3. En las tablas de flujo, se ha especificado como criterio que la fecha del documento sea de 2014 en adelante. Se puede modificar esta condición para actuar sobre un conjunto de registros diferente
4. En las tablas de estructura, no se ha especificado ningún criterio para así actuar sobre todos los registros
5. Aunque el orden es indiferente y no tiene ningún efecto sobre el resultado, por elegancia se ha especificado un orden para cada uno de los procesos.

Volver a la búsqueda anterior