Ponto de Entrada – A250ARD4

Exemplo do Ponto de Entrada A250ARD4.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"

/*--------------------------------------------------------------------------------------------------------------*
 | P.E.:  A250ARD4                                                                                              |
 | Desc:  Define o(s) empenho(s) utilizado(s) na produção                                                       |
 | Links: http://tdn.totvs.com/display/public/mp/A250ARD4+-+Seleciona+os+dados+da+Tabela+SD4+e+ordena+empenhos  |
 *--------------------------------------------------------------------------------------------------------------*/

User Function A250ARD4()
	Local aItensSD4 := ParamIXB
	Local aArea     := GetArea()
	
	If FunName() == "ZTESTE"
		MsgInfo(SD4->D4_LOTECTL)
	EndIf
	
	RestArea(aArea)
Return aItensSD4 

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