Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada para utilização na Classe de Etapas MNTSTEP

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTSTEP

Classe de Etapas da Ordem de Serviço

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de entrada para utilização na Classe de Etapas MNTSTEP

Localização:

MNTSTEP

Programa Fonte:

MNTSTEP.PRX

Função:

U_MNTSTEP()

Parâmetros:
PosiçãoTipoDescrição
1
C

ID do local de execução do ponto de entrada.

2
O

Objeto da classe instanciada

nnOutros parâmetros irão depender do primeiro parâmetro ID.
IDDescriçãoTipo de RetornoDemais Parâmetros
"SEQUENCE"

Possibilita definir a sequência da Manutenção ao gerar uma Ordem de Serviço quando o retorno de etapas é realizado pelo app MNTNG.

C

3 - Código do Bem

4 - Código do Serviço

5 - Código da Etapa

6 - Código da Opção

 


#include 'protheus.ch'
/*Neste exemplo é utilizado o ID 'SEQUENCE' e tem o objetivo de
definir a maior sequência da manutenção independente do código
do bem ou serviço*/
User Function MNTSTEP()

    Local aArea    := GetArea()
    Local cSeqRela := ""
    Local cIdPonto := PARAMIXB[1]
    Local cCodBem  := ""
    Local cServico := ""
    Local cAliasQry:= ""

    If cIdPonto == "SEQUENCE"

        cCodBem  := PARAMIXB[3]
        cServico := PARAMIXB[4]

        cAliasQry:= GetNextAlias()

        cQuery := "SELECT MAX( TF_SEQRELA ) SEQMAIOR"
        cQuery += "FROM " + RetSqlName("STF")
        cQuery += "WHERE D_E_L_E_T_ <> '*'"
        cQuery += "AND TF_CODBEM = " + ValtoSql(cCodBem)
        cQuery += "AND TF_SERVICO = " + ValtoSql(cServico)

        cQuery := ChangeQuery(cQuery)
        
        MPSysOpenQuery(cQuery, cAliasQry)
        
        dbSelectArea(cAliasQry)
        cSeqRela := (cAliasQry)->SEQMAIOR
        (cAliasQry)->(dbCloseArea())
        
        RestArea( aArea ) 
        Return cSeqRela
    EndIf
Return