DT ACD166VI - Avalia itens da tabela CB8

01. DADOS GERAIS

Produto:	TOTVS Backoffice
Linha de Produto:	Linha Protheus
Segmento:	Backoffice
Módulo:	TOTVS Backoffice (Linha Protheus) - Automação e Coleta de Dados (SIGAACD)
Função:	Ordem de separação (ACDV166)
País:	Brasil

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.

A cada chamada do ponto de entrada, a tabela CB8 estará posicionada no item em avaliação.

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.

Exemplo ACD166VI

#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