Exemplo do Ponto de Entrada MT681INC.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include "Protheus.ch"
/*------------------------------------------------------------------------------------------------------*
| P.E.: MT681INC |
| Desc: Validação do usuário (Confirmação), na inclusão de Produção PCP Modelo 2 |
| Links: http://tdn.totvs.com/pages/releaseview.action?pageId=6089415 |
*------------------------------------------------------------------------------------------------------*/
User Function MT681INC()
Local aArea:= GetArea()
RecLock("SH6", .F.)
H6_X_TESTE := 'Teste'
SH6->(MsUnlock())
RestArea(aArea)
Return .T.
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;