Histórico da Página

01. DADOS GERAIS

Produto:

Solucoes_totvs

Solucoes_totvs_cross

SolucaoCross	TOTVS Backoffice

Solucoes_totvs_parceiros

SolucaoParceiros

Solucoes_totvs_parceirosexptotvs

SolucaoParcsExpsTOTVS

Linha de Produto:

Linhas_totvs

Linha	Linha Protheus

Segmento:

Segmentos_totvs

Segmento	Backoffice

Módulo:

Modulos_cross_segmentos

ModulosCrossSegmentos	TOTVS Backoffice (Linha Protheus) - Automação e Coleta de Dados (SIGAACD)

Modulos_framework

Modulos_totvs_construcao

Modulos_totvs_juridico

Modulos_totvs_logistica

Modulos_totvs_manufatura

Modulos_totvs_rh

Modulos_totvs_saude

Modulos_totvs_prestadores_de_servicos

Função:

Ordem de separação (ACDV166)

País:

Brasil

Ticket:

Issue:

02. DESCRIÇÃO

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 Tabela CB8 são apresentados ao usuário na tela, ao retornar um valor lógico .T. ou .F.

...

Informações

title	Importante

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.

03. PARÂMETROS

...

Não se aplica

04. RETORNO

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

language	java
theme	Midnight
title	Exemplo ACD166VI
linenumbers	true

#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

Image Added