Exemplo do Ponto de Entrada MT010EXC.
Exemplo do Ponto de Entrada:
//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;