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

;; ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;; BYLA INFO Zusatztabelle
;; Laden in Modeling: sd_customize    ;(load (concatenate 'string *sd-tool-site-dir* "/BYLA_TAB_INFO.lsp") :if-does-not-exist nil)	;; Zusatztabelle BYLA_INFO laden 				
;;                               	    Beachte für Annotation: Laden in am_customize;    Zeile  :annotationRibbon t    --> aktivieren


;;	Customization Directories (Zusätzliche für site; intranet, schulung, ....)
(setf *byla-intranet*			"http://intranet...../MgmtSystem") 						;; Setting enviroment variable
(setf *byla-intranet-wn-de*		"http://intranet...../DokumenteWN/WN_DE") 	;; Setting enviroment variable


;; 1.0 Create a new ribbon tab

(oli::sd-fluentui-add-ribbon-tab "BYLA-INFO"         
  ;;:annotationRibbon t      ;;aktivieren für Annotation
  :application "All"     
  :title "BYLA Zusatztabelle"
  )
  
;; 1.1 Create a ribbon group in the ribbon tab				;; Schulungsunterlagen

(oli::sd-fluentui-add-ribbon-group "BYLA-GROUP1"     
  :parent "BYLA-INFO"
  ;;:annotationRibbon t      ;;aktivieren für Annotation
  :title "Schulungen"
  )

  ;; 1.1.1 Create a ribbon button in the ribbon group     ;; Schulungsunterlagen/einzelne Buttons
  (oli::sd-fluentui-add-ribbon-button 
  :parent '("BYLA-INFO" "BYLA-GROUP1")
  ;;:annotationRibbon t      ;;aktivieren für Annotation
  :name "Schulung"
  ; :splitButton t     ;; wenn dies aktiv ist, wird das Bild neben dem Text dargestellt
  :largeImage t
  :image "V:\\Customization\...............\\Bystronic\\Schulung.bmp"
  :label "Schulung"      
  :contents
  `(
     (:label "ModelManager" 
	     :pushAction (sd-sys-exec "explorer.exe V:\\Schulungsunterlagen...\\ModelManager.docx")) 
		  
     (:label "CAD-Zusatzschulung01" 
		 :pushAction (sd-sys-exec "explorer.exe V:\\Schulungsunterlagen.... \\Zusatzschulung 01.pdf"))
  ))

 
   ;; separator --------------------------------------------
(oli::sd-fluentui-add-ribbon-separator
  :parent '("BYLA-INFO" "BYLA-GROUP1")
  ;;:annotationRibbon t      ;;aktivieren für Annotation
  )
   
;; 1.2.1 Create a ribbon button in the ribbon group 
(oli::sd-fluentui-add-ribbon-button 
  :parent '("BYLA-INFO" "BYLA-GROUP1")
  ;;:annotationRibbon t      ;;aktivieren für Annotation
  :name "Werksnorm"
  ;;:splitButton t
  :largeImage t
  :image "V:\\Customization\\Modeling_18.1\\corp\\bitmaps\\bmp\\commands\\Modeling\\Bystronic\\Werksnorm.bmp"
  :label "Werksnorm"      
  :contents    
  `(
    (:label "Übersichtliste Werksnormen Intranet"
		:pushAction (sd-display-url "http://intranet.bystronic.com/de/dokumentenmanagement/dokumente/BystronicLaserAG/MgmtSystem/History.xlsx"))
   	(:label "WN8029 Zeichnungswesen Anlageplan"
		:pushAction (sd-display-url (concatenate 'string *byla-intranet-wn-de* "/WN8029_Werksnorm_Zeichnungswesen_Anlageplan_de.pdf")))
	(:label "WN8032 Zeichnungswesen Längenabhängige Teile"
		:pushAction (sd-display-url (concatenate 'string *byla-intranet-wn-de* "/WN8032_Werksnorm_Zeichnungswesen_Laengenabhaengige_Teile_de.pdf")))
))

  ;; separator --------------------------------------------
(oli::sd-fluentui-add-ribbon-separator
  :parent '("BYLA-INFO" "BYLA-GROUP1")
  )
  
(oli::sd-fluentui-add-ribbon-button 
  :parent '("BYLA-INFO" "BYLA-GROUP1")  
  ;;:annotationRibbon t      ;;aktivieren für Annotation
  :name "Tabellen"
  :splitButton t
  :largeImage t
  :image "V:\\Customization\\Modeling_18.1\\corp\\bitmaps\\bmp\\commands\\Modeling\\Bystronic\\Tabelle.bmp"
  :label "Tabellen"
  :contents
  `(
     (:label "Werkstofftabelle (Excel)"
		:image "V:\\Customization......\\Werkstofftabelle.bmp"
	    :pushAction (sd-sys-exec "explorer.exe G:\\General\\Projekte\\........\\Werkstofftabelle.xlsx - Verknüpfung.lnk")) ;; verknüpfte Datei
	 (:label "Spaeter Stahl"
	    :image "V:\\Customization\\....\\Spaeterstahl.bmp"
		:pushAction (sd-display-url "http://www.spaeter-gruppe.ch/bk/ch/b1410/b141019/blaetterkatalog/indexen_d.html"))
   )
 )
 
 ;; ----------------- end -------------------------------------