;# ===========================================================================
;#  Dateiname:	.../ar_intrastat.lsp
;# ===========================================================================
;#  Bearbeiter:  	Thomas Dörner
;#  Stand:		10.09.2003
;# ===========================================================================
;#  Beschreibung:  Auslesen der Eigenschaften, Masse, Dichte, Volumen eines Teils
;# ===========================================================================

;# ===========================================================================
;;### alle Befehle werden in custom - frei wählbar - gepackt
;# ===========================================================================
(in-package :custom)

;# ===========================================================================
;;### Lade Befehlssatz für Integration Kit
;# ===========================================================================
(use-package :OLI)	

;# ===========================================================================
;;### Dialog
;# ===========================================================================
(sd-defdialog 'Intrastat
   	:toolbox-button nil  
   	:dialog-title "Intrastat Daten" 
   	:variables 
   	'(
       	(ND_PART  		
          		:value-type :part
          		:multiple-items nil
          		:title "Teil"
          		:prompt-text "Bitte Teil auswählen")
          		
       ) ;; ende Variablen

  	:ok-action
     		'(los-gehts)

   	:local-functions 
   	'(
		(los-gehts ()
			;;(sd-call-cmds (display "Dichte:"))
			;;(SETQ DICHTE (sd-inq-part-density ND_PART))
			;;(setf _DICHTE (format nil "~6,4,,,'0F" DICHTE))
			;;(display(format nil "Dichte: ~S" _DICHTE))
			(setf DICHTE (get_vol_prop :for_part :part ND_PART :density))
			(setf MASSE (get_vol_prop :for_part (oli::sd-pathname-to-obj "/T1") :mass))
			(setf VOLUMEN (get_vol_prop :for_part (oli::sd-pathname-to-obj "/T1") :volume))
			(display(format nil "Dichte: ~S" DICHTE))
     		) ;; ende los gehts   
   	) ;; ende local-functions
);;ende Dialog