This commit is contained in:
kong 2020-10-16 16:40:36 +07:00
parent 7b8d82bad4
commit f9c9c73e87
6 changed files with 136 additions and 64 deletions

View file

@ -40,6 +40,8 @@
Var XPosiShowCountDownBrew = 768
</EventOpen>
<Timeout> 800 </Timeout>

View file

@ -15,6 +15,9 @@
CoinVending OFF
; Clear value
Topping "clear" "-"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>

View file

@ -15,6 +15,7 @@
Var MachineStage = "-"
Var HaveCup = "true"
;Var PriceDrink = 5
Var DiscountDrink = 0
@ -29,67 +30,111 @@
Var QRCODE7 = ServiceAmount2
Var QRCODE8 = ""
If GetPayInfoFlag = 0 Then
Var CountStepPackPayment = 0
Var RemainAmount = 0
;PrepareDrink SelectDrink SelectSugarID
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + "00"
Var SessionID2 = SessionID2 + "000"
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "KBA"
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var GetPayInfoFlag = 1
Var ReqPayInfoFlag = 1
EndIf
; Reset
Var MachineState_Result = 0
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
</EventOpen>
<Timeout> 2000 </Timeout>
<Timeout> 900 </Timeout>
<EventTimeout>
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Var CountStepPackPayment = CountStepPackPayment + 1
If CountStepPackPayment = 1 Then
SAVELOG ExtendData
If GetPayInfoFlag = 0 Then
Var RemainAmount = 0
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "KBA"
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var GetPayInfoFlag = 1
Var ReqPayInfoFlag = 1
EndIf
; Reset
Var MachineState_Result = 0
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventActionOk>
Var CreditAmount = 0
Var QRCODE99 = SessionID
Var QRCODE99 = QRCODE99 + Ext1a
SAVELOG QRCODE99
Var QRCODE99 = QRCODE99 + Ext21
Var QRCODETMP = QRCODE99
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
</EventActionOk>
<Image>
<X> 0 </X>
<Y> 0 </Y>
<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
</Image>
<Image>
<X> 375 </X>
<Y> 623 </Y>
<Width> 331 </Width>
<Height> 435 </Height>
<Filename> PictureDrink </Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 938 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 72 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0x513C2F </Color>
<Value> NameDrink </Value>
</Text>
<Text>
<X> 0 </X>
<Y> 1022 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 24 </Size>
<Font> KanitLightTTF </Font>
<Color> 0x6F5F51 </Color>
<Value> DrinkDescription </Value>
</Text>
<Image>
<X> 166 </X>
<Y> 501 </Y>
<Filename> "ROOT/taobin_project/image/page_payment/text_1.png" </Filename>
</Image>
</Popup>

View file

@ -89,11 +89,6 @@
EndIf
EndIf
Topping "Select1-ID" topping1
Topping "Select2-ID" topping2
Topping "Select3-ID" topping3
Topping "Pack" "Send"
If RoadShow = "true" Then
Var PayState1 = "Enable"
@ -109,10 +104,6 @@
EndIf
PrepareDrink SelectDrink SelectSugarID
Var PayWithQR = 0
Var NoGotoMenupage = "false"

View file

@ -103,6 +103,9 @@
Var topping1 = toppingID1Default
Refresh
Else
Topping "Select" SelectDrink
; Pack
Topping "Pack" ExtendData
Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
@ -174,6 +177,18 @@
<EventClick>
; Set drink
Topping "Select" SelectDrink
; Set option toppinng and pack
Topping "Select1-ID" topping1
Topping "Select2-ID" topping2
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Open "ROOT/taobin_project/xml/page_payment.xml"
</EventClick>
</Button>

View file

@ -143,6 +143,7 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG PreviseOfPreviseXMLFileName
Open PreviseOfPreviseXMLFileName
;Open "ROOT/taobin_project/xml/page_catalog.xml"
@ -257,6 +258,21 @@
; Var PriceDrink = SubMenuPrice1
;EndIf
; Below this. Process get ExtendData 1:_____ len 5
; Set drink
Topping "Select" SelectDrink
; Set option toppinng and pack
Topping "Select1-ID" topping1
Topping "Select2-ID" topping2
Topping "Select3-ID" topping3
; Pack
Topping "Pack" ExtendData
Open "ROOT/taobin_project/xml/page_payment.xml"
</EventClick>
</Button>