Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
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 ] )
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
aHeader | Array of Record | Estrutura dos dados das colunas | |||||||||||||||
aCols1 | Array of Record | Dados do aumento programado |
-
()
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
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
Array of Record | Global | Não |