26 lines
729 B
Text
26 lines
729 B
Text
|
|
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 ""
|