database smarmotech
screen size 24 by 80
{
               Fecha Inicial [k         ]
               Fecha Final   [p         ] 
               Departamento [l                           ] 
               Codigo Movimiento [g ]
               Codigo            [a   ]-[b   ]-[c   ]-[d    ]
}
end
tables
iptb00006,
iptb00004
ATTRIBUTES
COMBOBOX l = formonly.departamento;
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;
  instructions
     delimiters " "
end