If ExistBlock( "PCOA1011" )
//P_EÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//P_E?Ponto de entrada utilizado para inclusao de funcoes de usuarios no ?
//P_E?browse da tela de orcamentos ?
//P_E?Parametros : Nenhum ?
//P_E?Retorno : Array contendo as rotinas a serem adicionados na enchoice ?
//P_E? Ex. : User Function PCOA1011 ?
//P_E? Return {{"Titulo", {|| U_Teste() } }} ?
//P_EÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ValType( aUsRotina := ExecBlock( "PCOA1011", .F., .F. ) ) == "A"
AEval( aUsRotina, { |x| AAdd( aRotina, x ) } )
EndIf
EndIf |