Iniciando o menu de atendimento
|
Início Anterior Próximo |
Digivoice à Bom Dia à Disque o número do ramal ....
|
|
procedure TForm1.voice1AfterPickUp(Sender: TObject; Port:
|
Smallint);
|
begin
|
//muda o estado
|
Estado[Port] := BOASVINDAS;
|
|
//limpa lista de frases do canal
|
voice1.PlayListClear(Port);
|
|
//Adiciona a primeira frase
|
voice1.PlayListAdd(Port,ptFile,'empresa.sig','',0);
|
|
//bom dia boa tarde boa noite
|
if ( (Time >= StrToTime('08:00:00')) and
|
(Time <= StrToTime('12:00:00'))) then
|
voice1.PlayListAdd(Port,ptFile,'bomdia.sig','',0)
|
else
|
if ( (Time > StrToTime('12:00:00')) and
|
(Time <= StrToTime('18:00:00'))) then
|
voice1.PlayListAdd(Port,ptFile,'boatarde.sig','',0)
|
else
|
voice1.PlayListAdd(Port,ptFile,'boanoite.sig','',0);
|
|
//menu principal de acordo com o periodo
|
if ( (Time >= StrToTime('07:59:00')) and
|
(Time <= StrToTime('18:00:00'))) then
|
voice1.PlayListAdd(Port,ptFile,'menu_dia.sig','',0)
|
else
|
voice1.PlayListAdd(Port,ptFile,'menu_noite.sig','',0);
|
|
//inicia a reproducao das 3 mensagens em sequencia
|
ret := voice1.PlayList(Port, '23456');
|
|
end;
|
|