| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Ordem de separação (ACDV166) e Expedição (ACDV170) |
| País: | Brasil |
O ponto de entrada ACD166VL está localizado na rotina de Ordens de Separação e Expedição do coletor de dados do SIGAACD, e é chamado ao informar uma ordem de separação encerrada. Ele permite inibir a pergunta "Deseja estornar a ordem de separação?" ou "Ordem encerrada, deseja modificá-la?", dependendo da rotina.
Na chamada do ponto de entrada, a tabela CB7 estará posicionada no item em avaliação.
| Nome | Descrição |
|---|---|
| O ponto de entrada não recebe parâmetros. |
| Nome | Descrição | Conteúdo |
|---|---|---|
| lRet | Indica se a pergunta de estorno/alteração da ordem de separação será exibida ou não | Lógico - O ponto de entrada deve retornar .T. para apresentar a mensagem, ou .F. para desconsiderar. |
Neste exemplo, temos uma ordem de separação de ordem de produção finalizada, onde a pergunta de estorno será inibida para qualquer usuário que não seja o administrador.
#Include 'Totvs.ch'
/*/{Protheus.doc} ACD166VL
Permite inibir a pergunta de confirmação de estorno ou alteração de uma ordem de separação finalizada
@type user function
@author TOTVS
/*/
User Function ACD166VL()
Local lRet := .F.
//Somente o admnistrador pode estornar ou alterar uma ordem finalizada
If RetCodUsr() == '000000'
lRet := .T.
EndIf
Return lRet |
Não se aplica