fix(archive): BAK-05 Report liefert existing_in_storage fuer BAK-08

Report enthielt bisher nur Abweichungen. BAK-08 braucht eine
deterministisch sortierte Liste bestaetigt existierender Objekte als
Stichprobengrundlage, nicht nur "keine Abweichung". Ergaenzt vor
BAK-08-Start, real neu getestet (9/9) und auf 131 erneut ausgeloest.

archive/internal/reconcile/reconcile.go

@@ -37,6 +37,13 @@ type Report struct {
 	// OrphanedInStorage: Objekt im Storage vorhanden, kein Datenbankeintrag
 	// (Akzeptanzkriterium 2).
 	OrphanedInStorage []Finding `json:"orphaned_in_storage"`
+	// ExistingInStorage: Datenbankeintrag UND Storage-Objekt beide
+	// vorhanden — reine Existenzbestätigung, KEINE Inhaltsprüfung. Dient
+	// Archive BAK-08 als stabile, deterministisch sortierte
+	// Stichprobengrundlage (nach StorageKey aufsteigend, siehe Report-
+	// Dokumentation oben) — BAK-08 muss dafür selbst nicht mehr
+	// sortieren/filtern.
+	ExistingInStorage []Finding `json:"existing_in_storage"`
 }
 
 // IsClean liefert true, wenn der Lauf keine Abweichungen fand (Pflicht-
@@ -71,10 +78,12 @@ func Reconcile(dbEntries []DBEntry, storageKeys []string) Report {
 		dbSet[e.StorageKey] = e
 	}
 
-	var missing []Finding
+	var missing, existing []Finding
 	for _, e := range dbEntries {
 		if !storageSet[e.StorageKey] {
 			missing = append(missing, Finding(e))
+		} else {
+			existing = append(existing, Finding(e))
 		}
 	}
 	var orphaned []Finding
@@ -86,10 +95,12 @@ func Reconcile(dbEntries []DBEntry, storageKeys []string) Report {
 
 	sort.Slice(missing, func(i, j int) bool { return missing[i].StorageKey < missing[j].StorageKey })
 	sort.Slice(orphaned, func(i, j int) bool { return orphaned[i].StorageKey < orphaned[j].StorageKey })
+	sort.Slice(existing, func(i, j int) bool { return existing[i].StorageKey < existing[j].StorageKey })
 
 	return Report{
 		GeneratedAt:       time.Now().UTC(),
 		MissingInStorage:  missing,
 		OrphanedInStorage: orphaned,
+		ExistingInStorage: existing,
 	}
 }

archive/internal/reconcile/reconcile_test.go

@@ -89,6 +89,38 @@ func TestReconcile_ExistingButCorruptedObjectProducesNoFinding(t *testing.T) {
 	}
 }
 
+// TestReconcile_ExistingInStorageIsStableSamplingBasis ist der Nachweis,
+// dass Reconcile eine deterministisch sortierte Liste ALLER bestaetigt
+// existierenden Objekte liefert (DB-Eintrag UND Storage-Objekt vorhanden)
+// - dies ist die Stichprobengrundlage, die Archive BAK-08 weiterverwendet,
+// ohne selbst neu zu sortieren/filtern.
+func TestReconcile_ExistingInStorageIsStableSamplingBasis(t *testing.T) {
+	db := []DBEntry{
+		{StorageKey: "documents/z/revisions/r1", DocumentID: "z", RevisionID: "r1"},
+		{StorageKey: "documents/a/revisions/r1", DocumentID: "a", RevisionID: "r1"},
+		{StorageKey: "documents/fehlt/revisions/r1", DocumentID: "fehlt", RevisionID: "r1"},
+	}
+	storage := []string{
+		"documents/z/revisions/r1",
+		"documents/a/revisions/r1",
+	}
+
+	report := Reconcile(db, storage)
+
+	want := []string{"documents/a/revisions/r1", "documents/z/revisions/r1"}
+	if len(report.ExistingInStorage) != len(want) {
+		t.Fatalf("erwartet %d bestaetigt existierende objekte, habe %d: %+v", len(want), len(report.ExistingInStorage), report.ExistingInStorage)
+	}
+	for i, w := range want {
+		if report.ExistingInStorage[i].StorageKey != w {
+			t.Fatalf("sortierreihenfolge falsch: %v, want beginnend mit %v", report.ExistingInStorage, want)
+		}
+	}
+	if len(report.MissingInStorage) != 1 || report.MissingInStorage[0].StorageKey != "documents/fehlt/revisions/r1" {
+		t.Fatalf("missing_in_storage unerwartet: %+v", report.MissingInStorage)
+	}
+}
+
 // TestReconcile_DeterministicOrdering ist der Nachweis fuer die
 // Stabilitaets-Anforderung: gleiche Eingabe liefert bei mehreren Laeufen
 // IMMER dieselbe Reihenfolge (Voraussetzung dafuer, dass Archive BAK-08