O480AROT Ponto de Entrada para permitir a inclusão de botões no outras ações da rotina Consulta de Movimentação de Ferramentas (Ofioc480)

Descrição:

Este Ponto de Entrada será executado na rotina Consulta Movimentações das Ferramentas (OFIOC480) e permite a inclusão de botões no outras ações. Será permitido a inclusão de mais de um botão, ou seja, a quantidade necessária para a empresa.

Eventos:

Function OFIOC480()
Local aObjects  := {} , aInfo := {}, aPos := {}
Local aSizeHalf := MsAdvSize(.t.)  // Tamanho Maximo da Janela (.t.=TOOLBAR,.f.=SEM TOOLBAR)
Private cCodProGet := space(VDP->(TamSX3("VDP_CODPRO")[1]))
Private cCodFerGet := space(VO9->(TamSX3("VO9_CODFER")[1]))
Private cCodPro := space(VDP->(TamSX3("VDP_CODPRO")[1]))
Private cGruFer := space(VO9->(TamSX3("VO9_GRUFER")[1]))
Private cCodFer := space(VO9->(TamSX3("VO9_CODFER")[1]))
Private dDatIni := ctod("")
Private dDatFin := dDataBase
Private cTipMov := ""
Private aTipMov := X3CBOXAVET("VDP_TIPMOV","1")
Private aFilFer := {}
Private aUltFer := {}
Private aNewBot := { { "IMPRESSAO" , { || FS_IMPRIMIR() } , STR0013 } } // Imprimir Saldo Atual
Private cDatHor := ""

If (ExistBlock("O480AROT")) // Ponto de Entrada para adicionar opções no botão "Outras Ações"
    aNewBot := ExecBlock("O480AROT", .f., .f., {aNewBot})
EndIf

aInfo := { aSizeHalf[ 1 ], aSizeHalf[ 2 ],aSizeHalf[ 3 ] ,aSizeHalf[ 4 ], 3, 3 } // Tamanho total da tela
aAdd( aObjects, { 0 ,  0 , .T. , .T. } ) // ListBox 1
aAdd( aObjects, { 0 ,  0 , .T. , .T. } ) // ListBox 2

Função:

OFIOC480()