DT PE TMK380HR - Ponto de entrada para validação na agenda do operador.

CONTEÚDO

Dados Gerais
Descrição
Sintaxe
Parâmetros
Retorno
Exemplo

01. DADOS GERAIS

Linha de Produto:	Linha Protheus
Segmento:	Backoffice
Módulo:	SIGAFAT - Faturamento
Função:	MATA521 - Exclusão de Documento de Saída
Abrangências:	Totvs Protheus 12
Versões:	Totvs Protheus 12
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível com as Bases de Dados:	Todos
Nível de Acesso:	Nível 1 (Acesso Clientes)
Idiomas:	Todos

02. DESCRIÇÃO

O ponto de entrada utilizado para validação da Agenda do Operador após o botão OK da tela de contato.

03. SINTAXE

TMK380HR({aCols[nLiaCols][nPHrIni] , aCols[nLiaCols][nPHrFim]}) ---> lRet

04. PARÂMETROS

Nome	Tipo	Descrição	Default	Obrigatório	Referência
aParamIXB	Vetor	Vetor com os dados da hora inicial e final: [ 01 ] - Hr.Ini - Tipo: Caracter - String a hora inicial para o atendimento [ 02 ] - Hr.Fin - Tipo: Caracter - String a hora final para o atendimento

05. RETORNO

Retorno

Tipo

Descrição

Obrigatório

lRet

Lógico

Variável logica indicando se deve continuar ou não após o botão Ok da tela de contatos que executa a interação com o item da lista. , sendo:

.T. - Continua.

.F. - Não Continua.

Sim

06. EXEMPLO

Neste exemplo validamos se os horários estão entre 12:00 e 13:00 para não permitir a continuação do processo.

Exemplo:

#Include "Protheus.Ch"

************************
User Function TMK380HR()
************************

Local lRetorno As Logical
Local aParam   As Array
Local cHoraIni As Char
LOcal cHoraFin As Char

lRetorno := .T.
aParam   := aClone(ParamIxb)
cHoraIni := aParam[01]
cHoraFin := aParam[02]

If cHoraIni >= "12:00" .And. cHoraFin <= "13:00"
    Help(Nil, Nil, "P.E TMK380HR", Nil, "Horarios entre 12:00 as 13:00 não são permitidos.", 1, 0, Nil, Nil, Nil, Nil, Nil, {"Ajuste a hora inicial e final."})
    lRetorno := .F.
EndIf

Return(lRetorno)

Árvore de páginas