database marmotech 
screen
{
               Departamento  [f1  ]
               Semi-Elaborado[f2  ]
               Ano [k   ]
               mes [p   ]
}
end
tables
cttb00003
attributes
f1  = cttb00003.departamento;
f2  = cttb00003.cod_prod;
k   = formonly.ano1 type integer;
p   = formonly.mes1 type integer;
instructions delimiters " "
end