Public Sub ini(ch)
'初始化入口，准备放音同时设置初始化子状态
                promote ch,"lang.wav"
            Let_Subwstatus ch, "ini"  '初始化子状态
            Let_prop ch, "ini_gather", "" '初始化的按键收集变量
End Sub




Public Sub get_action(ch, myevent, subwstatus, para)

    Select Case myevent

      Case "timeout":
        adddebug ch, "超时放音后挂断"
        PlayTtsRefile "timeout.wav", ch
        over2hangup ch

      Case "DTMF": '有按键
        Select Case subwstatus
          Case "ini": '初始化状态

            Select Case para
              Case "1":
                promote ch, "welcome.tw"
                Let_Subwstatus ch, "qiyei" '继续使用该状态缺省

              Case "2":

                promote ch, "wuliuwelcome.tw"
                Let_Subwstatus ch, "qiyei" '继续使用该状态缺省

              Case Else:

           

        End Select

      Case "qiyei": '播放企业代码

        Select Case para
          Case "#":

            '准备播放企业欢迎
            If (Len(Get_prop(ch, "ini_gather")) = 4) Then '四位企业代码
                promote ch, Get_prop(ch, "ini_gather") + ".tw"
                Let_Subwstatus ch, "fwgather" '状态迁移到防伪物流选择
                Let_prop ch, "ini_gather", "" '设置的按键收集变量

            Else

                testmain (ch)

            End If

          Case "*":
            '星号就是重新输入
            promote ch, "welcome.tw"
            Let_Subwstatus ch, "qiyei" '继续使用该状态

          Case Else:

            If 1 Then      ' CInt(Chr(DTMFString(0))) > 47 And Chr(DTMFString(0)) < 58 Then '

               let_prop ch, "ini_gather", Get_prop(ch, "ini_gather") + para
                adddebug ch, Get_prop(ch, "ini_gather")

                Let_Subwstatus ch, "qiyei" '继续使用该状态缺省

                If (Len(Get_prop(ch, "ini_gather")) > 19) Then '20最大数量收到
                    testmain (ch)
                End If

            End If

        End Select

      Case "fwgather": '防伪收集

        Select Case para
          Case "#":

            '准备播放企业欢迎
            testmain (ch)

          Case "*":
            '星号就是重新输入
            promote ch, "welcome.tw"
            Let_Subwstatus ch, "qiyei" '继续使用该状态

          Case Else:

            If 1 Then      ' CInt(Chr(DTMFString(0))) > 47 And Chr(DTMFString(0)) < 58 Then '

                let_prop ch, "ini_gather",Get_prop(ch, "ini_gather") + para
                adddebug ch, Get_prop(ch, "ini_gather")

                Let_Subwstatus ch, "fwgather" '继续使用该状态缺省

                If (Len(Get_prop(ch, "ini_gather")) > 19) Then '20最大数量收到
                    '准备播放企业欢迎
                    promote ch, Get_prop(ch, "ini_gather") + ".tw"
                    Let_Subwstatus ch, "gather" '状态迁移到防伪物流选择

                End If

            End If

        End Select

    



    End Select ' select for subWstatus工作状态

End Select ' select for event

End Sub


Public Sub checkheadblack(ch)
Dim headdd
headdd = Get_prop(ch, "ini_gather")
    If len(headdd) = 6 Then ' 头部挂断名单
        
        adddebug ch, "头部" + headdd
        If isheadblack(headdd) Then
            adddebug ch, "头部直接挂断黑名单"
            writelogresult "c:\hei.txt", Chcallerid(ch)
            'Commandbalck_Click
            over2hangup ch
        Else
            adddebug ch, "非一次名单"
        End If
    End If

End Sub