THAI: Fix bug new payment credit for new minimum payment

xml/page_check_member2.xml

@@ -1175,7 +1175,8 @@
 <EventClick>
 
     GETACCEXT TNumberTaobinMemberXXX 14
-
+    Var CoffeePointOld = 0
+    Var CoffeePoint = 0
 	Open "ROOT/taobin_project/xml/page_check_member_point.xml"
 </EventClick>
 </Button>

xml/page_payment_credit3-Topup.xml

@@ -22,7 +22,6 @@
 
 	Var GetCreditFlag = 0
 
-	Var posX = 400
 
     If show_eng = "true" Then 
 		Var DirImage = "ROOT/taobin_project/image/collectiing_en"
@@ -34,11 +33,14 @@
 	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"
-
+		Var Text_X = 170
 		Var posX = 270
 		
 	
 	Else
+		Var Text_X = 255
+		Var posX = 400
+
 		Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
 		Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
 	
@@ -52,17 +54,19 @@
 
     Var GetPayInfoFlag = 0
 
+	Var ReqPayWithCash = 0
+
 	Var TextWaiting = ""
 
+	GenHashWithTimeStamp PointCrm
+
 	Var text_44 = "/text_44.png"
 	Var text_show_amountInvalid = "/text_show_amountInvalid.png"
 	Var text_show_amountInvalid2 = "/text_show_amountInvalid2.png"
 
 	If SumCreditAmount < PayAmountSubDiscount Then
-		Var Text_X = 246
 		Var Min = PayAmountSubDiscount - SumCreditAmount
 	Else
-		Var Text_X = 263
 		Var Min = PayAmountSubDiscount
 	EndIf
 
@@ -150,6 +154,16 @@ If ViewBill > 0 Then
 		Open "ROOT/taobin_project/xml/page_payment_credit3-TopupQR.xml"
 	EndIf
 
+	If ReqPayWithCash = 1 Then
+		Var Seeker.CreditReferenceTmp = "" + useCreditAmount
+		Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/"
+		Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm
+
+		Var Seeker.StoreCreditFlag = 1
+		Var Seeker.CreditNotEnoughRefID = PointCrm
+		Open "ROOT/taobin_project/xml/page_payment_credit3-TopupCash.xml"
+	EndIf
+
 	Refresh
 </EventActionOk>
 
@@ -560,7 +574,14 @@ If ViewBill > 0 Then
 		Else
 			If PayCreditChannel = "cash" Then
 
-        		Open "ROOT/taobin_project/xml/page_payment_credit3-TopupCash.xml" 
+				If ReqPayWithCash = 0 Then
+					Var TelephoneNumber = Seeker.TNumberTaobinCredit
+					Var useCreditAmount = SumCreditAmount
+					Var BmiYear = useCreditAmount
+					Var GetScore = "useCredit"
+					AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
+					Var ReqPayWithCash = 1
+				EndIf
 
     		Else
 

xml/page_payment_credit3-TopupCash.xml

@@ -170,6 +170,12 @@
 			If CancelFlag = 0 Then
 				SAVELOG "ButtonCancleAlpha2  > Timeout Order."
 				
+				If ReqPayWithCash = 1 Then
+					Var BmiYear = useCreditAmount
+					Var GetScore = "useCredit"
+					AddData 24 TelephoneNumber  BmiYear PointCrm GetScore
+				EndIf
+
 				Var CancelFlag = 1
 				Var CancelCounter = 0
 				Var RemainAmountStr = "คืนเงิน"
@@ -497,6 +503,12 @@ TimerReset
         If CancelFlag = 0 Then
 			SAVELOG "ButtonCancleAlpha2  > Cancle Order."
            
+			If ReqPayWithCash = 1 Then
+				Var BmiYear = useCreditAmount
+				Var GetScore = "useCredit"
+				AddData 24 TelephoneNumber  BmiYear PointCrm GetScore
+			EndIf
+
 			Var CancelFlag = 1
 			Var CancelCounter = 0
 			If show_eng = "true" Then 

xml/page_thankyou.xml

@@ -364,6 +364,7 @@
 					Var Seeker.CurrCreditPinNum = Seeker.CoffeePinNumber
 
 					DEBUGVAR Seeker.CurrCreditAmount
+					DEBUGVAR Seeker.CreditNotEnoughRefID
 
 					If Seeker.CreditNotEnoughRefID = "" Then
 						Var CurrAmount = Seeker.CurrCreditAmount