Для сохранение в 1С продаж, нужно создать в конфигурации новый модуль «SmartKassir» в разделе Общие модули» и добавить в нём следующую функцию:


Функция SaveKL(ДатаД, фирма, склад, ккм, КодТовара, ЦенаТовара, КоличествоТовара, Скидка) Экспорт
Перем Тов;
Перем ТипЦены;
Перем стНДС;
Перем ШтрихКодСтрока;
Перем КолШтрих;
Перем ДокОКС;
Перем Рез;
Рез=0;
//Ищем уже созданный документ	
есть=0;
ПоискДок = Новый Запрос;
ПоискДок.Текст = "
|ВЫБРАТЬ
|Документ.Ссылка КАК Ссылка
|ИЗ
|Документ.ОтчетОРозничныхПродажах КАК Документ
|ГДЕ
|Документ.ПометкаУдаления = Ложь И
|Документ.Организация = &Организация И
|Документ.Склад = &Склад И
|Документ.КассаККМ = &КассаККМ";

ПоискДок.УстановитьПараметр("Организация", Справочники.Организации.НайтиПоКоду(фирма));
ПоискДок.УстановитьПараметр("Склад", Справочники.Склады.НайтиПоКоду(склад));
ПоискДок.УстановитьПараметр("КассаККМ", Справочники.КассыККМ.НайтиПоКоду(ккм));

Результат = ПоискДок.Выполнить();
Если НЕ Результат.Пустой() Тогда
ВыборкаЗапр = Результат.Выбрать();
	Пока ВыборкаЗапр.Следующий() Цикл
	НужнДок = ВыборкаЗапр.Ссылка;
	ДокОКС=НужнДок.ПолучитьОбъект();
	
	если есть=0 тогда
		если Лев(ДокОКС.Дата,10)=ДатаД тогда
			//Сообщить(Лев(ДокОКС.Дата,10));
			ДокОКС.Проведен=Ложь;
			есть=1;
			Прервать;
		КонецЕсли;
	КонецЕсли;
КонецЦикла;
КонецЕсли;
    
//Создаём новый документ, если не найден
если есть=0 тогда
ДокОКС=Документы.ОтчетОРозничныхПродажах.СоздатьДокумент();	
ДатаД=СтрЗаменить(ДатаД,".","");
Сообщить(Прав(ДатаД,4)+","+Сред(ДатаД,3,2)+","+Лев(ДатаД,2));
ДокОКС.Дата = Дата(Прав(ДатаД,4),Сред(ДатаД,3,2),Лев(ДатаД,2));
//ДокОКС.Дата = ТекущаяДата();
ДокОКС.Организация = Справочники.Организации.НайтиПоКоду(фирма);
ДокОКС.Склад = Справочники.Склады.НайтиПоКоду(склад);
ДокОКС.КассаККМ = Справочники.КассыККМ.НайтиПоКоду(ккм);
ДокОКС.ВидОперации = Перечисления.ВидыОперацийОтчетОРозничныхПродажах.ОтчетККМОПродажах;
ДокОКС.ТипЦен = ТипЦены;
КонецЕсли;		
     
//Загружаем продажи	
таблица = ДокОКС.Товары;
		//For i = СтрДлина(КодТовара) To 10 Do
		//	КодТовара="0"+КодТовара;
		//EndDo;

Товар = Справочники.Номенклатура.НайтиПоКоду(КодТовара,0);
Если Товар<>Справочники.Номенклатура.ПустаяСсылка() Тогда
Попытка
Нов = таблица.добавить();
Нов.Номенклатура=Товар;
Нов.Цена=ЦенаТовара;
Нов.Количество=КоличествоТовара;
Нов.ПроцентСкидкиНаценки = Скидка;
СуммаТовара=ЦенаТовара*КоличествоТовара;
Если Скидка>0 Тогда
СуммаТовара=СуммаТовара - (СуммаТовара/100)*Скидка;
КонецЕсли;
Нов.Сумма=СуммаТовара;
Нов.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
//Сообщить(Нов.Номенклатура);
Исключение
Рез=Рез+1;
КонецПопытки;
//Устанавливаем ед. измерения
ЕдИзм=Справочники.ЕдиницыИзмерения.Выбрать();
Пока ЕдИзм.Следующий() Цикл
Если ЕдИзм.Владелец = Товар Тогда                       
Нов.ЕдиницаИзмерения=ЕдИзм.Ссылка;
Нов.Коэффициент=ЕдИзм.Коэффициент;
КонецЕсли;
КонецЦикла;
КонецЕсли;

Попытка
ДокОКС.Записать();
Исключение
Рез=Рез+1;
КонецПопытки;

Возврат Рез;
КонецФункции
