new payment

xml/process/addpoint.ev

@@ -0,0 +1,132 @@
+
+
+	Var AddData = 1
+
+	DEBUGVAR Seeker.TNumberTaobinMember 
+	DEBUGVAR Seeker.PointTaobinStr
+
+	If Seeker.TNumberTaobinCredit = "" Then
+		Var TelephoneNumber = "0899999999"
+		Var PayO2 = ""
+
+		If Seeker.TNumberTaobinMember = "" Then
+			Var AddData = 0
+		Else
+			Var TelephoneNumber = Seeker.TNumberTaobinMember
+		EndIf
+				
+	Else
+		Var TelephoneNumber = Seeker.TNumberTaobinCredit
+		Var PayO2 = Seeker.CoffeePinNumber
+	EndIf
+
+
+	If Seeker.VendingCode = "MKFOO" Then
+		Var AddData = 0
+	EndIf 
+
+	If MyMintEnable = 1 Then
+		If FromMyMintPro = 1 Then
+			Var AddData = 0
+		EndIf
+	EndIf
+
+	If ProBadValentineEnable = 1 Then
+		If FromBadValentinePro = 1 Then
+			Var AddData = 0
+		EndIf
+	EndIf
+
+	DEBUGVAR Seeker.CodeChannel
+	DEBUGVAR Seeker.CollectPointMain
+	DEBUGVAR LipitPro
+	DEBUGVAR FromLipitPro
+	If LipitPro = 1 Then
+		If FromLipitPro = 1 Then
+			If Seeker.CodeChannel = 1 Then
+				If Seeker.CollectPointMain = 0 Then
+					Var AddData = 0
+				EndIf
+			EndIf
+		EndIf
+	EndIf
+
+	DEBUGVAR FromPowerUpPro
+	If FreeEnergyDrink = 1 Then
+		If FromPowerUpPro = 1 Then
+				; AddData
+
+			; +1 in quota in this id card
+			Var Param1 = ""
+			Var Param2 = ""
+			Var Param3 = ""
+
+			If IDNum = "" Then
+
+			Else
+				AddData 44 TelephoneNumber IDNum Param1 Param2
+			EndIf
+
+			; clear id
+			Var IDNum = ""
+			Var FromPowerUpPro = 0
+			Var AddData = 0
+			Var DisableFromPowerup = "true"
+		Else
+			Var DisableFromPowerup = ""
+		EndIf
+	EndIf
+
+	If EnergyDrink1BathPro = 1 Then
+		If FromEnergyDrink1BathPro = 1 Then
+			SAVELOG "Adding Energy drink 1 Bath pro quota"
+			Var Param1 = ""
+			Var Param2 = ""
+			Var Param3 = ""
+
+			If IDNum = "" Then
+
+			Else
+				AddData 44 TelephoneNumber IDNum Param1 Param2
+			EndIf
+
+			; clear id
+			Var IDNum = ""
+			Var FromEnergyDrink1BathPro = 0
+			Var AddData = 0
+			Var DisableFromPowerup = "true"
+		Else
+			Var DisableFromPowerup = ""
+		EndIf
+	EndIf
+
+	Var PointCrm = ""
+	If Seeker.FromConsent = 1 Then 
+		Var PointCrm = "pdpa1"
+	EndIf
+
+	If Seeker.PayWithQR = 1 Then
+		Var GetScore = Seeker.VendingTSID
+	Else
+		Var GetScore = ""
+	EndIf 	
+
+	If AddData = 1 Then
+		Var Cid = 26
+		DEBUGVAR "Befor Brewing3"
+		DEBUGVAR Seeker
+		DEBUGVAR Seeker.UseGet15Discount
+		If NewCollectPoint = 1 Then
+			If Seeker.UseGet15Discount = 1 Then
+				Var Cid = 39
+			Else
+				Var Cid = 40
+				Var PreviousSeeker.UseGetDrink5Bath = 0
+			EndIf
+		EndIf
+
+		AddData Cid Seeker.TNumberTaobinMember  Seeker.PointTaobinStr PointCrm GetScore
+	EndIf
+
+
+

