4D v18
REGENERATE MISSING TABLE
- Manual de lenguaje 4D
-
- Estructura
-
- Comandos de acceso a estructura
- CREATE INDEX
- DELETE INDEX
- EXPORT STRUCTURE
- Field
- Field name
- Get external data path
- GET FIELD ENTRY PROPERTIES
- GET FIELD PROPERTIES
- Get last field number
- Get last table number
- GET MISSING TABLE NAMES
- GET RELATION PROPERTIES
- GET TABLE PROPERTIES
- IMPORT STRUCTURE
- Is field number valid
- Is table number valid
- PAUSE INDEXES
- REGENERATE MISSING TABLE
- RELOAD EXTERNAL DATA
- RESUME INDEXES
- SET EXTERNAL DATA PATH
- SET INDEX
- Table
- Table name
REGENERATE MISSING TABLE
| REGENERATE MISSING TABLE ( nomTabla ) | ||||||||
| Parámetro | Tipo | Descripción | ||||||
| nomTabla | Texto |
|
Nombre de tabla faltante a regenerar | |||||
El comando REGENERATE MISSING TABLE reconstruye la tabla faltante cuyo nombre se pasa en el parámetro nomTabla. Cuando se reconstruye una tabla faltante, se vuelve visible en el editor de estructura y sus datos son accesibles nuevamente.
Las tablas faltantes son tablas cuyos datos están presentes en el archivo de datos pero que no existen a nivel de la estructura. Puede identificar las tablas faltantes que puedan estar presentes utilizando el comando GET MISSING TABLE NAMES.
Si la tabla designada por el parámetro nomTabla no es una tabla faltante de la base, el comando no hace nada.
Este método regenera todas las tablas faltantes eventualmente presentes en la base:
ARRAY TEXT($arrMissingTables;0)
GET MISSING TABLE NAMES($arrMissingTables)
$SizeArray:=Size of array($arrMissingTables)
If($SizeArray#0)
// Llena el array con los nombres de todas las tablas en la base
ARRAY TEXT(arrTables;Get last table number)
If(Get last table number>0) //Si hay tablas
For($vlTables;Size of array(arrTables);1;-1)
If(Is table number valid($vlTables))
arrTables{$vlTables}:=Table name($vlTables)
Else
DELETE FROM ARRAY(arrTables;$vlTables)
End if
End for
End if
For($i;1;$SizeArray)
If(Find in array(arrTables;$arrMissingTables{$i})=-1)
CONFIRM("Regenerar la tabla"+$arrMissingTables{$i}+"?")
If(OK=1)
REGENERATE MISSING TABLE($arrMissingTables{$i})
End if
Else
ALERT("Imposible regenerar la tabla "+$arrMissingTables{$i}+" porque ya hay una tabla con este nombre en la base.")
End if
End for
Else
ALERT("No ha tablas a regenerar.")
End if
Producto: 4D
Tema: Estructura
Número
1126
Creado por: 4D v12
missing tables
Manual de lenguaje 4D ( 4D v18)
