added payment status and made checks sort correctly.

src/clj/auto_ap/import/transactions.clj

@@ -345,3 +345,18 @@
                       (range)
                       group)))))
 
+(defn add-single-transaction [bank-account-code tx]
+  (let [bank-account (d/pull (d/db conn)
+                             [:bank-account/code
+                              :db/id
+                              :bank-account/locations
+                              :bank-account/start-date
+                              {:client/_bank-accounts [:client/code :client/locations :db/id]} ]
+                             [:bank-account/code bank-account-code])]
+    
+    (transaction->txs (-> (merge {:transaction/amount 100.0 :transaction/description-original "boring" :transaction/approval-status :transaction-approval-status/approved :transaction/status "POSTED"}
+                                 tx)
+                          (assoc :transaction/bank-account (:db/id bank-account)))
+                      bank-account
+                      (rm/rule-applying-fn (tr/get-all)))))
+