 // пример скрипта печати в розничном чеке

var
  DATASET :TDataset; // датасет с товарами. Набор полей смотрите в чеке розницы
  Summary :Currency; // сумма по чеку
  PaySummary :Currency; // Внесено денег
  Discount   :double; // процент надбавки/скидки
  DiscountSummary :double; // сумма надбавки/скидки
  ClientName :string; // имя контрагента
  ClientID :integer; // код контрагента
  AddInfo :string; // доп. инфо к контрагенту
  Doc_Reason :string; // код основания в чеке
  Doc_Reason_Name :string; // наименование основания в чеке


begin
  begin
     with TMyWait.create('Идет печать чека') do
     try
       dataset.disablecontrols;
       try
         dataset.first;
         while not dataset.eof do
         begin

           CreateHIntI('Позиция:' +dataset.fieldbyname('name').asstring + ':'
                        +dataset.fieldbyname('kol').asstring + ':' + dataset.fieldbyname('cena').asstring);
           dataset.next;
         end;

         CreateHIntI('Сумма по чеку: '+FloatTostr(Summary)+',Внесено: '+FloatTostr(PaySummary));
         CreateHIntI('Скидка%: '+floatTostr(Discount)+',Сумма: '+FloatTostr(DiscountSummary));
         CreateHIntI('Клиент: '+inttostr(ClientID)+',Наименование: '+ClientName+',доп:'+AddInfo);
         CreateHIntI('Осн: '+Doc_reason+',Наименование: '+Doc_reason_name);
       finally
         dataset.enablecontrols;
       end;

     finally
       free
     end;
  end;


end.
