various fixes.

src/clj/auto_ap/graphql/ledger.clj

@@ -308,9 +308,10 @@
 
                                                           :journal-entry/line-items
                                                           (mapv (fn [ea]
-                                                                  (when-not (get
-                                                                             (get all-client-locations (:client_code entry))
-                                                                             (:location ea))
+                                                                  (when (and (not (get
+                                                                                   (get all-client-locations (:client_code entry))
+                                                                                   (:location ea)))
+                                                                             (not= "A" (:location ea)))
                                                                     (throw (ex-info (str "Location '" (:location ea) "' not found.")
                                                                                     {:status :error})))
                                                                   (when (and (<= (:debit ea 0.0) 0.0)