Code: Select all
* ------------------------------------------------------------------------------ *
* ------------------------------------------------------------------------------ *
Function CreaTabla()
Local aEstruct
Local nSelect:=Select()
aEstruct:= { ;
{'NUMCLI', 'N', 8, 0}, ;
{'DNI', 'C', 12, 0}, ;
{'NOMBRE', 'C', 20, 0}, ;
{'APELLIDOS', 'C', 37, 0}, ;
{'DOMICILIO', 'C', 40, 0}, ;
{'POBLACION', 'C', 21, 0}, ;
{'PROVINCIA', 'C', 15, 0}, ;
{'CODPOSTAL', 'C', 5, 0}, ;
{'FECHANAC', 'D', 8, 0}, ;
{'TELEFONO', 'C', 10, 0}, ;
{'OBSERVACIO', 'C', 53, 0}, ;
{'RESTRIARM', 'N', 2, 0}, ;
{'RESTRICON', 'N', 2, 0}, ;
{'RESTRIEMB', 'N', 2, 0}, ;
{'AVICON', 'D', 8, 0}, ;
{'AVIEMB', 'D', 8, 0}, ;
{'AVIARMA', 'D', 8, 0}, ;
{'AVIARMAE', 'D', 8, 0}, ;
{'AVIARMAEM', 'D', 8, 0}, ;
{'AVIARMB', 'D', 8, 0}, ;
{'AVIARMC', 'D', 8, 0}, ;
{'AVIARMD', 'D', 8, 0}, ;
{'AVIARME', 'D', 8, 0}, ;
{'AVIARMF', 'D', 8, 0}, ;
{'AVIARMSP', 'D', 8, 0}, ;
{'LSELEC', 'L', 1, 0} ;
}
PlayBeep()
PlayOk()
* Creamos fichero a partir de la estructura vacía
DbCreate('Tabla', aEstruct)
USE Tabla SHARE NEW
Tabla->(DbGoTop())
INDEX ON NumCli TAG NumCli TO 'Tabla'
Tabla->(DbGoTop())
INDEX ON Poblacion TAG Poblacion TO 'Tabla'
Close Tabla
Select(nSelect)
Return Nil
* ------------------------------------------------------------------------------ *
* ------------------------------------------------------------------------------ *