;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 
;; Beschreibung:  Verschiebt Teile/Baugruppen, die eine Bestimmte Suchvorgabe erfüllen
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(use-package :oli)

(sd-defdialog 'Teile_verschieben
  :dialog-title "Teile verschieben"
  :toolbox-button t
  :variables '(
	("Teil oder Baugr. - Auswahl:")
	(teile		:value-type :part-assembly
			:multiple-items t)
			
	(suchmuster	:value-type :string 
			:initial-value "*0815*"
			:prompt-text "Bitte Text angeben. Gross- und Kleinschreibung beachten!    '*' sind zulaessig" )
			
	(ziel		:value-type :assembly)
    
		) ;end variables
  
:local-functions '(
	(VERSCHIEBEN (item)
		(when (sd-string-match-pattern-p suchmuster (sd-inq-obj-basename item))
		(sd-call-cmds 
		(change_pa_owner :new_owner ziel :parts_assemblies  item )
		); end call
		
		#| Hier müßte ein Teil hinein, der prüft, ob der Teilename in der Zielbaugruppe schon existiert
		   und wenn ja, soll das in die Zielbaugruppe zu verschiebende Teil einen Zähler angehängt bekommen
		|#
		
		
		
		); end when
	) ; end VERSCHIEBEN


  
		) ;end local-functions
:ok-action '(mapc #'VERSCHIEBEN teile)

)