(in-package :custom)
(use-package :oli)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ä Ì	Ä Ø		ö Î		Ö Ú		ü Ï		Ü Û		ß Þ
; 65280 Grün ; 16776960 Gelb ; 16777215 Weiss ; 16711680 Rot ; 255 Blau
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;(sd-hide-console-window)
;;(sd-show-console-window)
(setf si::*enter-break-handler* t)


;;----------------------------------------------------------------------------------------------*
;; Vorgaben setzen:						;; Moeglicher Vorgabewerte:
;;----------------------------------------------------------------------------------------------*
(setf bg_sketch_SF "SF-Text")
(setf bg_pos_bg_edatum -165,30.5)
(setf bg_pos_werkst -75.5,58.5)
(setf bg_pos_bg_haerte -50,70)
(setf bg_pos_bg_rohmass -24.5,58.5)
(setf bg_pos_bg_stl_pos -170,58.5)
(setf bg_pos_bg_stl_stck -160,58.5)

(setf bg_werkst "1.1730")
(setf bg_haerte "gehÌrtet 48+2 HRC")
(setf bg_stl_pos "1")
(setf bg_stl_stck "1")
(setf bg_stl_form "Fl.")
(setf bg_stl_breite "")
(setf bg_stl_hoehe "")
(setf bg_stl_laenge "")

;;----------------------------------------------------------------------------------------------*

(sd-defdialog 'am_schriftfeld
  :dialog-title "Schriftfeld"
  :toolbox-button t
  :after-initialization '(DateTime) ;;neu
  :variables
  '(
		(bg_ppnt_SF	:value-type :docupntcnp
				:promt-text "Beszugspunkt für Schriftfeld angeben"
				:title "Position"
		)
  
		(title_0 :title "Schriftfeldangaben")
		
		(bg_txt_werkst	:title "Werkstoff"
						:range ((" ")("1.1730")("1.2842")("1.2379")("1.2436")("1.7225"))
						:initial-value bg_werkst
						:size :half
		)
		(bg_txt_haerte	:title "HÌrteangabe"
						:range ((" ")("gehÌrtet 48+2 HRC" :label "48+2")("gehÌrtet 50+2 HRC" :label "50+2"))
						:initial-value bg_haerte
						:size :half
		)
		(bg_txt_stl_pos :value-type :string
                		:title "STL-Position"
						:initial-value bg_stl_pos
						:size :half
		)
		(bg_txt_stl_stck :value-type :string
                		:title "STL-Anzahl"
						:initial-value bg_stl_stck
						:size :half
		)		
		(bg_txt_breite	:value-type :string
		                :title "Breite/Durchm."
						:initial-value bg_stl_breite
						:size :half
		)
		(bg_txt_hoehe	:value-type :string
						:title "Höhe"
						:initial-value bg_stl_hoehe
						:size :half
		)
		(bg_txt_laenge	:value-type :string
						:title "LÌnge"
						:initial-value bg_stl_laenge
						:size :half
		)
		(bg_txt_form	:value-type :string
		                :title "Form"
						:range ((" ")("Fl.")("Rd.")("4kt."))
						:initial-value bg_stl_form
						:size :half
						(progn
	   	                   (if (sd-string= bg_stl_form "Fl.") 
                              (setf bg_rohmass (format nil "~a ~a * ~a * ~a" bg_stl_form bg_stl_breite bg_stl_hoehe bg_stl_laenge))
                              (setf bg_rohmass (format nil "~a ~a * ~a" bg_stl_form bg_stl_breite bg_stl_laenge))
						    )
						);;progn
		)		

	) ;;closing '(
  :local-functions
  '(
  
  ;;neu ab 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" date month year ))
						
				);;progn
			);;multiple-value-bind
		)
	);;neu bis hier

	(ok_info ()
	
		(progn
			(setf csn (sd-am-inq-curr-sheet-name))

			;; Vorhandende skizze sketch1 falls vorhanden suchen und löschen
			(setf alle_skizzen nil)
			(setf alle_skizzen (sd-am-inq-all-sketches (sd-am-inq-curr-sheet)))
			(dolist (skizzen alle_skizzen)
			  (when (sd-string-match-pattern-p bg_sketch_SF (sd-am-inq-name skizzen))
				(AM_SKETCH_DELETE :sketch (format nil "/~a/~a" csn bg_sketch_SF) :YES)
			  );;wehn
			);;dolist
			;; Skizze sketch1 erstellen
			(AM_SKETCH_CREATE 	:sketch_name bg_sketch_SF 
								:owner :current_sheet
								:ref_point bg_ppnt_SF
			);;am_sketch
		);;progn
        
		
		(progn
		
			(setf docu::*docu-hide-wrong-owner-warning* t)			
			
			(AM_CREATE_TEXT :docu-text	(format nil "~a" bg_edatum)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 1
							:adjust 5
							(gpnt2d (+(gpnt2d_x bg_pos_bg_edatum) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_edatum) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT :docu-text	(format nil "~a" bg_txt_werkst)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 1
							:adjust 5
							(gpnt2d (+(gpnt2d_x bg_pos_werkst) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_werkst) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT :docu-text	(format nil "~a" bg_txt_haerte)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 1
							:adjust 1
							(gpnt2d (+(gpnt2d_x bg_pos_bg_haerte) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_haerte) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT :docu-text	(format nil "~a" bg_stl_pos)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 1						
							:adjust 5
							(gpnt2d (+(gpnt2d_x bg_pos_bg_stl_pos) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_stl_pos) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT :docu-text	(format nil "~a" bg_stl_stck)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 1						
							:adjust 5
							(gpnt2d (+(gpnt2d_x bg_pos_bg_stl_stck) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_stl_stck) (gpnt2d_y bg_ppnt_SF)))
			)		
			(AM_CREATE_TEXT :docu-text	(format nil "~a" bg_rohmass)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 1						
							:adjust 5
							(gpnt2d (+(gpnt2d_x bg_pos_bg_rohmass) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_rohmass) (gpnt2d_y bg_ppnt_SF)))
			)
			
			(setf docu::*docu-hide-wrong-owner-warning* nil)
			
		);;progn
	)
	
	
   )
  :ok-action
  '(ok_info)
  :cancel-action
  '()
  :cleanup-action
  '()
)


;;(Trace ok_info)