Schreiben erzeugen, ausgeben und ablegen

Die Anschreiben gab es bisher nur als Text zum Kopieren. Danach war
Handarbeit: in Word nachbauen, ausdrucken, abschicken - und noch einmal
von Hand als Dokument in die Akte legen. Der letzte Schritt wurde am
haeufigsten vergessen, und dann fehlt der Nachweis im Bericht.

Neu unter /schreiben/neu: bearbeiten, als Word-Datei herunterladen, in
die Akte legen, Wiedervorlage setzen - in einem Zug. Eine Seite fuer alle
Arten und alle drei Empfaengerwege, statt die Bearbeitung dreimal an
Vertrag, Vorgang und Freitext nachzubauen.

Der dritte Weg ist der eigentliche Zugewinn: Schreiben an eine Stelle,
zu der es noch keinen Datensatz gibt. Am Anfang einer Betreuung ist das
der Normalfall - man fragt ja an, um zu erfahren, ob dort ueberhaupt
etwas besteht. Aus der freien Anschrift laesst sich mit einem Klick ein
Kontakt anlegen.

Zwei Entscheidungen, die erklaert gehoeren:

Die Akte bekommt ein PDF, heruntergeladen wird .docx. Der
Objektspeicher nimmt nur PDF und Bilder an, geprueft an den Magic Bytes.
Eine .docx ist ein ZIP-Archiv; sie durchzulassen hiesse jedes ZIP
durchzulassen, und diese Pruefung ist eine bewusste Zusage der
Anwendung. Sachlich ist PDF fuer den Nachweis ohnehin richtiger: Es
aendert sich nicht mehr. Die Oberflaeche sagt dazu, dass eine spaeter in
Word geaenderte Fassung von der Akte abweicht.

Der Berichtssatz in berichte/docx.ts bleibt unangetastet. Er setzt einen
Bericht mit Kopfzeilen und Unterschriftenblock; ein Brief braucht
Absender, Anschriftenfeld, Datumszeile und Grussformel. Beides in eine
Funktion zu zwingen haette beide Ausgaben schlechter gemacht. Der
Umsetzungshinweis im Issue ("muss nur angebunden werden") war insoweit
falsch - von mir selbst geschrieben.

Die vorhandenen Erzeuger (Rueckkaufswert, Kuendigung, Sachstandsanfrage)
bleiben unveraendert; ihr Wortlaut ist getestet und erprobt.

Geprueft: zehn Einheitstests, darunter der Gleichschritt der
Wiedervorlagefristen ueber zwei Module hinweg. Fuenf End-to-End-Tests
auf beiden Geraeteprofilen: Entwurf, Vertragsbezug, Word-Download,
Ablage samt Wiedervorlage, Kontakt aus freier Anschrift.

Refs #4

src/lib/schreiben/arten.ts

