taobin_project/xml/page_payment_credit3-TopupCash.xml

<Popup>

<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>

<Volume> SoundVolume </Volume>
<EventOpen>
	; On open

    Var Timeout = 0

	;inter-multi
	If show_eng = "true" Then 
		If LanguageShow = "MYANMAR" Then 
			SetLanguage "MYANMAR"
		Else 
			If LanguageShow = "MSC" Then
				SetLanguage "MSC"
			Else
				SetLanguage "ENG"
			EndIf
		EndIf
	Else
		SetLanguage "THAI"
	EndIf


    Var alphaState = "Invisible"
	Var alphaState2 = "Enable"

	Var alphaState3 = "Invisible"
	Var confirmButtonState = "Invisible"

	Var img_popup11 = "/img_popup11.png"
	Var img_popup15 = "/img_popup15.png"

	;inter-image
    If CountryName = "Malaysia" Then
		Var img_popup11 = "/img_popup11-MYR.png"
		Var img_popup15 = "/img_popup15-MYR.png"
	EndIf

	;inter-image
	If CountryName = "Indonesia" Then
		Var img_popup11 = "/img_popup11-IDR.png"
		Var img_popup15 = "/img_popup15-IDR.png"
	EndIf

	;inter-image
    If CountryName = "Singapore" Then
		Var img_popup11 = "/img_popup11-SGP.png"
		Var img_popup15 = "/img_popup15-SGP.png"
	EndIf

	;inter-image
    If CountryName = "HongKong" Then
		Var img_popup11 = "/img_popup11-HKG.png"
		Var img_popup15 = "/img_popup15-HKG.png"
	EndIf

	;inter-image
	If CountryName = "Australia" Then
		Var img_popup11 = "/img_popup11-AUS.png"
		Var img_popup15 = "/img_popup15-AUS.png"
	EndIf

    
    
	Var CreditAmount = SumCreditAmount
	Var RemainAmountStr !assigned StringFmt( CreditAmount, DisplayFormat, PreScaleConvertShow )
	Var showRemaining = charOfBaht + RemainAmountStr


    Var CoinInFlag = 0
    Var CoinInOK = 0
    Var ChangeOK = 0
    Var PayOK = 0
	Var CancelFlag = 0
	Var ChangeFlag2 = 0

	Var ChangeTimeout = 0
	Var CancelCounter = 0


    Var ServiceAmount2 = CreditAmount
    Var ServiceCharge = 0
	Var	Donate = ""
	Var SuggestID  = ""

    Var Seeker.StoreCreditFlag = 0

	Var DrinkAmountStr !assigned StringFmt( PayAmountSubDiscount, DisplayFormat, PreScaleConvertShow )

	Var NamePriceShow = showname + " "
	Var NamePriceShow = NamePriceShow + DrinkAmountStr

	Var warning_price_state = "Enable"

	If CoinAmount > 0 Then

		Var SumAmount = CreditAmount + CoinAmount


		If SumAmount >= PayAmountSubDiscount Then
			Var confirmButtonState = "Enable"
			Var alphaState2 = "Invisible"
			Var warning_price_state = "Invisible"
		Else
			Var warning_price_state = "Enable"
		EndIf

		Var RemainAmountStr !assigned StringFmt( SumAmount, DisplayFormat, PreScaleConvertShow )
		Var showRemaining = charOfBaht + RemainAmountStr

	EndIf


