; 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

; promotion reduce price
; REPR
If ProReducedPriceEnable = 1 Then
    Var Seeker.VendingCode = "REPR"
EndIf


; promotion yuzu 250
; YUZU25
If FromProYuzu250 = 1 Then
    Var Seeker.VendingCode = "YUZU25"
EndIf