database marmotech
screen size 24 by 80
{

        Ordenamiento  [k]
        Codigo        [a]-[b]-[c ]-[d  ]
}
end
tables
iptb00002
attributes
a = iptb00002.cod_n;
b = iptb00002.cod_grupo;
c = iptb00002.cod_tipo;
d = iptb00002.cod_sec;
k = formonly.decide type char,required,autonext,
    comments = "Digite A - Alfabetico    N - Numerico",
    include = ("A","N"),upshift;
end