| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Ordem de separação (ACDV166) |
| País: | Brasil |
| Ticket: | |
| Issue: |
O ponto de entrada ACD166VI está localizado na rotina de Ordens de Separação do coletor de dados do SIGAACD, e é chamado para cada item da ordem de separação informada. Ele permite avaliar quais itens da CB8 são apresentados ao usuário na tela, ao retornar um valor lógico .T. ou .F.
A cada chamada do ponto de entrada, a tabela CB8 estará posicionada no item em avaliação.
Caso o ponto de entrada retorne .F. e não hajam mais itens aptos na ordem de separação selecionada, a rotina será encerrada e o usuário vai voltar ao menu principal. |
| Nome | Descrição |
|---|---|
| O ponto de entrada não recebe parâmetros. |
| 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. |
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.
#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:
Não se aplica