Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite adicionar validação em cada linha na rotina de Retorno Simplificado (MNTA415)

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

MNTA415

Simplificado

Rotina(s) envolvida(s)

Nome Técnico

MNT41510

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Retorno Simplificado (MNTA415) que permite adicionar validações por cada linha de O.S. É acionado quando se adiciona outra linha de O.S. ou ao salvar o lançamento.

Localização:

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

Programa Fonte:

MNTA415.prx

Função:

MNT41510()

Parâmetros:

Nome

Tipo

Descrição

ParamIXB[1]NuméricoNúmero da linha de cada O.S. que foi adicionada.
Retorno:
NomeTipoDescrição
lRetLógicoRetorna Verdadeiro/Falso mediante a lógica aplicada no PE. Se retorna Falso, encontrou alguma inconsistência e não permite prosseguir. 

 

Exemplo do Ponto de Entrada MNT41510()
#INCLUDE 'TOTVS.CH'
 
User Function MNT41510()

    Local lRet := .T.
	Local nNumOS := ParamIXB[1]
	Local nTipo  := aScan(aHEADER,{|x| TRIM(UPPER(x[2])) == "TL_TIPOREG"})
	Local nDesc  := aScan(aHEADER,{|x| TRIM(UPPER(x[2])) == "TL_NOMCODI"})
	Local nOrdem := aScan(aHEADER,{|x| TRIM(UPPER(x[2])) == "TPL_ORDEM"})

    If aCols[nNumOS][nTipo] == 'P' // P - Produto
        MsgInfo('Num OS:  ' + aCols[nNumOS][nOrdem] + chr(13)+chr(10) +'Produto: ' + aCols[nNumOS][nDesc], 'Atenção')
        lRet := .F.
    Endif

Return lRet