database smarmotech
screen size 24 by 80
{
               Operacion     [t] [nom                 ]
               Valorizacion  [e]
               Compania      [v] [v1                  ]
               Fecha Inicial [k         ]
               Fecha Final   [p         ]
               Codigo Movimiento [g ]
               Codigo        [a]-[b]-[c ]-[d  ]
}
end
tables
iptb00006,
iptb00004
attributes
t   = formonly.v_ventas type char,include = ("1","2"),
comments = "1- LOCAL        2- EXPORTACION";
nom = formonly.nombre_ve,noentry;
v   = formonly.cod_cia type char,include = ("1","2"),comments =
"1- MARMOTECH                     ";
v1  = formonly.nombre_v,noentry;
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";   
g    = iptb00006.cod_mov;
a    = iptb00006.cod_n;
b    = iptb00006.cod_grupo;
c    = iptb00006.cod_tipo;
d    = iptb00006.cod_sec;
e    = formonly.pone_valor type smallint,include =(1,2),comments  =
"1 - Precio       2 - Costo";
  instructions
     delimiters " "
end