database smarmotech 
screen
{

         Fecha Inicial   [f1        ]
         Fecha Final     [f2        ]
         Codigo Suplidor [cs]
         Desea Afectar El Mayor?[d]
         Referencia [ed            ] Detalle [dt                                               ]

}
end
tables
cptb00001
attributes
dt = formonly.detalle1,UPSHIFT;
ed = formonly.entrada,UPSHIFT;
d  = formonly.decide, include = ("S","N"),UPSHIFT;
f1 = formonly.fecha_in type date,format = "dd/mm/yyyy";
f2 = formonly.fecha_fi type date,format = "dd/mm/yyyy";
cs = cptb00001.cod_sp;
instructions delimiters " "
end