Doc. Ref. 9362 Título: Actualizar el IBAN en una tabla específica mediante un script Autor: Hexa Última actualización: 15/12/2013 #iban #redundancias #cuenta #banco #sepa #bic #específicos

---

Actualizar el IBAN en una tabla específica mediante un script

Hexa dispone de una función para generar el código bancario IBAN en las tablas estandar. En el caso de que sea neceario hacer el mismo proceso con una tabla específica, se puede utilizar este script de ejemplo modificando los nombres de los campos y de la tabla para cada caso concreto.

Function Main (PS0, PS1, PS2)

 'Conexión a la base de datos
 Dim Alumno : Set Alumno = CreateObject ("ADODB.Recordset") : Alumno.CursorLocation = 3 'AdUseClient
 Alumno.Open "SELECT Codigo, Entidad, Oficina, Control, Cuenta FROM Alumno ORDER BY Codigo", Cna
 Set Alumno.ActiveConnection=Nothing

 'Para controlar la cantidad de registros
 Cantidad = 0
 Do While Not Alumno.EOF

 'Creamos una cuenta IBAN sin los dígitos de control
  IBAN = "ES00" & Alumno.Fields("Entidad") & Alumno.Fields("Oficina") & Alumno.Fields("Control") & Alumno.Fields("Cuenta")

 'La función IBAN genera los dígitos de control
  IBAN = "ES" & Redundancias.CheckIBAN("" & IBAN) & Right(IBAN, Len(IBAN) - 4)

 'Si el código tiene la longitud adecuada (no faltan datos de entidad/oficina/control/cuenta
  If Len (IBAN) = 24 Then
   BaseDeDatos.Modifica "Alumno", "IBAN=" & FH.SQLT (IBAN), "Codigo=" & Alumno.Fields ("Codigo")
  End If
  Alumno.MoveNext
 Loop
 Resultado = "Alumnos actualizados=" & Cantidad
 Main = ResultadoEnd Function
End Function

Volver a la búsqueda anterior