Histórico da Página
...
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: |
|
03. DEMAIS INFORMAÇÕES
| 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 nI := 0
Local nX := 0
For nI := 1 To Len(aCols)
cEtapa := aCols[nI][nPosEtapa]
For nX := 1 To Len(aCols)
If nX == nI
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
Next nI
Return .T. |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas