Histórico da Página

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

        If !aCols[nI][10] //Se o registro não se encontra deletado
 
            cEtapa := aCols[nI][nPosEtapa]
    
            For nX := 1 To Len(aCols)
    
                If nX == nI .Or. aCols[nX][10] //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.