database marmotech   
screen
{
               Ano [k   ]
               Mes [p ]

               Codigo [a]-[b]-[c ]-[d  ]
}
end
tables
intb00006
attributes
k   = formonly.ano1 type char,comments = "Introduzca Ano del Inventario";
p   = formonly.mes1,comments = "Introduzca mes del Inventario";
a    = intb00006.cod_n,autonext,comments =
"Digite Codigo Materia Prima";
b    = intb00006.cod_grupo,autonext,comments =
"Digite Codigo Materia Prima";
c    = intb00006.cod_tipo,autonext,comments =
"Digite Codigo Materia Prima";
d    = intb00006.cod_sec,comments =
"Digite Codigo Materia Prima";
  instructions
     delimiters " "
end