working on calendar.

src/cljc/auto_ap/expense_accounts.cljc

@@ -0,0 +1,150 @@
+(ns auto-ap.expense-accounts)
+
+(def accounts
+  {5110 {:name "Food Cost" :parent nil} 
+   5111 {:name "Proteins Cost" :parent 5110} 
+   5112 {:name "Beef/ Pork Costs" :parent 5111} 
+   5113 {:name "Chicken/ Poultry Costs" :parent 5111}
+   5114 {:name "Seafood Costs" :parent 5111}
+   5120 {:name "Produce Costs" :parent 5110}
+   5130 {:name "Dairy Costs" :parent 5110}
+   5140 {:name "Bread and Bun Costs" :parent 5110}
+   5210 {:name "Soft Beverage Cost" :parent 5110} 
+   5220 {:name "Coffee Costs" :parent 5110} 
+   5310 {:name "Catering Cost" :parent 5110} 
+   5400 {:name "Alcolhol Cost" :parent nil} 
+   5410 {:name "Beer Cost" :parent 5400} 
+   5411 {:name "CO2 Costs" :parent 5400} 
+   5510 {:name "Wine Cost" :parent 5400} 
+   5610 {:name "Liquor Cost" :parent 5400} 
+   5700 {:name "Merchandise Cost" :parent nil} 
+   5710 {:name "Merchandise Cost" :parent 5700} 
+   5800 {:name "Other Operating Cost" :parent nil} 
+   5810 {:name "Delivery Van Rental Cost" :parent 5810} 
+   5900 {:name "Paper Cost" :parent nil} 
+   5910 {:name "Paperware Cost" :parent 5900} 
+   7100 {:name "Ops related" :parent nil} 
+   7110 {:name "Banquet and Catering Supplies" :parent 7100} 
+   7120 {:name "Bar Utensils and Supplies" :parent 7100} 
+   7130 {:name "Glassware" :parent 7100} 
+   7140 {:name "Tableware" :parent 7100} 
+   7150 {:name "Paper and Packaging" :parent 7100} 
+   7160 {:name "Security Guards" :parent 7100} 
+   7200 {:name "Customer Related" :parent nil}
+   7210 {:name "Flowers and ST Decorations" :parent 7200} 
+   7220 {:name "Menus" :parent 7200} 
+   7225 {:name "In Store Printing" :parent 7200} 
+   7230 {:name "Advertising" :parent 7200} 
+   7235 {:name "Door Dash Advertising" :parent 7200} 
+   7240 {:name "Cable Television" :parent 7200} 
+   7242 {:name "Music Licensing Fees" :parent 7200} 
+   7244 {:name "Bands and DJ's" :parent 7200} 
+   7246 {:name "Entertainment - Other" :parent 7200} 
+   7250 {:name "Reservation System" :parent 7200} 
+   7300 {:name "Employee Related" :parent nil}
+   7310 {:name "Auto and Truck Expenses" :parent 7300} 
+   7315 {:name "Freight and Fuel Charges" :parent 7300} 
+   7320 {:name "Kitchen Supplies" :parent 7300} 
+   7325 {:name "Kitchen Utensils and Smallwares" :parent 7300} 
+   7330 {:name "Parking" :parent 7300} 
+   7340 {:name "Uniforms" :parent 7300} 
+   7350 {:name "Recruiting" :parent 7300} 
+   7360 {:name "Employee Training" :parent 7300} 
+   7400 {:name "Building and Equipment Related" :parent nil}
+   7410 {:name "Cleaning Supplies" :parent 7400} 
+   7415 {:name "Contract Cleaning" :parent 7400} 
+   7420 {:name "Short Term Equipment Rental" :parent 7400} 
+   7430 {:name "Laundry and Drycleaning" :parent 7400} 
+   7435 {:name "Linens" :parent 7400} 
+   7440 {:name "Repairs to Building" :parent 7400} 
+   7450 {:name "Building Cleaning & Maintenance" :parent 7400} 
+   7455 {:name "Pest Control" :parent 7400} 
+   7460 {:name "Repairs to Equipment" :parent 7400} 
+   7500 {:name "Office / Management Related" :parent nil}
+   7510 {:name "Office Supplies" :parent 7500} 
+   7520 {:name "Printing - Internal" :parent 7500} 
+   7530 {:name "Restaurant Software Fees" :parent 7500} 
+   7540 {:name "Credit Card Processing" :parent 7500} 
+   7550 {:name "Franchise Fee" :parent 7500} 
+   7560 {:name "Unassigned Expenses" :parent 7500} 
+   8100 {:name "Operational" :parent nil} 
+   8110 {:name "Professional Fees" :parent 8100} 
+   8120 {:name "Accounting" :parent 8100} 
+   8130 {:name "Membership Dues and Associations" :parent 8100} 
+   8200 {:name "Occupancy Costs" :parent nil} 
+   8210 {:name "Rent" :parent 8200} 
+   8220 {:name "CAM" :parent 8200} 
+   8230 {:name "Real Estate Taxes" :parent 8200} 
+   8300 {:name "Utilities" :parent nil}
+   8310 {:name "Electric" :parent 8300} 
+   8320 {:name "Gas" :parent 8300} 
+   8330 {:name "Trash Removal" :parent 8300} 
+   8340 {:name "Water and Sewage" :parent 8300} 
+   8350 {:name "Internet" :parent 8300} 
+   8400 {:name "Equipment Rental" :parent nil} 
+   8410 {:name "Kitchen Equipment Rental" :parent 8400} 
+   8420 {:name "POS System" :parent 8400} 
+   8430 {:name "Other Rental" :parent 8400} 
+   8500 {:name "Taxes and Insurance" :parent nil} 
+   8510 {:name "Liability Insurance" :parent 8500} 
+   8610 {:name "Business License" :parent 8500} 
+   8620 {:name "Health Permit" :parent 8500} 
+   8710 {:name "Personal Property Taxes" :parent nil} 
+   8800 {:name "Depriciation" :parent nil}
+   8810 {:name "Amortization of Lease" :parent 8800} 
+   8820 {:name "Amortization of Leasehold Improvements" :parent 8800} 
+   8830 {:name "Amortization of Start Up Costs" :parent 8800} 
+   8850 {:name "Depreciation on Building" :parent 8800} 
+   8860 {:name "Depreciation on Furnitire and Fixtures" :parent 8800} 
+   9100 {:name "HQ Promotion and Outreach" :parent nil}
+   9110 {:name "Marketing and Advertising - HQ" :parent 9100} 
+   9120 {:name "Marketing Consultant - HQ" :parent 9100} 
+   9130 {:name "Advertisements - HQ" :parent 9100} 
+   9140 {:name "Design - HQ" :parent 9100} 
+   9150 {:name "Charitable Contricutions - HQ" :parent 9100} 
+   9160 {:name "Meals and Entertainment - HQ" :parent 9100} 
+   9170 {:name "Travel - HQ" :parent 9100} 
+   9180 {:name "Food Research - HQ" :parent 9100} 
+   9190 {:name "Membership Dues and Assocations - HQ" :parent 9100} 
+   9200 {:name "HQ Employee Morale and Training" :parent nil}
+   9210 {:name "Company Picnics - HQ" :parent 9200} 
+   9220 {:name "Employee Gifts - HQ" :parent 9200} 
+   9230 {:name "Employee Medical Expenses - HQ" :parent 9200} 
+   9240 {:name "Employee Mileage Reimbursements - HQ" :parent 9200} 
+   9250 {:name "Recruiting Costs - HQ" :parent 9200} 
+   9260 {:name "Employee Training - HQ" :parent 9200} 
+   9300 {:name "HQ Operational" :parent nil}
+   9310 {:name "Legal Fees - HQ" :parent 9300} 
+   9315 {:name "Accounting - HQ" :parent 9300} 
+   9320 {:name "Consultants - HQ" :parent 9300} 
+   9330 {:name "Liability Insurance - HQ" :parent 9300} 
+   9340 {:name "Office Rent - HQ" :parent 9300} 
+   9345 {:name "Office CAM - HQ" :parent 9300} 
+   9350 {:name "Office Supplies - HQ" :parent 9300} 
+   9355 {:name "Office Snacks - HQ" :parent 9300} 
+   9360 {:name "Office Repairs - HQ" :parent 9300} 
+   9365 {:name "Office Maintenance - HQ" :parent 9300} 
+   9370 {:name "Utilities - HQ" :parent 9300} 
+   9380 {:name "Telephone - HQ" :parent 9300} 
+   9500 {:name "HQ Interest and Bank Expenses" :parent nil}
+   9510 {:name "Bank Fees - HQ" :parent 9500} 
+   9520 {:name "NSF Fees - HQ" :parent 9500} 
+   9530 {:name "Late Payment Fees - HQ" :parent 9500} 
+   9540 {:name "Interest Expense - HQ" :parent 9500} 
+   9541 {:name "Late Payment Penalties" :parent 9500} 
+   9600 {:name "HQ Depreciation" :parent nil}
+   9610 {:name "Amortization of Lease - HQ" :parent 9600} 
+   9620 {:name "Amortization of Leasehold Improvements - HQ" :parent 9600} 
+   9630 {:name "Amortization of Start Up Costs - HQ" :parent 9600} 
+   9650 {:name "Depreciation on Building - HQ" :parent 9600} 
+   9660 {:name "Depreciation on Furniture and Fixtures" :parent 9600} 
+   9700 {:name "HQ Taxes" :parent nil}
+   9710 {:name "Federal Taxes - HQ" :parent 9700} 
+   9720 {:name "State Taxes - HQ" :parent 9700} 
+   9725 {:name "LLC Fee - HQ" :parent 9700} 
+   9730 {:name "Local Taxes - HQ" :parent 9700} 
+   9800 {:name "HQ Other Expenses" :parent nil}
+   9810 {:name "Sales Tax Received Adjustments - HQ" :parent 9800} 
+   9820 {:name "Judgments - HQ" :parent 9800} 
+   9880 {:name "Misc Payments - HQ" :parent 9800} 
+   9890 {:name "Unassigned Exp - HQ" :parent 9800}})

