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