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 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

; fruit_raya
If FromFruityRaya = 1 Then
    Var Seeker.VendingCode = "RAYA"
    Var Seeker.FreeVendingCampaign = 0
EndIf

; mys pro thai tea
If FromProThaiTea = 1 Then
    Var Seeker.VendingCode = "TT1F1"
    Var Seeker.FreeVendingCampaign = 0
EndIf

; mys pro yuzu
If FromProYuzu = 1 Then
    Var Seeker.VendingCode = "YZ1F1"
    Var Seeker.FreeVendingCampaign = 0
EndIf

; mys mode pay later
If EnablePayLaterMode = 1 Then
    Var PriceDiff = PriceDrink

    Var Seeker.VendingCode = "PL"
    Var Seeker.IntVendingCampaign = PriceDiff

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