Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OX001OPC - Adiciona 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 está localizado na rotina Orçamento de Peças e Serviços (OFIXX001),  com a finalidade de possibilitar o usuário incluir botões na EnchoiceBar.
Eventos
User Function VX021AGA()
 
MsgInfo(“Ponto de Entrada VX021AGA”,”Atencao”)
return nil
 
Programa Fonte 
OFIXX001.PRW
Sintaxe

OX001OPC - Adiciona botões na EnchoiceBar ( [ ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    ()
Observações
 Private aNewBot := {;
{"SALVAR",    {|| OX001GRV(nOpc)   }, STR0002 }, ;
{"AVGBOX1",   {|| IIf(ExistBlock("OX001CPC"),ExecBlock("OX001CPC",.f.,.f.,{""}),OFIXC001()) , FG_MEMVAR(aHeaderP,oGetPecas:aCols,oGetPecas:nAt)  }, STR0004 }, ;
{"CLIENTE",   {|| OX001CONCLI()    }, STR0005 }, ;
{"CRITICA",   {|| OX001REGABO()    }, STR0006 }, ;
{"PEDIDO",    {|| OX001REQCPR()    }, STR0007 }, ;
{"SOLICITA",  {|| OX001VENPER()    }, STR0008 }, ;
{"AVGARMAZEM",{|| OX001GSUG(nOpc)  }, STR0171 }, ;
{"FORM",      {|| OX001AVARES(nOpc)}, STR0003 }, ;
{"COMPTITL",  {|| OX001RECALC(nOpc)}, STR0009 } ,;
{"IMPRESSAO", {|| OX001IMPR(nOpc)  }, STR0010 } ,;
{"INSTRUME",  {|| Processa( {|| OX001INCPR(nOpc) } )  }, STR0169 } }
//
Private oFnt1 := TFont():New( "System", , 12 )
Private oFnt2 := TFont():New( "Courier New", , 16,.t. )
Private oFnt3 := TFont():New( "Arial", , 14,.t. )
 
Private lMens := .t.
Private nCkPerg1 := 1
 
Private aFatParS := {}     //faturar para
 
// #############################################################################################
// # Em um orçamento novo a sequencia de fase é coletada da Equipe Técnica;                    #
// # em um já existente a sequencia é coletada diretamente do orçamento (previamente gravado)  #
// #############################################################################################
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
 
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não