为加拿大申请折扣和免税计算

问题描述

之前有人问过这个问题,但没有任何正确的答案。问题是我正在为加拿大客户开发 POS 应用程序。我被困在税收计算中,无法找到解决方案。所以这是我的场景,我有 2 个项目,假设项目 1 = 10 美元,项目 2 = 2 美元。第 2 项是免税的意思是税(13%)不会适用于第 2 项,但在申请税之前。我需要申请折扣,例如 5 美元。那么如何对我的总账单应用折扣并计算总税额。

我需要折扣后的税额。税率为 13%。

商品 1 为 10 美元 第 2 项是 2 美元(免税)

小计为 12 美元 折扣价为 5 美元 税将是?

解决方法

这是一种方法:

  1. 按价格对商品进行排序,最贵的在前。
  2. 对排序列表中的商品应用折扣,直到没有折扣为止。
  3. 将该列表的价格相加以获得折扣小计。
  4. 将该列表中应税项目的价格相加以获得应税金额。
  5. 将税款应用于应税金额,并将其添加到小计中以得到总计。

' detect ansi
InregsX.AX = &H1A00
CALL InterruptX(&H2F,InregsX,OutregsX)
PRINT "AX="; HEX$(OutregsX.AX)
IF (OutregsX.AX AND &HFF) = &HFF THEN
   Ansi.Installed = -1
ELSE
   Ansi.Installed = 0
END IF
IF Ansi.Installed THEN
   PRINT "Ansi installed."
ELSE
   PRINT "Ansi not installed."
END IF