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:MNTA180
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de Entrada que adiciona botões no Menu da rotina de Etapas Genéricas

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Manutenção/Manutenção Padrão.

Eventos:

Manutenção Padrão(MNTA180)

Programa Fonte:

MNTA180.prx

Função:

MNTA1804()

Parâmetros:
NomeTipoDescrição
PARAMIXB[1]Array

Array com os dados digitados no folder de Etapas.

PARAMIXB[2]Array

Array com o aHeader da rotina



03. DEMAIS INFORMAÇÕES

Exemplo MNTA1804
#Include 'Totvs.ch'
 
User Function MNTA1804()
  
    Local aCols     := ParamIXB[1]
    Local aHeader   := ParamIXB[2]
    Local cEtapa    := ''
    Local nPosEtapa := GDFIELDPOS("TPH_ETAPA")
    Local nI        := 0
    Local nX        := 0       
 
    For nI := 1 To Len(aCols)

        If !aCols[nI][Len(aCols[nI])] //Se o registro não se encontra deletado
 
            cEtapa := aCols[nI][nPosEtapa]
    
            For nX := 1 To Len(aCols)
    
                If nX == nI .Or. aCols[nX][Len(aCols[nX])] //Se o registro se encontra deletado
    
                    Loop
    
                EndIf
    
                If cEtapa == aCols[nX][nPosEtapa]
    
                    Help(" ",1,'ATENCAO',,'NÃo podem ser inseridas Etapas repetidas',3,1)
    
                    Return .F.
    
                EndIf
    
            Next nX
 
            nX := 0

        EndIf
 
    Next nI
  
Return .T.


04. ASSUNTOS RELACIONADOS

  • Não se aplica.