Exemplo do Ponto de Entrada TK380BOK.
Exemplo do Ponto de Entrada:
#Include "Protheus.ch" /*--------------------------------------------------------------------------------------------------------------* | P.E.: TK380BOK | | Desc: Função chamada ao clicar no botão OK na Agenda do Operador | | Link: http://tdn.totvs.com/pages/releaseview.action?pageId=233734789 | *--------------------------------------------------------------------------------------------------------------*/ User Function TK380BOK() Local aArea := GetArea() Local aAtivs := ParamIXB[1] Alert(SUC->(RecNo())) 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;