xml/process/payext_setup.ev

@@ -0,0 +1,7 @@
+
+Var SVT = "coffee"
+Var ACC = TelephoneNumber
+Var DEE = PayDetail
+
+Var PayDetail2 = Seeker.PayDetail2
+PAYEXT_SETUP SVT ACC Seeker.VendingTSID Seeker.ORDER_ID

xml/process/payment.ev

@@ -0,0 +1,96 @@
+
+
+
+	If Seeker.PayWithQR = 1 Then
+		;pay credit if coinAmount > 0
+
+		Var ServiceAmount2 = Seeker.ServiceAmount2
+		Var CreditReference = ""
+		Var TxReference = ""
+		Var VendingDiscount = 0
+		Var VendingCampaign = 0
+		Var SelectDrink = Seeker.selected_a_drink
+		Var SuggestID  = ""
+
+		If ChangeFlag2 = 1 Then
+			Var TelephoneNumber = "0899999999"
+			Var PayO2 = ""
+			Var ServiceType = "credit"
+			Var SessionID2 = SelectDrink
+			Var ServiceCredit = "coffee"
+			Var PayDetail = ""
+			Var PayDetail2 = ""
+			Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
+						
+		Else
+
+			If Seeker.StoreCreditFlag = 1 Then
+				Var TelephoneNumber = Seeker.TNumberTaobinCredit
+				Var PayO2 = Seeker.CoffeePinNumber
+				Var ServiceType = "credit"
+				Var SessionID2 = SelectDrink
+				Var ServiceCredit = "coffee"
+				Var PayDetail = ""
+				Var PayDetail2 = ""
+				Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
+									
+			EndIf
+		EndIf
+					
+		TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev"
+
+	Else
+
+		TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev"
+
+		Var SelectDrink = Seeker.selected_a_drink
+		Var ExtendData = Seeker.ExtendData
+		Var ServiceAmount2 = Seeker.ServiceAmount2
+		Var SessionID2 = SelectSlot + ":"
+		Var SessionID2 = SessionID2 + ExtendData
+
+		Var CreditReference = Seeker.CreditReferenceTmp
+		Var VendingDiscount = Seeker.VendingDiscount
+		Var VendingCampaign = Seeker.VendingCampaign
+		Var TxReference = Seeker.TxRef1
+		Var VendingOrderID = Seeker.ORDER_ID
+
+		Var ServiceType = "coffee-payment"
+		Var ServiceCredit = SelectDrink
+		Var SuggestID  = ""
+
+		Var PayDetail = "2/S:0/0//XML|" +  Seeker.OrderChanel
+
+		If GetFreeFromError = 1 Then
+			Var Seeker.CodeChannel = 1 
+			Var Seeker.VendingCode = "FAU"
+			Var Seeker.CodeNumber = "0000000000"
+			Var VendingCampaign = ServiceAmount2
+		EndIf
+
+		If Seeker.CodeChannel = 1 Then
+			Var SessionID2 = SessionID2 + "/"
+			Var SessionID2 = SessionID2 + ""
+			Var SessionID2 = SessionID2 + "/"
+			Var SessionID2 = SessionID2 + Seeker.VendingCode
+			Var SessionID2 = SessionID2 + "/"
+			Var SessionID2 = SessionID2 + SelectDrink
+			Var SessionID2 = SessionID2 + "/"
+			Var SessionID2 = SessionID2 + BoxID
+			Var SessionID2 = SessionID2 + "/"
+			Var SessionID2 = SessionID2 + "S"
+			Var SessionID2 = SessionID2 + "/"
+			Var SessionID2 = SessionID2 + Seeker.CodeNumber
+			Var SessionID2 = SessionID2 + "/"
+
+						
+			Var PayDetail2 = Seeker.PayDetail2
+			Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
+		Else
+						
+		
+			Var PayDetail2 = Seeker.PayDetail2
+			Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
+						
+		EndIf
+	EndIf