;;--------------------------------------------------------------------------*
;; Dateiname: HK_Test.lsp
;; Revision : 1.0
;; Datum    : 11.11.2005
;; Author   : Tasche
;; Version   :13.20A
;;--------------------------------------------------------------------------*
;; Modulbeschreibung:                                                                    
;; Setzt die laufende Nummer in der Sückliste auf die Positionsnummer.                                                                                                 
;;                                                                                                   
;;--------------------------------------------------------------------------*
(in-package :my-special-bom-attr)
(use-package :oli)
;;--------------------------------------------------------------------------*
;; 
;;--------------------------------------------------------------------------*
;; Vorgaben setzen:                   
;;--------------------------------------------------------------------------*
;;(setf hk_lfnr 1)        
;;--------------------------------------------------------------------------*

(sd-defdialog 'hk_bom_nummern_sortieren
		:toolbox-button t
   	:dialog-title "HK_Bom_Nummern"
   	:prompt-text "Stueckliste neu sortieren"
	   :dialog-type :terminate
   	:variables
   	'(
	      (hk_bau_grp  
	      		  :value-type :assembly 
			        :title "Bgrp"
			        :initial-value nil
			        :modifies nil
	              :prompt-text "Baugruppe auswaehlen"
	      );Baugrupp
			
			
			
	   );variables
	      
	  :local-functions
   	'(
			(hk_laufende_nummer ()
				
              (AM_BOM_SCAN3D :all_levels :ASSY
              	(sd-call-cmds (get_selection :focus_type *sd-part-seltype*
              													:check_function  #'(lambda (si)
                        	                   			(if (string= T (sd-inq-obj-contents-read-only-p si));;Read only Bauteil
	                                               			:filter
                                             	  			:ok
   	                                        			);;if
         	                                  		);;lambda
            	                              	:select :recursive :in_assembly hk_bau_grp))complete)
      			
			);hk_laufende_nummer   	
			
			
			
   	
		);local-function
		
		:ok-action '(progn
							(hk_laufende_nummer)
						);progn
);sd-defdialog