</EventOpen>
<EventLanguageOnChange>
	DEBUGVAR LanguageShow

	;inter-image
	If LanguageShow = "ENG" Then
		Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
		Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
		Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
		Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
		Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
		
	EndIf

	If LanguageShow = "THAI" Then
		Var DirImage = "ROOT/taobin_project/image/page_payment"
		Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
		Var page_doing_show_time_image = "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"
		
	EndIf

	If LanguageShow = "MYANMAR" Then
		Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
		Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
    EndIf

	If LanguageShow = "MSC" Then
		Var DirImage = "ROOT/taobin_project/image/page_payment_msc/page_payment"
		Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_msc"
    EndIf

	SAVELOG "EventLanguageOnChange menu -list"

    If InternationalEnable = 1 Then
		If CountryName = "Thailand" Then
			Var show_eng_button_stage = "Invisible"
			Var LanguageButtonEnable = "Enable"
		EndIf
	Else
		Var LanguageButtonEnable = "Invisible"
		Var show_eng_button_stage = "Enable"
	EndIf


    OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
    RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>

	Var Timeout = Timeout + 1
	If Timeout > 180 Then
		If CoinInOK = 0 Then
			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
				If CoinAmount = 0 Then
					;inter-multi
					If show_eng = "true" Then 
						If LanguageShow = "MYANMAR" Then 
							SetLanguage "MYANMAR"
						Else 
							If LanguageShow = "MSC" Then
								SetLanguage "MSC"
							Else
								SetLanguage "ENG"
							EndIf
						EndIf
					Else
						SetLanguage "THAI"
					EndIf
				Else
					;inter-multi
					If show_eng = "true" Then 
						If LanguageShow = "MYANMAR" Then 
							SetLanguage "MYANMAR"
						Else 
							If LanguageShow = "MSC" Then
								SetLanguage "MSC"
							Else
								SetLanguage "ENG"
							EndIf
						EndIf
					Else
						SetLanguage "THAI"
					EndIf

					CoinVending BILLSTACKALL
				EndIf
			EndIf
		EndIf
	EndIf

	If ChangeOK = 1 Then

		If CancelFlag = 0 Then
			Var CreditAmount = CreditAmount + CoinAmount
			Var ServiceAmount2 = CreditAmount
			Open "ROOT/taobin_project/xml/page_payment_credit3-TopupSuccess.xml"
		Else

			Var payCreditFlag = 0
			If CoinAmount > 0 Then
				Var payCreditFlag = 1
			EndIf
			If ChangeFlag2 = 1 Then
				Var payCreditFlag = 1
			EndIf

            If payCreditFlag = 1 Then

                Var TelephoneNumber = Seeker.TNumberTaobinCredit
                Var PayO2 = Seeker.CoffeePinNumber
				Var ServiceAmount2 = CoinAmount

                Var VendingDiscount = 0
                Var VendingCampaign = 0
                Var ServiceType = "credit"
                Var SessionID2 = "00-00-00-0000"
                Var ServiceCredit = "coffee"

                Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
                Var PayCredit = 1

				CoinVending OFF

                If Seeker = "curr" Then
                    Open "ROOT/taobin_project/xml/page_catalog.xml"
                Else
                    Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
                EndIf
            Else

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

            EndIf

		EndIf
	Else

	EndIf

	If PayOK = 1 Then
		Var ChangeTimeout = ChangeTimeout + 1
		If ChangeTimeout > 30 Then
			Var ChangeOK = 1
		EndIf
	EndIf

	If CoinInOK = 1 Then
		Var CoinInCounter = CoinInCounter + 1
		If CoinInCounter = 1 Then
			Var PayOK = 1

			If CoinAmount > 0 Then
				Var ChangeOK = 1
			EndIf
		EndIf
	EndIf

	If CancelFlag = 1 Then

		Var CancelCounter = CancelCounter + 1
		If CancelCounter = 2 Then
			Var ChangeOK = 1
		EndIf

		Var ChangeTimeout = ChangeTimeout + 1
		If ChangeTimeout > 30 Then
			Var ChangeOK = 1
		EndIf

	EndIf

	TimerReset
	Refresh
</EventTimeout>

<EventChangeStatus>
	If ChangeStatus = "payout-end" Then
		If ChangeFlag2 = 1 Then
			Var ChangeOK = 1
		EndIf
	EndIf
</EventChangeStatus>

