Exemplo do Ponto de Entrada M440STTS.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include 'Protheus.ch'
#Include 'RwMake.ch'
#Include 'TopConn.ch'

/*------------------------------------------------------------------------------------------------------*
 | P.E.:  M440STTS                                                                                      |
 | Desc:  Liberação de Pedidos - Manual                                                                 |
 | Links: http://tdn.totvs.com/pages/releaseview.action?pageId=6784166                                  |
 *------------------------------------------------------------------------------------------------------*/
 
User Function M440STTS()
	Local aArea     := GetArea()
	Local aAreaSC5  := SC5->(GetArea())
	Local aAreaSC6  := SC6->(GetArea())
	Local aAreaSB1  := SB1->(GetArea())
	
	If Alltrim(FunName()) != 'MATA440'
		Return
	EndIf
	
	RestArea(aAreaSB1)
	RestArea(aAreaSC6)
	RestArea(aAreaSC5)
	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;

Links:

– Pesquisa no TDN