[FIX] Stueckliste: fehlende lang-Keys wiederhergestellt + Spaltenlinien ergaenzt

Die sl-*-Keys (Tabellenkoepfe, Prompts, Elementklassen) fehlten komplett in
lang/de_DE.json und lang/en_GB.json: sie standen beim vorangegangenen
Merge-Konflikt-Fix noch unstaged im Working Tree (nicht committed) und wurden
dabei versehentlich durch die reparierte, aber auf dem alten HEAD basierende
Version ueberschrieben. ssg-text lieferte dadurch den rohen Key statt des
uebersetzten Textes zurueck ("sl-stkl-kopf-menge" statt "MENGE" usw.).

Zusaetzlich: ssg-sl-tabelle-zeichnen zeichnete nur den Aussenrahmen und
horizontale Zeilentrenner, keine vertikalen Spaltenlinien - ergaenzt an den
vier Spaltengrenzen (400/1000/1900/3000 relativ zum linken Rahmen), von der
Kopfzeilen-Oberkante bis zur letzten Zeilenlinie.

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

Lisp/ssg_stueckliste.lsp

@@ -93,7 +93,7 @@
 ;; alle Felder als String. Layer muss bereits aktiv sein. Rueckgabe: Anzahl
 ;; gezeichneter Zeilen. Spaltenraster aus der Walz-Vorlage (stcklimp).
 (defun ssg-sl-tabelle-zeichnen (p1 zeilen / p11 p12 p91 p92 p93 p94 p95
-                                 tsize lspace daten n)
+                                 tsize lspace spalten-x oben unten sx daten n)
   (setq tsize  100.0
         lspace 200.0)
   (setq p11 (list (- (car p1) 100.0) (+ (cadr p1) 250.0)))
@@ -111,6 +111,11 @@
   (ssg-sl-text-machen p93 tsize (ssg-text "sl-stkl-kopf-laenge"))
   (ssg-sl-text-machen p94 tsize (ssg-text "sl-stkl-kopf-artikel"))
   (ssg-sl-text-machen p95 tsize (ssg-text "sl-stkl-kopf-bezeichnung"))
+  ;; Spaltentrennlinien bei jeder Spaltenstart-X (ausser der ersten, die faellt
+  ;; mit dem linken Aussenrahmen zusammen) - oben am Kopfrahmen, unten an der
+  ;; letzten Zeile; die Hoehe steht erst nach der foreach-Schleife fest.
+  (setq spalten-x (list 400.0 1000.0 1900.0 3000.0))
+  (setq oben (+ (cadr p11) 350.0))
   (setq n 0)
   (foreach daten zeilen
     (ssg-sl-text-machen p1                                  tsize (nth 0 daten))
@@ -123,9 +128,13 @@
     (setq p1 (list (car p1) (- (cadr p1) lspace)))
     (setq n (1+ n))
   )
+  (setq unten (- (cadr p1) 50.0))
   (command "_line" p11 p12
-           (list (+ (car p1) 9000.0) (- (cadr p1) 50.0))
-           (list (- (car p1) 100.0) (- (cadr p1) 50.0)) p11 "")
+           (list (+ (car p1) 9000.0) unten)
+           (list (- (car p1) 100.0) unten) p11 "")
+  (foreach sx spalten-x
+    (command "_line" (list (+ (car p11) sx) oben) (list (+ (car p11) sx) unten) "")
+  )
   n
 )