;*********************************************************************************************
; Dateiname     :     AM_Test_1.lsp
; Autor         :     Stephan Wörz
; Erstellt      :     16.07.2015
; geändert      :
;*********************************************************************************************
; Beschreibung    :        -     Hier geht es um folgendes:

;
; Optionen        :        -
;*********************************************************************************************
; ----------------------------------------------------------------------------------------
; ä Ì       Ä Ø    ö Î    Ö Ú    ü Ï    Ü Û    ß Þ    ° ³
; ----------------------------------------------------------------------------------------
(in-package  :myFirma)
(use-package :OLI)

;;----- Logical Table ---------------------------------------------------------
;;Spalten definieren, beschriften

(sd-create-logical-table "Text_Select"
    :columns     '	(:column_1       :column_2       :column_3)
    :columnNames '	("Bezeichnung"      "Zusammensetzung"      "Werkstoffnr.")
    :types       '	(:string            :string                :string)
    :units       '	(nil                nil                    nil)
    :contents   '(	("Baustahl blank"   "S235JRGC+C"           "1.0038")
                    ("AAA_2"            "BBB_2"                "CCC_2")
                    ("AAA_3"            "BBB_3"                "CCC_3")
                    ("AAA_4"            "BBB_4"                "CCC_4")
                    ("AAA_5"            "BBB_5"                "CCC_5")
    
		             );;contents
);;sd-create-logical-table

;;----- Display Table ---------------------------------------------------------
;;welche Spalten werden angezeigt, welche Werte werden ausgelesen

(sd-create-display-table "Text_Select"
   :tableTitle             "Texte zur Auswahl"
   :logicalTable           "Text_Select"
   :columns                '(:column_1       :column_2       :column_3)
   :applyColumns           '(:column_1)
   :selectionMode          :single-row       ;; :single-cell | :single-row | :multiple-rows 
   :applyAction            :default          ;; nil | :default | :default-tokens | LISP-form
   :bottomLine nil                           ;; :apply-close-help | :apply-custom-close-help | :help | nil
);;sd-create-display-table

;;----- Optik Table ---------------------------------------------------------
;;Wie sieht die Tabelle aus
(sd-set-display-table-colors "Text_Select"
   :columnSeparators      t
   :columnSeparatorColor  t
   :rowColors             t
   :rowColor2             "#83bff5"
)


(sd-defdialog 'AM_Test_1
   :toolbox-button t
   :dialog-title "Werkstofftabelle Stahl"
   :variables
      '(
         (Txt1
            :value-type :string
            :title "Text"
            :show-input-tool (sd-show-display-table "Text_Select")
            :hide-input-tool (sd-hide-display-table "Text_Select" :ignorePin NIL)
            :start-variable 'Txt1
            :next-variable 'Txt_pos
         );;Txt1        

         (Txt_pos
            :value-type :docupntcnp
            :title "Position Hinweis-Text"
            :initial-visible nil
            :before-input (start-txt)
            :after-input (pos-txt)
            :next-variable 'Txt_pos
         );;Txt_pos
      ) ;;variables

   :local-functions
      '(
         (start-txt ()
            (sd-execute-annotator-command :cmd (format nil "ST_start_text_feedback"))
            (sd-execute-annotator-command :cmd (format nil "ST_text_feedback '~a'" Txt1))
         ) ;; ende start-txt

         (pos-txt ()
            ;;liest den Wert für 2. Textzeile aus Column_2 aus
            (setf Txt2 (getf (second (sd-get-display-table-selection "Text_Select"  :units :external)) :column_3))
            (sd-am-create-text
               :text (format nil "~a~%~a" Txt1 Txt2)
               :owner_type  :current-sheet   ;:2dview | :current-sheet
               :position Txt_pos      
            );;sd-am-create-text
         ) ;; ende pos-txt

         (clean-action ()
            (sd-execute-annotator-command :cmd "CANCEL")
            (sd-enable-must-variable-check)
         )
      );;local-functions

   :ok-action '(clean-action)

   :cleanup-action  '(clean-action)

   :cancel-action   '()

);; end defdialog

;;***************************************************************************
;;     ME10-Makros                                                          *
;;***************************************************************************
(sd-execute-annotator-command :cmd
   (format nil "~a ~a ~a "
      "DEFINE ST_start_text_feedback"
      "TEXT ASSIST"
      "END_DEFINE"
   )
)

(sd-execute-annotator-command :cmd
   (format nil "~a ~a ~a ~a "
      "DEFINE ST_text_feedback"
      "PARAMETER Txt"
      "Txt"
      "END_DEFINE"
   )
)