Packages

erp

0.7.4
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 erp_products.erl
Raw

src/erp_products.erl 

-module(erp_products).

-compile(export_all).

-include("person.hrl").

-include("product.hrl").

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

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





'NYNJA'() ->

  {ok, NYNJA} = kvs:get("/erp/partners","NYNJA, Inc."),

  #'Product'{ code = "NYNJA",

              id = kvs:seq([],[]),

              organization = NYNJA,

              url          = "nynja.io",

              engineer     = #'Person'{cn = "Maxim Sokhatsky"},

              director     = #'Person'{cn = "Anton Andonov"},

              owner        = #'Person'{cn = "Salvator Guerrieri"},

              type         = virtual }.



'CATALX'() ->

  {ok, CATALX} = kvs:get("/erp/partners","Catalx Exchange Inc."),

  #'Product'{ code = "CATALX",

              id = kvs:seq([],[]),

              organization = CATALX,

              url          = "catalx.io",

              engineer     = #'Person'{cn = "Vyacheslav Kara"},

              director     = #'Person'{cn = "Anton Andonov"},

              owner        = #'Person'{cn = "Justin Kim"},

              type         = virtual }.



products() -> ['NYNJA'(), 'CATALX'()].



plm_boot() ->

    case kvs:get(writer,"/plm/products") of

        {error,_} -> lists:map(fun(#'Product'{} = P) -> kvs:append(P,"/plm/products") end, products());

           {ok,_} -> skip end.