Packages

erp

0.7.3
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,

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

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

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

              type         = virtual }.



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



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.