51 lines
741 B
OCaml
51 lines
741 B
OCaml
type t = {
|
|
year : int;
|
|
month : int;
|
|
day : int;
|
|
category : string;
|
|
subcategory : string;
|
|
amount : float;
|
|
account : string;
|
|
payee : string;
|
|
notes : string;
|
|
}
|
|
|
|
val create :
|
|
year:float ->
|
|
month:float ->
|
|
day:float ->
|
|
category:string ->
|
|
?subcategory:string ->
|
|
amount:float ->
|
|
account:string ->
|
|
payee:string ->
|
|
?notes:string ->
|
|
unit ->
|
|
t
|
|
|
|
val mvt :
|
|
float ->
|
|
float ->
|
|
float ->
|
|
string ->
|
|
string option ->
|
|
float ->
|
|
string ->
|
|
string ->
|
|
string option ->
|
|
t
|
|
|
|
type predicate = t -> bool
|
|
|
|
val is_account_caisse : predicate
|
|
|
|
val is_account_courant : predicate
|
|
|
|
val any : predicate
|
|
|
|
val after : int -> int -> int -> predicate
|
|
|
|
val until : int -> int -> int -> predicate
|
|
|
|
val mvts : string -> t list
|