Sample ledger show

src/cljc/auto_ap/ledger/reports.cljc

@@ -715,8 +715,17 @@
                                                                                (:location %)))
                           errors))))))
 
+(defn invalid-ids [pnl-data]
+  (let [errors (->> pnl-data
+                    :data
+                    (filter (fn [{:keys [numeric-code]}]
+                              (nil? numeric-code)))
+                    (map :sample)) ]
+    errors))
+
 (defn summarize-pnl [pnl-data]
   {:warning (warning-message pnl-data)
+   :invalid-ids  (invalid-ids pnl-data)
    :summaries
    (if (-> pnl-data :args :column-per-location)
      [(location-summary-table (mapcat identity (for [[period i] (map vector (-> pnl-data :args :periods ) (range))]