Цитата: Tigra_N ➤ Новая версия очень понравилась. сделал кое-какие изменения.
Во вложении, не смотря на название, оказалась обработка с (отображаемым в конфигурации) именем
УправлениеВесамиUnitech. Так что буду отвечать на вопросы о той, что выложил я.
Цитата: Tigra_N ➤ не смог разобраться как меняется версия
Версия, отображаемая в заголовке формы - см. процедуру ПриСозданииНаСервереExt
Код:
Объект.Версия = "0.09";
ЭтаФорма.АвтоЗаголовок = Ложь;
ЭтаФорма.Заголовок = "Управление ТСД (внешняя)"+" ver."+Объект.Версия;
Цитата: Tigra_N ➤ На вкладке "Выгружаемые из ТСД товары"
Нет возможности выделить несколько строк. Я так понимаю, у этой таблицы стоит атрибут "только для чтения"
Да, управление доступностью происходит в процедуре ПолучитьДанныеИзТСДExt
В начале указано:
Код:
Элементы.ТоварыИзТСД.Доступность = Истина;
В конце чтения файла
Код:
Элементы.ТоварыИзТСД.Доступность = Ложь;
Файл.Закрыть();
Сделано для того, что бы пользователь (по злобе ли, или нет) не смог изменить считанные из ТСД данные (да, я не знаю, как разрешить выделять строки, но при этом не дать изменять строки).
Цитата: Tigra_N ➤ Вкладка Загружаемый документ
Зачем он нужен?
Это "хвост" из оригинальной обработки.
Вообще, согласно документации (Руководство пользователя SuperKit Mobile_18Х), есть разные режимы работы терминала - "Инвентаризация без документов", "Инвентаризация с заголовками (с документами)", "Накладные".
Ну, и в "СТРУКТУРА ФАЙЛОВ ОБМЕНА ПРОГРАММЫ SuperKit Mobile" есть такое:
Цитата: Запись заголовка накладной (Префикс записи «I»)
Структура:
<I>;<НОМЕР НАКЛАДНОЙ>;<ТИП НАКЛАДНОЙ>
Тип данных:
<НОМЕР НАКЛАДНОЙ> - 64 символа
<ТИП НАКЛАДНОЙ> - “0” – накладная поставщика, “1” – расходная, “2” – заказ, “3” – приходная накладная, “4” – накладная на перемещение.
Получается, что (по идее) мы можем как выгрузить в ТСД документ, так и получить его оттуда.
Так что, думаю, данная вкладка предназначена для работы с такими документами.
Цитата: Tigra_N ➤ Вкладка "Настройка"
После чтения данных из терминала, независимо от настроек все равно спрашивает Удалить или нет.
Да, согласен, ошибка.
Опять же, процедура ПолучитьДанныеИзТСДExt
Стоит:
Код:
Если ОтсутствиеОшибок Тогда
Если НаличиеСтрок = Истина Тогда
Ответ = Вопрос("Удалить файл из ТСД "+Объект.ФайлЗагрузкиИзТСД+"?",РежимДиалогаВопрос.ДаНет,0);
Если Ответ = КодВозвратаДиалога.Да Тогда
УдалитьФайлы(Объект.ФайлЗагрузкиИзТСД);
КонецЕсли;
ЭтаФорма.Элементы.ТипДокументаДляЗагрузки.Доступность = Истина;
Иначе
ТекстСообщения = НСтр("ru = 'В файле нет строк для загрузки в 1с'");
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
КонецЕсли;
КонецЕсли; Должно быть
Код:
Если ОтсутствиеОшибок Тогда
Если НаличиеСтрок = Истина Тогда
Если Объект.УдалятьФайлПослеЗагрузки="Спросить" Тогда
Ответ = Вопрос("Удалить файл из ТСД "+Объект.ФайлЗагрузкиИзТСД+"?",РежимДиалогаВопрос.ДаНет,0);
Если Ответ = КодВозвратаДиалога.Да Тогда
УдалитьФайлы(Объект.ФайлЗагрузкиИзТСД);
КонецЕсли;
ИначеЕсли Объект.УдалятьФайлПослеЗагрузки="Да" Тогда
УдалитьФайлы(Объект.ФайлЗагрузкиИзТСД);
КонецЕсли;
ЭтаФорма.Элементы.ТипДокументаДляЗагрузки.Доступность = Истина;
Иначе
ТекстСообщения = НСтр("ru = 'В файле нет строк для загрузки в 1с'");
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
КонецЕсли;
КонецЕсли;