taobin_project/xml/page_payment_credit3-TopupCode.xml

<Popup>

<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Sound> PlaySoundCodeLang </Sound>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
	; On open
	Var ECommerce = ""
	Var Seeker.FreeVendingCampaign = 0

	Var Timeout = 0
   
    Var GetPayInfoFlag = 0
    ;Var Seeker.CodeChannel = 0

	;Var VendingQRCode = "ERROR"
	;VendingQR ON
	;Var QRCODE99 = ""
	
	;CoinVending OFF
	VendingQR OFF
	
	Var ShowTextNumber = "Enable"
	Var ShowErrorText = "Invisible"
	Var Tel_Confirm_State = "Invisible"
	Var ErrorCause = ""
	Var TextWaiting = ""
	Var ReqAdddata42 = 0
	Var ReqAdddata22 = 0
	Var goBackBtnState = "Enable"

	
    If show_eng = "true" Then 
		Var DirImage = "ROOT/taobin_project/image/collectiing_en"
	Else
		Var DirImage = "ROOT/taobin_project/image/collectiing"
	EndIf

	Var CouponNumber = ""
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout> 
	;Open "ROOT/xml/page_board.xml" 


	Var Timeout = Timeout + 1
	If Timeout > 120 Then

		Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml"

	EndIf

	If ReqAdddata42 = 1 Then
		If Timeout = 3 Then

			If ReqAdddata22 = 0 Then 
				Var SumCreditAndCouponAmount = IntAmoutCoupon + SumCreditAmount
				If SumCreditAndCouponAmount < PayAmountSubDiscount Then
					Var SumCreditAmount = SumCreditAndCouponAmount
					Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml"
				Else
					GenHashWithTimeStamp PointCrm
					Var useCreditAmount = PayAmountSubDiscount
					Var BmiYear = useCreditAmount
					Var GetScore = "useCredit"
					AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
					Var ReqAdddata22 = 1
					Var Timeout = 0
				EndIf
			EndIf
		EndIf
	EndIf

	TimerReset
	Refresh
</EventTimeout> 

<EventActionOk>
	If ReqAdddata22 = 1 Then
		Var Seeker.CreditReferenceTmp = "" + useCreditAmount
		Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/"
		Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm

		CoinVending OFF
		Open "ROOT/taobin_project/xml/page_payment_credit3-TopupSuccess.xml" 
	EndIf

    If Seeker.CodeChannel = 1 Then

		SAVELOG "Seeker.CodeChannel 1 > ActOK."

		DEBUGVAR ECommerce
		SAVELOG ECommerce

		SPLIT  ECommerce "/"  5  CampaignID
		SPLIT  ECommerce "/"  6  CampaignCode
	    SPLIT  ECommerce "/"  7  AmoutCoupon

		Var IntAmoutCoupon = AmoutCoupon
		INT IntAmoutCoupon

		If IntAmoutCoupon > 0 Then
			DEBUGVAR AmoutCoupon
			DEBUGVAR CampaignID
			DEBUGVAR CampaignCode
			Var PayAmount = AmoutCoupon
			Var CreditAmount = AmoutCoupon
			DEBUGVAR CreditAmount

			AddData 42 TelephoneNumber CampaignCode CampaignID AmoutCoupon

			Var Timeout = 0
			Var ReqAdddata42 = 1
			Var ReqAdddata22 = 0
		Else
			Var ShowErrorText = "Enable"
			Var goBackBtnState = "Enable"
			Var text_show_error = DirImage + "/text_show_error.png"
			Var GetPayInfoFlag = 0
			;Var Seeker.CodeChannel = 0
		EndIf

	EndIf

</EventActionOk>

<EventActionError>
  If Seeker.CodeChannel = 1 Then
		Var CouponNumber = ""
		Var TextWaiting = ""
		Var goBackBtnState = "Enable"
		
		Var ShowErrorText = "Enable"

		SAVELOG ShowErrorText

		Var text_show_error = DirImage + "/text_show_error2.png"

		If ErrorCause = "failed_fromoper_0002" Then
			Var text_show_error = DirImage + "/text_show_error.png"
		EndIf

		If ErrorCause = "failed_fromoper_0005" Then
			Var text_show_error = DirImage + "/text_show_error3.png"
		EndIf

		If ErrorCause = "failed_fromoper_0006" Then
			Var text_show_error = DirImage + "/text_show_error4.png"
		EndIf
		
		If ErrorCause = "failed_fromoper_0007" Then
			Var text_show_error = DirImage + "/text_show_error7.png"
		EndIf

		If ErrorCause = "failed_fromoper_0008" Then
			Var text_show_error = DirImage + "/text_show_error8.png"
		EndIf

		Var GetPayInfoFlag = 0
   		;Var Seeker.CodeChannel = 0
		Var Tel_Confirm_State = "Disable"
		Refresh
	EndIf

