TCL Command ABMCALC

Syntax

array set calc [ABMCALC GET LIST]

set funcID [ABMCALC GET FUNCTION funcname]

Beschreibung

Abfrage der Tabellen und Formeln des Projekts

Abfrage der Existenz einer bestimmten Funktion

Argument	Dimension	Bedeutung
GET	KEYWORD	Daten abfragen
LIST	KEYWORD	Liste abfragen
FUNCTION	KEYWORD	Tabellen-ID oder Formel-ID bzw deren Existenz abfragen
funcname	TEXT	Name der Tabelle oder Formel (arg2 = FUNCTION)

Rückgabefeld für [ABMCALC GET LIST]

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
first	OBJID	Objekt-ID des ersten Listeneintrages
last	OBJID	Objekt-ID des letzten Listeneintrages
count	INT	Anzahl der Listeneinträge

Rückgabe für [ABMCALC GET FUNCTION funcname]

Return	Dimension	Bedeutung
funcID	OBJID	Tabellen-ID oder Formel-ID; 0, wenn nicht existent

Scopes

All

Beispiele

array set calc [ABMCALC GET LIST]

if { $calc(count) > 0 } {

set ID $calc(first)

for { set ifunc 0 } { $ifunc < $calc(count) } { incr ifunc } {

if { $ifunc > 0 } { set ID [OBJNEXT $ID] }

array unset func

array set func [ABMFUNCTION $ID GET]

ABMINFO " "

ABMINFO " Function " $func(name) ":"

ABMINFO " -------------------------"

foreach {key value} [array get func] {

if { $key == "id" } continue

ABMINFO " " $key " = " $value

}

}

}

Die Liste der Tabellen und Formeln wird abgefragt. Wenn die Anzahl der Funktionen größer Null ist, dann wird die Liste in einer for-Schleife durchlaufen. Die mitlaufende ID wird ab dem 2. Durchlauf inkrementiert. Die Daten jeder Funktion werden geloggt.

# find a table

set tabID [ABMCALC GET FUNCTION "webwidth"]

if { $tabID == 0 } {

set error "Tabelle 'webwidth' nicht gefunden."

LOGERROR $error

}

Die ID der Tabelle "webwidth" wird erfragt und wenn die Tabelle nicht existiert wird eine Fehlermeldung geschrieben.