database marmotech   
screen size 24 by 80
{
Secuencia [f007 ] Fecha     [f005     ]
Departa.  [f2  ]  [ce                              ]
\g---------------------------------------------------------------------------\g
         \g|\g          \g|\g              \g|\g             \g|\g       \g|\g
         \g|\gFicha     \g|\g H. Normales  \g|\g H. Extras   \g|\g       \g|\g
 Operacio\g|\gEmpleado  \g|\g Dir.   Ind.  \g|\g Dir.   Ind. \g|\gProduce\g|\gCantidad
\g---------------------------------------------------------------------------\g
   [ti ]  [f11 ]    [f4    ][f5    ][f6    ][f7   ] [f0  ][f002    ]
   [ti ]  [f11 ]    [f4    ][f5    ][f6    ][f7   ] [f0  ][f002    ]
   [ti ]  [f11 ]    [f4    ][f5    ][f6    ][f7   ] [f0  ][f002    ]
   [ti ]  [f11 ]    [f4    ][f5    ][f6    ][f7   ] [f0  ][f002    ]
   [ti ]  [f11 ]    [f4    ][f5    ][f6    ][f7   ] [f0  ][f002    ]

  Produce     : [des                            ][un ]
  Operacion   : [pr                             ]
  Empleado    : [a                              ]
}
end
tables
cttb00003,iptb00002 
attributes
f2 = cttb00003.departamento,required;
f007 = formonly.num_doc,noentry;
ce  = formonly.descrip2,noentry;
f005 = cttb00003.fecha,required,format = "dd/mm/yy";
f11  = cttb00003.emp_no,autonext;  
f0 = formonly.cod_prod;
pr = formonly.nombre_mq,upshift,comments = "Digite Descripcion Operacion";
ti = formonly.tipo,comments = "Digite Codigo de la Maquina";
f4 = cttb00003.h_directa,autonext;
f5 = cttb00003.h_indirecta,autonext;
f6 = cttb00003.e_directa,autonext;
f7 = cttb00003.e_indirecta,autonext;
un = formonly.medida,noentry;
f002 = cttb00003.cantidad,comments = "Digite Cantidad Producida";
des = formonly.descripcion,noentry;
a   = formonly.nombre,noentry;
instructions
 screen record scr_costos[5] (tipo,emp_no,h_directa,h_indirecta,e_directa,
                              e_indirecta,cod_prod,cantidad)
delimiters " "
end