;;--------------------------------------------------------------------------*
;;  Copyright 2003  DC4 Technisches Büro GmbH                               *
;;                                                                          *
;;--------------------------------------------------------------------------*
;;  Dateiname: am_sheet_del.lsp
;;  Version  : 1.0
;;  Datum    : 12.11.2003
;;  Author   : Gt

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

(sd-defdialog 'dc4-anno-blatt-rek-loeschen-dialog
:dialog-title "Blatt rekursiv loeschen"
:variables
  '(
    (sheet :selection *sd-anno-sheet-seltype*
           :prompt-text "Blatt zum Loeschen angeben."
           :title "Blatt"
           :multiple-items nil
           :check-function #'(lambda (para) (if nil :ok :err))
           :confirmation
             (:Err :dialog :warning
                   :prompt (format nil "~a~%~a" "Alle Ansichten in diesem Blatt werden" "ebenfalls unwiderruflich geloescht!")
                   :severity :high
                   :cancel-cleanup (cancel)
             )
     )
    )
:local-functions
  '(
    (del-action ()
     (let (viewlist view)
      (setf viewlist (sd-am-sheet-struct-views (sd-am-inq-sheet sheet)))
      (dolist (view viewlist)
       (sd-call-cmds (am_view_delete view :yes))
      );;dolist
      (sd-call-cmds (am_sheet_delete (sd-am-sheet-struct-name (sd-am-inq-sheet sheet))))
     )
    )
   )
 :ok-action
    '(del-action)
)