01. DADOS GERAIS
| Produto: | | Solucoes_totvs |
|---|
| Solucao | TOTVS Logística WMS |
|---|
|
| Solucoes_totvs_parceirosexptotvs |
|---|
|
|
|---|
| Linha de Produto: | |
|---|
| Segmento: | |
|---|
| Módulo: | SIGAWMS - Gestão de Armazenagem |
|---|
| Função: | WMSV001 - Identifica as funções Funções do operador logadoOperador Logado |
|---|
| País: | Todos Países |
|---|
| Ticket: | - |
|---|
| Requisito/Story/Issue (informe o requisito relacionado) : | - |
|---|
02. DESCRIÇÃO
Este Ponto de Entrada permite que sejam realizadas alterações na tabela D12, como o recurso humano a ser utlizadoutilizado.
03. LOCALIZAÇÃO
Localizado após a busca de atividades para convocações.
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
12.1.17 e superiores.
07. OBSERVAÇÃO
Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização.
08. EXEMPLO
| Bloco de código |
|---|
#INCLUDE "PROTHEUS.CH"
User Function WMS001C()
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. |
...
