;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Description:  Model Manager's default "Browser Views" file
;
; (C) Copyright 1997-2005 CoCreate Software GmbH, all rights reserved.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; This file contains definitions of browser search and filters that can be activated
;; via the structure browser "Views" menu button when Model Manager is
;; activated.

;; Add IN_PACKET_DMS_NAME
(oli::sd-create-uda-string-column-definition
 :in-packet-dms-name-column
 :title "Reserviert"
 :attribute "DB-GREF"
 :value-list-key :IN_PACKET_DMS_NAME
 :attachment :contents
 )

;; Define DOC UID and PART UID for Details view
(oli::sd-create-uda-string-column-definition
 :doc-uid-column
 :title "Dok-Info"
 :attribute "DB-DREF"
 :value-list-key :unique_id_string
 :attachment :contents
 )

(oli::sd-define-db-attribute "EIFFEL_PART"
                             :class-name "MASTERDATA"
                             :attachment :contents
                             :keys	'(	("DESCRIPTION" :label "Beschreibung")
                                        ("DESCRIPTION2" :label "Beschreibung2")
                                        ;;; folgende Attirbute werden über SolidPower gemappt
                                        ; ("GEWICHT" :label "Gewicht")
                                        ; ("DIN" :label "DIN")
                                        ; ("OBERFLAECHE" :label "Oberfläche")
                                     )
                             ;:allowed-owner-types :part-assembly
                             ;:filing '(:db :sd-file)
                             ;:master :all
                             :on-copy :maintain
                             :on-merge :detach
                             :on-split :detach
                             :on-xform :detach
                             :command-name 'eiffel-tools-set-part-atts
)


;;; EIFFEL-PART Atts
(oli::sd-create-uda-string-column-definition
 :description1-column
 :title "Beschreibung"
 :initial-width 275
 :attribute "EIFFEL_PART"  ;; matches the sd-define-db-attribute name
 :value-list-key :DESCRIPTION   ;; the name of the attribute
 :attachment :contents
 )

 (oli::sd-create-uda-string-column-definition
 :description2-column
 :title "Beschreibung 2"
  :initial-width 105
 :attribute "EIFFEL_PART"   ;; matches the sd-define-db-attribute name
 :value-list-key :DESCRIPTION2   ;; the name of the attribute
 :attachment :contents
 )

;;; SOLIDPOWER-PART Atts
 (oli::sd-create-uda-string-column-definition
 :zng-nr-column
 :title "Zeichnungsnummer"
 :initial-width 120
 :attribute (eiffel-tools::eiffel-get-sdp-attribute "ZNG_NR" "doc")			;; matches the sd-define-db-attribute name
 :value-list-key :ZNG_NR   ;; the name of the attribute
 :attachment :contents
 )

 (oli::sd-create-uda-string-column-definition
 :material-column
 :title "Werkstoff"
 :initial-width 80
 :attribute (eiffel-tools::eiffel-get-sdp-material t)		;; matches the sd-define-db-attribute name
 :value-list-key (eiffel-tools::eiffel-get-sdp-material)   ;; the name of the attribute
 :attachment :contents
 )

(oli::sd-create-uda-string-column-definition
 :rohmasz-column
 :title "Rohmass"
 :initial-width 63
 :attribute (eiffel-tools::eiffel-get-sdp-attribute "ROHMASZ" "part")			;; matches the sd-define-db-attribute name
 :value-list-key :ROHMASZ   ;; the name of the attribute
 :attachment :contents
 )
 
(oli::sd-create-uda-string-column-definition
 :gewicht-column
 :title "Gewicht"
 :initial-width 55
 :attribute (eiffel-tools::eiffel-get-sdp-attribute "GEWICHT" "part")			;; matches the sd-define-db-attribute name
 :value-list-key :GEWICHT   ;; the name of the attribute
 :attachment :contents
 )

(oli::sd-create-uda-string-column-definition
 :din-column
 :title "DIN"
 :initial-width 55
 :attribute (eiffel-tools::eiffel-get-sdp-attribute "DIN" "part")               ;; matches the sd-define-db-attribute name
 :value-list-key :DIN   ;; the name of the attribute
 :attachment :contents
 )

(oli::sd-create-uda-string-column-definition
 :oberflaeche-column
 :title "Oberflaeche"
 :initial-width 82
 :attribute (eiffel-tools::eiffel-get-sdp-attribute "OBERFLAECHE" "part")		;; matches the sd-define-db-attribute name
 :value-list-key :OBERFLAECHE   ;; the name of the attribute
 :attachment :contents
 )

  (oli::sd-create-uda-string-column-definition
 :ersatzteil-column
 :title "Ersatzteil"
 :initial-width 62
 :attribute (eiffel-tools::eiffel-get-sdp-attribute "ERSATZTEIL" "part")			;; matches the sd-define-db-attribute name
 :value-list-key :ERSATZTEIL   ;; the name of the attribute
 :attachment :contents
 )
  (oli::sd-create-uda-string-column-definition
 :charakter-column
 :title "Charakter"
 :initial-width 65
 :attribute (eiffel-tools::eiffel-get-sdp-attribute "CHARAKTER" "part")			;; matches the sd-define-db-attribute name
 :value-list-key :CHARAKTER   ;; the name of the attribute
 :attachment :contents
 )

   (oli::sd-create-uda-string-column-definition
 :sach_nr-column
 :title "Sach-Nr."
 :initial-width 100
 :attribute (eiffel-tools::eiffel-get-sdp-attribute "SACH_NR" "part")			;; matches the sd-define-db-attribute name
 :value-list-key :SACH_NR   ;; the name of the attribute
 :attachment :contents
 )

    (oli::sd-create-uda-string-column-definition
 :bemerkung-column
 :title "Bemerkung"
 :initial-width 100
 :attribute (eiffel-tools::eiffel-get-sdp-attribute "BEMERKUNG" "part")			;; matches the sd-define-db-attribute name
 :value-list-key :BEMERKUNG   ;; the name of the attribute
 :attachment :contents
 )

 ;; Define Default view
(oli:sd-create-browser-view
  "MM_DEFAULT"
  :title "SEH MM Browser"
  :derive-virtual-title-from-child t 
  :tree-config '(:instance-name " [" :mm-version "] " :mm-state)

  :detail-config '( :contents-name :zng-nr-column :description1-column :description2-column :material-column :gewicht-column :din-column
  :oberflaeche-column :rohmasz-column :sach_nr-column :ersatzteil-column :charakter-column :bemerkung-column :modified :mm-version :doc-state  :db-state)
  :activate-detail-configuration nil
  :enable '(oli:sd-license-free-module-active-p "ModelManager")
  )


(oli::sd-set-default-browser-view "ModelManager" "MM_DEFAULT")