Vorschlagsmakro

PROCEDURE InmFensterRahmen

!Aufruf einer zentralen Procedure, welche notwendige Starteinstellungen steuert

RUN public\lib.SetDefaultPreferences

!Erstellung einer Viewlist, welche an eine zentrale Procedure weitergegeben wird, welche Starteinstellungen des Grafiksystems steuert

ViewLst = {{"1", "3"}, {"2", "4"}}

RUN public\lib3D.InitializeGraphicSystemV2("Gascad3D", ViewLst)

!Variablen mit Werten belegen

cRahmenFarbe = "m0-RAL1000"

cFluegelFarbe = "m0-RAL9010"

cFenster = ""

!Variablen anhand WS_MODELL (Konfigurationsmodell) belegen.

cFluegel = LEFT$(WS_MODELL,2)

cMaterial = LEFT$(WS_MODELL,1)

nFluegelAnz = VAL(RIGHT$(WS_MODELL,1))

cFluegelPos = MID$(WS_MODELL,6,1)

!Anhand nFluegelAnz wird die Sichtbarkeit von Frageparametern gesteuert

case nFluegelAnz

when 1 do BEGIN

FpFluegel2.USEOF = 3

FpFluegel3.USEOF = 3

FpFluegel4.USEOF = 3

end

when 2 do BEGIN

FpFluegel3.USEOF = 3

FpFluegel4.USEOF = 3

end

when 3 do BEGIN

FpFluegel4.USEOF = 3

end

end

!Anhang cFluegelPos und nFluegelAnz werden Min- und Max-Maße bestimmt

if cFluegelPos = "N" then

nMinBreite = 300 * nFluegelAnz

nMaxBreite = 1000 * nFluegelAnz

nMinHoehe = 300

nMaxHoehe = 1000

else

nMinBreite = 300

nMaxBreite = 1000

nMinHoehe = 300 * nFluegelAnz

nMaxHoehe = 1000* nFluegelAnz

ENDIF

!Anhand WS_MODELL wird die Sichtbarkeit von FpHolzart gesteuert

if LEFT$(WS_MODELL,1) = "K" then

FpHolzart.USEOF = 3

else

FpHolzart.USEOF = 1

endif

!Mittels einer zentralen Procedure wird eine SQL-DB geladen

IF NOT DEFINED (db) THEN BEGIN

db = ""

RUN public\libdb.LoadSQLDB(db, "Fenster01", PATH + "SQLDB\Sonnen.db")

ENDIF

END