ENH sane defaults for income

This commit is contained in:
Nathan Dwarshuis 2023-03-16 23:55:59 -04:00
parent ad4cb6a702
commit 2a38b52fc4
1 changed files with 19 additions and 12 deletions

View File

@ -216,17 +216,24 @@ let Allocation = Allocation_ Amount
let IntervalAllocation = Allocation_ (TimeAmount Interval)
let Income =
{ incGross : Decimal
, incCurrency : CurID
, incWhen : DatePat
, incPretax : List Allocation
, incTaxes : List Allocation
, incPosttax : List Allocation
, incFrom :
{- this must be an income AcntID, and is the only place income
accounts may be specified in the entire budget -}
TaggedAcnt
, incToBal : TaggedAcnt
{ Type =
{ incGross : Decimal
, incCurrency : CurID
, incWhen : DatePat
, incPretax : List Allocation
, incTaxes : List Allocation
, incPosttax : List Allocation
, incFrom :
{- this must be an income AcntID, and is the only place income
accounts may be specified in the entire budget -}
TaggedAcnt
, incToBal : TaggedAcnt
}
, default =
{ incPretax = [] : List Allocation
, incTaxes = [] : List Allocation
, incPosttaxx = [] : List Allocation
}
}
let Transfer =
@ -267,7 +274,7 @@ let ShadowTransfer =
let Budget =
{ budgetLabel : Text
, incomes : List Income
, incomes : List Income.Type
, pretax : List IntervalAllocation
, tax : List IntervalAllocation
, posttax : List IntervalAllocation