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