DT PE DLGV001A - Controla os parâmetros sobre convocações no RH

01. DADOS GERAIS

Produto:	TOTVS Logística WMS
Linha de Produto:	Linha Protheus
Segmento:	Logística
Módulo:	SIGAWMS - Gestão de Armazenagem
Função:	-
País:	Todos Países
Ticket:	-
Requisito/Story/Issue (informe o requisito relacionado) :	-

02. DESCRIÇÃO

Este Ponto de Entrada é executado para cada atividade, de cada tarefa de um serviço que está sendo analisada para convocação.

Caso o retorno do mesmo seja Falso, a atividade não será convocada para execução e o Sistema buscará uma próxima atividade pendente ou deixará o usuário esperando a geração de novas atividades para convocação.

03. LOCALIZAÇÃO

Localizado na função na qual efetua a validação da atividade para indicar se a mesma deve ou não ser convocada, para a execução pelo usuário atual.

04. PARÂMETROS

Nome	Tipo	Descrição
cRecHum	Caractere	Recurso humano (Usuário)
cFuncao	Caractere	Função do recurso humano.
cServico	Caractere	Serviço a ser executado.
cTarefa	Caractere	Tarefa a ser executada.
cAtividade	Caractere	Atividade a ser executada.
cOrdAtiv	Caractere	Ordem da atividade a ser executada.
cDocumento	Caractere	Documento da atividade a ser executada

05. RETORNO

Nome

Tipo

Descrição

lConvoca

Lógico

Indicador se deve ou não convocar a atividade para a execução via RF, sendo:

.T - será realizada a convocação.
.F. - ão realizará a convocação

06. VERSÕES

Protheus 10 ou superiores.

07. OBSERVAÇÃO

Todos os parâmetros são recebidos na User Function via PARAMIXB, conforme consta em Execblock / Customização.

08. EXEMPLO

------

User Function DLGV001A()
Local nTipoConv := SuperGetMV("MV_TPCONVO", .F., 1) //-- 1=Por Atividade/2=Por Tarefa
Local dDataFec := DtoS(WmsData())
Local lConvoca := .T.
Local cRecHum := PARAMIXB[1]
Local cServico := PARAMIXB[3]
Local cTarefa := PARAMIXB[4]
Local cAtividade := PARAMIXB[5]

//-- Esta combinação de serviço+tarefa+atividade não deve ser convocada
If cServico+cTarefa+cAtividade == "001002003"
lConvoca := .F.
EndIf
//-- Efetua a validação se executou a atividade anterior
//-- Pode ser que uma movimentação horizontal dependa de uma movimentação vertical
If lConvoca
lConvoca := DLVExecAnt(nTipoConv,dDataFec,cRecHum)
EndIf

Return lConvoca