@@ -0,0 +1,113 @@
+/**
+ * Die Arten von Schreiben, die die Anwendung erzeugen kann.
+ *
+ * Rein und ohne Datenbank - der Entwurfstext entsteht anderswo
+ * (src/lib/schreiben/entwurf.ts), hier steht nur, was eine Art ausmacht.
+ *
+ * Warum ueberhaupt eine Aufzaehlung? Damit die Wiedervorlagefrist,
+ * die Beschriftung und der Dokumenttitel an EINER Stelle stehen. Vorher
+ * lagen sie verstreut: 28 Tage in rueckkaufswert.ts, 42 in
+ * sachstandsanfrage.ts, die Beschriftungen jeweils in der Seite.
+ */
+
+export type SchreibenArt = 'RUECKKAUFSWERT' | 'KUENDIGUNG' | 'SACHSTAND' | 'FREI'
+
+export const SCHREIBEN_ARTEN: readonly SchreibenArt[] = [
+  'RUECKKAUFSWERT',
+  'KUENDIGUNG',
+  'SACHSTAND',
+  'FREI',
+]
+
+export type SchreibenEigenschaften = {
+  beschriftung: string
+  /**
+   * Vorgeschlagene Wiedervorlage in Tagen.
+   *
+   * null heisst: keine vorschlagen. Bei einem freien Schreiben weiss
+   * niemand, ob und wann eine Antwort kommt - eine erfundene Frist waere
+   * schlechter als keine.
+   */
+  wiedervorlageTage: number | null
+  /** Woran haengt das Schreiben? Bestimmt, was die Seite laden muss. */
+  bezug: 'VERTRAG' | 'VORGANG' | 'KEINER'
+  /** Kurze Erklaerung, warum die Frist so lang ist. */
+  fristBegruendung: string | null
+}
+
+export const SCHREIBEN_EIGENSCHAFTEN: Record<SchreibenArt, SchreibenEigenschaften> = {
+  RUECKKAUFSWERT: {
+    beschriftung: 'Auskunft über Rückkaufswert',
+    // Dieselbe Zahl wie RUECKKAUFSWERT_WIEDERVORLAGE_TAGE - dort steht sie
+    // fuer die Anzeige am Vertrag, hier fuer die erzeugte Frist. Ein Test
+    // haelt beide zusammen.
+    wiedervorlageTage: 28,
+    bezug: 'VERTRAG',
+    fristBegruendung:
+      'Vier Wochen sind bei Versicherern die übliche Bearbeitungszeit. Kommt bis dahin ' +
+      'nichts, lohnt das Nachfassen.',
+  },
+  KUENDIGUNG: {
+    beschriftung: 'Kündigung',
+    // Kuerzer als beim Rueckkaufswert: Eine Kuendigung muss bestaetigt
+    // werden, und ohne Bestaetigung ist nicht belegt, dass sie ankam.
+    wiedervorlageTage: 21,
+    bezug: 'VERTRAG',
+    fristBegruendung:
+      'Drei Wochen. Eine Kündigung ohne schriftliche Bestätigung ist nicht nachgewiesen — ' +
+      'und wenn sie untergegangen ist, läuft die Frist weiter.',
+  },
+  SACHSTAND: {
+    beschriftung: 'Sachstandsanfrage',
+    wiedervorlageTage: 42,
+    bezug: 'VORGANG',
+    fristBegruendung:
+      'Sechs Wochen. Behörden brauchen länger als Versicherer; früher nachzufassen bringt ' +
+      'meist nur die Antwort, dass es noch dauert.',
+  },
+  FREI: {
+    beschriftung: 'Freies Schreiben',
+    wiedervorlageTage: null,
+    bezug: 'KEINER',
+    fristBegruendung: null,
+  },
+}
+
+/** Ist der Wert eine bekannte Art? Fuer Parameter aus der Adresszeile. */
+export function istSchreibenArt(wert: string | null | undefined): wert is SchreibenArt {
+  return typeof wert === 'string' && (SCHREIBEN_ARTEN as readonly string[]).includes(wert)
+}
+
+/**
+ * Dateiname fuer die Word-Datei und die Ablage.
+ *
+ * Sprechend, sortierbar, ohne Zeichen, die ein Dateisystem nicht mag:
+ * "2026-08-23_Kuendigung_Allianz.docx"
+ */
+export function dateinameFuerSchreiben(
+  art: SchreibenArt,
+  empfaenger: string | null,
+  datum: Date,
+  endung: 'docx' | 'pdf',
+): string {
+  const tag = datum.toISOString().slice(0, 10)
+
+  const sauber = (text: string) =>
+    text
+      .replace(/ä/g, 'ae')
+      .replace(/ö/g, 'oe')
+      .replace(/ü/g, 'ue')
+      .replace(/Ä/g, 'Ae')
+      .replace(/Ö/g, 'Oe')
+      .replace(/Ü/g, 'Ue')
+      .replace(/ß/g, 'ss')
+      .replace(/[^A-Za-z0-9]+/g, '-')
+      .replace(/^-+|-+$/g, '')
+      .slice(0, 40)
+
+  const teile = [tag, sauber(SCHREIBEN_EIGENSCHAFTEN[art].beschriftung)]
+  const ziel = empfaenger ? sauber(empfaenger) : ''
+  if (ziel) teile.push(ziel)
+
+  return `${teile.join('_')}.${endung}`
+}