Linha Microsiga Protheus

Árvore de páginas

ÍNDICE

  1. Visão Geral;
  2. Eventos;
  3. Parâmetros;
  4. Retorno;
  5. Exemplo de utilização;
  6. Documentos relacionados.


01. VISÃO GERAL

O ponto de entrada PCOA1201 é utilizado na inclusão de rotinas no menu da grade principal da tela de controle de revisoes

02. EVENTOS


PCOA1201
If ExistBlock( "PCOA1201" )
	If ValType( aUsRotina := ExecBlock( "PCOA1201", .F., .F. ) ) == "A"
		AEval( aUsRotina, { |x| AAdd( aRotina, x ) } )
	EndIf
EndIf

03. PARÂMETROS


04. RETORNO

Tipo

Descrição

Obrigatório

Array

Retorna array contendo os itens do menu que serão adicionados

Sim


05. EXEMPLO DE UTILIZAÇÃO


AF125OKT
#Include "PROTHEUS.CH"

User Function PCOA1201()
Local aRet := {}

AADD(aRet,{ "Nome Teste", "", 0, 3,0,nil})

Return aRet

06. DOCUMENTOS RELACIONADOS



  • Sem rótulos