Titolo: Esportazione Descrizione Struttura
Categoria: Info |
|
Ultimo Aggiornamento: 10/06/09 |
Esporta in un file di testo con la descrizione della struttura corrente; include il numero di record, le relazioni con indicazioni se automatiche Molti a Uno o Uno a Molti.
C_LONGINT($TabellaNumero;$tabella;$campo;$lunghezza;$tipo)
$cr:=Char(Carriage return )
$doc:=Create document("")
If (ok=1)
GET TABLE TITLES($Tabelle_nomi;$Tabelle_numeri)
SORT ARRAY($Tabelle_nomi;$Tabelle_numeri)
For ($tabella;1;Size of array($Tabelle_nomi))
$TabellaNome:=$Tabelle_nomi{$tabella}
$TabellaNumero:=$Tabelle_numeri{$tabella}
SEND PACKET($doc;$cr+"TABLE "+$TabellaNome+" ("+String(Records in table(Table($TabellaNumero)->))+")"+$cr)
For ($campo;1;Count fields($TabellaNumero))
GET FIELD PROPERTIES($TabellaNumero;$campo;$tipo;$lunghezza)
Case of : (($tipo=
Is LongInt ) | ($tipo=
Is Integer ))
$tipo:="Long"
: ($tipo=
Is Real )
$tipo:="Real"
: ($tipo=
Is Alpha Field )
$tipo:="Alfa "+String($lunghezza)
: ($tipo=
Is Text )
$tipo:="Text"
: ($tipo=
Is Boolean )
$tipo:="Bool"
: ($tipo=
Is Date )
$tipo:="Date"
: ($tipo=
Is Time )
$tipo:="Time"
: ($tipo=
Is Picture )
$tipo:="Pict"
Else $tipo:="blob "+String($tipo)
End case GET RELATION PROPERTIES($TabellaNumero;$campo;$oneT;$oneF;$cf;$autoOne;$autoMany)
If ($oneT=0)
$relazione:=""
Else $relazione:="-> ["+Table name($oneT)+"]"+Field name($oneT;$oneF)+(Num($autoOne)*"A1")+" "+(Num($autoOne)*"AM")
End if SEND PACKET($doc;Char(Tab )+$tipo+Char(Tab )+Field name($TabellaNumero;$campo)+Char(Tab )+$relazione+$cr)
End for End for CLOSE DOCUMENT($doc)
ALERT("finito")
End if
Inviato da: Umberto Migliore |
|
Visite: 10362 |
Se accedi con utente e password, puoi aggiungere dei commenti.