full BPE schema

src/erp/Organization.erl

@@ -0,0 +1,6 @@
+-module('Organization').
+-include_lib("erp/include/organization.hrl").
+-compile({parse_transform, rest}).
+-compile(export_all).
+-rest_record('Organization').
+new() -> #'Organization'{}.

src/erp/Payment.erl

@@ -0,0 +1,6 @@
+-module('Payment').
+-include_lib("erp/include/payment.hrl").
+-compile({parse_transform, rest}).
+-compile(export_all).
+-rest_record('Payment').
+new() -> #'Payment'{}.

src/erp/money.erl

@@ -0,0 +1,6 @@
+-module(money).
+-include_lib("dec/include/dec.hrl").
+-compile({parse_transform, rest}).
+-compile(export_all).
+-rest_record(money).
+new() -> #money{}.

src/erp/users.erl

@@ -0,0 +1,15 @@
+-module(users).
+-compile({parse_transform, rest}).
+-record(user, {id,cn,name,type}).
+-export([init/0, populate/1, exists/1, get/0, get/1, post/1, delete/1]).
+-rest_record(user).
+
+new() -> #user{}.
+init()               -> ets:new(users, [public, named_table, {keypos, #user.id}]).
+populate(Users)      -> ets:insert(users, Users).
+exists(Id)           -> X = ets:member(users, binary_to_list(Id)), io:format("Member: ~p~n",[X]), X.
+get()                -> ets:tab2list(users).
+get(Id)              -> #user{id=Id}.
+delete(Id)           -> ets:delete(users, binary_to_list(Id)).
+post(#user{} = User) -> ets:insert(users, User);
+post(Data)           -> post(from_json(Data, #user{})).