Скрипт меняющий цены в прайс-листе, на основе чеков. Для микрокассы.

Вопросы по установке, настройке, сопровождению программ Меркурий-ERP и Меркурий-POS. Экспорт и импорт данных.
Аватара пользователя
admin
Site Admin
Сообщения: 123
Зарегистрирован: Ср апр 05, 2017 6:05 pm

Скрипт меняющий цены в прайс-листе, на основе чеков. Для микрокассы.

Сообщение admin » Пт апр 20, 2018 8:50 am

Код: Выделить всё

execute block
as
declare variable fk_cena integer;
declare variable fk_tov integer;
declare variable cena decimal(12,2);
begin
 select first 1 field_key from bd_cena into :fk_cena;

 for select distinct bd_ch21.fk_bd_tovar, bd_ch21.cena from bd_ch21
 into :fk_tov, :cena
 do
  insert into bd_cpr (fk_bd_tovar, fk_bd_cena, cena, workplace, fk_bd_operation, start_date, start_time, last_date, last_time)
  values (:fk_tov, :fk_cena, :cena, '', 0, current_date, current_time, current_date, current_time);
end

Вернуться в «Администрирование и программирование»

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 1 гость