database smarmotech   
screen
{
               Ano [p   ]
               Mes [k ]
               Porciento Mayor o Igual a [p1    ]
               Codigo          [a  ][b   ][c   ][d    ]
               Tipo Inventario [tp                   ]

               
               Tipo Busqueda   [tp1                  ]       
}
end
tables
intb00006
attributes
a   = formonly.cod_n;
b   = formonly.cod_grupo;
c   = formonly.cod_tipo;
d   = formonly.cod_Sec;
COMBOBOX tp1 = formonly.busqueda, ITEMS=(("H","HISTORIAL"),("A","ACTUAL")),DEFAULT="A";
COMBOBOX tp  = formonly.tipo_invent,ITEMS=(("1", "MAT.PRIMA"), ("2","PTOS.TERMINADOS"),("3","REPUESTOS")),default="1";
k   = formonly.mes1;
p   = formonly.ano1;
p1  = formonly.p_porciento;
  instructions
     delimiters " "
end