Packages

erp

0.7.5
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("payment.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'()].



payments("CATALX") ->

 [#'Payment' { invoice = "JAN-2018-001-CX", volume = {0,5000}, price = {0,1}, instrument = "USD", type = crypto },

  #'Payment' { invoice = "FEB-2018-001-CX", volume = {0,7000}, price = {0,1}, instrument = "USD", type = crypto },

  #'Payment' { invoice = "MAR-2018-001-CX", volume = {0,10000}, price = {0,1}, instrument = "USD", type = crypto },

  #'Payment' { invoice = "APR-2018-001-CX", volume = {0,12000}, price = {0,1}, instrument = "USD", type = crypto },

  #'Payment' { invoice = "MAY-2018-001-CX", volume = {0,15000}, price = {0,1}, instrument = "USD", type = crypto },

  #'Payment' { invoice = "JUN-2018-001-CX", volume = {0,10000}, price = {0,1}, instrument = "USD", type = crypto },

  #'Payment' { invoice = "JUL-2018-001-CX", volume = {0,10000}, price = {0,1}, instrument = "USD", type = crypto },

  #'Payment' { invoice = "AUG-2018-001-CX", volume = {0,12000}, price = {0,1}, instrument = "USD", type = crypto },

  #'Payment' { invoice = "SEP-2018-001-CX", volume = {0,15000}, price = {0,1}, instrument = "USD", type = crypto },

  #'Payment' { invoice = "OCT-2018-001-CX", volume = {0,10000}, price = {0,1}, instrument = "USD", type = crypto },

  #'Payment' { invoice = "NOV-2018-001-CX", volume = {0,12000}, price = {0,1}, instrument = "USD", type = crypto },

  #'Payment' { invoice = "DEC-2018-001-CX", volume = {0,15000}, price = {0,1}, instrument = "USD", type = crypto }

  ];



payments("NYNJA") ->

 [#'Payment' { invoice = "JAN-2019-001-NY", volume = {0,5000}, price = {0,1}, instrument = "USD", type = fiat },

  #'Payment' { invoice = "FEB-2019-001-NY", volume = {0,7000}, price = {0,1}, instrument = "USD", type = fiat },

  #'Payment' { invoice = "MAR-2019-001-NY", volume = {0,10000}, price = {0,1}, instrument = "USD", type = fiat },

  #'Payment' { invoice = "APR-2019-001-NY", volume = {0,12000}, price = {0,1}, instrument = "USD", type = fiat },

  #'Payment' { invoice = "MAY-2019-001-NY", volume = {0,15000}, price = {0,1}, instrument = "USD", type = fiat }

  ].



pay_boot() ->

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

      lists:map(fun(#'Payment'{}=Pay) -> kvs:append(Pay,"/plm/"++C++"/payments") end,payments(C))

      end, products()).



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.