taobin_project/xml/process/discount_from_promotion.ev

If From12Day12MenuPro = 1 Then
    Var PriceDiff = PriceDrink - PromotionPriceDrink
    Var Seeker.VendingCode = "PMD" + PriceDiff
    Var Seeker.CodeNumber = "00000000"
    Var Seeker.CodeChannel = 1
    Var Seeker.FreeVendingCampaign = 0
    Var Seeker.IntVendingCampaign = PriceDiff
    Var Seeker.VendingCampaignRI3 = PriceDiff
EndIf

If FromOreoDiscount11Pro = 1 Then
    Var Seeker.VendingCode = "PMD11"
    Var Seeker.CodeNumber = "00000000"
    Var Seeker.CodeChannel = 1
    Var Seeker.FreeVendingCampaign = 0
    Var Seeker.IntVendingCampaign = 11
    Var Seeker.VendingCampaignRI3 = 11
EndIf

If FromMomCocoaPro = 1 Then
    If DiscountMomCocoaPro > 0 Then
        Var DiscountDrink = DiscountMomCocoaPro
        Var Seeker.CampaignPPrice = PromotionPriceDrink
    EndIf
EndIf

If FromCocoa77Pro = 1 Then
    Var OriginalPriceWithTopping = OriginalPrice + TOPPING_PRICE
    Var PriceDiff = OriginalPriceWithTopping - PromotionPriceDrink
    Var DiscountDrink = PriceDiff
    Var Seeker.CampaignPPrice = PromotionPriceDrink
EndIf

If FromPassionMintPro = 1 Then
    Var OriginalPriceWithTopping = OriginalPrice + TOPPING_PRICE
    Var PriceDiff = OriginalPriceWithTopping - PromotionPriceDrink
    Var DiscountDrink = PriceDiff
    Var Seeker.CampaignPPrice = PromotionPriceDrink
EndIf

If BoxID = 105005 Then
    If Seeker.selected_a_drink = "12-05-02-0045" Then
        Var PriceDiff = PriceDrink - 25
        Var DiscountDrink = PriceDiff
        Var Seeker.CampaignPPrice = 25
        Var DiscountCampaignCode = "SVB0002"

        Var PriceDrink = PriceDrink - PriceDiff
    EndIf
EndIf

If ChildrenFree = 1 Then

    Var RemainAmountStr = "Free###size=150"

    Var Seeker.VendingCode = "MKFOO"
    Var Seeker.IntVendingCampaign = PriceDrink
    Var Seeker.FreeVendingCampaign = 1
    Var Seeker.CodeChannel = 1
    Var Seeker.CodeNumber = IDNum

    DEBUGVAR IDNum

    Var Seeker.TNumberTaobinMember = TelNumPromotion

    ;If Seeker = "curr" Then
    ;
    ;	MakeDrinkV1  SelectDrink SelectSugarID
    ;	Var TxRef1 = ""
    ;	CreateTxRef1 TxRef1
    ;Else
    ;	Var TxRef1 = ""
    ;	CreateTxRef1 TxRef1
    ;
    ;	Var DrinkPaid = SelectDrink
    ;	Var PaidPaymentFromNextStage = 1
    ;
    ;EndIf
    ;Open "ROOT/taobin_project/xml/page_thankyou.xml"
    Open "ROOT/taobin_project/xml/page_payment_cash.xml"



EndIf

; Oreo free
If PromotionIDOreoBuyTwoSaveMore = 1 Then
    Var PromotionIDOreoBuyTwoSaveMore = 0
    Var PromotionIDCurrentOrder = 2
EndIf

If PromotionIDCurrentOrder = 2 Then
    SAVELOG "Promotion: Oreo Get 1 Free 1"
EndIf

If FromCoffeeDrink1BathPro = 1 Then
    SAVELOG "From Coffee Drink 1 Bath pro"
    Var PromotionIDCurrentOrder = 3
EndIf



If InternationalEnable = 1 Then
    If CountryName = "Thailand" Then
        ;do not thing
    Else
        Var discount_promo_file = CountryRootPath + "/xml/process/discount_from_promotion.ev"
        TRY discount_promo_file
    EndIf
EndIf