src/cljs/auto_ap/events.cljs

@@ -74,6 +74,7 @@
 (re-frame/reg-event-db
  ::change-form
  (fn  [db [_ location field value]]
+   (println field value)
    (assoc-in db (into location field) value)))
 
 (re-frame/reg-event-db

src/cljs/auto_ap/views/pages/unpaid_invoices.cljs

@@ -13,7 +13,8 @@
             [auto-ap.views.components.modal :refer [modal action-modal]]
             [auto-ap.views.components.typeahead :refer [typeahead]]
             [auto-ap.subs :as subs]
-            [auto-ap.events :as events]))
+            [auto-ap.events :as events]
+            [bulma-calendar.core :as bc]))
 
 (re-frame/reg-sub
  ::invoice-page
@@ -265,6 +266,15 @@
                                     :max outstanding-balance
                                     :step "0.01"}]]]]]])]]])))
 
+(defn my-date [props]
+  (let [cal (r/atom nil)]
+    (r/create-class
+     {:component-did-mount (fn [this]
+                              (reset! cal (new bc (r/dom-node this) (clj->js {:overlay false :dateFormat "mm/dd/yyyy"} )))
+                             nil)
+      :reagent-render (fn [props]
+                        [:input.input (merge props {:on-blur (fn [] (js/setTimeout  100 #(.hide @cal)) )}) ])})))
+
 
 
 (defn new-invoice-modal []
@@ -275,6 +285,7 @@
                    :action-text "Create"
                    :save-event [::create-invoice]
                    :can-submit? (s/valid? ::invoice/invoice data)}
+
      [horizontal-field
       [:label.label  "Vendor"]
       [bind-field
@@ -286,13 +297,14 @@
                    :subscription data}]]]
      [horizontal-field
       [:label.label  "Date"]
-      [bind-field
-       [:input.input {:type "text"
-                      :field [:date]
-                      :event change-event
-                      :spec ::invoice/date
-                      :subscription data}]]]
 
+      
+      [bind-field
+       [my-date {:type "text"
+                 :field [:date]
+                 :event change-event
+                 :spec ::invoice/date
+                 :subscription data}]]] 
      [horizontal-field
       [:label.label  "Company"]
       [bind-field