database smarmotech 
screen size 24 by 80
{
          Fecha Inicial [k1      ]
          Fecha Final   [k2      ]       
          Dias Exceso   [k3 ]
          Codigo de la Materia Prima [a]-[b]-[c ]-[d  ]
}
end
tables
intb00001
attributes
k1   = formonly.fech_in type date,format = "dd/mm/yy", autonext, 
       comments = "Digite la fecha inicial.     Utilice el formato 'DDMMAA'";
k2   = formonly.fech_fi type date,format = "dd/mm/yy", autonext, 
       comments = "Digite la fecha final.     Utilice el formato 'DDMMAA'";
k3   = formonly.c_dias;
a    = intb00001.cod_n, comments = "Digite el NIVEL";
b    = intb00001.cod_grupo,comments = "Digite el GRUPO"; 
c    = intb00001.cod_tipo, comments = "Digite el TIPO";
d    = intb00001.cod_sec, 
       comments = "Digite la SECUENCIA";
end