Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 9

changes.mady.by.user Isabel Noguti

Gravado em

comparado com

Nova versão 10

changes.mady.by.user Isabel Noguti

Gravado em

Chave

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

Rotina Automática para transferência de funcionários GPEA180

Produto:

Microsiga Protheus®

Versões:

12.1.17

Ocorrência:

Exemplo de uso da Rotina Automática(ExecAuto) para Transferência de Funcionários - GPEA180

Ambiente:

P12

Passo a passo:

Essa rotina tem por objetivo, realizar a transferência de um ou mais funcionários existentes na filial logada:

Sintaxe:GPEA180( nOpcAuto, aAutoItens, dDataTransf )
Parâmetros:
nOpcAutoOperação - 6 (Transferir)
aAutoItens

Array com as informações dos funcionários a serem transferidos:

aAutoItens[x][1] - Filial Origem do funcionário (String)

aAutoItens[x][2] - Matrícula Origem do funcionário (String)

aAutoItens[x][3] - Array com os campos do funcionário cuja transferência será efetuada

aAutoItens[x][3][y][1] - Nome do campo que sofrerá transferência na SRA (String)

aAutoItens[x][3][y][2] - Novo conteúdo - Destino (String)

Onde:

x = número de funcionários da filial logada a serem transferidos e,

y = número de campos a serem transferidos de cada funcionário.

dDataTransf

Data da transferência (opcional)

Formato: data

Caso não seja passada por parâmetro, a data utilizada será a data base do sistema.

Exemplo:
Bloco de código
titleExecAuto - GPEA180
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function TRANSF()
	Local aAutoItens			:= {}
	Local aCampos			:= {}
	Local dDataTransf		:= CtoD("15/10/2018")
	Private lMsErroAuto	:= .F.


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

	ConOut(Repl("-",80))
	ConOut("Inicio: "+Time())
	ConOut(PadC("Rotina Automatica Transferencia de funcionarios - SRA",80))
 
        aAdd( aCampos, { "RA_MAT"		, "000002" } )
        aAdd( aCampos, { "RA_DEPTO", "000000002" } )
        aAdd( aItens, { "01", "000001", aCampos } )
 
	//chamada ExecAuto
	MSExecAuto( {|x,y,z| GPEA180(x,y,z)}, 6, aAutoItens, dDataTransf )

	If !lMsErroAuto
		ConOut("**** Transferido com sucesso! ****")
	Else
		MostraErro()
		ConOut("Erro na Transferência!")
	EndIf

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

	RESET ENVIRONMENT

Return NIL