Histórico da Página

GP810GRV - Ponto Reintegração de Entrada para 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.)

É passado filial junto com a matriculamatrí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