1С 8.3 Пример кассового чека в 1С
Данные > Примеры кода 1С > 1С 8.3 Текстовый документ
Перейти в раздел примеры кода 1С 8.3:
Данный пример позволяет печатать и сохранять чеки из 1С в простом текстовом формате практически на любом оборудовании всех типов розничных сетей. В коде 1С кажется, что колонки/строки сдвинуты, однако в текстовом файле и при выводе на печать, информация будет отображаться визуально ровно (как на изображении).
визуальное изображение чека
Пример кода для чека сдедствами 1С 8.3:
&НаКлиенте
Процедура ПримерЧекаИз1С()
КаталогДляЧеков = "C:\Temp1C\";
//СоздатьКаталог(КаталогДляЧеков); // Имя каталога (путь)
//прим.асинхр.вызов
НачатьСозданиеКаталога(Новый ОписаниеОповещения("СоздатьКаталогЗавершение", ЭтотОбъект), КаталогДляЧеков);
Текст_Чека = Новый ТекстовыйДокумент;
// Наполнение чека содержимым
Текст_Чека.УстановитьТекст("
|==============================================
| ДОБРО ПОЖАЛОВАТЬ!
| КАССОВЫЙ ЧЕК
|ПРИХОД
| 09.06.2021 09:12
|----------------------------------------------
|
|Робот-пылесос Roidmi Eve Plus арт. 1001.52.108
| (для уборки пола, 50 Вт (+ 850 Вт - станция)
| 1.000 х 1195.00 = 1195.00
|НДС 20%= 199.17 СКИДКА= 130.00
|ТОВАР
|----------------------------------------------
|ИТОГ = 1065.00
|----------------------------------------------
|ОПЛАТА
| НАЛИЧНЫМИ = 1065.00
|СНО: УСН доход-расход
| СУММА С НДС =1065.00
| В ТОМ ЧИСЛЕ НДС 20% =177.50
|КАССИР: Администратор
|
|ПОДПИСЬ:______________________________________
| СПАСИБО ЗА ПОКУПКУ!
|==============================================");
// Запись/перезапись файла (C:\Temp1C\receipt.txt) на диск
// Параметры: путь, кодировка, разделитель строк
//Текст_Чека.Записать(КаталогДляЧеков + "\receipt.txt",
//КодировкаТекста.UTF8, Символы.ВК + Символы.ПС);
Текст_Чека.НачатьЗапись(новый ОписаниеОповещения, КаталогДляЧеков + "\receipt.txt"); //прим.асинхр.вызов
// Открытие созданного файла в блокноте
//ЗапуститьПриложение(КаталогДляЧеков + "\receipt.txt");
//НачатьЗапускПриложения(); //прим.асинхр.вызов
КонецПроцедуры
&НаКлиенте
Процедура СоздатьКаталогЗавершение(КаталогДляЧеков, Дополнительно)
Сообщ = Новый СообщениеПользователю;
Сообщ.Текст = "Каталог для чеков: " + КаталогДляЧеков + " создан";
Сообщ.Сообщить();
КонецПроцедуры
Процедура ПримерЧекаИз1С()
КаталогДляЧеков = "C:\Temp1C\";
//СоздатьКаталог(КаталогДляЧеков); // Имя каталога (путь)
//прим.асинхр.вызов
НачатьСозданиеКаталога(Новый ОписаниеОповещения("СоздатьКаталогЗавершение", ЭтотОбъект), КаталогДляЧеков);
Текст_Чека = Новый ТекстовыйДокумент;
// Наполнение чека содержимым
Текст_Чека.УстановитьТекст("
|==============================================
| ДОБРО ПОЖАЛОВАТЬ!
| КАССОВЫЙ ЧЕК
|ПРИХОД
| 09.06.2021 09:12
|----------------------------------------------
|
|Робот-пылесос Roidmi Eve Plus арт. 1001.52.108
| (для уборки пола, 50 Вт (+ 850 Вт - станция)
| 1.000 х 1195.00 = 1195.00
|НДС 20%= 199.17 СКИДКА= 130.00
|ТОВАР
|----------------------------------------------
|ИТОГ = 1065.00
|----------------------------------------------
|ОПЛАТА
| НАЛИЧНЫМИ = 1065.00
|СНО: УСН доход-расход
| СУММА С НДС =1065.00
| В ТОМ ЧИСЛЕ НДС 20% =177.50
|КАССИР: Администратор
|
|ПОДПИСЬ:______________________________________
| СПАСИБО ЗА ПОКУПКУ!
|==============================================");
// Запись/перезапись файла (C:\Temp1C\receipt.txt) на диск
// Параметры: путь, кодировка, разделитель строк
//Текст_Чека.Записать(КаталогДляЧеков + "\receipt.txt",
//КодировкаТекста.UTF8, Символы.ВК + Символы.ПС);
Текст_Чека.НачатьЗапись(новый ОписаниеОповещения, КаталогДляЧеков + "\receipt.txt"); //прим.асинхр.вызов
// Открытие созданного файла в блокноте
//ЗапуститьПриложение(КаталогДляЧеков + "\receipt.txt");
//НачатьЗапускПриложения(); //прим.асинхр.вызов
КонецПроцедуры
&НаКлиенте
Процедура СоздатьКаталогЗавершение(КаталогДляЧеков, Дополнительно)
Сообщ = Новый СообщениеПользователю;
Сообщ.Текст = "Каталог для чеков: " + КаталогДляЧеков + " создан";
Сообщ.Сообщить();
КонецПроцедуры
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник