PC & Mediji 2002 March/PCM_0203.iso/MEDIA/PREIZKUSNI/WinIVR.msi/Instal01.cab/_F361F25C455F4D37834F4967B0ABDFCA

Text File | 2002-01-29 | 3KB | 122 lines

object IVRVar
  object IVRDataBase
    Name = 'GetCalledID'
    ConnectionString = 'FILE NAME=AutoDial.udl'
    CommandText =
      'select * from called where HasAnswered=false order by CallingTim' +
      'es'
  end
  object IVRDataBase
    Name = 'OperateCalledID'
    ConnectionString = 'FILE NAME=AutoDial.udl'
    CommandType = cmdText
    CommandText =
      'Update Called set CallingTimes=:CallingTimes where CalledID=:Cal' +
      'ledID'
  end
  object IVRVariant
    Name = 'CalledCount'
  end
  object IVRVariant
    Name = 'AllHasAnswered'
  end
  object IVRVariant
    Name = 'CalledID'
  end
  object IVRVariant
    Name = 'CallingTimes'
  end
end
object IVRBegin
  object IVRDBOperate
    DataBase = 'GetCalledID'
    Operate = dbOpen
    Save = 'CalledCount'
  end
  object IVROperator
    Save = 'AllHasAnswered'
    Operate = optEquality
    Source = 0
    Dest = 'CalledCount'
  end
  object IVRIf
    Condition = 'AllHasAnswered'
    object IVRTrue
      object IVRSleep
        Interruptible = True
        MaxLength = 0
      end
    end
    object IVRFalse
    end
  end
  object IVRField
    DataBase = 'GetCalledID'
    Field = '"CalledID"'
    Save = 'CalledID'
  end
  object IVRField
    DataBase = 'GetCalledID'
    Field = '"CallingTimes"'
    Save = 'CallingTimes'
  end
  object IVRDBOperate
    DataBase = 'GetCalledID'
    Operate = dbClose
  end
  object IVROperator
    Save = 'CallingTimes'
    Operate = optAdd
    Source = 1
    Dest = 'CallingTimes'
  end
  object IVRParam
    DataBase = 'OperateCalledID'
    Param = '"CallingTimes"'
    Value = 'CallingTimes'
  end
  object IVRParam
    DataBase = 'OperateCalledID'
    Param = '"CalledID"'
    Value = 'CalledID'
  end
  object IVRDBOperate
    DataBase = 'OperateCalledID'
    Operate = dbExecute
  end
  object IVRCall
    Called = 'CalledID'
    TimeOut = 20
    CalledType = ctPhoneNumber
  end
  object IVRSwitch
    Condition = 'Result'
    object IVRCase
      Condition = '"returnSUCCESS"'
      object IVRCommand
        DataBase = 'OperateCalledID'
        CommandText = '"Update Called set HasAnswered=true where CalledID=:Called"'
        CommandType = cmdText
      end
      object IVRParam
        DataBase = 'OperateCalledID'
        Param = '"Called"'
        Value = 'CalledID'
      end
      object IVRDBOperate
        DataBase = 'OperateCalledID'
        Operate = dbExecute
      end
      object IVRPlay
        Note = 'Play content: This is a greeting, goodbye'
        Interruptible = True
        WavFile = '"Greeting.wav"'
      end
    end
    object IVRDefault
    end
  end
end
object IVREnd
end