#Include 'TOTVS.ch' #Include 'TBICONN.ch' #Include 'Protheus.ch' User Function AU695AT() Local aFunc := {} Local aItem := {} Local nOpcao := 3 LOCAL nAtual :=0 //Opções de apresentação/geração do log de erros disponíveis: //1- Caso o log de erros deverá aparecer em tela, defina a variável cPath como vazia e descomente na chamada da MSExecAuto. Ex: Local cPath := "" //2- Caso o log de erros deverá ser salvo em uma pasta específica dentro da pasta protheus_data, defina a variável com esse caminho e descomente na chamada da MSExecAuto. Ex: Local cPath := "\log_mdt", onde a pasta log_mdt estará dentro da pasta protheus_data //3- Caso o log de erros deverá ser salvo na pasta padrão, apenas deixe o o parâmetro comentado na chamada do MSExecAuto. A pasta padrão será dentro da pasta protheus_data, no caminho \execauto_mdt\epi Local cPath := "" Private lMSHelpAuto := .T. // para nao mostrar os erro na tela Private lMSErroAuto := .F. // inicializa como .F., volta .T. se houver erro //PREPARE ENVIRONMENT EMPRESA 'T2' FILIAL 'L MG 01' aAdd( aFunc, {"RA_MAT", '002470', 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", '02PROTEAURIPLUG' , Nil },; {"TNF_FORNEC", '001185', Nil },; {"TNF_LOJA", '01', Nil },; {"TNF_NUMCAP", '11512', Nil },; {"TNF_MAT", '002470', 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() else ConOut('Deu Certo') EndIf Return