database smarmotech
screen size 24 by 80
{
         Fecha Inicial [k         ]
         Fecha Final   [p         ]
         Ano           [k1  ]

         Codigo        [a]-[b]-[c ]-[d  ]
}
end
tables
intb00001
attributes
k   = formonly.fech_in type date,format = "dd/mm/yyyy",
     comments = "Introduzca Fecha Inicial ";
p   = formonly.fech_fi type date,format = "dd/mm/yyyy",
     comments = "Introduzca Fecha Final";   
k1   = formonly.ano_act,comments = "Entre Formato 1994";
a   = intb00001.cod_n;
b   = intb00001.cod_grupo;
c   = intb00001.cod_tipo;
d   = intb00001.cod_sec;
  instructions
     delimiters " "
end