Histórico da Página

||Descrição|| ExecAuto MDTA695  
||Observações|| A rotina ExecAuto do MDTA695  (Funcionário x EPI) realiza a entrega de EPI ao funcionário. 
||Exemplos||#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
||Preview|| 
||Veja também|| 
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus11
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates|| 
||Parâmetros|| 
||Retorno|| 
||Eventos de chamada do Ponto de Entrada|| 
||Variáveis|| 
||Programa Fonte||