diff --git a/src/clj/auto_ap/graphql/ledger.clj b/src/clj/auto_ap/graphql/ledger.clj index 3b786b55..dceff708 100644 --- a/src/clj/auto_ap/graphql/ledger.clj +++ b/src/clj/auto_ap/graphql/ledger.clj @@ -57,8 +57,10 @@ :location location :id (str (:db/id account) "-" location) :numeric-code (or (:account/numeric-code account) - (and (:bank-account/type account) - 1100)) + (and (#{:bank-account-type/check} (:db/ident (:bank-account/type account))) + 1100) + (and (#{:bank-account-type/credit} (:db/ident (:bank-account/type account))) + 2800)) :account-type (or (:db/ident (:account/type account)) ({:bank-account-type/check :asset :bank-account-type/credit :liability} diff --git a/src/cljs/auto_ap/views/pages/ledger/profit_and_loss.cljs b/src/cljs/auto_ap/views/pages/ledger/profit_and_loss.cljs index 1dd4cc26..f94dbeaf 100644 --- a/src/cljs/auto_ap/views/pages/ledger/profit_and_loss.cljs +++ b/src/cljs/auto_ap/views/pages/ledger/profit_and_loss.cljs @@ -143,8 +143,8 @@ ["7100 Ops Related DirGMC Exp" 7100 7199] ["7200 Customer Related DirGMC Exp" 7200 7299] ["7300 Employee Related DirGMC Exp" 7300 7399] - ["7400 Building and Equipment Related DirGMC Exp" 7400 7399] - ["7500 Office/ Management Related DirGMC Exp" 7500 7599] + ["7400 Building and Equipment Related DirGMC Exp" 7400 7499] + ["7500 Office/ Management Related DirGMC Exp" 7500 7999] ["8100 Operational" 8100 8199] ["8200 Occupancy Costs" 8200 8299] ["8300 Utilities" 8300 8399]