Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Produto:

Microsiga Protheus®

Versões:

Todas

Ocorrência:

Exemplo de uso da Rotina Automática(ExecAuto) para Alteração de Vagas - RSP100ALT.

Ambiente:

P11 - P12

Passo a passo:

Essa rotina tem por objetivo, realizar a Alteração de um registro no Cadastro de Vagas (SQS).

 

Sintaxe:RSP100ALT( Alias, nRegSQS , nOpc , aRotAuto )
Parâmetros: 
AliasAlias da tabela alvo - SQS
nRegNúmero do Registro - manter zero (0) para gerar automático
nOpcOperação - 4 (alteração)
aRotAuto

Array com os campos a serem gravados:

aRotAuto[1][1] - Nome do campo

aRotAuto[1][2] - Conteúdo do campo

aRotAuto[1][3] - NIL

Bloco de código
titleExecAuto - RSP100ALT
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"
#INCLUDE "RWMAKE.CH"

User Function AltVaga()
	Local nOpc 		:= 4 //alteracao
	Local aRotAuto	:= {}
	Local nReg			:= 0
	
	Private lMsErroAuto := .F.
	
	PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "RSP"
	
	ConOut(Repl("-",80))
	ConOut("Inicio: "+Time())
	ConOut(PadC("Rotina Automatica ALTERACAO VAGA - SQS",80))
	
	//NecessarioNecessário passar o Recno do registro em que deseja realizar alteração.
		dbSelectArea("SQS")
		dbSetOrder(1)
		dbSeek(xFilial("SQS","M PR 01 ")+"000006")
		
		nReg := SQS->(RECNO())
	
	//Alimentar o aRotAuto com os campos que deseja alterar.

		Aadd( aRotAuto, { "QS_DESCRIC", "Vaga alterada pela rotina automatica", Nil })
	
	//CAMPOS OPCIONAIS (todos campo sao "opcionais", basta escolher o que deseja alterar)
		//Aadd( aRotAuto, { "QS_FILPOST", "M PR 01 ", Nil }) //SE UTILIZA INTEGRACAO ORGxRSP(MV_IORGRSP), é obrigatório
		//Aadd( aRotAuto, { "QS_POSTO", "000000009", Nil }) //SE UTILIZA INTEGRACAO ORGxRSP(MV_IORGRSP), é obrigatório
	
		//Aadd( aRotAuto, { "QS_CC", "444444444", 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
 
		//Aadd( aRotAuto, { "QS_FILIAL", xFilial("SQS","M PR 01 "), Nil })
		//Aadd( aRotAuto, { "QS_VAGA", "000006", 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 naonão possui pontuacaopontuação minimamínima automaticamente
		//Aadd( aRotAuto, { "QS_MSGAPV", "000001", Nil }) 
		//Aadd( aRotAuto, { "QS_MSGREP", "000002", Nil }) 
		//Aadd( aRotAuto, { "QS_REINSC", "", Nil }) //permite reinscricaoreinscrição
		//Aadd( aRotAuto, { "QS_MATRESP", "000009", Nil })
		//Aadd( aRotAuto, { "QS_FILRESP", "01", Nil })
	

	MSExecAuto({|v,x,y,z| RSP100Alt(v,x,y,z)},"SQS",nReg,nOpc,aRotAuto)
	
	If !lMsErroAuto
		ConOut("**** Alterado com sucesso! ****")
	Else
		MostraErro()
		ConOut("Erro na Alteracao!")
	EndIf
	
	ConOut("Fim : "+Time())
	ConOut(Repl("-",80))
	
	RESET ENVIRONMENT

Return NIL

Observações: