REM ------------------------------------------------------------------
REM 1:2d3dteil_HeliosDsDefinieren2.mac
REM
REM Ermittlung der Vorbelegung fuer Dokumentstamm-Maske bei der Neuanlage von Dokumentstamm
REM
REM Input
REM -----
REM VORGABE Module      FUNC-Module zur Vorbelegung von Werten fuer HELiOS-Funktionen
REM
REM %ZHE1   Integer  ZHE1=1   Vorbelegung von Dokumentstamm-Makse bei Neueingabe aktiv
REM         ZHE1=1   Vorbelegung von Dokumentstamm-Makse bei Neueingabe inaktiv
REM
REM %DTYP   Integer  DTYP=1   Konstruktions-Dokument
REM         DTYP=2   Teile-Dokument
REM         DTYP=3   Konstruktions-Dokument, Teile-Attribute aus Hauptbaugruppe
REM         DTYP=4   KOnstruktions-Dokument, ohne Teileattribute
REM
REM %TEIL   Integer  TEIL>=0  AUfruf aus Funktion "Teil speichern"
REM
REM Output
REM ------
REM %RET Integer  RET=1 Rueckgabewert, Ausfuehrung Ok
REM         RET=0 Rueckgabewert, Ausfuehrung nicht Ok
REM
REM
REM Ersteller: Michael Kast
REM Datum:  05.11.06
REM ------------------------------------------------------------------
START 59

REM Rueckgabewert
%RET:=1


REM IF @23=3 THEN
#CALL 1:3DTEIL_AKTIV
#CALL 1:KRPWAHL
#call z:verwendungsart_beschr
REM IFEND


REM Wenn Uebernahme von Teileattributen inaktiv Vorbelegung beenden
#IF TATT <> 1 GOTO 99


REM =====================================================
REM VORGABE - Modul mit HiCAD-Teileattributen belegen
REM
REM Voraussetzung:
REM - Masken-Vorbelegung in algpar.dat aktiviert
REM - Speicherung von Teil (nicht bei Konstruktions-Dokustamm)
REM - Speicherung ohne Teilestamm
REM =====================================================

REM -- Verwendungsart --
DEL $ATTN
DEL $ATTW
FUNC %RET:=Teil->Attribute.Lesen("P_TYPE",$ATTW)
IF RET = 1 AND $ATTW<>"$" THEN
   $ATTN:=Verwendungsart
   REM -- Christian Hinkamp, ISD-Dortmund, 14.12.2007
   REM -- Vor dem Eintragen pruefen, ob Attribut ueberhaupt existiert
   FUNC %RET := Helios->Dokustamm.AttributExist ($ATTN)
   IF RET=1 THEN
      FUNC %RET := VORGABE.Add($ATTN, $ATTW)
      IF RET <> 1 THEN
         REM Vermutlich bereits gesetzt --> Wert nur aendern
         IF DTYP = 1 OR DTYP = 3 THEN
            IF TS = 1 THEN
               REM Nicht ueberschreiben, da Wert aus Z:HICAD-HELIOS_DS.DAT
            ELSE
               FUNC VORGABE->BENENNUNG := $ATTW
            IFEND
         ELSE
            FUNC VORGABE->BENENNUNG := $ATTW
         IFEND
      IFEND
   IFEND
IFEND


REM Wenn Speicherung aus "Teil speichern, mit Teilestamm" keine Sachnummer in Dokumentmaske uebernehmen



99: REM


REM =================
REM E n d e
REM =================
DEL %DTYP
DEL $TYP
DEL $BEN
DEL $BENENN2
DEL $BLAT
DEL %TATT
DEL %TS

END