Linha Microsiga Protheus

Árvore de páginas

Ordenamento de Insumos Realizados na Alteração de OS.

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

MNTA265

Alteração de O.S.

MNTA490Liberação de O.S.

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/Plano Manutenção/Alteração de OS

SIGAMNT: Atualizações/Controle de Oficina/Plano Manutenção/Liberação de OS

Eventos:

Alteração de OS (MNTA265).

Liberação de OS (MNTA490).

Programa Fonte:

MNTA4906.prw

Parâmetros:
NomeTipoPode AlterarDescrição

aCols

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

aHEAINS

ArrayNãoConté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

 

MNTA4906
#Include 'Protheus.ch'

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

Permite customizar o ordenamento dos insumos na Alteração de OS.

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

    Local aCols    := PARAMIXB[1] //Contém os dados da linha(STL) posicionada.
    Local aHEAINS  := PARAMIXB[2] //Campos do aHeader
    Local nTipReg  := aScan(aHEAINS,{|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