Печать ценников на кассе

Данная тмс работает у клиентов, где настроен унифицированный ценник reports.id=-1 Для данной формы в IBExprt в таблице reports у записи -1 тип ставим = 3, статус = -1, wdict_id=0, если этого не сделать, то кассир виснет.

Создать новую ТМС в кассире "печать ценников"

uses
  Graphics, Controls, Forms, Dialogs, StdCtrls,
  ComCtrls, ExtCtrls, ibquery, DB, ChequeList, FR,
  ScriptRes, Barcode, ZKassa, StrUtils, Windows, Classes,
  IBDatabase;

var iq: TIBQuery;
    trn:TIBTransaction;
    str,list_part: string;
    rep_id: integer;
begin
   iq := tibquery.create(nil);
   iq.transaction := CreateRT(CurrDB);
   iq.transaction.starttransaction;
   iq.active := False;
   iq.SQL.text:= 'select list(part_id) as part_id from doc_detail_active where doc_id= '+inttostr(ChequeList.Active.ID);
   iq.active := True;
   list_part:=iq.FieldByName('part_id').AsString;

   str:='select  w.sert,w.dsc,w.mmbsh,'+
   'w.sname,w.price,w.sizg,w.seria,w.godendo,w.ngtd,w.edizm,w.regn, w.sbase_agent_id,'+
   '  w.barcode,w.bcode_izg,w.scountry,w.kemvsert,w.docnum,w.docdate, w.docdate as commitdate,'+
   'w.docagent as sagent from (select   wb.*,1 as isfolder from   vw_warebase wb where   wb.part_id in ('+
   list_part+') order by   sname,   part_id ) w ';
   //ShowMessage(str);
   FR_ACTIVATE(0);
   DoReport(-1, 'sqltext='+ str, rmView, '');
   FR_DEACTIVATE;
end;    

меняем в зависимости от пожеланий клиента