Как рассчитать общую сумму в одном поле в процессе 4GL?

Question

Я написал запрос для расчета общей суммы в одном поле, но я мог получить итоговые записи.Позвольте мне поделиться тем, что я написал.

DEFINE VARIABLE I AS INTEGER NO-UNDO.
FIND FIRST shth_pus_head WHERE shth_pus_head.push_id = "P0000078" NO-LOCK 
NO-ERROR.
FOR EACH shtd_pus_det OF shth_pus_head NO-LOCK:
i = i + 1.
END.
DISPLAY i.

Что мне нужно, когда я вычисляю общую сумму в столбце кол-во, я хочу сумму = 1560.

(примечание - поле таблицы столбца кол-воis shtd_pus_det.qty)

Проверьте прикрепленное изображение

Answer 1

Ваш код не рассчитывает общую сумму.Подсчитывает количество записей.Чтобы суммировать поля shtd_pus_det.qty в этих записях, вы можете написать что-то вроде:

define variable tot_qty as integer no-undo.

for each shtd_pus_det no-lock where shtd_pus_det.push_id = "P0000078":
  tot_qty = tot_qty + shtd_pus_det.qty.
end.
display shtd_pus_det.qty.