Perguntas Rotina Automatica MDTA695

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,
Unknown macro: {"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, {
Unknown macro: {"TNF_CODEPI",	'000000000000001' ,	Nil }
,;
Unknown macro: {"TNF_FORNEC", '000001', Nil }
,;
Unknown macro: {"TNF_LOJA", '00', Nil }
,;	
Unknown macro: {"TNF_MAT", '000002', Nil }
,;
Unknown macro: {"TNF_DTENTR", Date(), Nil }
,;
Unknown macro: {"TNF_HRENTR", Time(), Nil }
,;
{"TNF_QTDENT", 1, Nil }})
dbSelectArea("SRA")
dbSetOrder(1)
dbSelectArea("TNF")
MSExecAuto(
Unknown macro: {|x,z,y,w| MDTA695(x,z,y,w)}
,, aFunc, aItem, nOpcao )
If lMSErroAuto
MostraErro()
Endif
Return