Exemplo do Ponto de Entrada MT010EXC.
Exemplo do Ponto de Entrada:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | //Bibliotecas#Include "Protheus.ch"/*------------------------------------------------------------------------------------------------------* | P.E.: MT010EXC | | Desc: Ponto de entrada após exclusão do produto | | Link: http://tdn.totvs.com/pages/releaseview.action?pageId=6087911 | *------------------------------------------------------------------------------------------------------*/User Function MT010EXC() Local aArea := GetArea() Local nXReg := 0 Local nXOpc := 5 //Grava o usuário que excluiu o produto RecLock('SB1', .F.) B1_X_EXCUS := RetCodUsr() SB1->(MsUnlock()) RestArea(aArea)Return |
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;