...

xml/page_payment_credit2.xml

@@ -4,7 +4,7 @@
 <Width> 1080 </Width>
 <Height> 1920 </Height>
 <Background> "0xeae6e1" </Background>
-<Sound> "ROOT/sounds/Code8digit.m4a" </Sound>
+
 <Volume> SoundVolume </Volume>
 <Refresh> "Partial" </Refresh>
 <EventOpen>
@@ -25,6 +25,8 @@
 
     Var PinNumber = ""
 
+	Var ReqFlag = 0
+
 	
     If show_eng = "true" Then 
 		Var DirImage = "ROOT/taobin_project/image/collectiing_en"
@@ -59,20 +61,29 @@
 <EventActionOk>
 	
 
+	If ReqFlag = 0 Then 
     
 			
 	
 
-	If Ext1a = "ok" Then
-		
-		Open "ROOT/taobin_project/xml/page_payment_credit3.xml" 
+		If Ext1a = "ok" Then
+
+			If Ext1c = "" Then
+			
+				Open "ROOT/taobin_project/xml/page_payment_credit3.xml" 
+			Else
+
+			EndIf
+		Else
+			Var ShowErrorText = "Enable"
+			Var PinNumber = ""
+			Var ShowTextNumber1 = "Invisible"
+			Var ShowTextNumber2 = "Invisible"
+			Var ShowTextNumber3 = "Invisible"
+			Var ShowTextNumber4 = "Invisible"
+		EndIf
 	Else
-	 	Var ShowErrorText = "Enable"
-		Var PinNumber = ""
-		Var ShowTextNumber1 = "Invisible"
-		Var ShowTextNumber2 = "Invisible"
-		Var ShowTextNumber3 = "Invisible"
-		Var ShowTextNumber4 = "Invisible"
+
 	EndIf
 
 	Refresh
@@ -493,8 +504,8 @@
 <Button>
 <X> 333 </X>
 <Y> 1432 </Y>
-<Filename> "ROOT/taobin_project/image/collectiing/bn_getPin.png" </Filename>
-<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_getPin.png" </FilenamePress>
+<Filename> Var( DirImage + "/bn_getPin.png") </Filename>
+<FilenamePress> Var( DirImage + "/bp_getPin.png")  </FilenamePress>
 <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
 <Volume> SoundVolume </Volume>
 <EventClick> 
@@ -502,7 +513,21 @@
     ;Open "ROOT/taobin_project/xml/page_catalog.xml" 
 
     Var ShowSentSmsText = "Enable"
+
+	Var BmiYear = ""
+	Var PointCrm = ""
+	Var GetScore = ""
+    AddData 13 TelephoneNumber  BmiYear PointCrm GetScore
+
+
+	Var ShowTextNumber1 = "Invisible"
+	Var ShowTextNumber2 = "Invisible"
+	Var ShowTextNumber3 = "Invisible"
+	Var ShowTextNumber4 = "Invisible"
+	 Var PinNumber = ""
+   
     
+	Var ReqFlag = 1
     
     TimerReset
 	Refresh
@@ -594,6 +619,8 @@
 
 	Var ShowSentSmsText = "Invisible"
 
+	Var ShowErrorText = "Invisible"
+
 	TimerReset
 	Refresh
 	
@@ -633,6 +660,8 @@
 
 			GETACCEXT DataTmp 13
 
+			Var ReqFlag = 0
+
 		Refresh