(in-package :ModelManager)


(oli::sd-define-db-attribute "MODELUSERFELDER"
  :class-name "_MODEL"
  :attachment :contents
  :keys
  '(
  "DESCRIPTION3"
  )
  :allowed-owner-types :part-assembly
  :filing '(:db :sd-file)
  :master :all
  :on-copy :maintain
  :on-merge :detach
  :on-split :copy
  :command-name 'db_zuweisen
)

(oli::sd-create-uda-string-column-definition 
 :mm-descript
 :title (sd-multi-lang-string "Description"  :german "Benennung")
 :attribute "DB-DREF"
 :value-list-key :DESCRIPTION
 :attachment :contents
 )
#| 
 (oli::sd-create-uda-string-column-definition 
 :mm-descript2
 :title (sd-multi-lang-string "Desc2"  :german "Beschr2") 
 :attribute "MODELUSERFELDER"
 :value-list-key :DESCRIPTION2
 :attachment :contents
 ) |#

 (oli::sd-create-uda-string-column-definition 
 :mm-descript3
 :title (sd-multi-lang-string "Desc3"  :german "Beschr3") 
 :attribute "MODELUSERFELDER"
 :value-list-key :DESCRIPTION3
 :attachment :contents
 )
 
 
 (oli:sd-create-browser-view
  "TESTVIEW"
  :title (sd-multi-lang-string "Testview"  :german "Testview")
  :tree-config '(:instance-name" | ":contents-name" ":mm-descript" ":mm-descript3" |":mm-version"| ":mm-state)
  :detail-config '( :instance-name :contents-name :mm-descript :mm-descript3 :mm-version :mm-state :db-state :part-uid-column
                                   :in-packet-dms-name-column :shared :selective-instance-context
                                   :path-name :modifiable :modified)
  :activate-detail-configuration nil
  :enable '(oli:sd-license-free-module-active-p "ModelManager")
  )
(oli:sd-set-default-browser-view "ModelManager" "TESTVIEW")

(sd-defdialog 'teilundatt
   :dialog-title "TEST"
   :toolbox-button nil
   :variables
   `(
     (TEIL_NEU  :initial-value T)               ; lokale Variable
 
     (TEILE_NR
      :title ,"NUMMER"
      :value-type :string
      :initial-value "TEIL001"
     )
     
     (BENENN
      :title (sd-multi-lang-string "Desc"  :german "Beschr") 
      :value-type :string
      :initial-value "BEN"       :initial-optional T       :optional T
     )
#|	  (BENENN2
      :title (sd-multi-lang-string "Desc2"  :german "Beschr2") 
      :value-type :string
      :initial-value "BEN2"       :initial-optional T       :optional T
     )
|#	  (BENENN3
      :title (sd-multi-lang-string "Desc3"  :german "Beschr3") 
      :value-type :string
      :initial-value "BEN3"       :initial-optional T       :optional T
     )

     (OWNER
      :title "Besitzer"
      :value-type :assembly
      :initial-value (sd-pathname-to-obj "/")
     )
	 )


     ;("-")
      
     ;:ok-action '(sd-call-cmds (machteilundatt teile_nr benenn benenn2 benenn3 owner teil_neu))
	 :ok-action '(sd-call-cmds (machteilundatt teile_nr benenn benenn3 owner teil_neu))
	 )

  
;  (defun machteilundatt (teile_nr benenn benenn2 benenn3 owner teil_neu)
  (defun machteilundatt (teile_nr benenn benenn3 owner teil_neu)
  (DISPLAY (concatenate 'string "teile_nr "  teile_nr))
 (DISPLAY (concatenate 'string "benenn "  benenn))
 ;(DISPLAY (concatenate 'string "benenn2 "  benenn2))
 (DISPLAY (concatenate 'string "benenn3 "  benenn3))
  (DISPLAY "teil_neu") 
(DISPLAY teil_neu)

 (and teile_nr teil_neu
  (progn
  (display "1")
  (create_part :name teile_nr :owner owner)
  (setq teilename (sd-inq-curr-part))
  (setq test-sel-item  (oli::sd-pathname-to-obj (sd-inq-obj-pathname teilename)))
  )
 )
  #|  ... gekürzt ...|#
  
   (ModelManager::sd-assign-db-attribute "DB-DREF" test-sel-item '(:DESCRIPTION benenn))  ;; geht nicht
  ; works (sd-assign-db-attribute "MODELUSERFELDER" (oli::sd-pathname-to-obj "/TEIL001")  '( "DESCRIPTION3" benenn3)) 
  ; works (sd-assign-db-attribute "MODELUSERFELDER" test-sel-item  '( "DESCRIPTION3" "benenn3")) 
  ; does not work (sd-assign-db-attribute "MODELUSERFELDER" test-sel-item  '( "DESCRIPTION3" benenn3)) 
  )