Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: OX001OPC - Adiciona botões na EnchoiceBar
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:
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. PrivatenCkPerg1 := 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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas