Linha Microsiga Protheus

Árvore de páginas

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:
NomeTipoDescrição

aNewBot

Vetor

Vetor que compõe as opções padrão do browse da rotina.

Retorno:
NomeTipoDescrição

aRot

Vetor

Vetor que compõe as opções atualizadas pelo ponto de entrada do browse da rotina.

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