Utilizando o campo X2_ROTINA da tabela SX2 (Tabelas de Dados)
O campo X2_ROTINA permite a execução de rotinas antes da abertura da tabela.
Ou seja
Você precisa saber quais orçamentos estão em aberto, você pode emitir um alerta ou até mesmo uma telinha exibindo os pedidos em aberto antes da rotina de orçamentos (MATA415) ser exibida.
Neste caso, não precisará utilizar pontos de entrada, basta informar sua função no campo X2_ROTINA.
Trabalhe com parâmetros para ativar ou não sua rotina, tipo: se parâmetros for verdadeiro, rode minha rotina.
Exemplo:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
#Include 'Protheus.ch' #Include 'TopConn.ch' User Function MFAT026() Local aArea := GetArea() Local lContinua := GetMv("MV_EXECORC") If lContinua Processa({|| MFAT026A()},"Verificando ","Aguarde...",.F.) Endif RestArea(aArea) Return(.T.) Static Function MFAT026A() Local aArea := GetArea() Local aAreaSCJ := SCJ->(GetArea()) Local aAreaSCK := SCK->(GetArea()) Local cQuery := "" cQuery := "SELECT COUNT(CJ_NUM) TOTAL " cQuery += "FROM "+RetSqlName("SCJ")+" SCJ " cQuery += "WHERE SCJ.CJ_FILIAL='"+xFilial("SCJ")+"' AND " cQuery += "SCJ.CJ_STATUS NOT IN('B','C') AND " cQuery += "SCJ.D_E_L_E_T_=' '" If ( SELECT("TRBTMP") ) > 0 dbSelectArea("TRBTMP") TRBTMP->(dbCloseArea()) EndIf TcQuery cQuery Alias "TRBTMP" New If TRBTMP->(!Eof()) MsgInfo("Existe(m) " + Alltrim(Str(TRBTMP->TOTAL)) + " orçamento(s) aberto(s)!","Orçamentos Abertos") Endif RestArea(aAreaSCJ) RestArea(aAreaSCK) RestArea(aArea) Return(.T.) |
-
- Tabela SX2 aberta no Configurador. Informe no campo Rotina o nome de sua função, lembre-se de colorar U_ antes do nome da função.
