taobin_project/xml/page_drinkfail4.xml

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xEFEDEA" </Background>
<Volume> SoundVolume </Volume>

<EventOpen>
	; On open
	
	

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

	Else
		Var DirImage = "ROOT/taobin_project/image/collectiing/"
	EndIf

	
	Var Timeout = 0
    Var GetFreeFlag = 0

    Var ShowErrorText = "Invisible"
    Var ShowWaitText = "Invisible"
    Var ShowButtonText = "Enable"

    

    DEBUGVAR TelephoneNumberProblem 


</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout> 
	
	

    Var Timeout = Timeout + 1

	

    
    If GetFreeFlag = 1 Then

        If Timeout > 240 Then

            DEBUGVAR TelephoneNumberProblem

            StrLen TelephoneNumberProblem TelNumLen
            If TelNumLen >= 10 Then  

                Var ProblemID = 7
                Var ChooseProblem = "taobin purchasing problems"

                If Seeker.PayWithQR = 1 Then
                    Var  VendingTSIDProblem = VendingTSIDTmp
                    If Seeker.CampaignPayChanel = "promptpay" Then
				        Var ProblemID = 8
				        Var ChooseProblem = "taobin purchasing problems(Void Failed)"
			        EndIf
                Else
                    Var VendingTSIDProblem = VendingTSID
                EndIf

                
                PROBLEM2  TelephoneNumberProblem ProblemID ChooseProblem VendingTSIDProblem 

            EndIf

            If MachineStage = "remove-cup" Then
                Open "ROOT/taobin_project/xml/page_drinkfail3.xml" 
            Else
                Open "ROOT/taobin_project/xml/page_back_to_main.xml" 
            EndIf
          
        EndIf

        If MachineStage = "remove-cup" Then
			
        Else
            If MachineStage = "show-menu" Then

                DEBUGVAR TelephoneNumberProblem

                StrLen TelephoneNumberProblem TelNumLen
                If TelNumLen >= 10 Then  

                    If Seeker.PayWithQR = 1 Then
                        Var  VendingTSIDProblem = VendingTSIDTmp
                    Else
                        Var VendingTSIDProblem = VendingTSID
                    EndIf

                    Var ProblemID = 7
                    Var ChooseProblem = "taobin purchasing problems(Got Free)"
                    PROBLEM2  TelephoneNumberProblem ProblemID ChooseProblem VendingTSIDProblem 

                EndIf
                Var GetFreeFromError = 1
                Var TelephoneNumberGOTFree = TelephoneNumberProblem
                Var ShowPrice = "Invisible"
                Open "ROOT/taobin_project/xml/page_catalog_free.xml" 
            EndIf
        EndIf

    Else
        If Timeout > 5 Then

            DEBUGVAR TelephoneNumberProblem

            StrLen TelephoneNumberProblem TelNumLen
            If TelNumLen >= 10 Then  

                Var ProblemID = 7
                Var ChooseProblem = "taobin purchasing problems"

                If Seeker.PayWithQR = 1 Then
                    Var  VendingTSIDProblem = VendingTSIDTmp
                    If Seeker.CampaignPayChanel = "promptpay" Then
                        Var ProblemID = 8
                        Var ChooseProblem = "taobin purchasing problems(Void Failed)"
                    EndIf
                Else
                    Var VendingTSIDProblem = VendingTSID
                EndIf

               
                PROBLEM2  TelephoneNumberProblem ProblemID ChooseProblem VendingTSIDProblem 

            EndIf

            If MachineStage = "remove-cup" Then
                Open "ROOT/taobin_project/xml/page_drinkfail3.xml" 
            Else
                Open "ROOT/taobin_project/xml/page_back_to_main.xml" 
            EndIf
        EndIf
	EndIf


    If MachineStage = "remove-cup" Then
        Var ShowErrorText = "Enable"
        Var ShowWaitText = "Invisible"
    Else
        Var ShowErrorText = "Invisible"

        If MachineStage = "show-menu" Then
           
        Else
            If GetFreeFlag = 1 Then 
                Var ShowWaitText = "Enable"
            EndIf
        EndIf

    EndIf

   


    Refresh
	TimerReset
    

</EventTimeout> 



<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>








<Image>
<X> 53 </X>
<Y> 473 </Y>
<Filename> Var( DirImage + "/img_popup13.png" )</Filename>
</Image>

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

<Image>
<X> 271 </X>
<Y> 1479 </Y>
<State> ShowErrorText </State>
<Filename> Var( DirImage + "/text_20.png" )</Filename>
</Image>

<Image>
<X> 61 </X>
<Y> 1479 </Y>
<State> ShowWaitText </State>
<Filename> Var( DirImage + "/text_24.png" )</Filename>
</Image>



<Button>
<X> 294 </X>
<Y> 1536 </Y>
<State> ShowButtonText </State>
<Filename> Var( DirImage + "/bn_door_open2.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_door_open2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

    If GetFreeFlag = 0 Then
        Var GetFreeFlag = 1
        Var Timeout = 0
        Var ShowButtonText = "Invisible"
    EndIf

    Machine RemoveCup
    Refresh
	
</EventClick>
</Button>

<Button>
<X> 294 </X>
<Y> 1677 </Y>
<State> ShowButtonText </State>
<Filename> Var( DirImage + "/bn_recieve_coupon.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_recieve_coupon.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
    
    Machine RemoveCup

    DEBUGVAR TelephoneNumberProblem

    StrLen TelephoneNumberProblem TelNumLen
	If TelNumLen >= 10 Then  


        Var ProblemID = 7
		Var ChooseProblem = "taobin purchasing problems"

		If Seeker.PayWithQR = 1 Then
			Var  VendingTSIDProblem = VendingTSIDTmp
            If Seeker.CampaignPayChanel = "promptpay" Then
				Var ProblemID = 8
				Var ChooseProblem = "taobin purchasing problems(Void Failed)"
			EndIf

		Else
			Var VendingTSIDProblem = VendingTSID
		EndIf

		
		PROBLEM2  TelephoneNumberProblem ProblemID ChooseProblem VendingTSIDProblem 

	EndIf

    If MachineStage = "remove-cup" Then
		Open "ROOT/taobin_project/xml/page_drinkfail3.xml" 
	Else
		
		Open "ROOT/taobin_project/xml/page_back_to_main.xml" 
	EndIf

</EventClick>
</Button>


</Popup>