#Include "Protheus.ch"

User Function Auto695()

	Local aFunc := {}
	Local aItem := {}
	Local nOpcao := 4

	Private lMSHelpAuto := .T. // para nao mostrar os erro na tela
	Private lMSErroAuto := .F. // inicializa como .F., volta .T. se houver erro

	aAdd( aFunc, {"RA_MAT", '000002', Nil } )// Array com a chave, setando no funcionário a ser entregue o EPI.

	// Dados dos EPI a ser entregue ao funcionário, deve se preencher no mínimo os campos obrigatórios para que ocorra a entrega.
	aAdd( aItem, { {"TNF_CODEPI", '000000000000001' , Nil },;
	               {"TNF_FORNEC", '000001', Nil },;
 	               {"TNF_LOJA", '00', Nil },; 
	               {"TNF_MAT", '000002', Nil },;
	               {"TNF_DTENTR", Date(), Nil },;
	               {"TNF_HRENTR", Time(), Nil },;
	               {"TNF_QTDENT", 1, Nil }})

	dbSelectArea("SRA")
	dbSetOrder(1)
	dbSelectArea("TNF")
	MSExecAuto({|x,z,y,w| MDTA695(x,z,y,w)},, aFunc, aItem, nOpcao )

	If lMSErroAuto
		MostraErro()
	EndIf

Return

O Modelo acima está baseado em campos padrões sem nenhuma integração ativa ou campos adicionais. Sugere-se que o desenvolvedor efetue uma simulação manual, com as integrações ativas, e observe todos os campos que poderão ser obrigatórios e deverão ser adicionados em suas respectivas posições para evitar erro no momento da execução pela falta de campos. O modelo acima não necessariamente é funcional e trata-se apenas de um exemplo orientativo de utilização.