MA651FIL #01 - UNIVERSOADVPL

MA651FIL

 

Olá, Seja Bem-vindo!!!

Vou mostrar o uso do PE MA651FIL. Porém utilizei esse PE para adicionar botões no aRotina ao invés do filtro, já que que a rotina MATA651 não possui PE para adição de botões,

O mesmo ocorre antes de abrir a tela com os dados.

Exemplo do mesmo adicionando filtro, no caso adicionei para filtrar C2_LOCAL 'Armazém' == '01':

/*/{Protheus.doc} MA651FIL
LOCALIZAÇÃO: Function A651Filtra
Função responsável por filtrar a tabela de Ordens de Produção, antes da execução do Browse.

@author Eurai Rapelli
@since 16/09/2014

@param cFirmaCond , Caracter , Filtro gerado pela função A651Filtra().

@return cFirmaCond , Caracter , Filtro gerado pela função A651Filtra().
/*/
User Function MA651FIL()
Local cFiltro := PARAMIXB[01]

cFiltro += " .AND. C2_LOCAL = '01' "

Return( cFiltro )

 

Exemplo do PE MA651FIL adicionando botões no aRotina:

/*/{Protheus.doc} MA651FIL
LOCALIZAÇÃO: Function A651Filtra
Função responsável por filtrar a tabela de Ordens de Produção, antes da execução do Browse.

@author Eurai Rapelli
@since 16/09/2014

@param cFirmaCond , Caracter , Filtro gerado pela função A651Filtra().

@return cFirmaCond , Caracter , Filtro gerado pela função A651Filtra().
/*/
User Function MA651FIL()
Local cFiltro := PARAMIXB[01]

aAdd( aRotina, {'*Produto' ,'MATA010()' , 0, 3 } )

Return( cFiltro )

 

Esse PE nos obriga a retornar um valor para o filtro.

Local cFiltro := PARAMIXB[01], nesse momento pegamos o filtro padrão do sistema 'Ops Prevista'; Return( cFiltro ) e aqui retornamos seu próprio filtro.

E dessa forma, conseguimos usar o PE MA651FIL, destinado a filtrar os dados para adicionar botões na rotina. E sim, é possivel filtrar e adicionar botões ao mesmo tempo.

Dessa forma:

/*/{Protheus.doc} MA651FIL
LOCALIZAÇÃO: Function A651Filtra
Função responsável por filtrar a tabela de Ordens de Produção, antes da execução do Browse.

@author Eurai Rapelli
@since 16/09/2014

@param cFirmaCond , Caracter , Filtro gerado pela função A651Filtra().

@return cFirmaCond , Caracter , Filtro gerado pela função A651Filtra().
/*/
User Function MA651FIL()
Local cFiltro := PARAMIXB[01]

cFiltro += " .AND. C2_LOCAL = '01' "

aAdd( aRotina, {'*Produto' ,'MATA010()' , 0, 3 } )

Return( cFiltro )

 

Resultado:

 

MA651FIL #02 - UNIVERSOADVPL

MA651FIL #02 – UNIVERSOADVPL

 

Esse foi exemplo sobre PE MA651FIL.

 

Deixe seu comentário abaixo, assine nossa lista de e-mail e inscreva-se no nosso canal.

Um abraço!!!

 

Link para download do Fonte Completo

 

 

0 respostas

Deixe uma resposta

Want to join the discussion?
Feel free to contribute!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *