Rotina Automática - RSP100ALT
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).
ExecAuto - 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)) //Necessá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 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 }) 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: |
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas