1080 846 "0xFF0000" TopView "hide" Var CaptureTimeout = 0 Var AMOUNT_FORMAT_RANK1 = "%,.0f.-" Var AMOUNT_FORMAT = "%,.0f" Var dummyPhone = "0899999999" Var GettingData = "false" If LastCaptureTime = "" Then Var LastCaptureTime = 0 EndIf Var AboutTimeToCapture = "false" Var Unit = "บาท" Var BgImg = "ROOT/taobin_project/image/event/tea_time/bg_th.png" 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 1000 DEBUGVAR SystemTimeMinuteInt DEBUGVAR LastCaptureTime DEBUGVAR GettingData Var TimeDiff = SystemTimeMinuteInt - LastCaptureTime If TimeDiff >= 20 Then DEBUGVAR "capture top spender time!!!" If GettingData = "false" Then GETACCEXT dummyPhone 34 Var GettingData = "true" EndIf Else If TimeDiff <= -20 Then DEBUGVAR "capture top spender time!!!" If GettingData = "false" Then GETACCEXT dummyPhone 34 Var GettingData = "true" EndIf EndIf EndIf 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 LastCaptureTime = SystemTimeMinuteInt 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 Refresh TimerReset 0 0 BgImg ; Rank 1 ; Name 347 300 40 center-vertical-horizontal 300 70 KanitRegularTTF 0x523D30 Rank[0].Name ; Phone number 363 357 46 center-vertical-horizontal 280 40 DinCondensedBold 0x523D30 Var( "Tel. " + Rank[0].PhoneNumber ) ; Amount 660 285 78 center-vertical-horizontal 310 113 RobotoCondensedRegular 0xFFFFFF StringFmt(Rank[0].Amount, AMOUNT_FORMAT_RANK1, PreScaleConvertShow) ; End Rank 1 ; Rank 2 ; Name 606 420 24 end 168 36 KanitMediumTTF 0x523D30 Rank[1].Name ; Phone number 280 420 24 end 222 36 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[1].PhoneNumber ) ; Amount 774 420 24 end 112 36 KanitMediumTTF 0x523D30 StringFmt(Rank[1].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 2 ; Rank 3 ; Name 606 465 24 end 168 36 KanitMediumTTF 0x523D30 Rank[2].Name ; Phone number 280 465 24 end 222 36 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[2].PhoneNumber ) ; Amount 774 465 24 end 112 36 KanitMediumTTF 0x523D30 StringFmt(Rank[2].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 3 ; Rank 4 ; Phone number 176 506 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[3].PhoneNumber ) ; Name 310 506 15 center 127 14 KanitMediumTTF 0x523D30 Rank[3].Name ; Amount 437 506 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[3].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 4 ; Rank 5 ; Phone number 176 532 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[4].PhoneNumber ) ; Name 310 532 15 center 127 14 KanitMediumTTF 0x523D30 Rank[4].Name ; Amount 437 532 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[4].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 5 ; Rank 6 ; Phone number 176 559 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[5].PhoneNumber ) ; Name 310 559 15 center 127 14 KanitMediumTTF 0x523D30 Rank[5].Name ; Amount 437 559 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[5].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 6 ; Rank 7 ; Phone number 176 585 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[6].PhoneNumber ) ; Name 310 585 15 center 127 14 KanitMediumTTF 0x523D30 Rank[6].Name ; Amount 437 585 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[6].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 7 ; Rank 8 ; Phone number 176 613 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[7].PhoneNumber ) ; Name 310 613 15 center 127 14 KanitMediumTTF 0x523D30 Rank[7].Name ; Amount 437 613 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[7].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 8 ; Rank 9 ; Phone number 176 638 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[8].PhoneNumber ) ; Name 310 638 15 center 127 14 KanitMediumTTF 0x523D30 Rank[8].Name ; Amount 437 638 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[8].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 9 ; Rank 10 ; Phone number 176 666 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[9].PhoneNumber ) ; Name 310 666 15 center 127 14 KanitMediumTTF 0x523D30 Rank[9].Name ; Amount 437 666 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[9].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 10 ; Rank 11 ; Phone number 176 692 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[10].PhoneNumber ) ; Name 310 692 15 center 127 14 KanitMediumTTF 0x523D30 Rank[10].Name ; Amount 437 692 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[10].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 11 ; Rank 12 ; Phone number 176 718 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[11].PhoneNumber ) ; Name 310 718 15 center 127 14 KanitMediumTTF 0x523D30 Rank[11].Name ; Amount 437 718 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[11].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 12 ; Rank 13 ; Phone number 176 745 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[12].PhoneNumber ) ; Name 310 745 15 center 127 14 KanitMediumTTF 0x523D30 Rank[12].Name ; Amount 437 745 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[12].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 13 ; Rank 14 ; Phone number 176 771 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[13].PhoneNumber ) ; Name 310 771 15 center 127 14 KanitMediumTTF 0x523D30 Rank[13].Name ; Amount 437 771 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[13].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 14 ; Rank 15 ; Phone number 593 506 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[14].PhoneNumber ) ; Name 727 506 15 center 127 14 KanitMediumTTF 0x523D30 Rank[14].Name ; Amount 854 506 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[14].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 15 ; Rank 16 ; Phone number 593 532 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[15].PhoneNumber ) ; Name 727 532 15 center 127 14 KanitMediumTTF 0x523D30 Rank[15].Name ; Amount 854 532 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[15].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 16 ; Rank 17 ; Phone number 593 559 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[16].PhoneNumber ) ; Name 727 559 15 center 127 14 KanitMediumTTF 0x523D30 Rank[16].Name ; Amount 854 559 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[16].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 17 ; Rank 18 ; Phone number 593 585 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[17].PhoneNumber ) ; Name 727 585 15 center 127 14 KanitMediumTTF 0x523D30 Rank[17].Name ; Amount 854 585 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[17].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 18 ; Rank 19 ; Phone number 593 613 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[18].PhoneNumber ) ; Name 727 613 15 center 127 14 KanitMediumTTF 0x523D30 Rank[18].Name ; Amount 854 613 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[18].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 19 ; Rank 20 ; Phone number 593 638 15 150 22 KanitMediumTTF 0x523D30 Var( "Tel. " + Rank[19].PhoneNumber ) ; Name 727 638 15 center 127 14 KanitMediumTTF 0x523D30 Rank[19].Name ; Amount 854 638 14 end 71 22 ChivoMonoSemiBold 0x523D30 StringFmt(Rank[19].Amount, AMOUNT_FORMAT, PreScaleConvertShow) ; End Rank 20 ; Unit ; Unit Rank 2 903 420 24 60 36 KanitMediumTTF 0x523D30 Unit ; Unit Rank 3 903 464 24 60 36 KanitMediumTTF 0x523D30 Unit ; Unit Rank 4 515 506 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 5 515 532 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 6 515 559 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 7 515 585 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 8 515 613 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 9 515 638 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 10 515 666 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 11 515 692 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 12 515 718 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 13 515 745 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 14 515 771 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 15 933 506 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 16 933 532 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 17 933 559 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 18 933 585 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 19 933 613 15 35 22 KanitMediumTTF 0x523D30 Unit ; Unit Rank 20 933 638 15 35 22 KanitMediumTTF 0x523D30 Unit ; End Unit