<EventCoin>
	TimerReset

	Var CoinInFlag = 1

	DEBUGVAR ViewBill
	Var SumAmount = CreditAmount + CoinAmount
	If SumAmount >= PayAmountSubDiscount Then
		Var confirmButtonState = "Enable"
		Var alphaState2 = "Invisible"
		Var warning_price_state = "Invisible"
	Else
		Var warning_price_state = "Enable"
	EndIf

	If ViewBill > 0 Then

		CoinVending BILLSTACKALL

		Var Timeout = 0

		Var RemainAmountStr !assigned StringFmt( SumAmount, DisplayFormat, PreScaleConvertShow )
		Var showRemaining = charOfBaht + RemainAmountStr

	Else


		If CoinInOK = 0 Then

			Var Timeout = 0

			Var RemainAmountStr !assigned StringFmt( SumAmount, DisplayFormat, PreScaleConvertShow )
			Var showRemaining = charOfBaht + RemainAmountStr

		EndIf

	EndIf




	Refresh
</EventCoin>


<EventActionOk>



	Refresh
</EventActionOk>

<EventActionError>

   Refresh
</EventActionError>

<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp  </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>

</EventClick>
</Button>



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


<Image>
<X> 182 </X>
<Y> 748 </Y>
<Filename> Var( DirImage2 + img_popup11 )</Filename>
</Image>




<Text>
<X> 0 </X>
<Y> 1041 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> RemainAmountStr </Value>
</Text>

<Text>
<X> 253 </X>
<Y> 1254 </Y>
<Size> 20 </Size>
<Width> 375 </Width>
<Font> KanitRegularTTF </Font>
<State> warning_price_state </State>
<Color> 0xE4202B </Color>
<Value>
	eval(
		If show_eng = "true" Then
			;inter-text
			If LanguageShow = "MYANMAR" Then
				Var return = "*ပမာဏသည် စျေးနှုန်းနှင့် တူညီရမည်"
			Else
				If LanguageShow = "MSC" Then
					Var return = "*金额必须等于或超过价格。"
				Else
					Var return = "*Amount must equal or exceed price."
				EndIf
			EndIf
		Else
			Var return = "*จำนวนเงินต้องเท่ากับหรือมากกว่าราคาสินค้า"
		EndIf
	)
 </Value>
</Text>

<Text>
<X> 253 </X>
<Y> 1295 </Y>
<Size> 25 </Size>
<Align> Right </Align>
<Width> 500 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> NamePriceShow </Value>
</Text>



<Button>
<X> 330 </X>
<Y> 1355 </Y>
<Filename> Var( DirImage + "/bn_cancel3.png" )</Filename>
<FilenamePress> Var( DirImage + "/bn_cancel3.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>

	If CoinInOK = 0 Then
        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 CancelCounter = 0
			Var CancelFlag = 1
			If CoinAmount = 0 Then
				If show_eng = "true" Then
					;inter-text
					If LanguageShow = "MYANMAR" Then
						Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
					Else
						If LanguageShow = "MSC" Then
							Var RemainAmountStr = "已取消"
						Else
							Var RemainAmountStr = "Cancelled"
						EndIf
					EndIf
				Else
					Var RemainAmountStr = "ยกเลิก"
				EndIf
			Else
				If show_eng = "true" Then
					;inter-text
					If LanguageShow = "MYANMAR" Then
						Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
					Else
						If LanguageShow = "MSC" Then
							Var RemainAmountStr = "保存余额"
						Else
							Var RemainAmountStr = "Keep credit"
						EndIf
					EndIf
				Else
					Var RemainAmountStr = "เก็บเครดิต"
				EndIf

				CoinVending BILLSTACKALL
			EndIf



			Refresh
        EndIf
	EndIf


	Refresh

</EventClick>
</Button>

<Button>
<X> 330 </X>
<Y> 1355 </Y>
<State> confirmButtonState </State>
<Filename> Var( DirImage + "/bn_confirm2.png" ) </Filename>
<FilenamePress> Var( DirImage + "bp_confirm2.png" ) </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	If CoinInOK = 0 Then
		SAVELOG "ButtonConfirm"
		CoinVending OFF
		Var CoinInOK = 1
		Var CoinInCounter = 0
	EndIf
</EventClick>
</Button>

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

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

</Popup>