Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#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ãoNÃo podem ser inseridas Etapas repetidas',3,1) Return .F. EndIf Next nX nX := 0 EndIf Next nI Return .T. |
04. ASSUNTOS RELACIONADOS
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas