* Добавление товаров по заказу на склад
SELECT T_na_postavku
* Проходим по всем товарам в заказе
SCAN FOR zakaz = current_order
    SELECT sklad
    LOCATE FOR good_code = T_na_postavku.t_code
    * Если товар с таким кодом уже есть на складе
    IF FOUND() THEN
    * То просто обновляем количество
        UPDATE sklad SET kolichestvo = kolichestvo + T_na_postavku.kolichestvo;
         WHERE good_code = T_na_postavku.t_code
    * Иначе заносим новую запись
    ELSE
        INSERT INTO sklad (good_code, naimenovanie, kolichestvo, price);
         VALUES  (T_na_postavku.t_code, T_na_postavku.naimenovanie,;
          T_na_postavku.kolichestvo, T_na_postavku.cost/T_na_postavku.kolichestvo)
    ENDIF
ENDSC
* Проходим по всем товарам в заказе
SCAN FOR zakaz = current_order
    SELECT sklad
    LOCATE FOR good_code = T_na_postavku.t_code
    * Если товар с таким кодом уже есть на складе
    IF FOUND() THEN
    * То просто обновляем количество
        UPDATE sklad SET kolichestvo = kolichestvo + T_na_postavku.kolichestvo;
         WHERE good_code = T_na_postavku.t_code
    * Иначе заносим новую запись
    ELSE
        INSERT INTO sklad (good_code, naimenovanie, kolichestvo, price);
         VALUES  (T_na_postavku.t_code, T_na_postavku.naimenovanie,;
          T_na_postavku.kolichestvo, T_na_postavku.cost/T_na_postavku.kolichestvo)
    ENDIF
ENDSCAN