credit new version

xml/page_payment_credit3-TopupQR.xml

@@ -0,0 +1,221 @@
+<Popup>
+
+<Cache> "Enable" </Cache>
+<Width> 1080 </Width>
+<Height> 1920 </Height>
+<Background> "0xeae6e1" </Background>
+<Volume> SoundVolume </Volume>
+<EventOpen>
+	; On open
+
+    Var Timeout = 0
+
+    If show_eng = "true" Then 
+		Var DirImage = "ROOT/taobin_project/image/collectiing_en"
+	Else
+		Var DirImage = "ROOT/taobin_project/image/collectiing"
+	EndIf
+
+
+	If show_eng = "true" Then 
+		Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
+		Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
+		
+	Else
+		Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
+		Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
+	
+	EndIf
+
+
+    Var alphaState = "Enable"
+    Var ReqAdddata22 = 0
+    Var PayCreditOK = 0
+
+    Var ReqAdddata22_Error = 0
+    Var Timeout_Error = 0
+
+
+               
+	DEBUGVAR Seeker
+
+    
+	
+
+</EventOpen>
+<Timeout> 1000 </Timeout>
+<EventTimeout> 
+
+	Var Timeout = Timeout + 1
+	If Timeout > 60 Then
+		
+		Var PayState1 = "PressForever"
+		Var PayState2 = "Enable"
+		Var QRChannel = 0
+		Var Seeker.CodeChannel = 0
+		If CART_COUNT >= 1 Then 
+			Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" 
+		Else
+			Open "ROOT/taobin_project/xml/page_payment_cash.xml" 
+		EndIf
+	EndIf
+
+    If ReqAdddata22_Error = 1 Then
+
+        Var Timeout_Error = Timeout_Error + 1
+        If Timeout_Error >= 5 Then
+
+            Var PayState1 = "PressForever"
+            Var PayState2 = "Enable"
+            Var QRChannel = 0
+            Var Seeker.CodeChannel = 0
+            If CART_COUNT >= 1 Then 
+                Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" 
+            Else
+                Open "ROOT/taobin_project/xml/page_payment_cash.xml" 
+            EndIf
+
+        EndIf
+
+    EndIf
+
+
+	TimerReset
+</EventTimeout> 
+
+<EventIDCard>
+</EventIDCard>
+
+<EventCoin>
+</EventCoin>
+
+
+<EventActionOk>
+	
+    If VendingExtResult  = "" Then
+	Else
+        Var VendingExtResult = ""
+
+         If ReqAdddata22 = 0 Then 
+            GenHashWithTimeStamp PointCrm
+			Var useCreditAmount = PayAmountSubDiscount
+			Var BmiYear = useCreditAmount
+			Var GetScore = "useCredit"
+			AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
+			Var ReqAdddata22 = 1
+            Var Timeout = 0
+		EndIf   
+
+	EndIf
+
+
+    If ReqAdddata22 = 1 Then
+
+		Var Seeker.CreditReferenceTmp = "" + useCreditAmount
+        Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/"
+		Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm
+
+		CoinVending OFF
+		Open "ROOT/taobin_project/xml/page_payment_credit3-TopupSuccess.xml" 
+    EndIf
+
+	Refresh
+</EventActionOk>
+
+<EventActionError>
+
+   If ReqAdddata22 = 1 Then 
+		Var ShowErrorText = "Enable"
+        Var ReqAdddata22_Error = 1
+    EndIf
+
+   Refresh
+</EventActionError>
+
+<Button>
+<X> 990 </X>
+<Y> 416 </Y>
+<Filename> show_btn </Filename>
+<FilenamePress> show_btp  </FilenamePress>
+<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
+<Volume> SoundVolume </Volume>
+<EventClick> 
+	
+</EventClick>
+</Button>
+
+
+
+<Image>
+<X> 0 </X>
+<Y> 380 </Y>
+<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
+</Image>
+
+
+<Image>
+<X> 249 </X>
+<Y> 748 </Y>
+<Filename> Var( DirImage + "/img_popup20.png") </Filename>
+</Image>
+
+
+
+
+
+
+
+
+
+
+
+
+
+<Button>
+<X> 438 </X>
+<Y> 1345 </Y>
+
+<Filename> Var( DirImage + "/bn_cancel3.png" )</Filename>
+<FilenamePress> Var( DirImage + "/bp_cancel3.png" )</FilenamePress>
+<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
+<Volume> SoundVolume </Volume>
+<EventClick> 
+	
+		
+		Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml" 
+		
+
+</EventClick>
+</Button>
+
+
+<QRCode>
+<X> 445 </X>
+<Y> 958 </Y>
+<Width> 200 </Width>
+<Height> 200 </Height>
+<State> alphaState </State>
+<Service> testservice </Service>
+</QRCode>
+
+<Image>
+<X> 181 </X>
+<Y> 758 </Y>
+<State> ShowErrorText </State>
+<Filename> Var( DirImage + "/img_popup20-Failed.png" ) </Filename>
+</Image>
+
+<Video>
+<X> 0 </X>
+<Y> 0 </Y>
+<Width> 1080</Width>
+<Height> 380 </Height>
+<Loop> "true" </Loop>
+<Filename> video_menu_0 </Filename>
+</Video>
+	
+<EventSecurity> 
+	Open "/media/bt/xml/security_alarm.xml" 
+</EventSecurity>
+
+</Popup>