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


(defun docu_bom_attr_idnr (objekt)
   (when (member "DB-DREF" (sd-inq-item-attributes objekt :attachment :contents) :test #'string=)
         (setq idnr (getf (sd-inq-item-attribute objekt "DB-PREF" :values :attachment :contents) ':IDENT_NR))
         (display idnr)
   );Ende if 
   (if idnr
       (format nil "~a" idnr)
       "not WM"
   )
)


(docu-register-bom-attr :attr-type      "ID-NR"
                          :attr-title     "Ident-Nr"
                          :attr-display   t
                          :attr-value-fnc #'docu_bom_attr_idnr)