Exemplo do Ponto de Entrada M410STTS.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"

/*-------------------------------------------------------------------------------*
 | P.E.:  M410STTS                                                               |
 | Desc:  Ponto de Entrada executado após geração do pedido de venda             |
 | Links: http://tdn.totvs.com/pages/releaseview.action?pageId=6784155           |
 *-------------------------------------------------------------------------------*/

User Function M410STTS()
	Local aArea    := GetArea()
	Local aAreaC5  := SC5->(GetArea())
	Local aAreaC6  := SC6->(GetArea())
	Local aAreaC9  := SC9->(GetArea())
	Local cPedido  := SC5->C5_NUM
	Local aAreaAux := {}
	Local cBlqCred := "  "
	Local cBlqEst  := "  "
	Local aLocal   := {}

	RecLock('SC5', .F.)
		C5_X_CAMPO := 'Teste'
	SC5->(MsUnlock()

	RestArea(aAreaC9)
	RestArea(aAreaC6)
	RestArea(aAreaC5)
	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