Как хранить в бд 2 значения одного поля

[delphi159]

В бд (Interbase 2009, Firebird 2.5) есть таблица покупки. В записях покупки есть поле А. До какого-то момента если в A хранил, например, число 10, после этого момента(стал ндс-плательщиком) в старых записях вместо A(10) уже надо хранить 8.47(A-18%). Когда делается новая покупка тогда всё в порядке, делается приход новым значением поля A(8.47), но как сохранить старые записи покупки, которые куплены до этого момента, старым значением в А(10) , а после этого момента- новым значением (8.47)?
Например:
Запись покупки:

Income_Id    IncomeDate    IncomeQty    A
1000          01/05/2016    100        10

Запись продажи до какого-то момента(до 01/01/2017):

Sale_Id  IncomeId  SaleDate      SaleQty  SalePrice
1          1000    05/08/2016      5           25 
2          1000    01/09/2016      7           25

Надо изъять из старых записей продажи Price, а из записи покупки -A и вычислять Price-A, т.е. 25-10=15

После какого-то момента(01/01/2017), когда из старой записи продаю товар, надо вычислять Price-A, т.е. 25-8.47

Sale_Id   Income_Id  SaleDate      SaleQty  SalePrice
3           1000      10/01/2017      20         25

но в запись покупки хранится старое значение(10), посколько это старая покупка.
Если переписывать поле A новым значением, тогда A искажается для старых продаж, когда продал за 10!

[evg_m]

в бд 2 значения одного поля

До какого-то момента если в A хранил, например, число 10,

после этого момента(стал ндс-плательщиком) в старых записях A уже надо хранить 8.47(A-18%)

1. хранить старую (т.е. ничего не делать) и делать Вычислимое поле в расчетах

case when date<RegDate then A-A*0.18 else A end

2. ВТОРОЕ поле (пересчитанная дата) и ОПЯТЬ же вычислимое поле
2.1. второе поле для СПРАВОЧНОГО хранения ИСХОДНОЙ (некорректированной) суммы.

3. опять другое поле, но с немного другим смыслом СУММА коррекции(НДС)
и опять в расчетах использовать ВЫЧИСЛИМОЕ поле

sum -summNDS as corrSumm

короче говоря переходить на ВЫЧИСЛЕНИЯ правильной суммы в запросах.

[delphi159]

evg_m, а если обойти без вычисления? например так:
В таблице Income добавить varchar поле "Changed", который принимает значения 0 или 1.
Ещё кроме Cost1, Vat1 (себестоимость и ндс до изменения) добавить Cost2, Vat2 (себестоимость и ндс после изменения).
При включении галочки "облагаюсь ндс-ом" в Cost2 и Vat2 запишет новые цифра.

вид старой партии покупки, на которые есть остатки:

Income_id Goods_id  Cost1  Vat1  Cost2   Vat2  Changed
1          1234      10      0   8.47    1.53    1

а в запросе:

Case Income.changed=0 then изъять Cost1,Vat1  Else изъять Cost2, Vat2

Ваше мнение?