make drink when set pin

xml/page_payment_credit.xml

@@ -74,6 +74,13 @@
 	;Open "ROOT/taobin_project/xml/page_payment_credit2.xml" 
 	If  GetAccFlag = 1 Then
 		If Ext1a = "ok" Then
+			Var PinNumberUser = Ext1c
+			Var CoffeeCredit = Ext1b
+			INT CoffeeCredit 
+
+			;Var CoffeeCredit = 5
+			
+
 			Open "ROOT/taobin_project/xml/page_payment_credit2.xml" 
 		Else
 			Var ShowErrorText = "Enable"

xml/page_payment_credit2.xml

@@ -65,6 +65,9 @@
 		GETACCEXT DataTmp 19
 
 	EndIf
+
+	Var ReqAdddata22 = 0
+	Var timeout_Adddata22 = 0
 	
 </EventOpen>
 <Timeout> 1000 </Timeout>
@@ -121,26 +124,64 @@
 	
 
 	If ReqFlag = 0 Then 
+
+		If ReqAdddata22 = 1 Then 
+			Var Seeker.CreditReferenceTmp = "" + PayAmount
+			Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/"
+			Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm
+
+			CoinVending OFF
+
+
+			Var Seeker.TNumberTaobinCredit = TelephoneNumber
+			Var Seeker.CoffeePinNumber = PinNumber
+
+			Var Seeker.StoreCreditFlag = 1
+
+			Var SumCreditAmount = SumCreditAmount - PayAmount
+
+			Var VendingCreditRemain = "" + SumCreditAmount
+
+			If CART_COUNT >= 1 Then 
+
+				Cart "PreparID" 1
+				Var CART_INDEX = 1
+				Var PayReference = ""
+				GenHashWithTimeStamp PayReference
+				Cart "MakeID" CART_INDEX
+				Open "ROOT/taobin_project/xml/page_thankyou.xml" 
+			Else
+				Var CART_INDEX = 0
+				
+				If Seeker = "curr" Then
+					MakeDrinkV1  SelectDrink SelectSugarID
+				Else
+					DEBUGVAR Seeker
+				EndIf
+				Open "ROOT/taobin_project/xml/page_thankyou.xml" 
+			EndIf
+
+		EndIf
     
 			
 	
 
-		If Ext1a = "ok" Then
+		;If Ext1a = "ok" Then
 
-			If Ext1c = "" Then
+		;	If Ext1c = "" Then
-			
+		;	
-				Open "ROOT/taobin_project/xml/page_payment_credit3.xml" 
+		;		Open "ROOT/taobin_project/xml/page_payment_credit3.xml" 
-			Else
+		;	Else
 
-			EndIf
+		;	EndIf
-		Else
+		;Else
-			Var ShowErrorText = "Enable"
+		;	Var ShowErrorText = "Enable"
-			Var PinNumber = ""
+		;	Var PinNumber = ""
-			Var ShowTextNumber1 = "Invisible"
+		;	Var ShowTextNumber1 = "Invisible"
-			Var ShowTextNumber2 = "Invisible"
+		;	Var ShowTextNumber2 = "Invisible"
-			Var ShowTextNumber3 = "Invisible"
+		;	Var ShowTextNumber3 = "Invisible"
-			Var ShowTextNumber4 = "Invisible"
+		;	Var ShowTextNumber4 = "Invisible"
-		EndIf
+		;EndIf
 	Else
 
 	EndIf
@@ -720,13 +761,41 @@
 <EventClick> 
 
 		Var ShowSentSmsText = "Invisible"
+		Var Timeout = 0
 
-			Var DataTmp = TelephoneNumber + "/"
+		If PinNumberUser = PinNumber Then
-			Var DataTmp = DataTmp + PinNumber
 
-			GETACCEXT DataTmp 19
+			Var SumCreditAmount = CoffeeCredit
 
-			Var ReqFlag = 0
+			If SumCreditAmount >= PayAmount Then 
+
+				GenHashWithTimeStamp PointCrm
+
+				Var BmiYear = PayAmount
+				Var GetScore = "useCredit"
+				AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
+				Var ReqAdddata22 = 1
+
+				
+			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
+
+		;Var DataTmp = TelephoneNumber + "/"
+		;Var DataTmp = DataTmp + PinNumber
+		;GETACCEXT DataTmp 19
+		Var ReqFlag = 0
 
 		Refresh
     

xml/page_payment_credit3.xml

@@ -15,8 +15,8 @@
 	Var Tel_Confirm_State = "Disable"
 	Var ShowNotEnoughText = "Invisible"
 
-	Var CoffeeCredit = Ext1b
+	;Var CoffeeCredit = Ext1b
-	INT CoffeeCredit 
+	;INT CoffeeCredit 
 
 	Var SumCreditAmount = CoffeeCredit
 	;Var SumCreditAmount = 5

xml/page_thankyou.xml

@@ -43,11 +43,15 @@
 		Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
 
 		Var BottomText = PicturePath + "text_bottom_eng.png"
+
+		Var DirImage = "ROOT/taobin_project/image/page_thankyou_en"
 	Else
 		Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png" 
 		Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
 		Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
 		Var BottomText = PicturePath + "text_bottom_thai2.png"
+
+		Var DirImage = "ROOT/taobin_project/image/page_thankyou"
 	EndIf
 
 	DEBUGVAR StarwState
@@ -248,7 +252,7 @@
 <X> 760 </X>
 <Y> 413 </Y>
 <State>RemainCreditST</State>
-<Filename> "ROOT/taobin_project/image/page_thankyou/remainCredit.png" </Filename>
+<Filename> Var( DirImage + "/remainCredit.png" ) </Filename>
 </Image>
 
 <Text>