MYS: add support for v1 credit card case void

inter/mys/xml/page_brewing3_event.lxml

@@ -2,6 +2,11 @@
 
 	If CreditCardVoid = 1 Then
 		Var ChangeOK = 2
+		; check-if-void-switch-finish
+		READ_FILE "/mnt/sdcard/app_run_flag"" AppRunFlagState
+
+		STRCONTAIN "1" AppRunFlagState HasResumePreventFlag
+
 	EndIf
 
 
@@ -379,7 +384,31 @@
 		EndIf
 	EndIf
 
-	If  ChangeTimeout > 30 Then
+	; void-credit
+	DEBUGVAR HasResumePreventFlag
+	DEBUGVAR ChangeOK
+	DEBUGVAR CreditCardVoid
+
+	If CreditCardVoid = 1 Then
+
+	    If HasResumePreventFlag = "true" Then
+
+    	Else
+            DEBUGVAR "HasResumePreventFlag>false"
+            If ChangeOK = 2 Then
+        	   ; speed-up-timeout
+                Var ChangeTimeout = 21
+                Var HasResumePreventFlag = "true"
+                DEBUGVAR "Recv void ok, time left 10, ChangeTimeout=21"
+            EndIf
+    	EndIf
+
+	EndIf
+
+
+
+    DEBUGVAR ChangeTimeout
+	If  ChangeTimeout > 20 Then
 		If ActionOKCase = 0 Then
 			If Seeker.TNumberTaobinCredit = "" Then
 				Var TelephoneNumber = "0899999999"