If RobinsonBeautyPro = 1 Then
    If Seeker.VendingCode = "MKF" Then
        Var Seeker.CollectPointPromotion = 1
    EndIf
EndIf

If JemilaPro = 1 Then
    If Seeker.VendingCode = "MKF" Then
        Var Seeker.CollectPointPromotion = 1
    EndIf
EndIf