;;--------------------------Activate SD Power-i.e. Package TS-SD-STL:---------------------------
act_deact_module :act "SDPOWER-BASE" "MODULE-CONTROLLER-Techsoft SolidPower-SDPOWER-BASE-TB" 
'(TS-UI-SDPOWER-START-MODULE "SDPOWER-BASE")
;;-------------------------------------------------------------------------


;;--------------------------Define Custom Package and include Overall Lisp Interface Package Oli:------------------------------
(in-package :my-special-bom-attr);define my own package 
(use-package :oli);include the package oli in my new package
;;-------------------------------------------------------------------------


;;--------------------------Define Function that will overwrite node tree print with custom using input from normal node tree print-------------------------------
(defun cvs-print-tree (node name)
  (declare (ignore name))

(When (oli:sd-pathname-to-obj (BrowserNode-objPath node));check that node is of type structure...if not don't overwrite anything


; ---------------------------------TEMP VARIABLE DECLARATION----------------------------------------
  (let* (
        (objname (BrowserNode-objPname node));assign BrowserNode-objPname to objname
        (path (BrowserNode-objPath node));assign path of BrowserNode-objPath to path
        (obj (oli:sd-pathname-to-obj path));define obj = of sd object with pathname path
        (Material (TS-SD-STL::ts-am-stl-get-info-sel-item (sd-pathname-to-obj path) "WERKSTOFF")) ;techsoft's ts-sd-stl table attribute for attribute name "werkstoff"?
        )
; ---------------------------------VARIABLE DECLARATION END---------------------------------------
    
; ---------------------------------DO SOMETHING USING ABOVE VARIABLES-----------------------------    
    (if (not (eq Material nil)) ;;anything not evaluating to NILL is automatically TRUE therefore (if Material ...would work aswell...this is just for clarity
        (progn ;progn is used when the if statement contains more than one statement to evaluate
        (setq CommaMaterial (concatenate 'string "_Werkstoff:" Material)) 
        (setq NewString (concatenate 'string objname CommaMaterial))
        );end progn
        
        ;;else
        (setq NewString (concatenate 'string objname "_Werkstoff:keine"))
    );;end if
    
    
    ;---------this is what i print--------
    ;NewString
    (if (sd-string= "/" (BrowserNode-objPath node)) "" NewString)  ;makes sure not to print the root node
    ;-------------------------------------
    
                  
  )

)
)
;end of overwrite function cvs-print-tree

;------------------------print node tree and include function cvs-print-tree-----------------  
(sd-browser-add-interrogator "parcel-gbrowser"
                             :interrogator-type :tree-print-name
                             :interrogator-func 'cvs-print-tree);end print node tree
;--------------------------------------------------------------------------------------------