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;

Links:

– Pesquisa no TDN