If Seeker.PayWithQR = 0 Then
    If Seeker.TNumberTaobinCredit = "" Then
        Var TelephoneNumber = "0899999999"
        Var PayO2 = ""

        If Seeker.TNumberTaobinMember = "" Then

        Else
            Var TelephoneNumber = Seeker.TNumberTaobinMember
        EndIf

    Else
        Var TelephoneNumber = Seeker.TNumberTaobinCredit
        Var PayO2 = Seeker.CoffeePinNumber
    EndIf
EndIf
DEBUGVAR Seeker
DEBUGVAR TelephoneNumber
Var TelephoneNumberExt = TelephoneNumber
If TelephoneNumberExt = "" Then
    Var TelephoneNumberExt = "0899999999"
EndIf
__CMD "SetTelNum" TelephoneNumberExt Seeker.ORDER_ID Seeker.VendingTSID
Var payOrderChannel = "/XML|" +  Seeker.OrderChanel
__CMD "SetPayType" Seeker.ORDER_ID payOrderChannel ""


DEBUGVAR Seeker.SmoothieToPayment
If Seeker.SmoothieToPayment = 1 Then
    SAVELOG "[FROZEN-FRUIT] Set spiral pay detail"
    __CMD "SprialPayDetail" Seeker.sprial_pay_detail "-" "-"
EndIf