free from problem,credit with cash qr

This commit is contained in:
miggaze 2021-07-23 17:27:25 +07:00
parent 6c68e86ca1
commit 0eb70b24f7
12 changed files with 212 additions and 26 deletions

View file

@ -114,6 +114,13 @@
EndIf
If GetFreeFromError = 1 Then
;Var GetFreeFromError = 0
Var TelephoneNumberProblem = TelephoneNumberGOTFree
EndIf
@ -461,6 +468,10 @@
EndIf
EndIf
If MachineState_Result = 1 Then
Var MachineState_Result = 2
EndIf
If MachineState_Result = 1 Then
If waitAckPay = 0 Then
@ -500,6 +511,12 @@
;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
If GetFreeFromError = 1 Then
Var CodeChannel = 1
Var VendingCode = "C48"
Var CodeNumber = "0000000000"
EndIf
If PayWithQR = 0 Then
If CodeChannel = 1 Then
Var SessionID2 = SessionID2 + "/"
@ -535,6 +552,7 @@
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
@ -581,7 +599,12 @@
If StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount2
If GetFreeFromError = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount2
EndIf
EndIf
EndIf