database marmotech
screen size 24 by 80
{
               Fecha Inicial [k       ]
               Fecha Final   [p       ]
               Tipo  Venta   [tv      ]

               Codigo        [a]-[b]-[c ]-[d  ]
}
end
tables
iptb00006
attributes
k   = formonly.fech_in type date,format = "dd/mm/yy",
     comments = "Introduzca Fecha Inicial ";
p   = formonly.fech_fi type date,format = "dd/mm/yy",
     comments = "Introduzca Fecha Final";   
tv  = formonly.p_ventas type char,include = ("1","2"),
     comments = "Tipo de Venta: 1 = Local     2 = Exportacion ";
a    = iptb00006.cod_n,autonext;
b    = iptb00006.cod_grupo,autonext;
c    = iptb00006.cod_tipo,autonext;
d    = iptb00006.cod_sec,autonext;
  instructions
     delimiters " "
end