Histórico da Página
Ponto de entrada que permite incluir novas validações no processo de inserção e alteração de insumos em uma Manutenção Padrão.
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Manufatura | ||||
Módulo: | Manutenção de Ativos e Gestão de Frotas | ||||
Rotina: |
|
Ponto de Entrada
Descrição: | Ponto de entrada acionado na consistência de insumos da | O.S. corretiva Manutenção Padrão durante os processos de inclusão e alteração. Permitindo assim a inclusão de novas validações neste processo. | ||||||||||||||
Programa Fonte: | MNTA180.prx | |||||||||||||||
Parâmetros: |
| Array
| Númerico
| Array
| ||||||||||||
Retorno: |
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#Include 'Totvs.ch' User Function MNTA420KMNTA180K() Local aCols := ParamIXB[1] Local nPos := ParamIXB[2] Local aHeader := ParamIXB[3] Local lRet := .T. Local nPosAlmx := aScan( aHeader, { |x| Trim( Upper( x[2] ) ) == 'TLGDFieldPos( 'TPG_LOCAL' , aHeader } ) Local nPosProd := aScanGDFieldPos( aHeader, { |x| Trim( Upper( x[2] ) ) == 'TL'TPG_CODIGO', aHeader } ) Local nPosTpRg := aScan( aHeader, { |x| Trim( Upper( x[2] ) ) == 'TL_TIPOREG' } ) GDFieldPos( 'TPG_TIPORE', aHeader ) If nPosAlmx > 0 .And. nPosProd > 0 .And. nPosTpRg > 0 .And. nPos > 0 If aCols[nPos,nPosTpRg] == 'P' If aCols[nPos,nPosAlmx] == '01' .And. Trim( aCols[nPos,nPosProd] ) == 'PRD01007' lRet := .F. MsgAlert( 'Local de estoque não deve ser utilizado para o produto: ' + Trim( aCols[nPos,nPosProd] ) ) EndIf EndIf EndIf Return lRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas