feat: HOEHEN_CHECK Phase 3 (Buehnen-Familien), Menueeintrag und Rueckfrage vor EXPORTSIVAS

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>

Lisp/export.lsp

@@ -2921,8 +2921,29 @@
 )
 
 
+;; Vor dem Sivas-Export anbieten, den Hoehen-Check (HOEHEN_CHECK, check_hoehen.lsp)
+;; auszufuehren: Er setzt die Montagehoehen inkl. Buehnenabzug, den der Export
+;; selbst nicht kennt. Bewusst eine Rueckfrage (Vorgabe Ja, Enter startet den
+;; Check, "Nein" ueberspringt ihn) statt automatisch: der Check stellt Fragen
+;; und wuerde Hand-Korrekturen von MONTAGEHOEHE_m bei jedem Export ueberschreiben. Entfaellt ohne GUI und bei abgeschaltetem
+;; Schalter *csv-hoehencheck-fragen* (automatische Tests).
+(if (null *csv-hoehencheck-fragen*) (setq *csv-hoehencheck-fragen* T))
+
+(defun csv:hoehencheck-anbieten ()
+  (if (and *csv-hoehencheck-fragen*
+           (ssg-gui-p)
+           (car (atoms-family 1 '("SSG-IN-YESNO")))
+           (ssg-in-yesno (ssg-text "exp-hoehencheck-frage") T))
+    (progn
+      (ssg-ensure "check_hoehen")
+      (if (car (atoms-family 1 '("C:HOEHEN_CHECK")))
+        (c:HOEHEN_CHECK)
+        (princ (ssg-text "exp-hoehencheck-fehlt")))))
+)
+
 ;; --- EXPORTSIVAS: Sivas-spezifischer CSV-Export mit Summierungszeilen ---
 (defun c:EXPORTSIVAS ()
+  (csv:hoehencheck-anbieten)
   (csv:run-export "EXPORTSIVAS"
     (export:filename "sivas_script")
     (export:filename "sivas_csv")