added basics of ccp processor visibility.

src/clj/auto_ap/datomic/sales_orders.clj

@@ -8,10 +8,15 @@
 
 (defn <-datomic [result]
   (-> result
-       (update :sales-order/date c/from-date)))
+      (update :sales-order/date c/from-date)
+      (update :sales-order/charges (fn [cs]
+                                     (map (fn [c]
+                                            (update c :charge/processor :db/ident))
+                                          cs)))))
 
 (def default-read '[*
-                   {:sales-order/client [:client/name :db/id :client/code]}])
+                    {:sales-order/client [:client/name :db/id :client/code]
+                     :sales-order/charges [* {:charge/processor [:db/ident]}]}])
 
 (defn raw-graphql-ids [db args]
   (let [query (cond-> {:query {:find []