CSA08001 - Informações do Funcionário -- 23078

Essa implementação permite ao usuário o preenchimento das informações do funcionário e seus respectivos aumentos em uma tabela do usuário.

Na rotina Cadastro de Aumento Programado, após confirmar os dados do aumento programado.

CSAA080.PRW

CSA08001 - Informações do Funcionário ( [ aHeader ], [ aCols1 ] )

()

Será enviado dois arrays para a função do usuário via ParamIXB.

Param1 = aHeader - Array com as informações dos campos e estrutura de dados das colunas do aumento dos funcionários

aHeader[nPos, 01]  //Descrição do campo
aHeader[nPos, 02]  //Nome do campo
aHeader[nPos, 03]  //Picture
aHeader[nPos, 04]  //Tamanho
aHeader[nPos, 05]  //Casas decimais
aHeader[nPos, 06]  //Validação do sistema
aHeader[nPos, 07]  //Valor inicial padrão
aHeader[nPos, 08]  //Tipo do Campo
aHeader[nPos, 09]  //Tabela
aHeader[nPos, 10]  //Campo virtual?

Param2 = aCols1 - Array com os dados do aumento programado.

aCols1[nPos, 1]  //Filial do funcionário
aCols1[nPos, 2]  //Matrícula do funcionário
aCols1[nPos, 3]  //Array com os dados do aumento, sendo:
aCols1[nPos, 3, 1, 01]   //Data de alteração
aCols1[nPos, 3, 1, 02]   //Tipo de alteração
aCols1[nPos, 3, 1, 03]   //Descrição da alteração
aCols1[nPos, 3, 1, 04]   //Código da Função
aCols1[nPos, 3, 1, 05]   //Descrição da função
aCols1[nPos, 3, 1, 06]   //Percentual de aumento
aCols1[nPos, 3, 1, 07]   //Salário do funcionário
aCols1[nPos, 3, 1, 08]   //Categoria funcional
aCols1[nPos, 3, 1, 09]   //Descrição da categoria
aCols1[nPos, 3, 1, 10]   //Atualizado?
aCols1[nPos, 3, 1, 11]   //Data de processamento
aCols1[nPos, 3, 1, 12]   //Deletado?

//Nesse exemplo, cria-se uma tabela temporária TRB com estrutura semelhante a de RB7, que receberá alguns dos dados que foram recebidos pelo Paramixb[2]#INCLUDE "RWMAKE.CH"  User Function CSA08001()Local aCols         := PARAMIXB[2]Local aSaveArea 	:= GetArea()Local aStruRB7   	:= RB7->( dbStruct() )  Local cExt 	        := GetDbExtension()Local cDataFile   	:= ( CriaTrab( aStruRB7 , .T. ) + cExt )Local nX 	        := 0dbUseArea(.T.,,cDataFile,"TRB",.F.,.F.)		For nX := 1 to Len( aCols )			If Reclock("TRB",.T.)				RB7_FILIAL  := aCols[nX, 1]				RB7_MAT	    := aCols[nX, 2]				RB7_DATALT 	:= aCols[nX, 3, 1, 01]  				RB7_SALARI  := aCols[nX, 3, 1, 07]				TRB->( MsUnlock() )			EndIf					Next nXdbCloseArea()RestArea(aSaveArea)		Return