THAI: Add TeaTime promotion & FIXED: bug cancel pay with cash will get discount drink in full price

This commit is contained in:
Kenta420 2024-04-02 16:42:19 +07:00
parent 7a500c37ec
commit 9ed5012bf6
178 changed files with 34040 additions and 202 deletions

View file

@ -3,185 +3,258 @@
<Height> 846 </Height>
<Background> "0xFF0000" </Background>
<EventOpen>
TopView "hide"
Var CapTureTimeout = 0
Var CaptureTimeout = 0
Var AMOUNT_FORMAT_RANK1 = "%,.0f.-"
Var AMOUNT_FORMAT = "%,.0f"
Var dummyPhone = "0899999999"
Var GettingData = "false"
Var TopSpenderData = "08xxxxxxx23/ข้าวต้มมัดไส้กล้วย/57432|08xxxxxxx32/Luna632/39821|08xxxxxxx13/Oliver913/26547|08xxxxxxx90/Aria518/75890|08xxxxxxx65/Ethan207/12065|08xxxxxxx75/Sophia875/33094|08xxxxxxx69/Mason369/65984|08xxxxxxx26/Amelia726/50378|08xxxxxxx31/Lucas451/89231|08xxxxxxx74/Ava874/42136|08xxxxxxx53/Logan639/18532|08xxxxxxx41/Harper802/97641|08xxxxxxx29/Noah524/54329|08xxxxxxx87/Mia197/30287|08xxxxxxx20/Liam815/74820|08xxxxxxx27/Nisa723/91827|08xxxxxxx79/William394/13579|08xxxxxxx34/Isabella864/98234|08xxxxxxx23/Thana256/65231|08xxxxxxx91/Charlotte509/35792"
SPLIT2 TopSpenderData "\|" TopSpenderDataSpl
SPLIT2 TopSpenderDataSpl[0] "/" Rank1
SPLIT2 TopSpenderDataSpl[1] "/" Rank2
SPLIT2 TopSpenderDataSpl[2] "/" Rank3
SPLIT2 TopSpenderDataSpl[3] "/" Rank4
SPLIT2 TopSpenderDataSpl[4] "/" Rank5
SPLIT2 TopSpenderDataSpl[5] "/" Rank6
SPLIT2 TopSpenderDataSpl[6] "/" Rank7
SPLIT2 TopSpenderDataSpl[7] "/" Rank8
SPLIT2 TopSpenderDataSpl[8] "/" Rank9
SPLIT2 TopSpenderDataSpl[9] "/" Rank10
SPLIT2 TopSpenderDataSpl[10] "/" Rank11
SPLIT2 TopSpenderDataSpl[11] "/" Rank12
SPLIT2 TopSpenderDataSpl[12] "/" Rank13
SPLIT2 TopSpenderDataSpl[13] "/" Rank14
SPLIT2 TopSpenderDataSpl[14] "/" Rank15
SPLIT2 TopSpenderDataSpl[15] "/" Rank16
SPLIT2 TopSpenderDataSpl[16] "/" Rank17
SPLIT2 TopSpenderDataSpl[17] "/" Rank18
SPLIT2 TopSpenderDataSpl[18] "/" Rank19
SPLIT2 TopSpenderDataSpl[19] "/" Rank20
DEBUGVAR TopSpenderDataSpl[0]
DEBUGVAR TopSpenderDataSpl[19]
Var Rank[0] = "rank-member-1"
Var Rank[0].PhoneNumber = Rank1[0]
Var Rank[0].Name = Rank1[1]
Var Rank[0].Amount = Rank1[2]
INT Rank[0].Amount
Var Rank[1] = "rank-member-2"
Var Rank[1].PhoneNumber = Rank2[0]
Var Rank[1].Name = Rank2[1]
Var Rank[1].Amount = Rank2[2]
INT Rank[1].Amount
Var Rank[2] = "rank-member-3"
Var Rank[2].PhoneNumber = Rank3[0]
Var Rank[2].Name = Rank3[1]
Var Rank[2].Amount = Rank3[2]
INT Rank[2].Amount
Var Rank[3] = "rank-member-4"
Var Rank[3].PhoneNumber = Rank4[0]
Var Rank[3].Name = Rank4[1]
Var Rank[3].Amount = Rank4[2]
INT Rank[3].Amount
Var Rank[4] = "rank-member-5"
Var Rank[4].PhoneNumber = Rank5[0]
Var Rank[4].Name = Rank5[1]
Var Rank[4].Amount = Rank5[2]
INT Rank[4].Amount
Var Rank[5] = "rank-member-6"
Var Rank[5].PhoneNumber = Rank6[0]
Var Rank[5].Name = Rank6[1]
Var Rank[5].Amount = Rank6[2]
INT Rank[5].Amount
Var Rank[6] = "rank-member-7"
Var Rank[6].PhoneNumber = Rank7[0]
Var Rank[6].Name = Rank7[1]
Var Rank[6].Amount = Rank7[2]
INT Rank[6].Amount
Var Rank[7] = "rank-member-8"
Var Rank[7].PhoneNumber = Rank8[0]
Var Rank[7].Name = Rank8[1]
Var Rank[7].Amount = Rank8[2]
INT Rank[7].Amount
Var Rank[8] = "rank-member-9"
Var Rank[8].PhoneNumber = Rank9[0]
Var Rank[8].Name = Rank9[1]
Var Rank[8].Amount = Rank9[2]
INT Rank[8].Amount
Var Rank[9] = "rank-member-10"
Var Rank[9].PhoneNumber = Rank10[0]
Var Rank[9].Name = Rank10[1]
Var Rank[9].Amount = Rank10[2]
INT Rank[9].Amount
Var Rank[10] = "rank-member-11"
Var Rank[10].PhoneNumber = Rank11[0]
Var Rank[10].Name = Rank11[1]
Var Rank[10].Amount = Rank11[2]
INT Rank[10].Amount
Var Rank[11] = "rank-member-12"
Var Rank[11].PhoneNumber = Rank12[0]
Var Rank[11].Name = Rank12[1]
Var Rank[11].Amount = Rank12[2]
INT Rank[11].Amount
Var Rank[12] = "rank-member-13"
Var Rank[12].PhoneNumber = Rank13[0]
Var Rank[12].Name = Rank13[1]
Var Rank[12].Amount = Rank13[2]
INT Rank[12].Amount
Var Rank[13] = "rank-member-14"
Var Rank[13].PhoneNumber = Rank14[0]
Var Rank[13].Name = Rank14[1]
Var Rank[13].Amount = Rank14[2]
INT Rank[13].Amount
Var Rank[14] = "rank-member-15"
Var Rank[14].PhoneNumber = Rank15[0]
Var Rank[14].Name = Rank15[1]
Var Rank[14].Amount = Rank15[2]
INT Rank[14].Amount
Var Rank[15] = "rank-member-16"
Var Rank[15].PhoneNumber = Rank16[0]
Var Rank[15].Name = Rank16[1]
Var Rank[15].Amount = Rank16[2]
INT Rank[15].Amount
Var Rank[16] = "rank-member-17"
Var Rank[16].PhoneNumber = Rank17[0]
Var Rank[16].Name = Rank17[1]
Var Rank[16].Amount = Rank17[2]
INT Rank[16].Amount
Var Rank[17] = "rank-member-18"
Var Rank[17].PhoneNumber = Rank18[0]
Var Rank[17].Name = Rank18[1]
Var Rank[17].Amount = Rank18[2]
INT Rank[17].Amount
Var Rank[18] = "rank-member-19"
Var Rank[18].PhoneNumber = Rank19[0]
Var Rank[18].Name = Rank19[1]
Var Rank[18].Amount = Rank19[2]
INT Rank[18].Amount
Var Rank[19] = "rank-member-20"
Var Rank[19].PhoneNumber = Rank20[0]
Var Rank[19].Name = Rank20[1]
Var Rank[19].Amount = Rank20[2]
INT Rank[19].Amount
If LastCaptureHour = "" Then
Var LastCaptureHour = 0
EndIf
Var AboutTimeToCapture = "false"
Var Unit = "บาท"
Var BgImg = "ROOT/taobin_project/image/event/tea_time/bg_th.png"
</EventOpen>
<EventActionOk>
If GettingData = "true" Then
If Ext1x1 = "" Then
SAVELOG "TopSpenderError: Can't get data from server"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/topview_blank_main.xml"
Else
SPLIT2 Ext1x1 "/" Rank1
SPLIT2 Ext1x2 "/" Rank2
SPLIT2 Ext1x3 "/" Rank3
SPLIT2 Ext1x4 "/" Rank4
SPLIT2 Ext1x5 "/" Rank5
SPLIT2 Ext1x6 "/" Rank6
SPLIT2 Ext1x7 "/" Rank7
SPLIT2 Ext1x8 "/" Rank8
SPLIT2 Ext1x9 "/" Rank9
SPLIT2 Ext1x10 "/" Rank10
SPLIT2 Ext1x11 "/" Rank11
SPLIT2 Ext1x12 "/" Rank12
SPLIT2 Ext1x13 "/" Rank13
SPLIT2 Ext1x14 "/" Rank14
SPLIT2 Ext1x15 "/" Rank15
SPLIT2 Ext1x16 "/" Rank16
SPLIT2 Ext1x17 "/" Rank17
SPLIT2 Ext1x18 "/" Rank18
SPLIT2 Ext1x19 "/" Rank19
SPLIT2 Ext1x20 "/" Rank20
DEBUGVAR Ext1x1
DEBUGVAR Ext1x2
DEBUGVAR Ext1x3
DEBUGVAR Ext1x4
DEBUGVAR Ext1x5
DEBUGVAR Ext1x6
DEBUGVAR Ext1x7
DEBUGVAR Ext1x8
DEBUGVAR Ext1x9
DEBUGVAR Ext1x10
DEBUGVAR Ext1x11
DEBUGVAR Ext1x12
DEBUGVAR Ext1x13
DEBUGVAR Ext1x14
DEBUGVAR Ext1x15
DEBUGVAR Ext1x16
DEBUGVAR Ext1x17
DEBUGVAR Ext1x18
DEBUGVAR Ext1x19
DEBUGVAR Ext1x20
Var Rank[0] = "rank-member-1"
Var Rank[0].PhoneNumber = Rank1[0]
Var Rank[0].Name = Rank1[1]
Var Rank[0].Amount = Rank1[2]
INT Rank[0].Amount
Var Rank[1] = "rank-member-2"
Var Rank[1].PhoneNumber = Rank2[0]
Var Rank[1].Name = Rank2[1]
Var Rank[1].Amount = Rank2[2]
INT Rank[1].Amount
Var Rank[2] = "rank-member-3"
Var Rank[2].PhoneNumber = Rank3[0]
Var Rank[2].Name = Rank3[1]
Var Rank[2].Amount = Rank3[2]
INT Rank[2].Amount
Var Rank[3] = "rank-member-4"
Var Rank[3].PhoneNumber = Rank4[0]
Var Rank[3].Name = Rank4[1]
Var Rank[3].Amount = Rank4[2]
INT Rank[3].Amount
Var Rank[4] = "rank-member-5"
Var Rank[4].PhoneNumber = Rank5[0]
Var Rank[4].Name = Rank5[1]
Var Rank[4].Amount = Rank5[2]
INT Rank[4].Amount
Var Rank[5] = "rank-member-6"
Var Rank[5].PhoneNumber = Rank6[0]
Var Rank[5].Name = Rank6[1]
Var Rank[5].Amount = Rank6[2]
INT Rank[5].Amount
Var Rank[6] = "rank-member-7"
Var Rank[6].PhoneNumber = Rank7[0]
Var Rank[6].Name = Rank7[1]
Var Rank[6].Amount = Rank7[2]
INT Rank[6].Amount
Var Rank[7] = "rank-member-8"
Var Rank[7].PhoneNumber = Rank8[0]
Var Rank[7].Name = Rank8[1]
Var Rank[7].Amount = Rank8[2]
INT Rank[7].Amount
Var Rank[8] = "rank-member-9"
Var Rank[8].PhoneNumber = Rank9[0]
Var Rank[8].Name = Rank9[1]
Var Rank[8].Amount = Rank9[2]
INT Rank[8].Amount
Var Rank[9] = "rank-member-10"
Var Rank[9].PhoneNumber = Rank10[0]
Var Rank[9].Name = Rank10[1]
Var Rank[9].Amount = Rank10[2]
INT Rank[9].Amount
Var Rank[10] = "rank-member-11"
Var Rank[10].PhoneNumber = Rank11[0]
Var Rank[10].Name = Rank11[1]
Var Rank[10].Amount = Rank11[2]
INT Rank[10].Amount
Var Rank[11] = "rank-member-12"
Var Rank[11].PhoneNumber = Rank12[0]
Var Rank[11].Name = Rank12[1]
Var Rank[11].Amount = Rank12[2]
INT Rank[11].Amount
Var Rank[12] = "rank-member-13"
Var Rank[12].PhoneNumber = Rank13[0]
Var Rank[12].Name = Rank13[1]
Var Rank[12].Amount = Rank13[2]
INT Rank[12].Amount
Var Rank[13] = "rank-member-14"
Var Rank[13].PhoneNumber = Rank14[0]
Var Rank[13].Name = Rank14[1]
Var Rank[13].Amount = Rank14[2]
INT Rank[13].Amount
Var Rank[14] = "rank-member-15"
Var Rank[14].PhoneNumber = Rank15[0]
Var Rank[14].Name = Rank15[1]
Var Rank[14].Amount = Rank15[2]
INT Rank[14].Amount
Var Rank[15] = "rank-member-16"
Var Rank[15].PhoneNumber = Rank16[0]
Var Rank[15].Name = Rank16[1]
Var Rank[15].Amount = Rank16[2]
INT Rank[15].Amount
Var Rank[16] = "rank-member-17"
Var Rank[16].PhoneNumber = Rank17[0]
Var Rank[16].Name = Rank17[1]
Var Rank[16].Amount = Rank17[2]
INT Rank[16].Amount
Var Rank[17] = "rank-member-18"
Var Rank[17].PhoneNumber = Rank18[0]
Var Rank[17].Name = Rank18[1]
Var Rank[17].Amount = Rank18[2]
INT Rank[17].Amount
Var Rank[18] = "rank-member-19"
Var Rank[18].PhoneNumber = Rank19[0]
Var Rank[18].Name = Rank19[1]
Var Rank[18].Amount = Rank19[2]
INT Rank[18].Amount
Var Rank[19] = "rank-member-20"
Var Rank[19].PhoneNumber = Rank20[0]
Var Rank[19].Name = Rank20[1]
Var Rank[19].Amount = Rank20[2]
INT Rank[19].Amount
Var AboutTimeToCapture = "true"
EndIf
EndIf
</EventActionOk>
<Timeout> 1000 </Timeout>
<EventTimeout>
If CapTureTimeout = 1 Then
DEBUGVAR "capture top spender TH"
CAPTURE "ROOT/taobin_project/xml/sometime/capture-topspender_th.png"
DEBUGVAR SystemTimeHourInt
DEBUGVAR LastCaptureHour
If LastCaptureHour = SystemTimeHourInt Then
; Set for EN
Var Unit = "Baht"
Var BgImg = "ROOT/taobin_project/image/event/tea_time/bg_en.png"
Refresh
Else
DEBUGVAR "capture top spender time!!!"
If GettingData = "false" Then
GETACCEXT dummyPhone 34
Var GettingData = "true"
EndIf
EndIf
If CapTureTimeout = 3 Then
DEBUGVAR "capture top spender EN"
CAPTURE "ROOT/taobin_project/xml/sometime/capture-topspender_en.png"
If AboutTimeToCapture = "true" Then
If CaptureTimeout = 1 Then
SAVELOG "capture top spender TH"
CAPTURE "ROOT/taobin_project/video/capture-topspender_th.png"
Refresh
EndIf
If CaptureTimeout = 2 Then
SAVELOG "capture top spender TH"
CAPTURE "ROOT/taobin_project/video/capture-topspender_th.png"
; Set for EN
Var Unit = "Baht"
Var BgImg = "ROOT/taobin_project/image/event/tea_time/bg_en.png"
Refresh
EndIf
If CaptureTimeout = 3 Then
SAVELOG "capture top spender EN"
CAPTURE "ROOT/taobin_project/video/capture-topspender_en.png"
Var LastCaptureHour = SystemTimeHourInt
EndIf
If CaptureTimeout = 5 Then
Open "/mnt/sdcard/coffeevending/taobin_project/xml/topview_blank_main.xml"
EndIf
Var CaptureTimeout = CaptureTimeout + 1
Else
If GettingData = "false" Then
Open "/mnt/sdcard/coffeevending/taobin_project/xml/topview_blank_main.xml"
EndIf
EndIf
Var CapTureTimeout = CapTureTimeout + 1
Refresh
TimerReset
</EventTimeout>
@ -213,7 +286,7 @@
<Y> 357 </Y>
<Size> 46 </Size>
<Align> center-vertical-horizontal </Align>
<Width> 260 </Width>
<Width> 280 </Width>
<Height> 40 </Height>
<Font> DinCondensedBold </Font>
<Color> 0x523D30 </Color>
@ -341,6 +414,7 @@
<X> 310 </X>
<Y> 506 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -382,6 +456,7 @@
<X> 310 </X>
<Y> 532 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -423,6 +498,7 @@
<X> 310 </X>
<Y> 559 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -464,6 +540,7 @@
<X> 310 </X>
<Y> 585 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -505,6 +582,7 @@
<X> 310 </X>
<Y> 613 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -546,6 +624,7 @@
<X> 310 </X>
<Y> 638 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -587,6 +666,7 @@
<X> 310 </X>
<Y> 666 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -628,6 +708,7 @@
<X> 310 </X>
<Y> 692 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -669,6 +750,7 @@
<X> 310 </X>
<Y> 718 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -710,6 +792,7 @@
<X> 310 </X>
<Y> 745 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -751,6 +834,7 @@
<X> 310 </X>
<Y> 771 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -792,6 +876,7 @@
<X> 727 </X>
<Y> 506 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -833,6 +918,7 @@
<X> 727 </X>
<Y> 532 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -874,6 +960,7 @@
<X> 727 </X>
<Y> 559 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -915,6 +1002,7 @@
<X> 727 </X>
<Y> 585 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -956,6 +1044,7 @@
<X> 727 </X>
<Y> 613 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>
@ -997,6 +1086,7 @@
<X> 727 </X>
<Y> 638 </Y>
<Size> 15 </Size>
<Align> center </Align>
<Width> 127 </Width>
<Height> 14 </Height>
<Font> KanitMediumTTF </Font>