GP810GRV - Reintegração de Funcionários

GP810GRV - Reintegração de Funcionários

Ponto de entrada para efetuar alterações após gravação dos dados de reintegração, sendo ela na opção de "RETROATIVA A ADMISSÃO" (lOpc = .T.) ou "A PARTIR DA DATA DA DECISÃO JUDICIAL" (lOpc = .F.).

Os parâmetros que são passados são:

• lOpcReint: variável lógica, retornando .T. ou .F. de acordo com a opção da Reintegração.
• cFilFun: carrega a filial utilizada.
• cMatFun: carrega a matricula do funcionário. Na primeira opção, carrega a mesma, na segunda opção, será a matricula antiga e que se manterá desativada.
• cNewMat: carrega o conteúdo informado no campo Nova Matricula antes de reintegrar e também será a nova matricula do funcionário. Somente será habilitado este campo/variável quando a reintegração for "A PARTIR DA DATA DA DECISÃO JUDICIAL" (lOpc = .F.).

É passada a filial com a matrícula, pois no segundo caso, como tem que entrar e incluir um novo registro para a nova matrícula, o Sistema não fica posicionado no registro e, desta forma, ele consegue encontrar e continuar no registro correto.

User function GP810GRV()

LocaL lOpc := PARAMIXB[1]
Local cFilFun := PARAMIXB[2]
Local cMat := PARAMIXB[3]
Local cNewMat := PARAMIXB[4]

Alert(lOpc )
Alert("Filial/Matricula: " + cFilFun +" / "+ cMat )
Alert("Filial/Nova Matricula: " + cFilFun +" / "+ cNewMat )

Return

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

GPEA810.PRX