Packages

erp

0.7.8
7.4.16 7.4.15 7.4.14 7.4.13 2.11.0 1.11.0 1.1.1 0.10.4 0.10.3 0.10.2 0.10.1 0.10.0 0.9.4 0.9.3 0.9.2 0.9.1 0.9.0 0.7.17 0.7.16 0.7.15 0.7.14 0.7.13 0.7.12 0.7.11 0.7.10 0.7.9 0.7.8 0.7.7 0.7.6 0.7.5 0.7.4 0.7.3 0.7.2 0.7.1 0.7.0 0.6.0

ERP/1 Directory Schema

HexDocs

Current section

Files

Jump to
Readme
36 Versions
2 Dependencies
6 Dependants
Files
Activity
erp src boot erp_boot.erl
Raw

src/boot/erp_boot.erl 

-module(erp_boot).

-compile(export_all).

-include("organization.hrl").

-include("person.hrl").

-include("employee.hrl").

-include("buyer.hrl").

-include("investment.hrl").

-include("salary.hrl").

-include("payment.hrl").

-include("transport.hrl").

-include("seller.hrl").

-include("warehouse.hrl").

-include("inventory.hrl").

-include("material.hrl").

-include("contract.hrl").

-include("location.hrl").

-include("product.hrl").

-include("branch.hrl").

-include("delivery.hrl").

-include_lib("kvs/include/kvs.hrl").

-include_lib("kvs/include/metainfo.hrl").

-include_lib("kvs/include/cursors.hrl").



boot() ->

    Structure    = [ "/erp/group", "/erp/partners", "/erp/quanterall" ],

    GroupOrgs    = [ #'Organization'{name="Quanterall", url="quanterall.com"} ],

    HeadBranches = [ #'Branch'{ loc = #'Loc'{ city = "Varna",   country = "BG" } },

                     #'Branch'{ loc = #'Loc'{ city = "Sophia",  country = "BG" } },

                     #'Branch'{ loc = #'Loc'{ city = "Plovdiv", country = "BG" } } ],

    PartnersOrgs = [ #'Organization'{name="NYNJA, Inc.",    url= "nynja.io"},

                     #'Organization'{name="Catalx Exchange Inc.", url="catalx.io"},

                     #'Organization'{name="FiaTech",        url=[]},

                     #'Organization'{name="3Stars",         url=[]},

                     #'Organization'{name="SwissEMX",       url=[]},

                     #'Organization'{name="HistoricalPark", url=[]},

                     #'Organization'{name="Intralinks",     url=[]} ],

    case {kvs:get(writer,"/erp/group"),kvs:get(writer,"/erp/partners")} of

         {{error,_},{error,_}} ->

              lists:map(fun(X) -> kvs:writer(X) end, Structure),

              lists:map(fun(X) -> kvs:append(X,"/erp/quanterall") end, HeadBranches),

              lists:map(fun(X) -> kvs:append(X,"/erp/group") end, GroupOrgs),

              lists:map(fun(X) -> kvs:append(X,"/erp/partners") end, PartnersOrgs);

                             _ -> skip end.