Histórico da Página
...
| Nome | Descrição | Conteúdo |
|---|---|---|
| lRet | Indica se o item da ordem de separação será considerado ou não. | Lógico - O ponto de entrada deve retornar .T. para considerar o item da ordem de separação, ou .F. para desconsiderar. |
05. EXEMPLO DE UTILIZAÇÃO
Neste exemplo, temos uma ordem de separação com dois itens, onde o segundo será inibido pelo ponto de entrada ao acessar a rotina como admnistrador.
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#Include 'Totvs.ch'
/*/{Protheus.doc} ACD166VI
Permite inibir itens da ordem de separação apresentados ao usuário
@type user function
@author TOTVS
/*/
User Function ACD166VI()
Local lRet := .T.
//Este usuário 000000 não pode separar o produto MP0005
If AllTrim(CB8->CB8_PROD) == 'MP0005' .And. RetCodUsr() == '000000'
lRet := .F.
EndIf
Return lRet |
Ao acessar com outro usuário, o registro pendente é apresentado corretamente:
06. DEMAIS INFORMAÇÕES
Não se aplica
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas