INDEX temp001 fnomeguerr 
 
VARIAVEL Z_datade = date() - 30 
VARIAVEL Z_dataATE = DATE() 
VARIAVEL Z_CARGO   = SPAC(30) 
VARIAVEL Z_LOJA    = SPAC(2) 
 
* O Bloco abaixo abre uma tela 
T10,20,15,70,Parametros 
T2,2,Cargo:,30,z_cargo,@!30 
T3,2,Loja.:,2,z_loja,99 
 
* A instrucao processara apenas os registros com a condicao abaixo 
FILTRO !FFg_demit 
FILTRO Z_CARGO=SPAC(30) .OR. ALLTRIM(Z_CARGO)$FCARGO .or. alltrim(z_cargo)$ffuncao 
FILTRO Z_LOJA=SPAC(2).OR.ALLTRIM(Z_LOJA)=ALLTRIM(LCOD) 
 
VARIAVEL LST_TP=58 
 
VARIAVEL Z_Nfun = 0 
COMANDO DURANTE Z_NFUN   = Z_NFUN + 1 
COMANDO DURANTE Z_DTANIV = LEFT(DTOC(FDTNASC),5) 
COMANDO DURANTE Z_CONTRASENHA = StrZero( fnumero+Val(Substr(fcpf,5,3)), 4)+StrZero( Val( Left(str(fnumero,4),2)) ,2) 

CContra-Senhas Gerenciais
FILTROIMP Z_LOJA<>SPAC(2).OR.Z_CARGO<>SPAC(30) 
CSelecionados apenas CARGO:[Z_CARGO] LOJA:[Z_LOJA] 
 
C=============================================================================== 
CLj Matric  Apelido            Senha     Funcao                    CPF Admissao
C=============================================================================== 
 
D[lcod 99] [fnumero 999999] [FNOmeguerr @s18] [z_ContraSenha] [ffuncao @s18] [fcpf @s14] [fdtadmis]
 
ULTPAG------------------------------------------------------------------------------ 
ULTPAG *** Numero de Funcionarios Listados:   [z_nfun 999999] 
 
