(in-package  :CHER)
(use-package :OLI)

; ü=Ï ; ä=Ì ; ö=?? ; Ü=Û ; Ä=Ø ; Ö=Ú ; Ø=Ò; µ=ó



(sd-defdialog 'zugriff_erzeugen
  :dialog-title "T/BG claer"
  :variables
    '(
	   (obj			:selection (*sd-object-seltype*)
					:multiple-items t
					:prompt-text "Bitte Teil oder Baugruppe auswÌhlen"
					:title       "Teil(e)/BG(n)"
	   )
	   (rekursiv	:value-type    :grouped-boolean
					:title         "rekursiv"
					:initial-value NIL
	   )
	   ("DB Zugriff")
	   (edit_zul 	:value-type    :grouped-boolean
					:title         "Edit zul."
					:initial-value T
	   )      
	   ("neue Farbe")
	   (farbe 		:value-type    :grouped-boolean
					:title         "FÌrben"
					:initial-value nil
					;:after-input
					;(display (sd-get-variable-status farbe :visible))
					;(let (vis (sd-get-variable-status 'farbe :visible))
					;	(sd-set-variable-status 'color :visible vis)
					;)
		)
	   (color
				:value-type :rgb-color
				:title (sd-multi-lang-string "Color" :german "Farbe")
				:initial-value 15329764 ;;9457211 ;; Copper brown RAL 8004
				:initial-visible T
	   )
   )
   :local-functions
   '(
      (zugriff (obj)
		(dolist (elem obj)
			(setf teiletyp (sel_item-type elem))
			(if (or (equal teiletyp *sd-part-seltype*) (equal teiletyp *sd-assembly-seltype*))
				(progn
				(if edit_zul
					(progn
					(display (sd-inq-obj-pathname elem))
					(NDM_ALLOW_EDIT :objects (sd-inq-obj-pathname elem))
					);end progn
				);end if
				(if (and farbe (equal teiletyp *sd-part-seltype*))
				(part_prop elem :COLOR color)
				);end if
				(if rekursiv
					(when (equal teiletyp *sd-assembly-seltype*)
						(progn
						(setf sohn (sd-inq-obj-children elem))			
						(zugriff sohn)
						) ; end progn
					); end when
				);end if
				);end progn
			); end if
		);end dolist			
      ); end faerben

    ); end local-functions

   :ok-action '(zugriff obj)

) ; end sd-defdialog

;....................................................................;