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

               Codigo        [a  ]-[b  ]-[c   ]-[d    ]
               Codigo Mov    [mo  ]
               Bodega        [bo                                       ]  
          0          50            100       
         [p000                        ]      
}
end
tables
intb00006
attributes
PROGRESSBAR p000 = formonly.progreso,VALUEMIN=0,VALUEMAX=100,COLOR=GREEN;
mo  = formonly.cod_mov;
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";   
a    = intb00006.cod_n,autonext;
b    = intb00006.cod_grupo,autonext;
c    = intb00006.cod_tipo,autonext;
d    = intb00006.cod_sec,AUTONEXT;
COMBOBOX bo = formonly.bodega;
  instructions
     delimiters " "
end