INDEX FP_PTFU2 Fnome 
OUTROARQ LOJAS LOJAS CR_LOCAL 
 
VARIAVEL Z_AAMM      = right(str(year(date()),4),2)+strzero(month(date()),2) 
VARIAVEL Z_LOJA      = If(val(GETENV("LOJA"))>0,GETENV("LOJA"),"00") 
VARIAVEL LST_TP      = 999 
VARIAVEL z_chr_eject = chr(12) 
VARIAVEL Z_DATAREF   = DATE() 
 
VARIAVEL ZNF = 0 
VARIAVEL ZCAB01="лл  лл лллллл лллллл лллллл лллллл лл лллллл       ллллл  лллллл" 
VARIAVEL ZCAB02="лллллл лл  лл лллллл лллллл лллллл лл лл  лл       лл  лл ллллл" 
VARIAVEL ZCAB03="лл  лл лллллл лл плл лл  лл лл плл лл лллллл       лллллп лллллл" 
VARIAVEL ZCAB04="лллллл лллллл лллллл ллллл  лллллл лл     лл  лл лллллл" 
VARIAVEL ZCAB05="  лл   лллллл лллллл лллллп лллллл лл     лллллл лл  лл" 
VARIAVEL ZCAB06="  лл   лл плл лл  лл лллллп лл  лл лллллл лл  лл лллллл" 
VARIAVEL Z_SPCS1=SPAC( (132-LEN(ZCAB01))/2 ) 
VARIAVEL Z_SPCS2=SPAC( (132-LEN(ZCAB04))/2 ) 
 
T12,10,18,60,Parametros 
T2,2,Loja...........:,2,z_loja,99 
T4,2,Data Referencia:,8,Z_DATAREF,99.99.99 
 
COMANDO ANTES Z_AAMM  = SUBSTR( DTOS(Z_DATAREF) ,3, 4) 
COMANDO ANTES zfp_ptth = "ptth"+Z_aamm 
* COMANDO ANTES zfp_ptfo = "ptfo"+Z_aamm 
COMANDO ANTES Abra ('0', r_siga, zfp_ptth, 'fp_ptth', zfp_ptth, 'STR(TABELA,2)+ANOMES+STRZERO(DIA,2)') 
* COMANDO ANTES Abra ('0', r_siga, zfp_ptfo, 'fp_ptfo', zfp_ptfo, 'STR(fnumero,5)+ANOMES+STRZERO(DIA,2)') 
COMANDO ANTES DbSelectArea("FP_PTFUN") 
COMANDO ANTES Z_SETCENT = __SetCentury("on") 
 
COMANDO ANTES LOJAS->(DBSEEK(Z_LOJA)) 
COMANDO ANTES Z_FANTASIA = LOJAS->CR_FANTASI 
COMANDO ANTES Z_RAZSOC   = LOJAS->CR_NOME 
COMANDO ANTES Z_CNPJ     = LOJAS->CR_CGC 
COMANDO ANTES Z_ENDERECO = ALLTRIM(LOJAS->CR_ENDER) 
COMANDO ANTES Z_BAIRRO   = ALLTRIM(LOJAS->CR_BAIRRO) 
COMANDO ANTES Z_CEP      = LOJAS->CR_CEP 
COMANDO ANTES Z_CIDADE   = ALLTRIM(LOJAS->CR_CIDADE) 
COMANDO ANTES Z_UF       = LOJAS->CR_UF 
 
FILTRO !FFG_DEMIT.AND.RELOGIO=VAL(Z_LOJA) 
 
COMANDO DURANTE ZNF = ZNF + 1 
COMANDO DURANTE z_ctps_ns = STRZERO(VAL(FCTPS),5)+" "+STRZERO(FSERIECTPS,5) 
COMANDO DURANTE Z_MATR    = STRZERO(FNUMERO,5) 
COMANDO DURANTE Z_TABELA  = FTABELA 
COMANDO DURANTE Z_DIAINI  = "00" 
COMANDO DURANTE #TEXTO_FONTE 
        private z_data
        DbSelectArea("fp_ptth") 
        DbSeek(Str(z_tabela,2)) 
        While z_tabela=tabela .and. .not. eof() 
           z_data:=ctod(strzero(dia,2)+'.'+right(anomes,2)+'.'+left(anomes,2)) 
           if dow(z_data) = 1 
              Z_DiaIni:=StrZero(Dia,2) 
              exit 
           endif 
           DbSkip() 
        EndDo 
        DbSelectArea("fp_ptfun") 
