Tempo aproximado para leitura: 00:01:20 min
Dúvida
Como realizar a customização de um evento para o painel de gestão da rotina Planta Gráfica?
Ambiente
TOTVS Manufatura - TOTVS Manufatura (Linha Protheus) - Manutenção de Ativos (SIGAMNT) -Versão 12
Solução
Deve-se utilizar a rotina Edição - MNTA905 para o cadastro do evento. Ao incluir um evento customizado, este obrigatoriamente deve utilizar o tipo 000 - Específico no campo evento, e no campo função, informar a chamada de uma função de usuário que contenha a regra definida para o evento:

#Exemplo de função customizada
User Function FunTeste( cCodigo, cTipo )
Local cQuery := ''
cQuery := "SELECT "
cQuery += "COUNT(*) TOTAL "
cQuery += "FROM "
cQuery += RetSqlName( 'STJ' ) + " STJ "
cQuery += "WHERE "
cQuery += "TJ_FILIAL = " + ValToSQL( FWxFilial( 'STJ' ) ) + " AND "
cQuery += "TJ_SITUA3CA = 'C' AND "
cQuery += "TJ_TIPOOS = " + ValToSql( cTipo ) + " AND "
cQuery += "TJ_CODBEM = " + ValToSql( cCodigo ) + " AND "
cQuery += "D_E_L_E_T_ = ' '"
Return cQuery
Importante
A função de usuário indicada no evento, deve obrigatoriamente possuir retorno de uma query. Sendo assim ao executar está query será validado se existe retorno do banco, caso sim é indicando que o evento deverá ser apresentado na Planta Gráfica. Sempre que utilizado uma função no evento, esta recebe dois parâmetros. Sendo estes: P1 - Código do Bem/Localização e P2 - Tipo Bem/Localização.
0 Comentários