database marmotech 
screen
{
               Departamento  [f1  ]
               Semi-Elaborado[f2  ]
               Semana Numero [sn1 ]
               Fecha: Del [k         ] Al [p         ]
}
end
tables
cttb00003
attributes
f1  = cttb00003.departamento;
f2  = cttb00003.cod_prod;
sn1 = formonly.semana_num type integer,comments = 
      "Presione CTRL-W Para desplegar semanas del mes";
k   = formonly.fecha_inicio type date,format = "dd/mm/yyyy",required;
p   = formonly.fecha_corte type date,format = "dd/mm/yyyy",required;
  instructions
     delimiters " "
end