Histórico da Página

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.

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

Função:

OFIOC500()