После обновления 1С Бухгалтерии до 3.0.71.63, стала появляться ошибка «Ошибка выделения памяти»:
Лечение (один из методов должен помочь):
Задача: организовать на форме выбор из списка, с первоначальным заполнением из запроса
Решение:
1. Создаем на форме реквизит, с типом «Список значений» и обьектом — СправочникСсылка.Склады:
2. Создаем событие формы «При создании на сервере» и заполняем список:
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
// Заполним по умолчанию часть складов, если таковые есть..
сп=новый ТаблицаЗначений;
сп.Колонки.Добавить("Склады");
спстр=сп.Добавить();
спстр.Склады=Справочники.Склады.НайтиПоНаименованию("Вологда Торговля");
спстр=сп.Добавить();
спстр.Склады=Справочники.Склады.НайтиПоНаименованию("Вологда Ремонт (Р)");
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Склады.Ссылка КАК Ссылка,
| Склады.Представление КАК Представление
|ИЗ
| Справочник.Склады КАК Склады
|ГДЕ
| Склады.Ссылка В(&СписокСкладов)";
Запрос.УстановитьПараметр("СписокСкладов", сп.ВыгрузитьКолонку("Склады"));
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
СписокСкладов.Добавить(Выборка.Ссылка,Выборка.Представление);
КонецЦикла;
КонецПроцедуры
Получаем результат вида:
Ситуация: пользователь на клиенте выбирает файл, и его нужно обработать. Удобнее всего это сделать на сервере, т.к. на клиенте многие функции и процедуры не доступны. Реализовать это возможно помещение данных во временное хранилище, а далее из него, при вызове серверной процедуры, «обратное» изьятие. Например реализовать это можно как-то вот так:
&НаКлиенте
Процедура ЗагрузитьSonex()
БинарныйФайл = Новый ДвоичныеДанные(Объект.ИмяФайла);
сообщить("-помещаем во временное хранилище");
АдресВХ = ПоместитьВоВременноеХранилище(БинарныйФайл,ЭтаФорма.УникальныйИдентификатор);
ОбработатьНодХМЛНаСервере(АдресВХ,объект.ГруппаЗагрузки);
сообщить("-ок");
КонецПроцедуры
&НаСервере
Процедура ОбработатьНодХМЛНаСервере(АдресВХ,владелец);
сообщить(АдресВХ);
ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВХ);
тПуть = "c:\temp\pricesonix.xml"; //для примера...
ДвоичныеДанные.Записать(тПуть);
ЧтениеХ=Новый ЧтениеXML;
ЧтениеХ.ОткрытьФайл(тПуть);
КонецПроцедуры
Вот такую конструкцию в 1С можно считать аналогом операторов case…swith в других языках:
если ст.Параметр="Изготовитель" тогда обсп.Брэнд=ст.Значение; ИначеЕсли ст.Параметр="Страна" тогда обсп.Страна=ст.Значение; иначе нс=обсп.Характеристики.Добавить(); нс.Наименование=ст.Параметр; нс.Значение=ст.Значение; конецесли;
Ну собственно его нет в 1с. Есть некий «аналог», понятие «Структура».
Инициализируется например вот так:
ОтчетСтруктура=Новый Структура;
ОтчетСтруктура.Вставить("НаТранспорте",0);
Причем ключ не должен содержать пробелов и цифр в начале.
К проинициализированной структуре можно обращаться по ключу например так:
ОтчетСтруктура["НаТранспорте"]=ОтчетСтруктура["НаТранспорте"]+1;
Проверка наличия ключа осуществляется так:
если ОтчетСтруктура.Свойство("ключ") тогда
конецесли
Но я в своей практике, немножко по другому поступил, когда мне была не известна заведомо структура:
&НаСервере Функция ЗаменитьПробелы(_стр) стр=СтрЗаменить(_стр, " ", "_"); Возврат стр; КонецФункции // цикл 1, заполняем структуру ВыборкаДетальныеЗаписи = Результат.Выбрать(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл если ВыборкаДетальныеЗаписи.Другое<>"" тогда ОтчетСтруктура.Вставить(ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое),0); конецесли; конеццикла; // цикл 2, приращиваем счетчики ВыборкаДетальныеЗаписи = Результат.Выбрать(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл если ВыборкаДетальныеЗаписи.Другое<>"" тогда ОтчетСтруктура[ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое)]=ОтчетСтруктура[ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое)]+1; конецесли; конеццикла;