DT PE WMSV001C - Permite alterar recurso humano na convocação WMS

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:	WMSV001 - Identifica as Funções do Operador Logado
País:	Todos Países
Ticket:	11231411
Requisito/Story/Issue (informe o requisito relacionado) :	DLOGWMSMSP-12056

02. DESCRIÇÃO

Este Ponto de Entrada permite que sejam realizadas alterações na tabela D12, como o recurso humano a ser utilizado.

03. LOCALIZAÇÃO

Localizado após a busca de atividades para convocações na rotina WMSV001.

04. PARÂMETROS

Nome	Tipo	Descrição
D12->(Recno())	Numérico	Número do registro na tabela D12

05. RETORNO

Nome	Tipo	Descrição	Opcional
lRetPE	Lógico	Indicação se a alteração do recurso humano foi bem sucedida ou não.	Não

06. VERSÕES

Protheus 12.1.17 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

------

#INCLUDE "PROTHEUS.CH"

User Function WMSV001C()

Local nRecnoD12 := PARAMIXB[1]

D12→(dbGoTo(nRecnoD12))
//Exemplo de regra
//D12_STATUS 0=Estornada;1=Executada;2=Interrompida;3=Em Execução;4=A Executar
If (D12->D12_RECHUM != __cUserID) .And. (D12→D12_STATUS = '2' .Or. D12→D12_STATUS = '4')
RecLock("D12",.F.)
D12→ D12_RECHUM := __cUserID
D12→(MsUnlock())
EndIf

Return .T.