Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: TK271BOK - Função de gravação


Descrição:

Esse ponto de entrada é executado através do botão "Salvar" da tela de atendimento do Call Center e antes da função de gravação do atendimento.


Programa Fonte:
TMKA271.PRW

Sintaxe:

TK271BOK( nOpc ) ---> lRet


Parâmetros:


NomeTipoDescrição
nOpcNuméricoTipo de Operação: 3- Inclusão e 4- Alteração


Retorno:


RetornoTipoDescrição
lRetLógico

Gravação do atendimento, sendo:
.T. - Grava o atendimento
.F. - Não grava o atendimento


Exemplo:

#INCLUDE 'TOTVS.CH'

User Function TK271BOK(nOpc)

Local lRet := .T.
Local cTipoAte := TkGetTipoAte()    //Devolve o tipo de rotina que o operador tem acesso
                                    //1 - Telemarketing
                                    //2 - Televendas
                                    //3 - Telecobrança
                                    //4 - Telemarketing x Televendas

If (nFolder == 1) .And. (cTipoAte $ "145")		//Telemarketing
    lRet := MsgYesNo("Grava o atendimento?","PE: TK271BOK - Telemarketing")
ElseIf (nFolder == 2) .And. (cTipoAte $ "245")	//Televendas
    lRet := MsgYesNo("Grava o atendimento?","PE: TK271BOK - Televendas")
ElseIf (nFolder == 3) .And. (cTipoAte $ "34")	//Telecobrança
    lRet := MsgYesNo("Grava o atendimento?","PE: TK271BOK - Telecobrança")
EndIf

Return lRet