Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:MNTA415
País:Brasil


02. DESCRIÇÃO

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. 

03. DEMAIS INFORMAÇÕES

Exemplo 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


04. ASSUNTOS RELACIONADOS

  • Não se aplica.