33 lines
935 B
Text
33 lines
935 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 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
|