--[[ a3ca2f4fe17c1a87

  Tento patch prepocita sumy na obratoch tam, kde nie su zhodne
  so skutocnymi sumami vsetkych prislusnych rozuctovani.
  Sposob vykonania nie je najrychlejsi, je skor 'ukazkovy'.

  Teoreticky by nikdy nemala nastat situacia, ze sa sumy nerovnaju.
  Ale chyba je neoddelitelnou sucastou programu...
]]


if not db.Opened
then
  MessageBox('Otvorte prosím účtovníctvo, v ktorom si želáte prepočítať ' ..
  'sumy a spustite tento opravný skript znovu.', 'Prepočet', 64)

else
  local s = sql'SELECT TOTAL(Suma), ID_obratu FROM rozuctovanie GROUP BY ID_obratu'
  local q = 'UPDATE obrat SET Suma = %1 WHERE RowID = %2 AND Suma <> %1;'
  local i = 0

  progress.init(s.RowCount, 'Prepočet')
  db:begin()
  while not s.Eof do

    if not progress.step() then
      return FalseRollback()
    end

    if not db:exec(string.expand(q, s:Field(0), s:Field(1))) then
      return FalseRollback()
    end

    i = i + db.Changes
    s:Next()
  end
  db:commit()
  progress.done()

  MessageBox('Prepočet súm obratov je ukončený. Počet opravených obratov: ' .. i, 'Prepočet', 64)

end