(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_rohmass -24.5,58.5)
;;(setf bg_pos_bg_breite -19.5,58.5)
;;(setf bg_pos_bg_laenge -9.5,58.5)
(setf bg_pos_bg_position -170,58.5)
(setf bg_pos_bg_anzahl -160,58.5)
;;(setf bg_pos_bg_hoehe -14.5,58.5)

(setf bg_werkst "1.1730")
(setf bg_form "Fl.")
(setf bg_rohmass "")
(setf bg_txt_breite "")
(setf bg_txt_hoehe "")
(setf bg_txt_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_form	:title "Form"
		                :range (("Fl.")("Rd.")("4kt.")("L"))
						:initial-value bg_form
						:size :half
		)
		(bg_txt_breite	:value-type :string
						:title "Breite"
						:initial-value " "
						:size :half
		)
		(bg_txt_hoehe	:value-type :string
						:title "Hoehe"
						:initial-value " "
						:size :half
		)
		(bg_txt_laenge	:value-type :string
						:title "Laenge"
						:initial-value " "
						:size :half
						:after-input (progn
			                          (if (sd-string= bg_txt_form "Fl.")
				                      (setf bg_rohmass (format nil "~a ~a * ~a * ~a" bg_txt_form bg_txt_breite bg_txt_hoehe bg_txt_laenge))
                                      (setf bg_rohmass (format nil "~a ~a * ~a" bg_txt_form bg_txt_breite bg_txt_laenge))
                                      )
		                             );;progn
		)
		(bg_txt_position :value-type :string
						 :title "Position"
						 :initial-value "1"
						 :size :half
		)
		(bg_txt_anzahl	:value-type :string
						:title "Anzahl"
						:initial-value "1"
						:size :half
		)			
	) ;;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
		);;progn
	)				
	(ok_info ()
	
		(progn
			(setf csn (sd-am-inq-curr-sheet-name))

			;; Skizze 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_rohmass)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 1
							:adjust 5
							(gpnt2d (+(gpnt2d_x bg_rohmass) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_rohmass) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT :docu-text	(format nil "~a" bg_position)
							: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_position) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_position) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT :docu-text	(format nil "~a" bg_anzahl)
							: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_anzahl) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_anzahl) (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)