Packages

erp

0.7.10
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
3 Dependencies
6 Dependants
Files
Activity
erp src boot plm_boot.erl
Raw

src/boot/plm_boot.erl 

-module(plm_boot).

-compile(export_all).

-include("person.hrl").

-include("product.hrl").

-include("payment.hrl").

-include("investment.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'()].



boot() ->

  plm_boot(),

  assignees().



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.



staff("NYNJA") ->

   [ #'Person'{cn = "Georgi Spasov", hours = 8},

     #'Person'{cn = "Radostin Dimitrov", hours = 4},

     #'Person'{cn = "Nikolay Dimitrov", hours = 4},

     #'Person'{cn = "Yuri Maslovsky", hours = 8},

     #'Person'{cn = "Igor Kharin", hours = 8},

     #'Person'{cn = "Maxim Sokhatsky", hours = 1}

   ];



staff("CATALX") ->

   [ #'Person'{cn = "Pavel Petrov", hours = 8},

     #'Person'{cn = "Vyacheslav Kara", hours = 8}

   ].



assignees() ->

   lists:map(fun(#'Product'{code=C} = P) ->

      case kvs:get(writer,"/plm/"++C++"/staff") of

           {error,_} -> lists:map(fun(#'Person'{}=Person) ->

                        kvs:append(Person,"/plm/"++C++"/staff") end,staff(C));

           {ok,_} -> skip end

      end, products()).