</EventActionError>



<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>


<Image>
<X> 158 </X>
<Y> 601 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/img_popup1.png" </Filename>
</Image>


<Button>
<X> 263 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0
	Var CouponNumber = CouponNumber + "1"
	Var ShowTextNumber = "Invisible"
	Trim CouponNumber 8

	TimerReset
	Refresh
	StrLen CouponNumber CodeNumLen
	If CodeNumLen >= 8 Then 
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 405 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0
	Var CouponNumber = CouponNumber + "2"
	Var ShowTextNumber = "Invisible"
	Trim CouponNumber 8

	TimerReset
	Refresh
	StrLen CouponNumber CodeNumLen
	If CodeNumLen >= 8 Then 
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 547 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_3.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0
	Var CouponNumber = CouponNumber + "3"
	Var ShowTextNumber = "Invisible"
	Trim CouponNumber 8

	TimerReset
	Refresh
	StrLen CouponNumber CodeNumLen
	If CodeNumLen >= 8 Then 
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 691 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_A.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_A.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0
	Var CouponNumber = CouponNumber + "A"
	Var ShowTextNumber = "Invisible"
	Trim CouponNumber 8

	TimerReset
	Refresh
	StrLen CouponNumber CodeNumLen
	If CodeNumLen >= 8 Then 
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 263 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_4.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0
	Var CouponNumber = CouponNumber + "4"
	Var ShowTextNumber = "Invisible"
	Trim CouponNumber 8

	TimerReset
	Refresh
	StrLen CouponNumber CodeNumLen
	If CodeNumLen >= 8 Then 
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 405 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_5.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0
	Var CouponNumber = CouponNumber + "5"
	Var ShowTextNumber = "Invisible"
	Trim CouponNumber 8

	TimerReset
	Refresh
	StrLen CouponNumber CodeNumLen
	If CodeNumLen >= 8 Then 
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 547 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_6.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0
	Var CouponNumber = CouponNumber + "6"
	Var ShowTextNumber = "Invisible"
	Trim CouponNumber 8

	TimerReset
	Refresh
	StrLen CouponNumber CodeNumLen
	If CodeNumLen >= 8 Then 
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 691 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_B.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_B.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0
	Var CouponNumber = CouponNumber + "B"
	Var ShowTextNumber = "Invisible"
	Trim CouponNumber 8

	TimerReset
	Refresh
	StrLen CouponNumber CodeNumLen
	If CodeNumLen >= 8 Then 
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 263 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_7.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0
	Var CouponNumber = CouponNumber + "7"
	Var ShowTextNumber = "Invisible"
	Trim CouponNumber 8

	TimerReset
	Refresh
	StrLen CouponNumber CodeNumLen
	If CodeNumLen >= 8 Then 
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 405 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_8.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0
	Var CouponNumber = CouponNumber + "8"
	Var ShowTextNumber = "Invisible"
	Trim CouponNumber 8

	TimerReset
	Refresh
	StrLen CouponNumber CodeNumLen
	If CodeNumLen >= 8 Then 
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 547 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_9.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0
	Var CouponNumber = CouponNumber + "9"
	Var ShowTextNumber = "Invisible"
	Trim CouponNumber 8

	TimerReset
	Refresh
	StrLen CouponNumber CodeNumLen
	If CodeNumLen >= 8 Then 
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 691 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_C.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_C.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0
	Var CouponNumber = CouponNumber + "C"
	Var ShowTextNumber = "Invisible"
	Trim CouponNumber 8

	TimerReset
	Refresh
	StrLen CouponNumber CodeNumLen
	If CodeNumLen >= 8 Then 
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 405 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_0.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0
	Var CouponNumber = CouponNumber + "0"
	Trim CouponNumber 8

	StrLen CouponNumber CodeNumLen
	If CodeNumLen >= 8 Then 
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowTextNumber = "Invisible"

	TimerReset
	Refresh
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 263 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_sh.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_sh.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0
	;Var CouponNumber = CouponNumber + "0"
	Trim CouponNumber 8
	StrLen CouponNumber CodeNumLen
	If CodeNumLen = 0 Then 
		Var ShowTextNumber = "Invisible"
		Var Mode# = 1
		Var Str# = "#"

	EndIf
	
	TimerReset
	Refresh
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>


