Histórico da Página

If lRet
        If lCt105LOK
            lRet  := ExecBlock("CT105LOK",.F.,.F., {OPCAO , dDataLanc} )
         If !lRet .And. lEfetiva
                Aadd(aErro,18)
            EndIf
        Endif
    EndIf

CONTEÚDO

1. Visão Geral
2. Parâmetros
3. Exemplo de Utilização
4. Opção na rotina
   1. Outras Ações / PE

...

	If lRet
		If ExistBlock("CT060BUT")
	aCT060BUTlCt105LOK
			lRet  := ExecBlock("CT060BUTCT105LOK",.F.,.F.,aRotina {OPCAO , dDataLanc} )
	
	IF ValType(aCT060BUT) == "A" .AND. Len(aCT060BUT) > 0
		For nX :=If 1 to len(aCT060BUT)
!lRet .And. lEfetiva
				aAddAadd(aRotina,aCT060BUT[nX]aErro,18)
		Next	EndIf
	ENDIF	Endif
Endif	EndIf

04. OPÇÃO NA ROTINA

Aparecerão todas as opções desejáveis a serem adicionadas na aba de Outras Ações:

...