Ponto-de-Entrada: OX001ABT - Adicionar botões na EnchoiceBar
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:
Este ponto de entrada possibilita adicionar botões na EnchoiceBar (aNewBot).
Eventos
User Function OX001ABT()
aRet := ParamIxb[1]
aadd(aRet,{"FILTRO",{|| U_FUNCAO_X()},"Funcao X"})
return(aRet)
Programa Fonte
OFIXX001
Sintaxe
OX001ABT - Adicionar botões na EnchoiceBar ( [ aRet ] ) --> aRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| aRet | Vetor | Botões Atuais |
Retorno
-
aRet(vetor)
- Botões Customizados
Observações
if nOpc == 3
cFaseOrc := OI001GETFASE(__cUserId,2)
else
cFaseOrc := OI001GETFASE(VS1->VS1_NUMORC)
endif
// #########################################################
// # Adiciona botões na EnchoiceBar (aNewBot) #
// #########################################################
If ( ExistBlock("OX001ABT") )
aNewBot := ExecBlock("OX001ABT",.f.,.f.,{aNewBot})
EndIf
If ( ExistBlock("OX001OPC") )
aAdd(aNewBot ,{"E5", {|| U_OX001OPC(nOpc) }, STR0174 } )
EndIf
if !FM_PILHA("OFIXA011")
aNewBot := {}
endif
//######################################################################################
//# Se for detectado que trata-se de integracao faz os vetores receberem os parametros #
//######################################################################################
If lOX001Auto
aAutoPecas := xAutoPecas
aAutoServ := xAutoServ
aAutoCab := xAutoCab
aAutoInco := xAutoInco
EndIf
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |