#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"
#INCLUDE "RWMAKE.CH"

User Function AutRSP100()
	Local nOpc 		:= 3 //inclusao
	Local aRotAuto	:= {}
	Private lMsErroAuto := .F.


	PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "RSP"

	ConOut(Repl("-",80))
	ConOut("Inicio: "+Time())
	ConOut(PadC("Rotina Automatica INCLUSAO VAGA - SQS",80))
 
//CAMPOS OBRIGATORIOS - CADASTRO DE VAGAS
		Aadd( aRotAuto, { "QS_FILIAL", xFilial("SQS","01"), Nil })
		Aadd( aRotAuto, { "QS_DESCRIC", "VAGA ABERTA ROTINA AUTOMATICA - II", Nil })
		Aadd( aRotAuto, { "QS_FILPOST", "M PR 01", Nil }) //SE UTILIZA INTEGRAÇÃO ORGxRSP(MV_IORGRSP), é obrigatório (para os releases 12.1.23 e 12.1.25 é obrigatório independentemente do parâmetro)
		Aadd( aRotAuto, { "QS_POSTO", "000000009", Nil }) //SE UTILIZA INTEGRAÇÃO ORGxRSP(MV_IORGRSP), é obrigatório (para os releases 12.1.23 e 12.1.25 é obrigatório independentemente do parâmetro)
		Aadd( aRotAuto, { "QS_CC", "000000001", Nil })
		Aadd( aRotAuto, { "QS_FUNCAO", "00001", Nil })
		Aadd( aRotAuto, { "QS_NRVAGA", 3, Nil })
		Aadd( aRotAuto, { "QS_SOLICIT", "usuário Rotina Automatica", Nil })
		Aadd( aRotAuto, { "QS_DTABERT", DATE(), Nil })
		Aadd( aRotAuto, { "QS_TIPO", "1", Nil }) //1 - Interna/Externa ; 2 - Interna ; 3 - Externa

//CAMPOS OPCIONAIS
		//Aadd( aRotAuto, { "QS_VAGA", "000005", Nil }) 
		//Aadd( aRotAuto, { "QS_AREA", "001", Nil }) 
		//Aadd( aRotAuto, { "QS_CLIENTE", "INTERNO", Nil }) 
		//Aadd( aRotAuto, { "QS_PRAZO", 30, Nil }) 
		//Aadd( aRotAuto, { "QS_DTFECH", "", Nil }) 
		//Aadd( aRotAuto, { "QS_VAGAFEC", "", Nil }) 
		//Aadd( aRotAuto, { "QS_VCUSTO", 2000, Nil }) 
		//Aadd( aRotAuto, { "QS_PROCESS", "0001", Nil }) 
		//Aadd( aRotAuto, { "QS_TESTE", "001", Nil }) 
		//Aadd( aRotAuto, { "QS_PONTOS", 150, Nil })
		//Aadd( aRotAuto, { "QS_AUTOM", "", Nil }) //reprova candidato que não possui pontuação mínima automaticamente
		//Aadd( aRotAuto, { "QS_MSGAPV", "000001", Nil }) 
		//Aadd( aRotAuto, { "QS_MSGREP", "000002", Nil }) 
		//Aadd( aRotAuto, { "QS_REINSC", "", Nil }) //permite reinscrição
		//Aadd( aRotAuto, { "QS_MATRESP", "000009", Nil })
		//Aadd( aRotAuto, { "QS_FILRESP", "01", Nil })
 
	//chamada ExecAuto
	MSExecAuto({|v,x,y,z| RSP100Inc(v,x,y,z)},"SQS",0,nOpc,aRotAuto)

	If !lMsErroAuto
		ConOut("**** Incluido com sucesso! ****")
	Else
		MostraErro()
		ConOut("Erro na Inclusao!")
	EndIf

	ConOut("Fim : "+Time())
	ConOut(Repl("-",80))

	RESET ENVIRONMENT

Return NIL