Раніше клієнт і сервер був як один, тому відповідно найнятий програміст особо не заморочувався на ком обєктах які створюються на клієнті а які на сервері (якщо це один компютер), але після переносу бази (окремо сервер окремо клієнт) почалися проблеми з фіскальним реєстратором
необходимо зарегистрироваться для просмотра ссылки
&НаСервере
Процедура ЗавантаженняТоварівНаСервере()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Номенклатура.Ссылка,
| Номенклатура.КодПодГрупи,
| Номенклатура.КороткаНазва,
| Номенклатура.Артикул,
| Штрихкоды.Штрихкод,
| Номенклатура.Код,
| Номенклатура.Відділ
|ПОМЕСТИТЬ ВТ_Ном
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
| ПО Номенклатура.Ссылка = Штрихкоды.Владелец
|ГДЕ
| Номенклатура.ВигрузкаКасовий = ИСТИНА
|
|СГРУППИРОВАТЬ ПО
| Номенклатура.Ссылка,
| Штрихкоды.Штрихкод,
| Номенклатура.КодПодГрупи,
| Номенклатура.КороткаНазва,
| Номенклатура.Артикул,
| Номенклатура.Код
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ВТ_Ном.Ссылка,
| ВТ_Ном.КодПодГрупи,
| ВТ_Ном.КороткаНазва,
| ВТ_Ном.Артикул,
| ВТ_Ном.Штрихкод,
| ВТ_Ном.Код,
| ВТ_Ном.Відділ
|ИЗ
| ВТ_Ном КАК ВТ_Ном
|
|СГРУППИРОВАТЬ ПО
| ВТ_Ном.Ссылка,
| ВТ_Ном.Артикул,
| ВТ_Ном.КороткаНазва,
| ВТ_Ном.Штрихкод,
| ВТ_Ном.КодПодГрупи,
| ВТ_Ном.Код,
| ВТ_Ном.Відділ";
Запрос.УстановитьПараметр("Дата", КонецДня(ТекущаяДата()));
//Запрос.УстановитьПараметр("ТипЦен", Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("000000002"));
Результат = Запрос.Выполнить().Выбрать();
Если Результат.Количество()>0 Тогда
Драйвер = Новый COMОбъект("ecrmini.t400");
Драйвер.t400me("open_port;2;115200;");
Драйвер.t400me("del_plu;2;1;");
// Драйвер.t400me("close_port;");
// Драйвер.t400me("open_port;4;115200;");
//Відділ=1;
Кількість=0;
Пока Результат.Следующий() Цикл
ЗапросЦена = Новый Запрос;
ЗапросЦена.Текст =
"ВЫБРАТЬ
| ЦеныНоменклатурыСрезПоследних.Цена
|ИЗ
| РегистрСведений.ЦеныНоменклатуры.СрезПоследних(
| &Дата,
| Номенклатура = &Номенклатура
| И ВидЦены = &ВидЦены) КАК ЦеныНоменклатурыСрезПоследних";
ЗапросЦена.УстановитьПараметр("Номенклатура", Результат.Ссылка);
ЗапросЦена.УстановитьПараметр("Дата", КонецДня(ТекущаяДата()));
ЗапросЦена.УстановитьПараметр("ВидЦены", Справочники.ВидыЦен.НайтиПоНаименованию("Роздрібна"));
РезультатЗапросаЦена = ЗапросЦена.Выполнить().Выбрать();
Цена=0;
Если РезультатЗапросаЦена.Количество()>0 Тогда
Пока РезультатЗапросаЦена.Следующий() Цикл
Цена=РезультатЗапросаЦена.Цена;
КонецЦикла;
КонецЕсли;
Если Результат.Ссылка.Весовой=Истина Тогда
Штучний=1;
Иначе
Штучний=0;
КонецЕсли;
Артикул=СокрЛП(Результат.Артикул);
Если Не ЗначениеЗаполнено(Артикул) Тогда
Артикул=Формат(Прав(Результат.Код,8));
КонецЕсли;
// сообщить(Артикул);
КодПодГрупи=Результат.КодПодГрупи;
Цена=Формат(Цена,"ЧДЦ=2; ЧРД=.; ЧГ=0");
Кількість=Формат(Кількість,"ЧДЦ=3; ЧРД=.; ЧГ=0");
Штрихкод=СокрЛП(Результат.Штрихкод);
Відділ=Результат.Відділ;
сообщить("Завантажено: "+Результат.Артикул+" "+Результат.КороткаНазва+" "+Штрихкод+" "+Результат.КодПодГрупи+" "+Цена);
Драйвер.t400me("add_plu;"+СокрЛП(Артикул)+";"+КодПодГрупи+";"+Штучний+";0;0;1;"+Відділ+";"+Цена+";"+СокрЛП(Штрихкод)+";"+СокрЛП(Результат.КороткаНазва)+";"+Кількість+";");
КонецЦикла;
Драйвер.t400me("close_port;");
сообщить("Вигрузку завершено.");
Иначе
сообщить("Немає дани для завантаження накасовий апарат !");
КОнецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗавантаженняТоварів(Команда)
ЗавантаженняТоварівНаСервере();
КонецПроцедуры
І з літератури ком обєкти сервер не передає.. або щось не правильно зрозумів
Якщо хтось підкаже як це змінити (можна і за оплату),
Потрібно щоб фіскальний отримував ті дані.
Бо все що на &клієнті виконується (тобто без процедур які виконуються на сервері)