Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Maria Elisandra

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Maria Elisandra

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Permite customizar

ordenamento de

a ordenação das etapas da ordem de serviço no retorno mod 2

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

Manufatura.

Módulo:

Manutenção de Ativos e Gestão de Frotas.

Rotina:

Rotina

Nome Técnico

MNTA435

Retorno Mod. 2

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Ponto de Entrada

Descrição:

Ponto de entrada que permite customizar o ordenamento das etapas da ordem de serviço. 

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Retorno de O.S./Retorno Mod. 2

Eventos:

Retorno Mod. 2 (MNTA435)

Programa Fonte:

mnta435q.prw

Parâmetros:
PosiçãoTipoDescrição

1

arrayArray de campos que fazem parte dos índices da tabela temporária utilizada para apresentação de etapas 

Retorno:

Tipo

Descrição

Obrigatório

Numérico

Índice da tabela temporária utilizado para ordenar as etapas 

Sim

 

Bloco de código
languagesql
titleMNTA435PMNTA435Q
#Include 'Protheus.ch'
User Function MNTA435Q()

    Local
 aParam := PARAMIXB[1] //Contém os arrays de campos 
	/* exemplo do parâmetro
 	{{"'TQ_TAREFA"'," 'TQ_SEQETA"'," 'TQ_ETAPA"'},; índice 1
	{"'TQ_TAREFA"',"'TQ_ETAPA"', "'TQ_SEQETA"'},; índice 2
	{ "'TQ_SEQETA","TQ_TAREFA", "TQ_ETAPA" }} índice 3
	*/

	', 'TQ_ETAPA', 'TQ_TAREFA' }}
    Local aParam  := PARAMIXB[1] 
    Local nIndex  := 0
    Local nReturn := 1

    // verifica se há um índice com os campos TQ_SEQETA + TQ_ETAPA
    nIndex := Ascan( aParam, { |x|  x[1] == 'TQ_SEQETA' .And. x[2] == 'TQ_ETAPA' } ) 

    If nIndex > 0
        nReturn := nIndex
    EndIf

Return nReturn