;*********************************************************************************************
; Dateiname 	: 		SD_Reload_with_missing_parts.lsp
; Autor         : 	Stephan Wörz
; Erstellt      :		28.04.2005
; geändert    	:
;*********************************************************************************************
; Beschreibung:		- 	Fehlende Teile beim laden einer unvollständigen Baugruppe ignorieren
;					-	
;*********************************************************************************************
; Änderungen
;
;*********************************************************************************************

(unless (find-package :PHOENIX)  		(make-package :PHOENIX))
(use-package :PHOENIX)

(sd-defdialog 'SD_Reload_with_missing_parts
		:dialog-title (sd-display-to-internal-string "Laden unvollstaendiger Baugruppen") 
		:dialog-type :terminate
	; :dialog-control :sequential
		:toolbox-button t
		:variables '( );; variables
		  
		:ok-action 	
;;; in dieser Reihenfolge soll das ablaufen...		
		  		'(progn 
		  				(CreateSearch) 				
		  				(sd-call-cmds px-load-partial-dlg)
							(FindAndRenameEmptyParts)
							(ActivateSearch)
						);;progn
			
		:local-functions '(
				
				(FindAndRenameEmptyParts ()
						(sd-call-cmds PHOENIX::px-unprotect-fast-dlg)
				  (let (mylist obj) 
				    (SETQ mylist (PHOENIX::px-create-instance-model-list (sd-pathname-to-obj "/")))
				    (DOLIST (obj mylist)
				      (IF (sd-inq-empty-part-p obj)    
				          (PROGN
				            (change_name_pa :part_asmb obj :name (format nil "EmptyPart___~A" (sd-inq-obj-basename obj)))		
				            ;;(DISPLAY (format nil "EmptyPart: ~A" (sd-inq-obj-pathname obj)))
				          );;PROGN
				        );;IF
				      );;DOLIST
				    );;LET
				    (sd-call-cmds PHOENIX::px-protect-fast-dlg)
				);;FindAndRenameEmptyParts
				
				
				(CreateSearch ()
					  				(sd-create-browser-search 			
				  						 "parcel-gbrowser"
				               :name 					"EmptyParts"
				               :title 					"EmptyParts"   
				               :criteria				'((:column :instance-name :operation :equals :value "Empty*"))
				               :match 					:all 		
				               :case-sensitive nil			
				               :enable 				t;'(my-search-enabled-p)
				  					);;sd-create-browser-search
				);;CreateSearch  				
				
				
				(ActivateSearch ()
						 			(sd-set-current-browser-search 
				 							"parcel-gbrowser" 
				 							"EmptyParts"
				 							:activate t 
				 							:persistent nil
				 			  	);;sd-set-current-browser-search
				);;ActivateSearch 
				
		);; local-funktions
		  
);end sd-defdialog