Сам формирую, независимо от ККМ.
В других операциях (не продажа или возврат) беру из ККМ так:



Доброе время суток!
Огромное спасибо за Ваш код, я с ККТ столкнулся впервые, очень мне это помогло.
Есть вопросы:
1. У меня пример из установки драйвера (4.15). Там нет процедуры FNGetCurrentSessionParams, хотя в инструкции по программированию она есть ([Error] Main.pas(1922): Undeclared identifier: 'FNGetCurrentSessionParams'). Возможно, что Вы объект создаете сами (DrvFR:= CreateOleObject('AddIn.DrvFR');), а я использую юнит из примера?
2. "if KKM = 3 then //он-лайн": ККМ - это что? Как он задается и какие может принимать значения?
3. Вопрос по суммам. У нас возможно продавать подарочные сертификаты, потом ими оплачивать часть покупки либо полностью. Не придумал пока ничего путного, как это отразить в фискальнике и в ОФД соответственно. Все, что мне пришло в голову, это использовать Driver.DiscountOnCheck := CertifSumm, а вот дальше и возникает проблема. Driver.Summ1 - (наличные - сдача), Driver.Summ2 - безнал. Общая сумма по чеку будет Driver.Summ1 + Driver.Summ2 - Driver.DiscountOnCheck?
Заранее благодарю.

dima1208, есть несколько процедур:
GetCountLD - Метод возвращает в свойство LDCount количество логических устройств
GetFreeLDNumber - Метод возвращает в свойство LDNumber номер ближайшего свободного логического
устройства.

Зная количество ЛУ, использовать EnumLD(LDIndex)
Метод возвращает в свойства LDNumber, LDName, LDComNumber, LDBaudrate,
LDComputerName и LDTimeout параметры логического устройства с индексом из свойства LDIndex.

dima1208, можно еще воспользоваться процедурой FindDevice:
Memo.Lines.BeginUpdate;
try
Memo.Clear;
if Driver.FindDevice = 0 then
begin
Memo.Lines.Add(SDeviceFound);
Memo.Lines.Add(Format(SDeviceParams, [Driver.ComNumber,
IntToBaudRate(Driver.BaudRate)]))
end else
Memo.Lines.Add(SDeviceNotFound);
finally
Memo.Lines.EndUpdate;
end;

Близнец1980, спасибо за ответы!
Да, действительно, примеры из установки драйвера безбожно устарели, хотя сам драйвер последней версии. Если создавать объект, как это делаете Вы, то все текущие методы доступны. Правда теряется возможность выбора метода из списка (надо дописывать отсутствующие методы в юнит из примера), и невозможно в пошаговом режиме посмотреть значение переменных драйвера, не, не суть: сумма удовольствий всегда равна нулю! :-)
С подарочными сертификатами разобрался. Расскажу здесь, может кому-то сэкономит пару-тройку бессонных ночей.
В ККТ есть 16 типов оплат (таблица 5). Тип 1 - неизменный. Только наличные. А дальше кого на что фантазия подвигнет. Типы 14-16 в ОФД не передаются и в итогах закрытия смены идут отдельно от всех, хоть и увеличивают общую выручку.
Я тип 16 обозвал "Подарочные сертификаты". При продаже сертификата клиенту оплата идет как за обычное изделие: хоть наличными, хоть безналичными. Даже другим сертификатом в принципе можно. А при продаже изделия, если клиент использовал сертификат, его номинал заношу в 16 тип оплаты. И вот тут начинается вся магия: если сумма сертификата больше итоговой суммы чека, то сдача не выдается, если не хватает суммы сертификата, то клиент может доплатить хоть налом, хоть безналом, хоть и тем и другим сразу. И в случае, если есть наличные и итоговая сумма меньше, то и сдача сама считается!
Во вложении образец чека с сертификатом (красная полоса рядом с типами оплаты). Единственный вопрос: есть ли возможность получить значение "ФН" (синим обвел) - это номер документа в фискальном накопителе. Пробовал так:


Но, получил номер следующего чека (в строке "Смена: 3 Чек: 12"). А нужен именно уникальный номер в фискальнике.

Близнец1980, да, это именно оно. Я на минут 10 раньше Вашего ответа нашел в инструкции эту функцию. Еще раз огромное Вам спасибо!