Linha Microsiga Protheus

Árvore de páginas

Permite customizar ordenamento de Insumos.

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

Tickets relacionados

6628108

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 dos insumos realizados na 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:

MNTA435P.prx

Parâmetros:
NomeTipoPode AlterarDescrição

aCoBrw6

ArrayNãoContém os dados da Linha (STL) posicionado. 

aHoBrw2

ArrayNãoContém os campos no aHeaderArray com os campos da STL.

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aCoBrw6

Array

Contém os dados da linha (STL) ordenados.

Sim

 

MNTA435P
#Include 'Protheus.ch'

//------------------------------------------------------------------------------
/*/{Protheus.doc} MNTA435P

Permite customizar o ordenamento dos insumos no Retorno de O.S Mod2.

@author NG Informática
@return .T.
/*/
//------------------------------------------------------------------------------
User Function MNTA435P()

    Local aCoBrw6  := PARAMIXB[1] //Contém os dados da linha(STL) posicionada.
	Local aHoBrw2  := PARAMIXB[2] //Campos do aHeader
    Local nTipReg  := aScan(aHoBrw2,{|x| Trim(Upper(x[2])) == "TL_ETAPA"})

 	//Ordena pelo campo TL_ETAPA
	If nTipReg > 0
		aSort(aCoBrw6,,,{|x,y| x[nTipReg] < y[nTipReg] })
	EndIf

Return aCoBrw6