;;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

;;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

(in-package :GD-package)
(use-package :OLI)

(sd-create-logical-table 
 "Teile Laden-Liste"
  :columns     '(:Benennung		:PFAD	)
  
  :columnNames (sd-multi-lang-string
               '("Name"		"-"	)
                :german
               '("Name"		"-")
               );;sd-multi-lang-string

  :types       '(:string		:string		)
  :units       '(nil			nil		)

  :contents   (sd-multi-lang-string
              '(("904210 6KT.MUTTER M 10"		"C:/Teile/904210.pkg"		)
			    ("908097 KETTENSPANNRAD 12B-1"		"C:/Teile/908097.pkg"		)
               )
              :german
			  '(("904210 6KT.MUTTER M 10"		"C:/Teile/904210.pkg"		)
			    ("908097 KETTENSPANNRAD 12B-1"		"C:/Teile/908097.pkg"		)
               )
              );;sd-multi-lang-string
);;sd-create-logical-table

;;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
(sd-create-display-table
     "Teile Laden-Liste"
     :tableTitle         (sd-multi-lang-string "Load Part"
                                       :german "Teile Laden")
     :logicalTable       "Teile Laden-Liste"
     :columns            '(:Benennung :PFAD)
     :applyColumns       '(:PFAD)
     :displayHeight      350
     :filterStatusLine   nil
     :selectionMode      :single-row 
     :applyAction        :default-tokens
);;sd-create-display-table


(sd-defdialog 'teile_laden
  :dialog-title (sd-multi-lang-string "Load" 
                              :german "Laden")
   :variables '(
        (PFAD
        :value-type :string
        :title (sd-multi-lang-string "PFAD"
                             :german "PFAD")
        :show-input-tool (sd-show-display-table "Teile Laden-Liste"
                          :position '("TOP-MENU-TOOLBOX-TB" :lefttop 70 50))
        :hide-input-tool (sd-hide-display-table  "Teile Laden-Liste" 
                          :ignorePin t)
		)
				)
    :ok-action '(
	   universal_load :file PFAD
	   POS_DYNAMIC 
	   :objects-by-selection :objects-to-move :start :current :select_done
       :current
     			)
);;sd-defdialog