![]() |
|
Как передавать артикул во Фронтол | ☑ | ||
---|---|---|---|---|
0
Georg68
10.07.24
✎
08:23
|
Обработка Загрузка ККМ off-line
Понадобилось передавать кроме кода еще артикул товара. Вроде прописал, но не передается, где накосячил? ОстРозн = СоздатьОбъект("Запрос"); Если ОстРозн.Выполнить(ТекстОстРозн) = 0 Тогда Предупреждение("Не выполнился запрос по остаткам", 60); Возврат; КонецЕсли; СписокТоваров = СоздатьОбъект("ТаблицаЗначений"); СписокТоваров.НоваяКолонка("Код"); СписокТоваров.НоваяКолонка("Артикул"); СписокТоваров.НоваяКолонка("Штрихкод"); СписокТоваров.НоваяКолонка("Наименование"); СписокТоваров.НоваяКолонка("Цена"); СписокТоваров.НоваяКолонка("Количество"); СписокТоваров.НоваяКолонка("Уровень"); СписокТоваров.НоваяКолонка("Родитель"); СписокТоваров.НоваяКолонка("Группа"); Пока ОстРозн.Группировка("Товар") = 1 Цикл Если ОстРозн.Товар.ЭтоГруппа() = 1 Тогда Если флГруппы = 0 Тогда Продолжить; Иначе Товар = ОстРозн.Товар; СписокТоваров.НоваяСтрока(); СписокТоваров.Код = СокрЛП(Товар.Код); СписокТоваров.Артикул = СокрЛП(Товар.Артикул); СписокТоваров.Штрихкод = ""; СписокТоваров.Наименование = СокрЛП(?(Товар.ЭтоГруппа()=1,Товар.Наименование,Товар.ПолнНаименование)); СписокТоваров.Цена = ""; СписокТоваров.Количество = ""; СписокТоваров.Уровень = Товар.Уровень(); СписокТоваров.Родитель = СокрЛП(?(Товар.Родитель.Выбран()=1,Товар.Родитель.Код,"0")); СписокТоваров.Группа = Товар.ЭтоГруппа(); КонецЕсли; КонецЕсли; |
|||
1
2S
10.07.24
✎
09:10
|
Там же атоловский текстовый формат. Скачайте инструкцию интегратора, все поля описаны.
|
|||
2
Georg68
10.07.24
✎
10:41
|
Ой, не говорите мне за их инструкции) там самый ленивый уже потоптался на них, они написаны чтобы никто не смог в них разобраться и платили деньги инт еграторам от Фронтола.. Ну или я такой тупой.
|
|||
3
Georg68
10.07.24
✎
10:48
|
Вот файл загрузки.
Код, штрихкод есть, а артикул не встает ##@@&& # $$$DELETEALLWARES 00031;;_САЙТ;_САЙТ;0.00;0.0;0;0;0;0;0;0;1;1;0;0;0;1;0;;;;;;;;;;;;00031.jpg;;;;;;0;;;;;;;;;;;;;;;;;;0 37384;;ZООтовары;ZООтовары;0.00;0.0;0;0;0;0;0;0;1;1;0;00031;0;2;0;;;;;;;;;;;;37384.jpg;;;;;;0;;;;;;;;;;;;;;;;;;0 59179;;АКВАРИУМНОЕ;АКВАРИУМНОЕ;0.00;0.0;0;0;0;0;0;0;1;1;0;37384;0;3;0;;;;;;;;;;;;59179.jpg;;;;;;0;;;;;;;;;;;;;;;;;;0 33532;4620006784146;Грунт-З Кокосовая смесь 5л 00000051;Грунт-З Кокосовая смесь 5л 00000051;345.00;1.0;0;0;0;0;0;0;1;1;0;59179;1;4;0;;;;;;;;;;;;33532.jpg;;;;;;0;;;;;;;;;;;;;;;;;;0 20806;4606949021951;Растение для аквариума Тритон 13см 1333/35/38/39/41;Растение для аквариума Тритон 13см 1333/35/38/39/41;96.00;1.0;0;0;0;0;0;0;1;1;0;59179;1;4;0;;;;;;;;;;;;20806.jpg;;;;;;0;;;;;;;;;;;;;;;;;;0 |
|||
4
Ёпрст
10.07.24
✎
10:56
|
(0) а точно, только группы нужны??
У группы, поди и артикула то нет. |
|||
5
Ёпрст
10.07.24
✎
10:58
|
И за такой код, стальной линейкой бы по пальчикам..а и ладно, и так сойдет
|
|||
6
Georg68
10.07.24
✎
11:13
|
А поконкретней?)
|
|||
7
ЖНЕЦ
10.07.24
✎
12:41
|
(0) Где процедура формирования строки из строки таблицы ?
20806;4606949021951;Растение для аквариума [код][штрихкод][наименование] |
|||
8
Georg68
10.07.24
✎
11:14
|
У Группы артикула нет, только у товара.
|
|||
9
Georg68
10.07.24
✎
11:16
|
Если ПустоеЗначение(ВыбКасса) = 1 Тогда
Предупреждение("Не выбрана касса.", 60); Возврат; КонецЕсли; Если ПустоеЗначение(ВыбСклад) = 1 Тогда Предупреждение("Не выбран розничный торговый склад.", 60); Возврат; КонецЕсли; Если ПустоеЗначение(ВыбФирма) = 1 Тогда Предупреждение("Не выбрана Фирма.", 60); Возврат; КонецЕсли; Способ = СпособВыгрузки.ПолучитьЗначение(СпособВыгрузки.ТекущаяСтрока()); ТекстОстРозн = "//{{ЗАПРОС(ОстаткиРозницы) |Фирма = Регистр.ОстаткиТМЦ.Фирма; |Товар = Регистр.ОстаткиТМЦ.Номенклатура; |Склад = Регистр.ОстаткиТМЦ.Склад; |Цена = Регистр.ОстаткиТМЦ.ЦенаПрод; |Колво = Регистр.ОстаткиТМЦ.Количество; |Функция Количество = КонОст(Колво); |Группировка Товар"+?(Способ="вся номенклатура"," Все","")+"; |Группировка Цена; |Условие(Фирма = ВыбФирма); |Условие(Склад = ВыбСклад); |"//}}ЗАПРОС ; ОстРозн = СоздатьОбъект("Запрос"); Если ОстРозн.Выполнить(ТекстОстРозн) = 0 Тогда Предупреждение("Не выполнился запрос по остаткам", 60); Возврат; КонецЕсли; СписокТоваров = СоздатьОбъект("ТаблицаЗначений"); СписокТоваров.НоваяКолонка("Код"); СписокТоваров.НоваяКолонка("Артикул"); СписокТоваров.НоваяКолонка("Штрихкод"); СписокТоваров.НоваяКолонка("Наименование"); СписокТоваров.НоваяКолонка("Цена"); СписокТоваров.НоваяКолонка("Количество"); СписокТоваров.НоваяКолонка("Уровень"); СписокТоваров.НоваяКолонка("Родитель"); СписокТоваров.НоваяКолонка("Группа"); Пока ОстРозн.Группировка("Товар") = 1 Цикл Если ОстРозн.Товар.ЭтоГруппа() = 1 Тогда Если флГруппы = 0 Тогда Продолжить; Иначе Товар = ОстРозн.Товар; СписокТоваров.НоваяСтрока(); СписокТоваров.Код = СокрЛП(Товар.Код); СписокТоваров.Артикул = СокрЛП(Товар.Артикул); СписокТоваров.Штрихкод = ""; СписокТоваров.Наименование = СокрЛП(?(Товар.ЭтоГруппа()=1,Товар.Наименование,Товар.ПолнНаименование)); СписокТоваров.Цена = ""; СписокТоваров.Количество = ""; СписокТоваров.Уровень = Товар.Уровень(); СписокТоваров.Родитель = СокрЛП(?(Товар.Родитель.Выбран()=1,Товар.Родитель.Код,"0")); СписокТоваров.Группа = Товар.ЭтоГруппа(); КонецЕсли; КонецЕсли; КоличествоОбщее = ОстРозн.Количество; Пока ОстРозн.Группировка("Цена") = 1 Цикл Товар = ОстРозн.Товар; Если (КоличествоОбщее <> 0) и (ОстРозн.Количество = 0) Тогда Продолжить; КонецЕсли; СписокТоваров.НоваяСтрока(); СписокТоваров.Код = СокрЛП(Товар.Код); СписокТоваров.Артикул = СокрЛП(Товар.Артикул); СписокТоваров.Штрихкод = СокрЛП(Товар.БазоваяЕдиница.Штрихкод); СписокТоваров.Наименование = СокрЛП(Товар.ПолнНаименование); Если ОстРозн.Количество<>0 Тогда СписокТоваров.Цена = ОстРозн.Цена; ИначеЕсли глВернутьЦену(Товар,Константа.РозничныйТипЦен,,ЦенаИзСправочника) = 1 Тогда СписокТоваров.Цена = ЦенаИзСправочника; Иначе СписокТоваров.Цена = 0; КонецЕсли; СписокТоваров.Количество = ОстРозн.Количество; СписокТоваров.Уровень = Товар.Уровень(); СписокТоваров.Родитель = СокрЛП(?(Товар.Родитель.Выбран()=1,Товар.Родитель.Код,"0")); КонецЦикла; КонецЦикла; Если СписокТоваров.КоличествоСтрок() = 0 Тогда Предупреждение("Перечень товаров для загрузки пуст.", 60); Возврат; КонецЕсли; Если глККМЗагрузитьТовары(ВыбКасса, ВыбСклад.НомерСекции, СписокТоваров, ОписаниеОш) = 1 Тогда Предупреждение("Загрузка номенклатуры успешно завершена.", 3); Форма.Закрыть(); Иначе Предупреждение(ОписаниеОш, 60); КонецЕсли; КонецЦикла; КонецЦикла; КонецПроцедуры |
|||
10
Злопчинский
10.07.24
✎
11:33
|
(9) ну так в глобальном модуле
Ну так надо смотреть глККМзагрузитьтовары и там подправлять выгрузку строк товара в файл |
|||
11
Ёпрст
10.07.24
✎
12:15
|
(8) виден код формирования только для групп товара и не видно, где ниде код формирования для элементов, в который ты артикул запихиваешь
|
|||
12
Georg68
10.07.24
✎
12:32
|
1.33532;
2.4620006784146; 3.Грунт-З Кокосовая смесь 5л 00000051;Грунт-З Кокосовая смесь 5л 00000051;345.00;1.0;0;0;0;0;0;0;1;1;0;59179;1;4;0;;;;;;;;;;;;33532.jpg;;;;;;0;;;;;;;;;;;;;;;;;;0 1.СписокТоваров.НоваяКолонка("Код"); СписокТоваров.НоваяКолонка("Артикул"); 2. СписокТоваров.НоваяКолонка("Штрихкод"); 3. СписокТоваров.НоваяКолонка("Наименование"); |
|||
13
Ёпрст
10.07.24
✎
12:33
|
(12) это ни о чем. Покажи код формирования этого текста из твоей таблички значений
|
|||
14
Georg68
10.07.24
✎
12:43
|
Ну тогда не знаю.
Потому и спрашиваю |
|||
15
Ёпрст
10.07.24
✎
12:44
|
(14)ё..смотри (10)
|
|||
16
Злопчинский
10.07.24
✎
13:21
|
(15) там просто прокладка, которая передает параметры , вызовом обработки обслуживания. У меня ноут в ремонте, а так там неспешно поковыряться с десяток минут. Со смартфона неудобно ;-)
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |