Группа: Пользователи
Сообщений: 20
Спасибо сказали: 0 раз
Рейтинг: 0
1С Предприятие 8.2 (8.2.19.130) Управление производственным предприятием для Украины р. 1.3
Есть удаленные торговые точки (тт), там стоит программа ShopDesk. Из неё на сервер выгружаются файлы типа *.TCUDOC - поступления товаров и услуг и инвентаризации. При запуске 1с пользователем Obmen из сервера в Документы загружаются все что есть "Поступления товаров и услуг", а вот файлы с инвентаризацией не хотят. Подскажите где может быть прописана такая обработка или путь от куда брать для загрузки в 1с файлы.
Функция ОбработатьПараметрыЗапуска(Знач ПараметрЗапуска)
Перем Результат; Результат = Ложь;
// СтандартныеПодсистемы
// Есть ли параметры запуска Если ПустаяСтрока(ПараметрЗапуска) Тогда Возврат Результат; КонецЕсли;
// Параметр может состоять из частей, разделенных символом ";". // Первая часть - главное значение параметра запуска. // Наличие дополнительных частей определяется логикой обработки главного параметра. ПараметрыЗапуска = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ПараметрЗапуска, ";"); ЗначениеПараметраЗапуска = Врег(ПараметрыЗапуска[0]);
// ЗавершениеРаботыПользователей Результат = СоединенияИБКлиент.ОбработатьПараметрыЗапуска(ЗначениеПараметраЗапуска, ПараметрыЗапуска); // Конец ЗавершениеРаботыПользователей
// Конец СтандартныеПодсистемы
// Код конфигурации // ... // Конец кода конфигурации
// СтандартныеПодсистемы Возврат Результат; // Конец СтандартныеПодсистемы
Группа: Команда
Сообщений: 3568
Из: Киев
Спасибо сказали: 1434 раз
Рейтинг: 0
Цитата(yoj @ 19.12.17, 17:54)
Подскажите где может быть прописана такая обработка или путь от куда брать для загрузки в 1с файлы
Где-то в конфигураторе или за его границами))) Если серверная БД и выполняется автоматом, то скорее всего в регламентных заданиях. Если файловая БД и в константах стоит пользователь Obmen для выполнения заданий, то опять нужно смотреть регл. задания. Если пользователь имеет возможность нажимать где-то кнопки, то скорее всего реализовано в виде обработки (может и во внешних быть вообще).
Сообщение отредактировал Batchir - 21.12.17, 12:33
Группа: Пользователи
Сообщений: 20
Спасибо сказали: 0 раз
Рейтинг: 0
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 в Инвентаризацию товаров на складе загружатся не хотят(((
[необходимо зарегистрироваться для просмотра ссылки]
Группа: Пользователи
Сообщений: 20
Спасибо сказали: 0 раз
Рейтинг: 0
yoj @ Сегодня, 11:17
,
Процедура ПередНачаломРаботыСистемы(Отказ)
// СтандартныеПодсистемы
// Получим параметры работы клиента за одно обращение к серверу // Чтобы при повторном вызове этой функции не было обращений к серверу ПараметрыРаботыКлиента = СтандартныеПодсистемыКлиентПовтИсп.ПараметрыРаботыКлиента();
Если НЕ ПараметрыРаботыКлиента.ПользователюРазрешенЗапускКонфигурации Тогда Предупреждение(НСтр("ru = 'Вам не назначена роль ""Пользователь"". Запуск конфигурации невозможен.'")); Отказ = Истина; Возврат; //Дальше нет необходимости выполнения, т.к. могут быть ошибки нарушения прав КонецЕсли;
Если Не Отказ Тогда СтандартныеПодсистемыКлиент.ДействияПередНачаломРаботыСистемы(Отказ); КонецЕсли;
Группа: Команда
Сообщений: 3568
Из: Киев
Спасибо сказали: 1434 раз
Рейтинг: 0
Дальнейшие варианты: 1. Берете и вызываете процедуру регламентного задания из обработки и идете отладчиком. Смотрите почему не попадает в СоздатьИнвентаризацияТоваровНаСкладе. 2. Смотрите журнал регистрации или в консоле заданий какая ошибка происходит при выполнении СоздатьИнвентаризацияТоваровНаСкладе
Группа: Пользователи
Сообщений: 20
Спасибо сказали: 0 раз
Рейтинг: 0
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)}: Ошибка при вызове метода контекста (Записать): Для данного документа возможность проведения отключена.
Группа: Пользователи
Сообщений: 20
Спасибо сказали: 0 раз
Рейтинг: 0
yoj @ Сегодня, 9:03
, И стало выбивать ошибку Фоновое задание. Ошибка выполнения. {ОбщийМодуль.ТЦУ_ЗагрузкаПродаж.Модуль(409)}: Ошибка при вызове метода контекста (Вставить) по причине: Задано неправильное имя атрибута структуры
Функция ПолучитьРеквизитыXMLДокумента(ЧтениеXML) ДокументыXML = Новый Структура();
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!