Ponto de Entrada
Descrição: | Este Ponto de Entrada será executado na rotina Motivos Operação (OFIOC500) e permite a inclusão de opções no Outras Ações do Browse. | ||||||
Localização: | Consultas \ Gerais \ Motivos Operação (OFIOC500) | ||||||
Eventos: | Function OFIOC500() Local aObjects := {} , aInfo := {} , aPos := {} Local aSizeHalf := MsAdvSize(.t.) // Tamanho Maximo da Janela (.t.=TOOLBAR,.f.=SEM TOOLBAR) Private aPosGraf := {} Private aParamet := {"",space(FWSizeFilial()),(dDataBase-day(dDataBase))+1,dDataBase,space(6)} Private aTpAssun := {} Private aMotivos := {} Private aOrigem := {} Private oNADA := LoadBitmap( GetResources() , "NADA" ) Private oBR_AZUL := LoadBitmap( GetResources() , "BR_AZUL" ) Private oBR_VERM := LoadBitmap( GetResources() , "BR_VERMELHO" ) Private oBR_VERD := LoadBitmap( GetResources() , "BR_VERDE" ) Private oBR_AMAR := LoadBitmap( GetResources() , "BR_AMARELO" ) Private oBR_BRAN := LoadBitmap( GetResources() , "BR_BRANCO" ) Private oBR_CINZ := LoadBitmap( GetResources() , "BR_CINZA" ) Private oBR_PINK := LoadBitmap( GetResources() , "BR_PINK" ) Private oBR_MARR := LoadBitmap( GetResources() , "BR_MARROM" ) // Private aNewBot := {{"FORM", {|| OR500ChmImp()}, "Imprimir"}} Private lDetImp If (ExistBlock("OFC500ABT")) // Ponto de Entrada para adicionar opções no Menu aNewBot := ExecBlock("OFC500ABT", .f., .f., {aNewBot}) EndIf | ||||||
Programa Fonte: | OFIOC500.PRW | ||||||
Função: | OFIOC500() | ||||||
Parâmetros: |
| ||||||
Retorno: |
|
Exemplo:
Include totvs.ch
/*
===============================================================================
###############################################################################
##+----------+------------+-------+-----------------------+------+----------+##
##|Função | OFC500ABT | Autor | MIL | Data | 20/04/2020 |##
##+----------+------------+-------+-----------------------+------+----------+##
##|Descrição | Inclusão no aNewBot da Rotina Motivos Operação (OFIOC500) |##
##+----------+--------------------------------------------------------------+##
###############################################################################
===============================================================================
*/
User Function OFC500ABT()
Local aRot := ParamIxb[1]
aadd(aRot, {"EXEMPLO", {|| U_M_EXEMPLO()}, "Executar Exemplo"})
Return aRot