VARIAVEL z_chr_eject = chr(12) 
 
VARIAVEL Z_tabela  = 0 
VARIAVEL Z_AAMM    = Substr( Dtos(date()), 3, 4) 
 
VARIAVEL z_nd_periodo = 0 
VARIAVEL znd_a_trab   = 0 
VARIAVEL znd_feriados = 0 
VARIAVEL znd_domingos = 0 
VARIAVEL znh_a_trab   = 0 
VARIAVEL zdiaini      = 31 
VARIAVEL zdiafim      = 0 
 
T10,10,17,60,Parametros 
T2,2,Tabela...:,2,z_tabela,99 
T3,2,Ano e Mes:,4,z_aamm,9999 
 
COMANDO ANTES zfp_ptth = "ptth"+Z_aamm 
COMANDO ANTES Abra ('0', r_siga, zfp_ptth,  'fp_ptth',  zfp_ptth, 'STR(TABELA,2)+ANOMES+STRZERO(DIA,2)') 
COMANDO ANTES DbSelectArea("FP_PTFUN") 
COMANDO ANTES Z_SETCENT = __SetCentury("on") 
COMANDO DURANTE DBGOBOTTOM() 
 
D[z_chr_eject] 
DIMPRESSAO DA TABELA DE HORARIOS [Z_TABELA], p/ Ano e Mes: [z_aamm]   em [date()] 
D-------------------------------------------------------------------------------- 
D 
D            1o TURNO         2o TURNO 
D Dia     Entrada  Saida   Entrada  Saida    H_Trab     Obs 
D 
*xxx  xx    hh:hh  hh:mm     hh:mm  hh:mm     hh:mm     . 
 
SUBLIST FP_PTTH 
COMANDO ANTES DbSeek(Str(z_tabela,2)) 
 
REPITA ENQUANTO Z_tabela = tabela 
 
COMANDO DURANTE Z_data       = ctod(Str(Dia,2)+"."+Right(AnoMes,2)+"."+left(AnoMes,2)) 
COMANDO DURANTE z_nhd_atrab  = hhmm2min("HM",h2)-hhmm2min("HM",h1) 
COMANDO DURANTE z_nhd_atrab  = z_nhd_atrab + hhmm2min("HM",h4)-hhmm2min("HM",h3) 
COMANDO DURANTE znd_a_trab   = znd_a_trab + if(z_nhd_atrab>0,1,0) 
COMANDO DURANTE znd_feriados = znd_feriados + if(z_nhd_atrab=0.and.dow(z_data)<>1,1,0) 
COMANDO DURANTE znd_domingos = znd_domingos + if(z_nhd_atrab=0.and.dow(z_data)=1,1,0) 
COMANDO DURANTE znh_a_trab   = znh_a_trab + z_nhd_atrab 
COMANDO DURANTE z_nd_periodo = z_nd_periodo+1 
COMANDO DURANTE znd_a_trab   = znd_a_trab+If(z_nhd_atrab>0,1,0) 
COMANDO DURANTE zdiaini      = if(dia<zdiaini,dia,zdiaini) 
COMANDO DURANTE zdiafim      = if(dia>zdiafim,dia,zdiafim) 
 
COMANDO DURANTE Z_STRHT = Substr('DomSegTerQuaQuiSexSab',dow(z_data)*3-2,3)+"  "+StrZero(Dia,2)+"    " 
COMANDO DURANTE Z_HAJUS = if(z_nhd_atrab=0,"**:**  **:**     **:**  **:**",H1+"  "+H2+"     "+H3+"  "+H4)+"     " 
COMANDO DURANTE Z_STRHT = Z_STRHT + Z_HAJUS + hhmm2min("MH",z_nhd_atrab) + "     " 
COMANDO DURANTE Z_SITSTR = if(z_nhd_atrab=0, If(dow(z_data)=1,"Descanso Semanal","Dia Feriado") ,"") 
 
D[z_strht] [z_sitstr] 
 
COMANDO DEPOIS z_nd_periodo = zdiafim-zdiaini+1 
 
ULTPAG 
ULTPAG-------------------------------------------------------------------------------- 
ULTPAG        Dias do Periodo..: [z_nd_periodo 999]                Dias de Domingos: [znd_domingos 999] 
ULTPAG        Horas A TRABALHAR: [hhmm2min("MH",znh_a_trab)]             Dias Feriados...: [znd_feriados 999] 
ULTPAG-------------------------------------------------------------------------------- 
FIM SUBLIST 
COMANDO DEPOIS __SetCentury(Z_SETCENT) 
 