{-# LANGUAGE DeriveDataTypeable #-}
module Hcompta.Model.Posting
 ( module Hcompta.Model.Posting
 ) where

import Data.Data
import Data.Typeable ()

import qualified Hcompta.Model.Account     as Account
import qualified Hcompta.Model.Amount      as Amount
import qualified Hcompta.Model.Date        as Date
import qualified Hcompta.Model.Tag         as Tag

data T
 = T
 { date :: Maybe Date.Day
 , date2 :: Maybe Date.Day
 , status :: Bool
 , account :: Account.Name
 , amount :: Amount.Mixed
 , comment :: String
 , type_ :: Type
 , tags :: [Tag.T]
 , balance_expected :: Maybe Amount.Mixed
 } deriving (Data, Eq, Read, Show, Typeable)

data Type
 = Regular
 | Virtual
 | VirtualBalanced
 deriving (Data, Eq, Read, Show, Typeable)