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

shoppy webapp

Browse source
This commit is contained in:
miggaze 2021-11-25 15:56:33 +07:00
parent 6bf00e2e26
commit a8de5d11a6
58 changed files with 835 additions and 419 deletions
Download patch file Download diff file Expand all files Collapse all files

341
xml/page_payment_cashMore.xml
View file

@ -25,6 +25,8 @@
Var VendingCampaign = IntVendingCampaign
Var PayAmount = PriceDrink
Var LOADING_STATE = "Invisible"
; Below original
; On open
@ -38,7 +40,7 @@
Var CancelFlag = 0
Var CancelCounter = 0
Var CoinInCounter = 0
Var CancelNumber = 2
Var CancelNumber = 3
Var PayAmount = PriceDrink
Var RemainAmount = PayAmount - IntVendingCampaign
@ -66,13 +68,14 @@
Var ServiceCharge = 0
Var Donate = ""
Var SuggestID = ""
Var CancleState = "Invisible"
Var CancleState = "Enable"
Var VendingDiscount = DiscountDrink
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRErrorFlag = 0
SAVELOG SelectDrink
@ -132,6 +135,7 @@
Var PayState2 = "Invisible"
Var PayState3 = "Invisible"
Var PayState4 = "Invisible"
Var PayState5 = "Invisible"
Var showRemaining = "Free"
Else
@ -139,23 +143,28 @@
If IntVendingCampaign = 0 Then
Var PayState2 = "Enable"
Var PayState4 = "Enable"
Var PayState5 = "Enable"
Else
Var PayState2 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
EndIf
Var PayState3 = "Enable"
If CoinAmount > 0 Then
Var PayState2 = "Disable"
Var PayState3 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
Var CoinInFlag = 1
EndIf
If IntVendingCredit > 0 Then
Var PayState2 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
EndIf
@ -175,11 +184,11 @@
Var PayWithQR = 0
Var NoGotoMenupage = "false"
If show_eng = "true" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cashSmall.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cashSmall.png"
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
Else
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cashSmall.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cashSmall.png"
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
EndIf
@ -267,6 +276,7 @@
Var PayState2 = "Disable"
Var PayState3 = "Disable"
Var PayState4 = "Disable"
Var PayState5 = "Disable"
Var PayOfflineMode = 1
Else
@ -308,11 +318,11 @@
If CART_COUNT = 1 Then
Var pay_with_code_imagebn = "/bn_pay_with_codeSmall.png"
Var pay_with_code_imagebp = "/bp_pay_with_codeSmall.png"
Var pay_with_code_imagebn = "/bn_pay_with_code.png"
Var pay_with_code_imagebp = "/bp_pay_with_code.png"
Else
Var pay_with_code_imagebn = "/bn_pay_with_codeSmall_error.png"
Var pay_with_code_imagebp = "/bp_pay_with_codeSmall_error.png"
Var pay_with_code_imagebp = "/bn_pay_with_codeSmall_error.png"
Var PayState2 = "Disable"
EndIf
@ -335,6 +345,11 @@
<EventActionOk>
Var VendingQRTypeResult = ""
DEBUGVAR ECommerceQR
SPLIT ECommerceQR "/" 5 VendingQRTypeResult
If ActionOKCase = 0 Then
If VendingREFID = "" Then
SAVELOG "menu_page4-QR.xml > ActOK_REFID"
@ -362,24 +377,72 @@
EndIf
If ReqPayInfoFlag = 1 Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99 = SessionID
Var QRCODE99 = QRCODE99 + Ext1a
SAVELOG Ext1a
SAVELOG QRCODE99
Var QRCODE99 = QRCODE99 + Ext21
Var QRCODETMP = QRCODE99
Var ReqPayInfoFlag = 0
SAVELOG QRCODE99
SAVELOG Ext21
If VendingQRTypeResult = "KBA:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99KBANK = SessionID
Var QRCODE99KBANK = QRCODE99KBANK + Ext1a
SAVELOG Ext1a
SAVELOG QRCODE99KBANK
Var QRCODE99KBANK = QRCODE99KBANK + Ext21
Var QRCODETMP = QRCODE99KBANK
Var ReqPayInfoFlag = 0
SAVELOG QRCODE99KBANK
SAVELOG Ext21
Var QRCODE99 = QRCODE99KBANK
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 2 Then
If VendingQRTypeResult = "AIR: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
SAVELOG QRCODE99Shoppy
SAVELOG Ext21
Var QRCODE99 = QRCODE99Shoppy
Var LOADING_STATE = "Invisible"
EndIf
EndIf
Else
Var PayInfoCFlag = 1
EndIf
</EventActionOk>
<EventActionError>
If ActionOKCase = 0 Then
If ReqPayInfoFlag = 1 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 2 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
EndIf
Refresh
</EventActionError>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -397,6 +460,10 @@
If Timeout >= 120 Then
Var alphaState = "Invisible"
Var PayState3 = "Disable"
Var PayState5 = "Disable"
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
EndIf
@ -854,12 +921,12 @@
Var SessionID = ""
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var QRCODE99 = ""
Var QRCODETMP = ""
Var ReqPayInfoFlag = 1
;Var ReqPayInfoFlag = 1
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
@ -942,6 +1009,7 @@
<EventClick>
If CoinInFlag = 0 Then
VendingQR OFF
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
@ -951,7 +1019,7 @@
<Button>
<X> 287 </X>
<Y> 1240 </Y>
<Y> 1261 </Y>
<State> PayState1</State>
<Filename> FilenameShowbuttonCashBN </Filename>
<FilenamePress> FilenameShowbuttonCashBP </FilenamePress>
@ -990,7 +1058,7 @@
<Button>
<X> 287 </X>
<Y> 1612</Y>
<Y> 1677</Y>
<State> PayState2</State>
<Filename> Var( DirImage + pay_with_code_imagebn) </Filename>
<FilenamePress> Var( DirImage + pay_with_code_imagebp") </FilenamePress>
@ -1015,11 +1083,11 @@
<Button>
<X> 287 </X>
<Y> 1364 </Y>
<Y> 1365 </Y>
<State> PayState3</State>
<Filename> Var( DirImage + "/bn_prompt_paySmall.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_prompt_paySmall.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_prompt_paySmall.png") </FilenameDisable>
<Filename> Var( DirImage + "/bn_prompt_pay.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_prompt_pay.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_prompt_pay.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -1030,27 +1098,62 @@
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup1.png"
Var LOADING_STATE = "Enable"
Var FlagQROpened = 1
Var alphaState = "Enable"
;CoinVending OFF
VendingQR ON
If QRCODE99 = "" Then
Var CashTextWarning = "ระบบ Promtpay ไม่สามารถใช้งานได้ในขณะนี้"
Var QRErrorState = "Enable"
Else
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + "00000"
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee-multi"
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 + "KBA:2/"
If IntVendingCredit > 0 Then
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + IntVendingCredit
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 1
Refresh
If CoinAmount > 0 Then
Change CoinAmount
Var ChangeOK = 0
Var CancelFlag = 1
Var CancelCounter = 0
Var NoGotoMenupage = "true"
EndIf
;If CoinAmount > 0 Then
; Change CoinAmount
; Var ChangeOK = 0
; Var CancelFlag = 1
; Var CancelCounter = 0
; Var NoGotoMenupage = "true"
;
;EndIf
EndIf
EndIf
EndIf
@ -1068,11 +1171,11 @@
<Button>
<X> 287 </X>
<Y> 1488 </Y>
<Y> 1573 </Y>
<State> PayState4</State>
<Filename> Var( DirImage + "/bn_pay_with_creditSmall.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_creditSmall.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_creditSmall.png") </FilenameDisable>
<Filename> Var( DirImage + "/bn_pay_with_credit.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_credit.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_credit.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -1097,11 +1200,79 @@
<Button>
<X> 287 </X>
<Y> 1736 </Y>
<Y> 1469 </Y>
<State> PayState5</State>
<Filename> Var( DirImage + "/bn_pay_with_shoppy.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_shoppy.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_shoppy.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup2.png"
Var LOADING_STATE = "Enable"
Var QRCODE99 = ""
Var FlagQROpened = 1
Var alphaState = "Enable"
;CoinVending OFF
VendingQR ON
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee-multi"
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 + "AIR:2/"
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 2
Refresh
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 287 </X>
<Y> 1781 </Y>
<State> CancleState</State>
<Filename> Var( DirImage + "/bn_cancel_all.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_cancel_all.png") </FilenamePress>
<FilenameDisable> pay_with_credit_image </FilenameDisable>
<FilenameDisable> Var( DirImage + "/bp_cancel_all.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -1126,52 +1297,7 @@
</EventClick>
</Button>
<Button>
<X> 438 </X>
<Y> 1786 </Y>
<State>CancleState</State>
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_cancel.png" ) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
;VendingQR OFF
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleMain > Cancle Order."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
If FlagQROpened = 1 Then
Var CancelNumber = 12
EndIf
EndIf
EndIf
;If CoinAmount > 0 Then
; Change CoinAmount
; Var ChangeOK = 0
; Var CancelFlag = 1
; Var CancelCounter = 0
;
;Else
; ;Var ChangeOK = 1
;EndIf
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Refresh
</EventClick>
</Button>
<Image>
<X> 60 </X>
@ -1324,7 +1450,23 @@
<X> 249 </X>
<Y> 748 </Y>
<State> alphaState </State>
<Filename> Var( DirImage + "/img_popup1.png" )</Filename>
<Filename> Var( DirImage + QR_POPUP )</Filename>
</Image>
<GIF>
<X> 493 </X>
<Y> 968 </Y>
<Width> 94 </Width>
<Height> 94 </Height>
<State> LOADING_STATE </State>
<Filename> Var( DirImage + "/loading.gif" )</Filename>
</GIF>
<Image>
<X> 267 </X>
<Y> 1065 </Y>
<State> LOADING_STATE </State>
<Filename> Var( DirImage + "/loadingText.png" )</Filename>
</Image>
<Button>
@ -1336,8 +1478,11 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
Var alphaState = "Invisible"
Var QRCODE99 = ""
;CoinVending ON
;VendingQR OFF
Refresh
@ -1480,7 +1625,7 @@
<QRCode>
<X> 399 </X>
<Y> 912 </Y>
<Y> 905 </Y>
<Width> WQR </Width>
<Height> HQR </Height>
<State> alphaState </State>
@ -1488,10 +1633,10 @@
</QRCode>
<Button>
<X> 490 </X>
<Y> 1050 </Y>
<X> 267 </X>
<Y> 960 </Y>
<State>QRErrorState</State>
<Filename> "ROOT/taobin_project/image/page_payment/QRError.png" </Filename>
<Filename> Var( DirImage + "/QRError.png" ) </Filename>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>