Сравнение единиц измерения парадокс и 1с
Здравствуйте. Есть обработчик, добавил в него флажок Проверки единиц измерения, надо чтоб при его активации происходило сравнение ед изм 1с и парадокса, и все это выводилось в таблицу ошибок. Как сделать вывод этих данных в таблицу?
&НаКлиенте
Функция ПолучитьЕдИзм()
Если ПроверкаЕдИзмНоменклатуры Тогда
ТекСтрТабОшибок =ТабОшибокЕдИзмНоменклатуры.Добавить();
ДБФ= Новый XBase;
ДБФ.Кодировка=КодировкаXBase.OEM;
Попытка
ДБФ.ОткрытьФайл(ФайлДанных,,1);
Исключение
Сообщить("Неудачная попытка открытия файла: " + ОписаниеОшибки());
Возврат 0;
КонецПопытки;
Если ДБФ.КоличествоЗаписей()=0 Тогда
Предупреждение("Пустой файл!!!");
Возврат 0;
КонецЕсли;
ТекСтрТабОшибок.ЕдИзмПарадокс = СокрЛП(ДБФ.GOODEDIZM);
ТекСтрТабОшибок.ЕдИзм1С = СокрЛП(ВыбЕдИзмТов);
Если Не ТекСтрТабОшибок.ЕдИзмПарадокс = ТекСтрТабОшибок.ЕдИзм1С Тогда
ТекСтрТабОшибок.РезультатПроверки = "Разные единицы измерения номенклатуры";
КонецЕсли;
КонецЕсли;
КонецФункции ПоказатьПрикрепленные файлы:
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
На клиенте таблица значений не поддерживается.
2 варианта;
1. Передать файл ДБФ на сервер и все остальное выполнять на сервере.
2. На клиенте использовать массив структур, а в конце вызвать серверную функцию, которая из массива структур заполнит таблицу значений.
2 варианта;
1. Передать файл ДБФ на сервер и все остальное выполнять на сервере.
2. На клиенте использовать массив структур, а в конце вызвать серверную функцию, которая из массива структур заполнит таблицу значений.
(4)
ДанныеФормыКоллекция (FormDataCollection)
Добавить (Add)
Синтаксис:
Добавить()
Возвращаемое значение:
Тип: ДанныеФормыЭлементКоллекции.
Описание:
Добавляет элемент в конец коллекции и возвращает его в качестве результата метода.
Доступность:
Тонкий клиент, веб-клиент, мобильный клиент, сервер, толстый клиент, мобильное приложение (клиент), мобильное приложение (сервер), мобильный автономный сервер.
Добавить (Add)
Синтаксис:
Добавить()
Возвращаемое значение:
Тип: ДанныеФормыЭлементКоллекции.
Описание:
Добавляет элемент в конец коллекции и возвращает его в качестве результата метода.
Доступность:
Тонкий клиент, веб-клиент, мобильный клиент, сервер, толстый клиент, мобильное приложение (клиент), мобильное приложение (сервер), мобильный автономный сервер.
(8) Да дело в том, что автор не пишет о том, что у него не получается, или какую ошибку выдает. Он просто написал код, не запускал его и дал его нам на проверку со словами "как правильно сделать"...
И таблицу значения он не использует, и не в этом его проблема вообще.
И таблицу значения он не использует, и не в этом его проблема вообще.
(22)
(23)
(24)
(25)
Дописал код, теперь входит в функцию нормально, и цикл проходит . Но в этой переменной почему то пустое значение: ТекСтрТабОшибок.ЕдИзм1С = СокрЛП(ВыбЕдИзмТов);
(23)
(24)
(25)
Дописал код, теперь входит в функцию нормально, и цикл проходит . Но в этой переменной почему то пустое значение: ТекСтрТабОшибок.ЕдИзм1С = СокрЛП(ВыбЕдИзмТов);
&НаКлиенте
Функция ПолучитьЕдИзм()
Если ПроверкаЕдИзмНоменклатуры Тогда
ТекСтрТабОшибок =ТабОшибокЕдИзмНоменклатуры.Добавить();
ДБФ= Новый XBase;
ДБФ.Кодировка=КодировкаXBase.OEM;
Попытка
ДБФ.ОткрытьФайл(ФайлДанных,,1);
Исключение
Сообщить("Неудачная попытка открытия файла: " + ОписаниеОшибки());
Возврат 0;
КонецПопытки;
Попытка
ТекНом="9999999999999999-999789!№99999999"; // невозможное значение
Для сч = 1 по ДБФ.КоличествоЗаписей() Цикл
ОбработкаПрерыванияПользователя();
Состояние("Загрузка файла DBF...Загружено "+сч+" записей из "+ДБФ.КоличествоЗаписей());
ДБФ.Перейти(сч);
Если (ДБФ.VIDDOC=14) Тогда //Ед.Изм.
VIDDOC = 14;
КонецЕсли;
Если ДБФ.КоличествоЗаписей()=0 Тогда
Предупреждение("Пустой файл!!!");
Возврат 0;
КонецЕсли;
ТекСтрТабОшибок.ЕдИзмПарадокс = СокрЛП(ДБФ.GOODEDIZM);
ТекСтрТабОшибок.ЕдИзм1С = СокрЛП(ВыбЕдИзмТов);
Если Не ТекСтрТабОшибок.ЕдИзмПарадокс = ТекСтрТабОшибок.ЕдИзм1С Тогда
ТекСтрТабОшибок.РезультатПроверки = "Разные единицы измерения номенклатуры";
КонецЕсли;
КонецЦикла;
Исключение
КонецПопытки;
КонецЕсли;
Возврат ТекСтрТабОшибок;
КонецФункции Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот