Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 4 minutos

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:MNTA4106()
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada acionado no processo de validação ao incluir uma O.S. manual. Permitindo assim a inclusão de novas validações neste processo.

Localização:

SIGAMNT: Em Atualizações > Controle de Oficina > Ordens de Serviço > Manual.

Programa Fonte:

MNTA410.prw

Função:

MNTA4106()

Parâmetros:

NomeTipoDescriçãoObrigatório
ParamIXB[1]ArrayLista de insumos reportados na O.S.Sim
ParamIXB[2]ArrayLista de campos contidos na listagem de insumo.Sim

Retorno:

TipoDescriçãoObrigatório

Lógico

Indica se as validações foram realizadas com êxito.

Sim

03. DEMAIS INFORMAÇÕES

Exemplo MNTA4106()
#Include 'Totvs.ch'
 
User Function MNTA4106()
  
    Local aColsUse := ParamIXB[1]
    Local aHeadUse := ParamIXB[2]
    Local lRet     := .T.
    Local nPosAlmx := aScan( aHeadUse, { |x| Trim( Upper( x[2] ) ) == 'TL_LOCAL'   } )
    Local nPosProd := aScan( aHeadUse, { |x| Trim( Upper( x[2] ) ) == 'TL_CODIGO'  } )
    Local nPosTpRg := aScan( aHeadUse, { |x| Trim( Upper( x[2] ) ) == 'TL_TIPOREG' } )
    Local nInd     := 0
  
    If nPosAlmx > 0 .And. nPosProd > 0 .And. nPosTpRg > 0
         
        For nInd := 1 To Len( aColsUse )       
 
            If aColsUse[nInd,nPosTpRg] == 'P'
  
                If aColsUse[nInd,nPosAlmx] == '01' .And. Trim( aColsUse[nInd,nPosProd] ) == 'PRD01'
                  
                    lRet := .F.
                    MsgAlert( 'Local de estoque não deve ser utilizado para o produto: ' + Trim( aColsUse[nInd,nPosProd] )  )
                    Exit
  
                EndIf
  
            EndIf
  
        Next nInd
 
     EndIf
  
Return lRet


04. ASSUNTOS RELACIONADOS

  • Não se aplica.