var
  table : ttable;
begin
  table := ttable.create(selfscript);
  table.databasename := 'dbkassa';
  table.tablename := 'pr_tovar';
  table.open;
  table.indexfieldnames :='id_nakl';
  table.setrangestart;
  table.fieldbyname('id_nakl').asinteger := 1604097;
  table.setrangeend;
  table.fieldbyname('id_nakl').asinteger := 1604097;
  table.applyrange; // ([1],[1]);
  table.first;
  while not table.eof do begin
    createhinti(inttostr(table.recordcount)+' : '+inttostr(table.recno)+' : '+ asstring(table.eof),'',50);
    table.next;
  end;

  table.last;
  createhintw(inttostr(table.recordcount)+' : '+inttostr(table.recno)+' : '+ asstring(table.eof),'',50);

end.
