;;--------------------------------------------------------------------------*
;; Modulbeschreibung:
;; Leseberechtigungsmarkierung (read-only) entfernen, falls zulässig von
;; kompletter Baugruppen
;;--------------------------------------------------------------------------*
;;  Dateiname: Bearbeiten_zulassen.lsp
;;  Version  : 1.0
;;  Datum    : 15.05.2019
;;  Author   : MiBr
;;--------------------------------------------------------------------------*

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

(sd-defdialog  'bearbeiten_zulassen
:dialog-title "Bearbeiten_zulassen"
:toolbox-button t
:variables '(
	(quelle_bg		:modifies nil
					:initial-value nil
					:value-type :assembly
					:prompt-text "Baugruppe angeben"
					:title "Baugruppe"
    )
);end-variables
:ok-action '(sd-call-cmds (do-it))
:local-functions '(
	(do-it ()
		
		(let (nummern_liste a-item)
		
			(setf nummern_liste (sd-inq-obj-children quelle_bg))
			(dolist (a-item nummern_liste)
					(when (or (sd-inq-part-p a-item) (sd-inq-assembly-p a-item)) (ndm_allow_edit :objects a-item))
			)
		)
	);do-liste
);end local-functions
);end sd-defdialog