09.03.2016 21:37
KirillHome
 
Цитата:
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с'");
			ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
		КонецЕсли;
	КонецЕсли;