tao master

xml/page_check_member2.xml

@@ -230,14 +230,14 @@
         If TaobinLevel = "3" Then
             Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp
         
-            Var PointDiff = 350 - CoffeePointRank
+            Var PointDiff = 200 - CoffeePointRank
             Var TaobinLevelDesc2 = "Earn " + PointDiff
             Var TaobinLevelDesc2 = TaobinLevelDesc2 + " stamps "
             Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level"
 
             Var TaobinLeveImg = "/taoLevel3.png"
 
-            If CoffeePointRank > 349 Then
+            If CoffeePointRank > 199 Then
 				;Var TaobinLeveImg = "/taoLevel4.png"
 
 				;Var TaobinLevelDesc1 =  "Master turtle level "
@@ -290,7 +290,7 @@
         If TaobinLevel = "3" Then
             Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก จนถึง " + ExpireStrTmp
         
-            Var PointDiff = 350 - CoffeePointRank
+            Var PointDiff = 200 - CoffeePointRank
             Var TaobinLevelDesc2 = "สะสมแสตมป์อีก " + PointDiff
             Var TaobinLevelDesc2 = TaobinLevelDesc2 + " ดวง "
             Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นผู้เฒ่าเต่า"
@@ -298,7 +298,7 @@
 
             Var TaobinLeveImg = "/taoLevel3.png"
 
-            If CoffeePointRank > 349 Then
+            If CoffeePointRank > 199 Then
 				;Var TaobinLeveImg = "/taoLevel4.png"
 
 				;Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า "

xml/page_collect_point_3.xml

@@ -259,14 +259,14 @@
         If TaobinLevel = "3" Then
             Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp
         
-            Var PointDiff = 350 - CoffeePointRank
+            Var PointDiff = 200 - CoffeePointRank
             Var TaobinLevelDesc2 = "Earn " + PointDiff
             Var TaobinLevelDesc2 = TaobinLevelDesc2 + " stamps "
             Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level"
 
             Var TaobinLeveImg = "/taoLevel3.png"
 
-			If CoffeePointRank > 349 Then
+			If CoffeePointRank > 199 Then
 				;Var TaobinLeveImg = "/taoLevel4.png"
 
 				;Var TaobinLevelDesc1 =  "Master turtle level "
@@ -323,14 +323,14 @@
         If TaobinLevel = "3" Then
             Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก จนถึง " + ExpireStrTmp
 
-			Var PointDiff = 350 - CoffeePointRank
+			Var PointDiff = 200 - CoffeePointRank
             Var TaobinLevelDesc2 = "สะสมแสตมป์อีก " + PointDiff
             Var TaobinLevelDesc2 = TaobinLevelDesc2 + " ดวง "
             Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นผู้เฒ่าเต่า"
 
             Var TaobinLeveImg = "/taoLevel3.png"
 
-			If CoffeePointRank > 349 Then
+			If CoffeePointRank > 199 Then
 				;Var TaobinLeveImg = "/taoLevel4.png"
 
 				;Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า "

xml/page_payment.xml

@@ -191,12 +191,16 @@
 
 
 		If web_readyOK = "true" Then
+
+		Var  Seeker.selected_a_drink = SelectDrink
+		Var  Seeker.ServiceAmount2 = PayAmount
+
 			If web_payment = "CODE" Then
 				Open "ROOT/taobin_project/xml/page_payment_code.xml"
 			EndIf
 
 			If web_payment = "CREDIT" Then
-				Open "ROOT/taobin_project/xml/page_payment_credit2.xml"
+				Open "ROOT/taobin_project/xml/page_payment_credit.xml"
 			EndIf
 
 		EndIf

xml/page_payment_credit.xml

@@ -37,6 +37,28 @@
 
 	Var GetAccFlag = 0
 
+	Var AcceptAuto = "false"
+
+	If web_readyOK = "true" Then
+		Var web_readyOK = "false"
+		Var AcceptAuto = "true"
+		Var ShowTextNumber = "Invisible"
+		
+
+    
+		Var PinNumber = ""
+		Var TelephoneNumber = web_telnum
+
+		Var DataTmp = TelephoneNumber + "/"
+		Var DataTmp = DataTmp + PinNumber
+
+		GETACCEXT DataTmp 19
+		Var GetAccFlag = 1
+
+	EndIf
+
+
+
 </EventOpen>
 <Timeout> 1000 </Timeout>
 <EventTimeout> 
@@ -79,6 +101,9 @@
 			INT CoffeeCredit 
 
 			;Var CoffeeCredit = 5
+
+
+			DEBUGVAR PinNumberUser
 			
 
 			Open "ROOT/taobin_project/xml/page_payment_credit2.xml" 

xml/page_payment_credit2.xml

@@ -41,13 +41,13 @@
 
 	Var Ext1a = ""
 
-	Var AcceptAuto = "false"
+	Var ReqAdddata22 = 0
-
+	Var timeout_Adddata22 = 0
-
+	GenHashWithTimeStamp PointCrm
-	If web_readyOK = "true" Then
+	
-		Var web_readyOK = "false"
+	If AcceptAuto = "true" Then
-		Var AcceptAuto = "true"
 
+		Var AcceptAuto = "false"
 
 		Var Tel_Confirm_State = "Enable"
 
@@ -59,16 +59,38 @@
 		Var PinNumber = web_pin
 		Var TelephoneNumber = web_telnum
 
-		Var DataTmp = TelephoneNumber + "/"
+		If PinNumberUser = PinNumber Then
-		Var DataTmp = DataTmp + PinNumber
 
-		GETACCEXT DataTmp 19
+			Var SumCreditAmount = CoffeeCredit
+
+			If SumCreditAmount >= PayAmount Then 
+
+				If ReqAdddata22 = 0 Then 
+					Var BmiYear = PayAmount
+					Var GetScore = "useCredit"
+					AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
+					Var ReqAdddata22 = 1
+				EndIf
+
+				
+			Else
+				Open "ROOT/taobin_project/xml/page_payment_credit3.xml" 
+			EndIf
+
+		Else
+
+			Var ShowErrorText = "Enable"
+			Var PinNumber = ""
+			Var ShowTextNumber1 = "Invisible"
+			Var ShowTextNumber2 = "Invisible"
+			Var ShowTextNumber3 = "Invisible"
+			Var ShowTextNumber4 = "Invisible"
+
+		EndIf
 
 	EndIf
 
-	Var ReqAdddata22 = 0
+	
-	Var timeout_Adddata22 = 0
-	GenHashWithTimeStamp PointCrm
 	
 </EventOpen>
 <Timeout> 1000 </Timeout>