Linha Microsiga Protheus

Árvore de páginas

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:

Rotina

Nome Técnico

MNTA180

Manutenção Padrão

Ponto de Entrada

Descrição:

Ponto de entrada acionado na consistência de insumos da 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:
NomeTipoDescrição
ParamIXB[1]arrayLista com detalhes do insumo posicionado que está em validação.
ParamIXB[2]integerLinha posicionada que encontra-se em validação
ParamIXB[3]arrayLista de campos contidos na listagem de insumo.

Retorno:

Tipo

Descrição

Lógico

Indica se os registros são validos ou não.

 

Exemplo: P.E. MNTA180K
#Include 'Totvs.ch'   

User Function MNTA180K()

    Local aCols    := ParamIXB[1]
    Local nPos     := ParamIXB[2]
    Local aHeader  := ParamIXB[3]
    Local lRet     := .T.
    Local nPosAlmx := GDFieldPos( 'TPG_LOCAL' , aHeader )
    Local nPosProd := GDFieldPos( 'TPG_CODIGO', aHeader )
    Local nPosTpRg := 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] ) == '007'
 
                lRet := .F.
                MsgAlert( 'Local de estoque não deve ser utilizado para o produto: ' + Trim( aCols[nPos,nPosProd] )  )
 
            EndIf
 
        EndIf
 
    EndIf

Return lRet