Lotes

Lote é um conjunto de cadastros de colaboradores, com o qual pode-se realizar alguns processos como emissão de relatórios ou geração de avaliações. Pode-se definir vários lotes, atribuindo-lhes códigos diferenciados. Cada uma das empresas da base possui seu próprio conjunto de lotes. Portanto, somente estarão visíveis nesta tela os lotes associados à empresa ativa.

É possível selecionar os colaboradores do lote através de uma regra. Para isso, verifique as informações sobre o botão Filtro em seguida.

Lote
Informe um código para cadastrar este lote. O código pode ser entre 01 e 99.

Descrição
Informe um nome para identificar este lote, com até 20 posições.

Grade Colaboradores

• Tipo: informar o tipo de colaborador;
• Cadastro: informar o cadastro do colaborador que deseja incluir neste lote;
• Nome: exibe somente para consulta o nome do colaborador selecionado.

Filtro
Fica habilitado somente na inclusão de um registro. Permite chamar uma tela em que o usuário poderá informar o código de uma regra contendo somente uma cláusula "WHERE" que deverá ser atribuída à variável de sistema StrLot.

Nesta regra também é possível montar relacionamentos com outras tabelas da base, conforme demonstram os exemplos 2 e 3 abaixo. Com base nesta cláusula "WHERE", o sistema fará um "SELECT" na tabela R034FUN e trará os colaboradores selecionados para a grade da tela de Lotes.

Exemplo 1:

Regra para o filtro:

@ Colaboradores da Filial 2 @
StrLot = " WHERE R034FUN.CODFIL = 2";

Exemplo 2:

Regra para o filtro:

@ Colaboradores Demitidos a Partir de 01/01/2001 @
definir alfa StrDatAfa;
MontaData(01, 01, 2001, DatAfa);
ConverteDataBanco(DatAfa, StrDatAfa);

StrLot = ",R038AFA WHERE R038AFA.NUMEMP = R034FUN.NUMEMP AND \
R038AFA.TIPCOL = R034FUN.TIPCOL AND R038AFA.NUMCAD = R034FUN.NUMCAD \
AND R038AFA.DATAFA >= " + StrDatAfa + " AND R038AFA.SITAFA = 7";

Exemplo 3:

Regra para o filtro:

@ Retorna colaborador com tipo de apuração = 2 @
StrLot = ",R038APU WHERE R038APU.NUMEMP = R034FUN.NUMEMP AND R038APU.TIPCOL = R034FUN.TIPCOL \
AND R038APU.NUMCAD = r034fun.numcad AND R038APU.APUPON = 2 and \
R038APU.INIAPU = (SELECT MAX(INIAPU) FROM R038APU WHERE NUMEMP=R034FUN.NUMEMP AND \
TIPCOL=R034FUN.TIPCOL AND NUMCAD=R034FUN.NUMCAD)";

Veja também:

• Ficha Cadastral - Empregados