If ExistBlock("PCOA1703")
//P_EÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//P_E³ Ponto de entrada utilizado para inclusao de funcoes de usuarios na ³
//P_E³ tela da planilha orcamentaria ³
//P_E³ Parametros : Nenhum ³
//P_E³ Retorno : Array contendo as rotinas a serem adicionados na planilha ³
//P_E³ [1] : Titulo ³
//P_E³ [2] : Codeblock contendo a funcao do usuario ³
//P_E³ [3] : Resource utilizado no bitmap ³
//P_E³ [4] : Tooltip do bitmap ³
//P_E³ Exemplo : ³
//P_E³ User Function PCOXFUN1 ³
//P_E³ Return {{"Titulo", {|| U_Botao() }, "BPMSDOC","Titulo" }} ³
//P_EÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
aUsrButons := ExecBlock("PCOA1703",.F.,.F.)
For nx := 1 to Len(aUsrButons)
aAdd(aMenu,{aUsrButons[nx,1],aUsrButons[nx,2],aUsrButons[nx,3],aUsrButons[nx,4]})
Next
EndIf |