Exemplo do Ponto de Entrada MT680GREST.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include "Protheus.ch"
/*------------------------------------------------------------------------------------------------------*
| P.E.: MT680GREST |
| Desc: P.E. após executar o Estorno do Apontamento Mod 2 |
| Links: http://tdn.totvs.com/display/public/mp/MT680GREST+-+Estorno+do+Movimento |
*------------------------------------------------------------------------------------------------------*/
User Function MT680GREST()
Local aArea := GetArea()
Local cQuery := ''
RecLock("SH6", .F.)
H6_X_TESTE := 'Estorno'
SH6->(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;