(in-package :costum)
(use-package :OLI)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ä Ì	Ä Ø		ö Î		Ö Ú		ü Ï		Ü Û		ß Þ
; 65280 Grün ; 16776960 Gelb ; 16777215 Weiss ; 16711680 Rot ; 255 Blau
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(sd-defdialog 'ArbDatei_sichern
		:dialog-title "Arbeitsdatei"
  		:after-initialization '(progn (DateTime))
:variables '(
  
;;; Arbeitsdatei sichern -> Format
		(Ueber_Dateityp
		:title                 "Dateityp")
		  
;		(Sicher_SES
;          :value-type :boolean
;          :toggle-type :grouped-toggle
;          :title "Sitzung"
;          :initial-value t)
		  
		(Sicher_PKG
          :value-type :boolean
          :toggle-type :grouped-toggle
          :title "Paket"
		  :initial-value t)

		(Sicher_BDL
          :value-type :boolean
          :toggle-type :grouped-toggle
          :title "BÏndel"
          :initial-value nil)

		("-")

	    (Sicher_NAME
          :title "Name"
	      :value-type :string
	      :proposals ("ArbDatei")	      
		  :initial-value "ArbDatei"
		  :auto-add-proposal t
		  :persistent-proposals t
	      :initial-visible t)
		  
		(Sicher_DAT
          :value-type :boolean
          :toggle-type :grouped-toggle
          :title "Datum hinzu"
		  :initial-value t)
	
		("-")
	
		(Sicher_SPE
			:title					"Speichern"
			:push-action			(sd-call-cmds (Sicher_dat))
			:toggle-type			:right-toggle
			:after-input (cancel)
		)
		
) ;; end variables

:mutual-exclusion '(Sicher_PKG Sicher_BDL) ;Sicher_SES
:ok-action
'()
:help-action 
  '(progn 
	(display :show  )
	(display :clear )
	(display  " ")
	(display  "Speichert auf C:/temp")
	;(display  "Sitzung -> SES")
	(display  "Paket   -> PKG")
	(display  "BÏndel  -> BDL")
	(display  " ")
);progn - help-action

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;; Lokale Funktionen ;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  
:local-functions
'(

(Sicher_dat ()					 
;SES
;				(if (and (equal Sicher_SES t) (equal Sicher_DAT nil))
;					(progn (save_session
;							(Format nil "c:\\temp\\Modeling\\~a.ses" Sicher_NAME)
;							:OVERWRITE)
;					); end Progn
;				(if (and (equal Sicher_SES t) (equal Sicher_DAT t))
;					(progn (save_session
;							(Format nil "c:\\temp\\Modeling\\~a_~a.ses" bg_edatum Sicher_NAME)
;							:OVERWRITE)
;					); end Progn							
;

;PKG					
				(if (and (equal Sicher_PKG t) (equal Sicher_DAT nil))
					(progn (save_package
						    :all_at_top
							:FILENAME (Format nil "c:\\temp\\Modeling\\~a.pkg" Sicher_NAME)
							:OVERWRITE)
					); end Progn
				(if (and (equal Sicher_PKG t) (equal Sicher_DAT t))
					(progn (save_package
						    :all_at_top
							:FILENAME (Format nil "c:\\temp\\Modeling\\~a_~a.pkg" bg_edatum Sicher_NAME)
							:OVERWRITE)
					); end Progn							

;BDL				
				(if (and (equal Sicher_BDL t) (equal Sicher_DAT nil))
					(progn (AM_SAVE_BUNDLE
							:PARTASSY
							(uib:get-file-manager-objects)
							(frame2-ui::fb-set-temp-filing-revision "19.0")
							:file_language :default
							:FNAME (Format nil "c:\\temp\\Modeling\\~a_~a.bdl" Sicher_NAME (sd-am-inq-drawing-no))
							:CHECK_UP_TO_DATE 1
							)
					); end Progn
				(if (and (equal Sicher_BDL t) (equal Sicher_DAT t))
					(progn (AM_SAVE_BUNDLE
							:PARTASSY
							(uib:get-file-manager-objects)
							(frame2-ui::fb-set-temp-filing-revision "19.0")
							:file_language :default
							:FNAME (Format nil "c:\\temp\\Modeling\\~a_~a_~a.bdl" bg_edatum Sicher_NAME (sd-am-inq-drawing-no))
							:CHECK_UP_TO_DATE 1
							)
					); end Progn								
					 )))); )); Für SES
) ;;Sichern bis hier

(DateTime ()
	(progn		
		(multiple-value-bind (second minute hour date month year day daylight-p zone)
			(get-decoded-time)
				(progn
				(setf time (format nil "~A:~A:~A" hour minute second))
				(setf bg_edatum (format nil "~A-~A-~A" (- year 2000) month date))
				);;progn
		);;multiple-value-bind
	);;end progn
);;Datum bis hier

 
);end local-funktions
) ;; end dialog