{
-----------------------------------------------------------------------------
FORMULARIO      : PRFMMT002
OBJETIVO        : Registro de hora personal administratico (PRPRMT002)
REALIZADO POR   : Tadeo A. Ferreras F.
FECHA           : Sept. 14, 1994
-----------------------------------------------------------------------------
}
database smarmotech    
screen size 24 by 80
{
   Semana No.   [n1  ] Rango: Del [f1      ] AL [f2      ]
   Departamento [dp  ] [ndp                         ]
   Empleado     [emp ] [nem                         ]    
\g----------------------------------------------------------------------------\g
    Fecha                      Hora Normal       Hora Extra
\g----------------------------------------------------------------------------\g
   [n       ]                  [f008    ]        [f007    ]
   [n       ]                  [f008    ]        [f007    ]
   [n       ]                  [f008    ]        [f007    ]
   [n       ]                  [f008    ]        [f007    ]
   [n       ]                  [f008    ]        [f007    ]
   [n       ]                  [f008    ]        [f007    ]
   [n       ]                  [f008    ]        [f007    ]
}
end
tables
prtb00003,prtb00002
attributes
n1    = prtb00002.num_semana,comments = 
    "Digite Numero Semana Con El Sigte. Formato mmdd Ej. 9401";
f1    = prtb00002.semana_del,noentry,format = "dd/mm/yy";
f2    = prtb00002.semana_al,noentry,format = "dd/mm/yy";
dp    = prtb00003.departamento;
emp   = prtb00003.num_emp;
ndp   = formonly.nom_dpto,noentry;
nem   = formonly.nom_emp,noentry;
n     = prtb00003.fecha,format = "dd/mm/yy";
f008  = prtb00003.hn_ind;
f007  = prtb00003.he_ind;
instructions
 screen record sc_hora[7] (fecha,hn_ind,he_ind)
 
 delimiters " "
end