(in-package  :se_dialog)
(use-package :oli)

(sd-defdialog 
 'Teil_BG_erstellen
 :dialog-title "Teil u. BG erstellen"
 
 :variables 
 '(
   
   (Baugruppe
    :title		"BG-Name"
    :value-type :string
    )
   
   (Teil
    :title		"Teil-Name"
    :value-type :string
    )
   
   );;variables
 
 
 :ok-action '
 (sd-call-cmds
  (progn 
    (create_assembly :name Baugruppe)
    (create_part :name Teil :owner (format nil "/~A" Baugruppe))))
 )