#FIM_TEXTO_FONTE 
COMANDO DURANTE Z_CHAVETH = STRZERO(FTABELA,2)+ Z_AAMM + Z_DiaIni 
COMANDO DURANTE z_fgtemth = (z_diaini<>"00") 
COMANDO DURANTE Z_TH1 = FP_PTTH->(" 1 Dom   "+if(z_fgtemth,H1+"  "+H2+" "+H3+"  "+H4,"     Descanso Semanal    ")) 
COMANDO DURANTE FP_PTTH->(DbSkip()) 
COMANDO DURANTE Z_TH2 = FP_PTTH->(" 2 Seg   "+if(z_fgtemth,H1+"  "+H2+" "+H3+"  "+H4,"* Dispensado do Ponto *")) 
COMANDO DURANTE FP_PTTH->(DbSkip()) 
COMANDO DURANTE Z_TH3 = FP_PTTH->(" 3 Ter   "+if(z_fgtemth,H1+"  "+H2+" "+H3+"  "+H4,"* Dispensado do Ponto *")) 
COMANDO DURANTE FP_PTTH->(DbSkip()) 
COMANDO DURANTE Z_TH4 = FP_PTTH->(" 4 Qua   "+if(z_fgtemth,H1+"  "+H2+" "+H3+"  "+H4,"* Dispensado do Ponto *")) 
COMANDO DURANTE FP_PTTH->(DbSkip()) 
COMANDO DURANTE Z_TH5 = FP_PTTH->(" 5 Qui   "+if(z_fgtemth,H1+"  "+H2+" "+H3+"  "+H4,"* Dispensado do Ponto *")) 
COMANDO DURANTE FP_PTTH->(DbSkip()) 
COMANDO DURANTE Z_TH6 = FP_PTTH->(" 6 Sex   "+if(z_fgtemth,H1+"  "+H2+" "+H3+"  "+H4,"* Dispensado do Ponto *")) 
COMANDO DURANTE FP_PTTH->(DbSkip()) 
COMANDO DURANTE Z_TH7 = FP_PTTH->(" 7 Sab   "+if(z_fgtemth,H1+"  "+H2+" "+H3+"  "+H4,"* Dispensado do Ponto *")) 
 
*- CHORARIO DE TRABALHO 
FILTROIMP ZNF=1    .or. znf%5+1=1
D[CHR(15)] 
FILTROIMP ZNF=1    .or. znf%5+1=1
D[Z_SPCS1][ZCAB01] 
FILTROIMP ZNF=1    .or. znf%5+1=1
D[Z_SPCS1][ZCAB02] 
FILTROIMP ZNF=1    .or. znf%5+1=1
D[Z_SPCS1][ZCAB03] 
FILTROIMP ZNF=1    .or. znf%5+1=1
D 
FILTROIMP ZNF=1    .or. znf%5+1=1
D[Z_SPCS2][ZCAB04] 
FILTROIMP ZNF=1    .or. znf%5+1=1
D[Z_SPCS2][ZCAB05] 
FILTROIMP ZNF=1    .or. znf%5+1=1
D[Z_SPCS2][ZCAB06] 
FILTROIMP ZNF=1    .or. znf%5+1=1
D                                                                                                Pag:[pag 999] 
FILTROIMP ZNF=1    .or. znf%5+1=1
D[REPL("-",132)] 
FILTROIMP ZNF=1    .or. znf%5+1=1
DEMPREGADOR: [Z_FANTASIA @S30] Fantasia: [Z_RAZSOC @S30]    C.G.C.: [Z_CNPJ] 
*DCEMPREGADOR: [Z_RAZSOC @S40] 
FILTROIMP ZNF=1    .or. znf%5+1=1
DENDERECO..: [Z_ENDERECO] * [Z_BAIRRO] * [Z_CEP] * [Z_CIDADE] * [Z_UF] * ATIVIDADE: COMERCIO VAREJISTA DE CALCADOS 
FILTROIMP ZNF=1    .or. znf%5+1=1
D[REPL("=",132)] 
FILTROIMP ZNF=1    .or. znf%5+1=1
DMatr  Nome do Funcionario                     Funcao/Cargo          Secao  CTPS/Serie     Dia Entrada   Intervalo   Saida 
FILTROIMP ZNF=1    .or. znf%5+1=1
D[REPL("=",132)] 
FILTROIMP ZNF=1    .or. znf%5+1=1
D 
 
D[FNUMERO 9999] [FNOME @s35] Tb[strzero(z_tabela,2)] [FCARGO @S22] LOJA [z_ctps_ns]  [Z_TH1] 
D                                                                                       [Z_TH2] 
D                                                                                       [Z_TH3] 
D                                                                                       [Z_TH4] 
D________________________________                                                       [Z_TH5] 
D        Visto do Fiscal                                                                [Z_TH6] 
D                                                                                       [Z_TH7] 
D[REPL("-",132)] 
 
COMANDO DEPOIS FP_PTTH->(DbCloseArea()) 
ULTPAG 
ULTPAG 
ULTPAG _______________________________________________ 
ULTPAG Assinatura do Empregador ou Representante Legal 
 
