pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

Update page_payment_cash-AUS.xml

Browse source
This commit is contained in:
Kenta420 2024-11-25 10:29:33 +07:00
parent f22d471c3e
commit 510862543b
1 changed files with 153 additions and 73 deletions
Download patch file Download diff file Expand all files Collapse all files

226
xml/page_payment_cash-AUS.xml
View file

@ -88,6 +88,8 @@
Var cancelState = "Invisible" Var cancelState = "Invisible"
Var CameraState = "Invisible"
Var alphaState = "Invisible" Var alphaState = "Invisible"
Var alphaState2 = "Invisible" Var alphaState2 = "Invisible"
@ -402,14 +404,6 @@
Machine DoorClose Machine DoorClose
If ShoppyPayEnable = "true" Then
Else
Var PayState5 = "Disable"
Var PayState6 = "Disable"
EndIf
If web_readyOK = "true" Then If web_readyOK = "true" Then
Var web_readyOK = "false" Var web_readyOK = "false"
@ -432,7 +426,6 @@
Var PayState4 = "Invisible" Var PayState4 = "Invisible"
Var PayState5 = "Invisible" Var PayState5 = "Invisible"
Var PayState6 = "Invisible" Var PayState6 = "Invisible"
EndIf EndIf
</EventOpen> </EventOpen>
@ -678,6 +671,28 @@
EndIf EndIf
EndIf EndIf
;If ReqPayInfoFlag = 6 Then
; If VendingQRTypeResult = "FZB:2" Then
; Var CashTextWarning = ""
; Var QRErrorState = "Invisible"
; Var QRCODE99Shoppy = SessionID
; Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
; SAVELOG Ext1a
; SAVELOG QRCODE99Shoppy
; Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
; Var ReqPayInfoFlag = 0
; Var ReqPayInfoFlag2 = 5
; SAVELOG QRCODE99Shoppy
; SAVELOG Ext21
; Var employeeName = "Jhon"
; Var
; ;Var QRCODE99 = QRCODE99Shoppy
; Var LOADING_STATE = "Invisible"
; EndIf
;EndIf
Else Else
Var PayInfoCFlag = 1 Var PayInfoCFlag = 1
EndIf EndIf
@ -718,6 +733,7 @@
If ReqPayInfoFlag = 1 Then If ReqPayInfoFlag = 1 Then
Var QRErrorFlag = 1 Var QRErrorFlag = 1
If alphaState = "Enable" Then If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable" Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible" Var LOADING_STATE = "Invisible"
EndIf EndIf
@ -725,6 +741,7 @@
If ReqPayInfoFlag = 2 Then If ReqPayInfoFlag = 2 Then
Var QRErrorFlag = 1 Var QRErrorFlag = 1
If alphaState = "Enable" Then If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable" Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible" Var LOADING_STATE = "Invisible"
EndIf EndIf
@ -732,6 +749,7 @@
If ReqPayInfoFlag = 3 Then If ReqPayInfoFlag = 3 Then
Var QRErrorFlag = 1 Var QRErrorFlag = 1
If alphaState = "Enable" Then If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable" Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible" Var LOADING_STATE = "Invisible"
EndIf EndIf
@ -739,10 +757,19 @@
If ReqPayInfoFlag = 4 Then If ReqPayInfoFlag = 4 Then
Var QRErrorFlag = 1 Var QRErrorFlag = 1
If alphaState = "Enable" Then If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable" Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible" Var LOADING_STATE = "Invisible"
EndIf EndIf
EndIf EndIf
If ReqPayInfoFlag = 6 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
Else Else
Var PayInfoCFlag = 1 Var PayInfoCFlag = 1
EndIf EndIf
@ -827,11 +854,16 @@
If Timeout >= 120 Then If Timeout >= 120 Then
Var alphaState = "Invisible" Var alphaState = "Invisible"
If CameraState = "Enable" Then
Var CameraState = "Invisible"
EndIf
If RoadShow = "true" Then If RoadShow = "true" Then
Else Else
Var PayState3 = "Disable" Var PayState3 = "Disable"
Var PayState5 = "Disable" Var PayState5 = "Disable"
Var PayState6 = "Disable"
EndIf EndIf
Var LOADING_STATE = "Invisible" Var LOADING_STATE = "Invisible"
@ -1351,6 +1383,96 @@
EndIf EndIf
</EventVDCancle> </EventVDCancle>
<EventScanQRResult>
DEBUGVAR scanresult
DEBUGVAR scanmsg
;If scanresult = "true" Then
; Var employeeCode = scanmsg
; Open "ROOT/taobin_project/inter/aus/xml/page_payment_employee_ping
;Else
;EndIf
If scanresult = "true" Then
If Timeout < 120 Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup_AUS_QR.png"
Var QRCODE99 = ""
Var LOADING_STATE = "Enable"
VendingQR ON
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "FZB:2/"
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
If Seeker.IntVendingCredit > 0 Then
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + "|"
EndIf
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + PointCrm
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
Var PayDetail2 = Seeker.PayDetail2
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 6
Refresh
EndIf
EndIf
EndIf
Else
Var scanmsg = "Please try agin"
EndIf
Var CameraState = "Invisible"
CLOSESCANQR
Refresh
</EventScanQRResult>
;include="ROOT/taobin_project/inc/video.inc" ;include="ROOT/taobin_project/inc/video.inc"
@ -1441,7 +1563,7 @@
If alphaState = "Invisible" Then If alphaState = "Invisible" Then
If CoinInFlag = 0 Then If CoinInFlag = 0 Then
If CancelFlag = 0 Then If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup8.png" Var QR_POPUP = "/img_popup8-AUS.png"
Var alphaState = "Enable" Var alphaState = "Enable"
Coin CARD Coin CARD
EndIf EndIf
@ -1604,7 +1726,7 @@ EndIf
<Button> <Button>
<X> 552 </X> <X> 552 </X>
<Y> 1499 </Y> <Y> 1499 </Y>
<State> "Enable" </State> <State> "Invisible" </State>
<Filename> Var( DirImage + "/bn_pay_with_comingSoon.png") </Filename> <Filename> Var( DirImage + "/bn_pay_with_comingSoon.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_pay_with_comingSoon.png") </FilenamePress> <FilenamePress> Var( DirImage + "/bn_pay_with_comingSoon.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_pay_with_comingSoon.png") </FilenameDisable> <FilenameDisable> Var( DirImage + "/bn_pay_with_comingSoon.png") </FilenameDisable>
@ -1618,10 +1740,11 @@ EndIf
<Button> <Button>
<X> 552 </X> <X> 552 </X>
<Y> 1499 </Y> <Y> 1499 </Y>
<State> "Invisible" </State> <State> PayState6 </State>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/bn_pay_with_codeOther.png" </Filename> ;<State> "Invisible" </State>
<FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bp_pay_with_codeOther.png" </FilenamePress> <Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/bn_pay_with_ema.png" </Filename>
<FilenameDisable> "ROOT/taobin_project/inter/aus/image/payment_cash/bd_pay_with_codeOther.png" </FilenameDisable> <FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bp_pay_with_ema.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/inter/aus/image/payment_cash/bd_pay_with_ema.png" </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
@ -1631,68 +1754,18 @@ EndIf
If CancelFlag = 0 Then If CancelFlag = 0 Then
If alphaState = "Invisible" Then If alphaState = "Invisible" Then
Var QR_POPUP = "/img_popup1.png" Var QR_POPUP = "/img_popup_ema.png"
Var QRCODE99 = "" Var QRCODE99 = ""
Var LOADING_STATE = "Enable"
Var FlagQROpened = 1 Var FlagQROpened = 1
Var alphaState = "Enable" Var alphaState = "Enable"
VendingQR ON Var scanresult = ""
Var scanmsg = ""
INITSCANQR
Var SessionID2 = SelectSlot + ":" Var CameraState = "Enable"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "FZB:2/"
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
If Seeker.IntVendingCredit > 0 Then
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + "|"
EndIf
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + PointCrm
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
Var PayDetail2 = Seeker.PayDetail2
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 1
Refresh Refresh
EndIf EndIf
EndIf EndIf
@ -1804,8 +1877,14 @@ EndIf
<Filename> Var( DirImage + "/loadingText.png" )</Filename> <Filename> Var( DirImage + "/loadingText.png" )</Filename>
</Image> </Image>
<CameraX>
<X> 50 </X>
<Y> 900 </Y>
<Name>"usbfront"</Name>
<Width> 1000 </Width>
<Height> 1000 </Height>
<State> CameraState </State>
</CameraX>
<Button> <Button>
@ -1822,6 +1901,7 @@ EndIf
Var QRErrorState = "Invisible" Var QRErrorState = "Invisible"
Var CreditCardErrorState = "Invisible" Var CreditCardErrorState = "Invisible"
Var alphaState = "Invisible" Var alphaState = "Invisible"
Var CameraState = "Invisible"
Var QRCODE99 = "" Var QRCODE99 = ""
If CashlessPayFlag = 1 Then If CashlessPayFlag = 1 Then
@ -2138,7 +2218,7 @@ EndIf
<X> 267 </X> <X> 267 </X>
<Y> 960 </Y> <Y> 960 </Y>
<State>QRErrorState</State> <State>QRErrorState</State>
<Filename> Var( DirImage + "/QRError.png" ) </Filename> <Filename> Var( DirImage + QRErrorImg ) </Filename>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>