<Button>
<X> 547 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_back-1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0

	Var Tel_Confirm_State = "Invisible"
	
	StrLen CouponNumber CodeNumLen
	If CodeNumLen > 0 Then 
		Trim CouponNumber  -1
		If CodeNumLen = 1 Then 
			Var ShowTextNumber = "Enable"
		EndIf
	Else
		Var ShowTextNumber = "Enable"
	EndIf

	;Var ShowErrorText = "Invisible"
	TimerReset
	Refresh
</EventClick>
</Button>


<Button>
<X> 218 </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_back.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_back.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_back.png") </FilenameDisable>
<State> goBackBtnState </State>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	If goBackBtnState = "Enable" Then
		Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml" 
	EndIf
</EventClick>
</Button>


<Button>
<X> 577 </X>
<Y> 1607 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

		

	If UnitTestType = "2" Then
		If CouponNumber = "00000001" Then
			Var ShowErrorText = "Enable"
		EndIf
	Else
		If CouponNumber = "00000002" Then
			Var ShowErrorText = "Enable"
		EndIf
		If CouponNumber = "99999999" Then
			Var ShowErrorText = "Enable"
		EndIf

		

	    If GetPayInfoFlag = 0 Then
			Var GetPayInfoFlag = 1

			VendingQR OFF

			Var RemainAmount = 0
			;PrepareDrink SelectDrink SelectSugarID

			Var SessionID2 = SelectSlot + ":"
			Var SessionID2 = SessionID2 + Seeker.ExtendData

			Var CreditAmount1 = ""
			Var ServiceAmountFlow = ""
			Var TelephoneNumber2 = "0899999999"
			Var ServiceType = "coffee"
			Var ECommerce = ""
			Var ECommerce = ECommerce + "0"
			Var ECommerce = ECommerce + "/"
			Var ECommerce = ECommerce + "0"
			Var ECommerce = ECommerce + "/"
			Var ECommerce = ECommerce + "1"
			Var ECommerce = ECommerce + ":"
			Var ECommerce = ECommerce + "000001"

			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + "00-00-00-0000" 
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + "C00" 
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + CouponNumber 
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + "A"

			Var ServiceParameter = "max"
			Var ServiceCharge = 0
			Var AccountType = "new"
			Var testservice = "kbank"
			Var tc = ""
			Var GetScore = ""
			Var OperatorName = ""
			Var SessionID = ""


			GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
			Var Timeout = 0

			If show_eng = "true" Then 
				Var TextWaiting = "Please wait..."
			Else
				Var TextWaiting = "กรุณารอซักครู่..."
			EndIf

			Var goBackBtnState = "Disable"
			
	        Var Seeker.CodeChannel = 1
		EndIf

	EndIf
	
	SAVELOG ShowTextNumber
    Refresh
	
</EventClick>
</Button>

<Image>
<X> 217 </X>
<Y> 802 </Y>
<Filename> Var( DirImage + "/img3.png" ) </Filename>
</Image>

<Image>
<X> 244 </X>
<Y> 816 </Y>
<State> ShowTextNumber </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_12.png" )</Filename>
</Image>


<Text>
<X> 0 </X>
<Y> 817 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> CouponNumber </Value>
</Text>


	

<Image>
<X> 188 </X>
<Y> 636 </Y>
<Filename> Var( DirImage + "/text_11.png" )</Filename>
</Image>

<Image>
<X> 152 </X>
<Y> 935 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename> text_show_error </Filename>
</Image>

<Text>
<X> 5 </X>
<Y> 940 </Y>
<Refresh> "Enable" </Refresh>
<Size> 30 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> RobotoRegular </Font>
<Color> 0xFF0000 </Color>
<Value> TextWaiting </Value>
</Text>

;include="ROOT/taobin_project/inc/video.inc"


			
<EventSecurity> 
	Open "/media/bt/xml/security_alarm.xml" 
</EventSecurity>


</Popup>