Ordenamento de Insumos Realizados na OS Corretiva.

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
MNTA420	OS Corretiva

Tickets relacionados

9484127

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/Ordem de Serviço/Corretiva

Eventos:

OS Corretiva (MNTA420).

Programa Fonte:

MNTA4906.prw

Parâmetros:

Nome	Tipo	Pode Alterar	Descrição
aCols	Array	Não	Contém os dados da Linha (STL) posicionado.
aHEADER	Array	Não	Contém os campos no aHeader (array) com os campos da STL.

Retorno:

Nome	Tipo	Descrição	Obrigatório
aCols	Array	Contém os dados da linha (STL) ordenados.	Sim

#Include 'Protheus.ch'

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

Permite customizar o ordenamento dos insumos na OS Corretiva.

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

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

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

Return aCols