1С:Предприятие 8.3 (8.3.15.1489) "Управление торговым предприятием для Украины", редакция 1.2. (1.2.53.1) Есть каталог товаров выгружен из Номенклатура-Действие- Вывести список... Структура у некоторых товаров достигает 5-8 подпапок. Вот такого плана. Как из такого файла корректно загрузить обратно в другую базу, что бы все товары были по своим каталогам.
1С 8.3 (8.3.11.2867) УПП 1.3 Весовой модуль Keli XK3118T1 На одной весовой при нажатии на кнопку взвешивания периодически выскакивает ошибка: (общийМодуль.ИНАГРО_ДирективыПрепроцессору.Модуль(933)): Операции сравнения на больше-меньше допустимы только для значений совпадающих примитивных типов (Булево, Число, Строка, Дата) Вес = ?(Вес<0, 0, Вес); Есть 5 весовых с одинаковыми весами и с одной и той же терминальной 1С. Поменяли ПК, индикатор весовой, кабель. Пробовали менять скорость обмена. Подскажите куда еще можно порыть?
Функция ПоказательЭлектронныхВесов(НомерВесов=1, документ = Неопределено, Организация = Неопределено, ВидСобытия = Неопределено) Экспорт Перем Вес, ВО;
Вес = Неопределено; МаксимальныйВес = 999999999;
#Если Клиент Тогда Нашли = Ложь; ВО=Справочники.ИНАГРО_ВнешнееОборудование.ПустаяСсылка(); // ищем веса для конкретного документа : Если документ<> Неопределено тогда
МетаданныеДок = документ.Метаданные();
СписокСкладов = Новый СписокЗначений; СписокСкладов.Добавить(Справочники.Склады.ПустаяСсылка()); Если ИНАГРО_ОбщегоНазначения.ЕстьРеквизитДокумента("Склад",МетаданныеДок) Тогда СписокСкладов.Добавить(Документ.Склад); КонецЕсли;
запрос= новый запрос; строкаМетаданых=Справочники.ИНАГРО_СтруктураМетаданных.НайтиПоРеквизиту("ИмяПоМетаданным", МетаданныеДок.Имя,Справочники.ИНАГРО_СтруктураМетаданных.Документы); Запрос.УстановитьПараметр("ИмяКомпьютера",ИмяКомпьютера()); Запрос.УстановитьПараметр("Документ",СтрокаМетаданых ); Запрос.УстановитьПараметр("СписокСкладов",СписокСкладов); Запрос.Текст="ВЫБРАТЬ РАЗРЕШЕННЫЕ | Справочник.Ссылка, | Регистр.Склад |ИЗ | РегистрСведений.ИНАГРО_ВнешнееОборудование КАК Регистр | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ИНАГРО_ВнешнееОборудование КАК справочник | ПО Регистр.Оборудование = Справочник.Ссылка |ГДЕ | Справочник.ПометкаУдаления = ЛОЖЬ | И справочник.ВидОборудования = ЗНАЧЕНИЕ(Перечисление.ИНАГРО_ВидыВнешнегоОборудования.Весы) | И справочник.ИмяКомпьютера = &ИмяКомпьютера | И Регистр.Документ = &Документ | И Регистр.Склад В(&СписокСкладов)";
Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Количество()=0 тогда
ИначеЕсли Выборка.Количество()=1 тогда Выборка.Следующий(); ВО=Выборка.Ссылка; Нашли =истина; ИначеЕсли Выборка.Количество()>1 Тогда Нашли = истина; СписокВО = Новый СписокЗначений; СписокВОБезСклада = Новый СписокЗначений; Пока Выборка.Следующий() Цикл // Значит В выборке есть ВО с пустым и заполненым складом - ВО с пустым складом будем отбирать отдельно Если ЗначениеЗаполнено(Выборка.Склад) Тогда СписокВО.Добавить(Выборка.ссылка); Иначе СписокВОБезСклада.Добавить(Выборка.ссылка); КонецЕсли; КонецЦикла;
Если СписокВО.Количество() > 0 Тогда СписокВыбора = СписокВО; Иначе СписокВыбора = СписокВОБезСклада; КонецЕсли; Если СписокВыбора.Количество() = 1 Тогда ВыбраныеВесы = СписокВыбора[0]; Иначе ВыбраныеВесы = СписокВыбора.ВыбратьЭлемент("Выберете весы"); КонецЕсли;
Если ВыбраныеВесы= Неопределено тогда Возврат -1; Иначе Во=ВыбраныеВесы.Значение; КонецЕсли; КонецЕсли; КонецЕсли; // если не находим тогда ищем всё что подключено к этому компу : если не Нашли тогда Запрос=Новый запрос; Запрос.УстановитьПараметр("ИмяКомпьютера",ИмяКомпьютера()); Запрос.Текст="ВЫБРАТЬ РАЗРЕШЕННЫЕ | ИНАГРО_ВнешнееОборудование.Ссылка |ИЗ | Справочник.ИНАГРО_ВнешнееОборудование КАК ИНАГРО_ВнешнееОборудование |ГДЕ | ИНАГРО_ВнешнееОборудование.ПометкаУдаления = ЛОЖЬ | И ИНАГРО_ВнешнееОборудование.ВидОборудования = ЗНАЧЕНИЕ(Перечисление.ИНАГРО_ВидыВнешнегоОборудования.Весы) | И ИНАГРО_ВнешнееОборудование.ИмяКомпьютера = &ИмяКомпьютера";
Выборка=запрос.Выполнить().Выбрать(); Если Выборка.Количество()=1 Тогда Выборка.Следующий(); ВО=Выборка.Ссылка; ИначеЕсли Выборка.Количество()>1 Тогда Нашли =истина;
СписокВыбора= Новый СписокЗначений; Пока выборка.Следующий() цикл СписокВыбора.Добавить(Выборка.ссылка); КонецЦикла; ВыбраныеВесы= СписокВыбора.ВыбратьЭлемент("Выберете весы"); Если ВыбраныеВесы= Неопределено тогда Возврат -1; иначе Во=ВыбраныеВесы.Значение; КонецЕсли; КонецЕсли; КонецЕсли; // если вобще ничего не нашли тогда : Если ВО.Пустая() Тогда ТекстСообщения=Локализация.СтрШаблон("К компьютеру """"¤1¤"""" не подключено внешнее оборудование",ИмяКомпьютера()); ОбщегоНазначения.СообщитьОбОшибке(ТекстСообщения); Возврат -1; КонецЕсли; // обрабатываем найденые веса ОбработкаВесов = Неопределено; Если ЗначениеЗаполнено(ВО.Файл) Тогда ОбработкаВесов=ВнешниеОбработки.Создать(СокрЛП(ВО.Файл)); Иначе ИмяФайла = ПолучитьИмяВременногоФайла(); ДвоичныеДанные = ВО.ХранилищеВнешнейОбработки.Получить(); Если НЕ ДвоичныеДанные = Неопределено Тогда ДвоичныеДанные.Записать(ИмяФайла); ОбработкаВесов=ВнешниеОбработки.Создать(ИмяФайла); УдалитьФайлы(ИмяФайла); КонецЕсли; КонецЕсли; Если ОбработкаВесов = Неопределено Тогда ТекстСообщения=Локализация.СтрШаблон("Обработка чтения весов для компьютера """"¤1¤"""" не задана",ИмяКомпьютера()); ОбщегоНазначения.СообщитьОбОшибке(ТекстСообщения); Возврат -1; КонецЕсли; ФормаОбработкиВесов=ОбработкаВесов.ПолучитьФорму();
//---------------------- заполнение параметров внешней обработка----------------
Если ВО.ОткрыватьМодально Тогда Вес = ФормаОбработкиВесов.ОткрытьМодально(2); Иначе ОбработкаВесов.Сформировать(); Вес=ОбработкаВесов.Вес; КонецЕсли;
Исключение
Сообщить("Весы не стабилизировались");
КонецПопытки;
МаксимальныйВес = ВО.МаксимальныйВес;
#КонецЕсли
933 строка Вес = ?(Вес < 0, 0, Вес); // проверка на ошибку Если Вес = 0 Тогда
Сообщить("Обнаружен нулевой вес"); Возврат -1;
ИначеЕсли Вес = Неопределено Тогда
Возврат -1;
Иначе
Если ИНАГРО_Элеватор.ПолучитьПараметрУчетаЭлеватора(ТекущаяДата(), "КонтролироватьМаксимальнуюГрузоподъемностьВесов", Ложь, Организация) Тогда Если Вес > МаксимальныйВес тогда Сообщить("Введённый вес превышает допустимую грузоподъемность весов - "+МаксимальныйВес); Вес = 0; КонецЕсли; КонецЕсли; Если ИНАГРО_Элеватор.ПолучитьПараметрУчетаЭлеватора(ТекущаяДата(), "ВключитьИспользованиеКамерыВТерминальномРежиме", Ложь, Организация) Тогда СписокВО = Новый СписокЗначений; Если ЗначениеЗаполнено(ВО) Тогда Если ТипЗнч(ВО) = Тип("СправочникСсылка.ИНАГРО_ВнешнееОборудование") Тогда Для Каждого СтрВо Из ВО.Камеры Цикл Если ЗначениеЗаполнено(СтрВо.Камера) Тогда СписокВО.Добавить(СтрВо.Камера); КонецЕсли; КонецЦикла; ПолучитьСнимок(Документ, ВидСобытия, СписокВО); КонецЕсли; КонецЕсли; КонецЕсли; Возврат Вес;
Не печатает один отредактированный(печатная форма) документ. Выводим на Печать документ ТТН (товаро-транспортная накладная), выбираем Таблица-Вид-Редактировать. Вписываем строку и нажимаем печатать. Печатает исходный вид документа. В счетах, накладных печатает именно отредактированный документ. Где можно убрать этот запрет?
1С Предприятие 8,3 (8.3.11.2867) Конфигурация: Управление производственным предприятием, редакция 1.3 БИТ.ФИНАНС 3.0
ТекстЗапроса = " |ВЫБРАТЬ | ИСТИНА КАК Печать, | СпрНоменклатура.Номенклатура КАК Номенклатура, | СпрНоменклатура.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры, | СпрНоменклатура.Номенклатура.ЕдиницаХраненияОстатков КАК ЕдиницаИзмерения, | 0 КАК Цена, | 1 КАК Количество |ИЗ | (ВЫБРАТЬ | СпрНоменклатура.Ссылка КАК Номенклатура, | &ПустаяХарактеристика КАК ХарактеристикаНоменклатуры | ИЗ | Справочник.Номенклатура КАК СпрНоменклатура | ГДЕ НЕ СпрНоменклатура.ЭтоГруппа | {ГДЕ | СпрНоменклатура.Ссылка.* КАК Номенклатура} | ОБЪЕДИНИТЬ ВСЕ | ВЫБРАТЬ | СпрХарактеристики.Владелец, | СпрХарактеристики.Ссылка | ИЗ | Справочник.ХарактеристикиНоменклатуры КАК СпрХарактеристики | {ГДЕ | СпрХарактеристики.Владелец.* КАК Номенклатура, | СпрХарактеристики.Ссылка.* КАК ХарактеристикаНоменклатуры} | ) КАК СпрНоменклатура |";
Если ТолькоИмеющиесяВНаличии Тогда ТекстЗапроса = ТекстЗапроса + " |ЛЕВОЕ СОЕДИНЕНИЕ | (ВЫБРАТЬ | НаСкладе.Номенклатура, | НаСкладе.ХарактеристикаНоменклатуры, | СУММА(НаСкладе.Количество) КАК Количество | ИЗ | (ВЫБРАТЬ | НаСкладе.Номенклатура, | НаСкладе.ХарактеристикаНоменклатуры, | НаСкладе.КоличествоОстаток КАК Количество | ИЗ | РегистрНакопления.ТоварыНаСкладах.Остатки(, {Номенклатура.* КАК Номенклатура, | ХарактеристикаНоменклатуры.* КАК ХарактеристикаНоменклатуры, | Склад.* КАК Склад}) КАК НаСкладе | ОБЪЕДИНИТЬ ВСЕ | ВЫБРАТЬ | ВРознице.Номенклатура, | ВРознице.ХарактеристикаНоменклатуры, | ВРознице.КоличествоОстаток КАК Количество | ИЗ | РегистрНакопления.ТоварыВРознице.Остатки(, {Номенклатура.* КАК Номенклатура, | ХарактеристикаНоменклатуры.* КАК ХарактеристикаНоменклатуры, | Склад.* КАК Склад}) КАК ВРознице | ОБЪЕДИНИТЬ ВСЕ | ВЫБРАТЬ | ВНТТ.Номенклатура, | ВНТТ.ХарактеристикаНоменклатуры, | ВНТТ.КоличествоОстаток КАК Количество | ИЗ | РегистрНакопления.ТоварыВНТТ.Остатки(, {Номенклатура.* КАК Номенклатура, | ХарактеристикаНоменклатуры.* КАК ХарактеристикаНоменклатуры, | Склад.* КАК Склад}) КАК ВНТТ | ) КАК НаСкладе | СГРУППИРОВАТЬ ПО | НаСкладе.Номенклатура, | НаСкладе.ХарактеристикаНоменклатуры | ) КАК НаСкладе |ПО | СпрНоменклатура.Номенклатура = НаСкладе.Номенклатура | И СпрНоменклатура.ХарактеристикаНоменклатуры = НаСкладе.ХарактеристикаНоменклатуры |ГДЕ | ЕСТЬNULL(НаСкладе.Количество, 0) > 0 |"; КонецЕсли;
// Соответствие имен полей в запросе и их представлений в отчете. СтруктураПредставлениеПолей = Новый Структура( "Номенклатура, ХарактеристикаНоменклатуры, Склад", "Номенклатура", "Характеристика номенклатуры", "Склад");
ПостроительОтчета.Текст = ТекстЗапроса;
ПостроительОтчета.ЗаполнитьНастройки();
// Создадим список доступных отборов. СоответствиеДоступныхОтборов = Новый Соответствие; СоответствиеДоступныхОтборов.Вставить("Номенклатура", 0); СоответствиеДоступныхОтборов.Вставить("ХарактеристикаНоменклатуры", 0); СоответствиеДоступныхОтборов.Вставить("Склад", 0);
Для Каждого ДоступноеПоле Из ПостроительОтчета.ДоступныеПоля Цикл Если СоответствиеДоступныхОтборов[ДоступноеПоле.Имя] =Неопределено Тогда ДоступноеПоле.Отбор = Ложь; Иначе ДоступноеПоле.Отбор = Истина; КонецЕсли; КонецЦикла;
// Создадим массив отборов. МассивОтбора = Новый Массив; МассивОтбора.Добавить("Номенклатура"); МассивОтбора.Добавить("ХарактеристикаНоменклатуры");
Если ТолькоИмеющиесяВНаличии Тогда МассивОтбора.Добавить("Склад"); КонецЕсли;
Для Каждого ЭлементОтбора Из МассивОтбора Цикл Если ПостроительОтчета.Отбор.Найти(ЭлементОтбора) = Неопределено Тогда ПостроительОтчета.Отбор.Добавить(ЭлементОтбора); КонецЕсли; КонецЦикла;
Для Каждого СтрокаЦен Из СтрокиЦен Цикл Если СтрокаЦен.ХарактеристикаНоменклатуры = ПустаяХарактеристика Тогда СтрокаБезХарактеристики = СтрокаЦен; ИначеЕсли СтрокаЦен.ХарактеристикаНоменклатуры = ХарактеристикаНоменклатуры Тогда СтрокаСХарактеристикой = СтрокаЦен; КонецЕсли; КонецЦикла;
Если СтрокаСХарактеристикой <> Неопределено Тогда НайденнаяСтрока = СтрокаСХарактеристикой; ИначеЕсли СтрокаБезХарактеристики <> Неопределено Тогда НайденнаяСтрока = СтрокаБезХарактеристики; Иначе НайденнаяСтрока = Неопределено; КонецЕсли;
СтрокаТовара.ЕдиницаИзмерения = НайденнаяСтрока.ЕдиницаИзмеренияЦены; Иначе Цена = 0; КонецЕсли;
СтрокаТовара.Цена = Цена; КонецЦикла;
КонецПроцедуры // ПерезаполнитьЦены()
// Функция формирует табличный документ - печатная форма ценника. // // Возвращаемое значение: // ТабличныйДокумент - сформированный табличный документ или Неопределено, если есть ошибки. // Функция ПечатьЦенника() Экспорт
Если НЕ ЗначениеЗаполнено(Организация) Тогда Предупреждение("Не выбрана организация!"); Возврат Неопределено; КонецЕсли;
ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить(); Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда ТоварКод = "Артикул"; ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда ТоварКод = "Код"; Иначе ТоварКод = ""; КонецЕсли;
Для Каждого СтрокаТаблицы Из Товары Цикл Если СтрокаТаблицы.Печать Тогда Для Тмп = 1 По СтрокаТаблицы.Количество Цикл ОбластьЦенника.Параметры.Заполнить(СтрокаТаблицы); ОбластьЦенника.Параметры.НоменклатураНаименование = СтрокаТаблицы.Номенклатура.НаименованиеПолное + ?(ТоварКод <> "", " " + СокрЛП(СтрокаТаблицы.Номенклатура[ТоварКод]), ""); ОбластьЦенника.Параметры.ХарактеристикаНаименование = СтрокаТаблицы.ХарактеристикаНоменклатуры; ОбластьЦенника.Параметры.ЕдиницаНаименование = СтрокаТаблицы.ЕдиницаИзмерения; ОбластьЦенника.Параметры.Цена = ОбщегоНазначения.ФорматСумм(СтрокаТаблицы.Цена, Валюта, "00"); ОбластьЦенника.Параметры.ДатаПечати = ДатаПечати; ОбластьЦенника.Параметры.Организация = Организация; ОбластьЦенника.Параметры.ОрганизацияНаименование = Организация;
Если ТекСтолбец = 0 Тогда ТабДокумент.Вывести(ОбластьЦенника); Иначе ТабДокумент.Присоединить(ОбластьЦенника); КонецЕсли;
ТекСтолбец = ТекСтолбец + 1;
Если ТекСтолбец = 5 Тогда ТекСтрока = ТекСтрока + 1; ТекСтолбец = 0; КонецЕсли;
Если ТекСтрока = 3 Тогда ТекСтрока = 0; ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц(); КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла;
ТабДокумент.ТолькоПросмотр = Истина;
Возврат ТабДокумент;
КонецФункции // ПечатьЦенника()
// Функция выполняет проверку параметров для заполнения цен. // // Возвращаемое значение: // Булево - Истина, если все параметры заданы. // Функция ПроверитьПараметрыЗаполненияЦен() Экспорт
Если НЕ ЗначениеЗаполнено(ТипЦен) Тогда ОбщегоНазначения.СообщитьОбОшибке("Не выбран тип цен! Укажите тип цен и повторите перезаполнение цен."); Возврат Ложь; КонецЕсли;
Если НЕ ЗначениеЗаполнено(Валюта) Тогда ОбщегоНазначения.СообщитьОбОшибке("Не выбрана валюта! Укажите валюту и повторите перезаполнение цен."); Возврат Ложь; КонецЕсли;
1с Предприятие 8.2 УПП Перестало работать регламентное задание запускающее модуль загрузки из папки в 1с документов выгруженных с другой программы на магазине. Хотел выгрузить базу себе на ПК и посмотреть локально, но фоновое задание не дает этого сделать. Все процессы и пользователи позакрывал, а оно висит( на скриншоте видно Обмен с ТТ). Каким образом его можно закрыть?
1С:Предприятие 8.2 (8.2.19.130) "Управление производственным предприятием для Украины", редакция 1.3 Есть старая база. Из нее в новую УПП нужно выгрузить сотрудников. Сохраняю отчет сотрудники. Есть обработка ЗагрузкаДанныхИзТабличногоДокумента.epf, ней добавляю физ лица. Добавляются нормально. А после добавляю сотрудников. Пишет что добавлены все, а по факту справочник Сотрудники организаций остается пустым.
yoj @ Сегодня, 9:03
, И стало выбивать ошибку Фоновое задание. Ошибка выполнения. {ОбщийМодуль.ТЦУ_ЗагрузкаПродаж.Модуль(409)}: Ошибка при вызове метода контекста (Вставить) по причине: Задано неправильное имя атрибута структуры
Функция ПолучитьРеквизитыXMLДокумента(ЧтениеXML) ДокументыXML = Новый Структура();
Batchir @ 22.12.17, 18:00
, на Инвентаризации 2 ошибки. 1. Ошибка времени выполнения: Общий модуль.ТЦУ_ЗагрузкаПродаж.Модуль(970): Ошибка при вызове метода контекста (Записать) в модуле ОбщийМодуль.ТЦУ_ЗагрузкаПродаж.Модуль, строка 970
Попытка Для каждого СтрокаXML Из ДокументXML.Detail Цикл ЗначенияСтрокиXML= СтрокаXML.Значение; Номенклатура=ПолучитьНоменклатуру(СокрЛП(ЗначенияСтрокиXML.GoodId),ОснПараметры); Если Номенклатура=Справочники.Номенклатура.ПустаяСсылка() ИЛИ Номенклатура=Неопределено Тогда ПолучОшибки("Не нашли номенклатуру по стыковке {"+СокрЛП(ЗначенияСтрокиXML.GoodId)+"} "+СокрЛП(ЗначенияСтрокиXML.GoodsItemName)+" "+СокрЛП(ПолноеИмяФайла),ОснПараметры); Номенклатура=Справочники.Номенклатура.ПустаяСсылка(); //Продолжить; КонецЕсли;
Попытка ДокInventory.Записать(РежимЗаписиДокумента.Проведение); ЧтениеXML.Закрыть(); ПереносФайлов(ОснПараметры,0); Исключение ПолучОшибки(ОписаниеОшибки(),ОснПараметры); ДокInventory.Записать(РежимЗаписиДокумента.Запись); ЧтениеXML.Закрыть(); ПереносФайлов(ОснПараметры,1); КонецПопытки;
2. Ошибка времени выполнения: Общий модуль.ТЦУ_ЗагрузкаПродаж.Модуль(138): Ошибка при вызове метода контекста (Переместить Файл) в модуле ОбщийМодуль.ТЦУ_ЗагрузкаПродаж.Модуль, строка 138
Если ЕстьОшибка=1 Тогда НашлиФайл = НайтиФайлы(ПолноеИмяФайла).Количество(); Если НашлиФайл<>0 Тогда ПереместитьФайл(ПолноеИмяФайла,СтрЗаменить(ПолноеИмяФайла,ФайлТЦУ,ФайлТЦУ_other));//файл КонецЕсли;
Не успел отредактировать. По 2 ошибку решил. Создал папку вручную)
По 1.Ошибка времени выполнения: Общий модуль.ТЦУ_ЗагрузкаПродаж.Модуль(970): Ошибка при вызове метода контекста (Записать) в модуле ОбщийМодуль.ТЦУ_ЗагрузкаПродаж.Модуль, строка 970 Ошибка тут:
Выгрузил базу с сервера на локальный ПК. Вылазит ошибка {ОбщийМодуль.ТЦУ_ЗагрузкаПродаж.Модуль(970)}: Ошибка при вызове метода контекста (Записать): Для данного документа возможность проведения отключена.
// Получим параметры работы клиента за одно обращение к серверу // Чтобы при повторном вызове этой функции не было обращений к серверу ПараметрыРаботыКлиента = СтандартныеПодсистемыКлиентПовтИсп.ПараметрыРаботыКлиента();
Если НЕ ПараметрыРаботыКлиента.ПользователюРазрешенЗапускКонфигурации Тогда Предупреждение(НСтр("ru = 'Вам не назначена роль ""Пользователь"". Запуск конфигурации невозможен.'")); Отказ = Истина; Возврат; //Дальше нет необходимости выполнения, т.к. могут быть ошибки нарушения прав КонецЕсли;
Если Не Отказ Тогда СтандартныеПодсистемыКлиент.ДействияПередНачаломРаботыСистемы(Отказ); КонецЕсли;
Batchir @ Вчера, 12:29
, Есть в регламентных задачах. И в общих модулях. Пересмотрел все вроде правильно написано. От куда что брать и куда ложить. Вот условие:
Если Лев(ИмяФайлаБезАдреса,5)="DOC_D" или Лев(ИмяФайлаБезАдреса,12)="DOC_RETURN_D" Тогда //находим код отдела в наименовании КодОтдела=СтрЗаменить(ИмяФайлаБезАдреса,"DOC_RETURN_D",""); КодОтдела=СтрЗаменить(ИмяФайлаБезАдреса,"DOC_D","");
Склад=ПолучитьСклад(СокрЛП(КодОтдела),ОснПараметры); Если Склад=Справочники.Склады.ПустаяСсылка() ИЛИ Склад=Неопределено Тогда ПолучОшибки("Не нашли стыковки склада {"+СокрЛП(КодОтдела)+"} "+СокрЛП(ИмяФайлаБезАдреса),ОснПараметры); ПереносФайлов(ОснПараметры,1); Продолжить; КонецЕсли;
СоздатьОтчетОРозничныхПродажах(ОснПараметры); ИначеЕсли Лев(ИмяФайлаБезАдреса,13)="DOC_INVENTORY" Тогда СоздатьИнвентаризацияТоваровНаСкладе(ОснПараметры); ИначеЕсли Лев(ИмяФайлаБезАдреса,11)="DOC_ORDER_D" Тогда СоздатьЗаказПоставщику(ОснПараметры); ИначеЕсли (Лев(ИмяФайлаБезАдреса,12)="DOC_PAYOUT_D") ИЛИ (Лев(ИмяФайлаБезАдреса,17)="DOC_PAYTRANSFER_D") Тогда СоздатьПКО(ОснПараметры); Иначе ПолучОшибки("Не смогли определить тип документа {"+СокрЛП(ИмяФайлаБезАдреса)+"} ",ОснПараметры); ПереносФайлов(ОснПараметры,1); КонецЕсли;
Файлы начинающиеся на DOC_D загружаются в Отчет о розничных продажах, а файлы DOC_INVENTORY в Инвентаризацию товаров на складе загружатся не хотят(((
Функция ОбработатьПараметрыЗапуска(Знач ПараметрЗапуска)
Перем Результат; Результат = Ложь;
// СтандартныеПодсистемы
// Есть ли параметры запуска Если ПустаяСтрока(ПараметрЗапуска) Тогда Возврат Результат; КонецЕсли;
// Параметр может состоять из частей, разделенных символом ";". // Первая часть - главное значение параметра запуска. // Наличие дополнительных частей определяется логикой обработки главного параметра. ПараметрыЗапуска = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ПараметрЗапуска, ";"); ЗначениеПараметраЗапуска = Врег(ПараметрыЗапуска[0]);
// ЗавершениеРаботыПользователей Результат = СоединенияИБКлиент.ОбработатьПараметрыЗапуска(ЗначениеПараметраЗапуска, ПараметрыЗапуска); // Конец ЗавершениеРаботыПользователей
// Конец СтандартныеПодсистемы
// Код конфигурации // ... // Конец кода конфигурации
// СтандартныеПодсистемы Возврат Результат; // Конец СтандартныеПодсистемы
1С Предприятие 8.2 (8.2.19.130) Управление производственным предприятием для Украины р. 1.3
Есть удаленные торговые точки (тт), там стоит программа ShopDesk. Из неё на сервер выгружаются файлы типа *.TCUDOC - поступления товаров и услуг и инвентаризации. При запуске 1с пользователем Obmen из сервера в Документы загружаются все что есть "Поступления товаров и услуг", а вот файлы с инвентаризацией не хотят. Подскажите где может быть прописана такая обработка или путь от куда брать для загрузки в 1с файлы.
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!