Histórico da Página
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: |
| ||||||||
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: |
| ||||||
Retorno: |
|
Bloco de código | ||
---|---|---|
| ||
#INCLUDE 'PROTHEUSTOTVS.CH' User Function MNT41510() Local lRet := .FT. Local nNumOS := ParamIXB[1] Local nTIPOI4nTipo := aScan(aHEADER,{|x| TRIM(UPPER(x[2])) == "TL_TIPOREG"}) Local nDESCR4nDesc := aScan(aHEADER,{|x| TRIM(UPPER(x[2])) == "TL_NOMCODI"}) Local nORDEM4nOrdem := aScan(aHEADER,{|x| TRIM(UPPER(x[2])) == "TPL_ORDEM"}) If aCols[nNumOS][nTIPOI4nTipo] == 'P' // P - Produto MsgInfo('Num OS: ' + aCols[nNumOS][nORDEM4nOrdem] + chr(13)+chr(10) +'Produto: ' + aCols[nNumOS][nDESCR4nDesc], 'Atenção') lRet := .TF. Endif Return lRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas