Установить значение фильтра для оптимизации расчетов Код 1C v 7.x // Пример 1
// Для регистра с измерениями «Товар», «Склад», «МОЛ» запись
Рег.УстановитьЗначениеФильтра("Товар", ВыбГруппаТоваров, 2);
// означает, что расчеты будут проводиться по товарам из группы ВыбГруппаТоваров.
// Пример 2
РегТовары = СоздатьОбъект("Регистр.Товары");
//выбрать все движения по данному складу за период
РегТовары.УстановитьЗначениеФильтра("Склад", ТекСклад);
//далее идет выборка движений или итогов
//...
Категория:
Регистры Установить фильтр для оптимизации действий с регистром Код 1C v 7.x // Пример 1
// Для регистра с измерениями «Товар», «Склад», «МОЛ» запись
Рег.УстановитьФильтр(Тов1, , );
// означает, что расчеты будут проводиться только по одному товару (Тов1), но по всем складам и МОЛам.
Рег = СоздатьОбъект("Регистр.Взаиморасчеты");
Рег.ВременныйРасчет();
Рег.УстановитьФильтр(Клиент, );
РассчитатьРегистрыНа(ДатаНачала);
Рег.ВыбратьДвиженияСОстатками(ДатаКонца);
Пока Рег.ПолучитьДвижение() = 1 Цикл
Прих = 0;
Расх = 0;
Если Рег.Приход = 1 Тогда
Прих = Рег.Долг;
Иначе
Расх = Рег.Долг;
КонецЕсли;
ТекущееСальдо = Рег.Остаток(Клиент, "Задолженность");
Док = Рег.ТекущийДокумент();
Таб.ВывестиСекцию("Документ");
КонецЦикла;
// Пример 2
РегТовары = СоздатьОбъект("Регистр.Товары");
//выбрать все движения по данному складу за период
РегТовары.УстановитьФильтр(,ТекСклад);
РегТовары.ВыбратьДвижения(ДатаНач, ДатаКон);
Пока РегТовары.ПолучитьДвижение()=1 Цикл
//... код
КонецЦикла;
// Пример 3
РегТовары = СоздатьОбъект("Регистр.Товары");
//выбрать все товары на данном складе
РегТовары.УстановитьФильтр(,ТекСклад);
РегТовары.ВыбратьИтоги();
Пока РегТовары.ПолучитьИтог()=1 Цикл
//... код
КонецЦикла;
Категория:
Регистры Сводные Остатки регистра остатков Метод работает аналогично процедуре Остатки, однако здесь могут быть заданы не все значения измерений, а только несколько,
но обязательно в правильной последовательности, соответствующей структуре измерений данного регистра, как она задана в конфигураторе.
Измерения могут задаваться с пропусками (неуказанное значение — просто запятая), фиксируются только указанные измерения.
Код 1C v 7.x // Пример 1
// Для регистра с измерениями «Товар», «Склад», «МОЛ» запись
Рег.СводныеОстатки(Тов1, , );
//означает, что ресурсы будут получены только по одному товару (Тов1), но по всем складам и всем МОЛам.
Процедура ПолучитьСводныеОстатки(Товар, ОстатокТовара, Стоимость);
Регистр.УчетТовара.СводныеОстатки(Товар, );
ОстатокТовара = Регистр.УчетТовара.ОстаткиТовара;
Стоимость = Регистр.УчетТовара.СтоимостьТовара;
КонецПроцедуры
// Пример 2
РегТовары = СоздатьОбъект("Регистр.Товары")
//получить сводные остатки по товару
РегТовары.СводныеОстатки(ТекТовар,); //указано только одно измерение
КолвоТовара = РегТовары.Количество;
СтоимостьТовара = РегТовары.Стоимость;
//получить стоимость всех товаров на данном складе
РегТовары.СводныеИтоги(,ТекСклад); //указано только одно измерение
СтоимостьПоСкладу = РегТовары.Стоимость;
Категория:
Регистры Сводный Остаток регистра остатков Данный метод работает аналогично методу Остаток, однако здесь могут быть заданы не все значения измерений, а только несколько,
но обязательно в правильной последовательности, соответствующей структуре измерений данного регистра, как она задана в конфигураторе.
Измерения могут задаваться с пропусками (неуказанное значение — просто запятая), фиксируются только указанные измерения.
Код 1C v 7.x // Пример 1
// Для регистра с измерениями «Товар», «Склад», «МОЛ» запись
Рег.СводныйОстаток(Тов1, , "ОстатокТовара");
//означает, что ресурс «ОстатокТовара» будет получен только по одному товару (Тов1), но по всем складам и всем МОЛам.
Процедура ПолучитьСводныйОстаток(Товар, Ост);
Ост = Регистр.УчетТовара.СводныйОстаток(Товар, , "ОстаткиТовара");
КонецПроцедуры
// Пример 2
РегТовары = СоздатьОбъект("Регистр.Товары")
//получить остаток данного товара на всех складах
КолвоТовара = РегТовары.СводныйОстаток (ТекТовар,,"Количество");
СтоимостьТовара = РегТовары.СводныйОстаток (ТекТовар,,"Стоимость");
//получить стоимость всех товаров на данном складе
СтоимостьПоСкладу = РегТовары.СводныйОстаток (,ТекСклад,"Стоимость");
Отзывы об казино
888старс от реальных игроков с опытом игры в данном игровом заведении.
Категория:
Регистры Остатки, итоги регистра остатков Код 1C v 7.x
// Пример 1
Процедура ПолучитьОстатки(Товар, Склад, ОстатокТовара, Стоимость);
Регистр.УчетТовара.Остатки(Товар, Склад);
ОстатокТовара = Регистр.УчетТовара.ОстаткиТовара;
Стоимость = Регистр.УчетТовара.СтоимостьТовара;
КонецПроцедуры
// Пример 2
РегТовары = СоздатьОбъект("Регистр.Товары")
//получить остаток данного товара на данном складе по кол-ву и по сумме
РегТовары.Остатки (ТекТовар, ТекСклад);
Колво = РегТовары.Количество;
Стоимость = РегТовары.Стоимость;
// Пример 3
рег1=создатьобъект("Регистр.Остатки");
рег1.Остатки(Товар, Склад, Контрагент);
Сообщить(" Кол-во="+рег1.Количество+
" Сумма="+рег1.Сумма);
Категория:
Регистры Остаток, итог регистра остатков Код 1C v 7.x
// Пример 1
Процедура ПолучитьОстаток(Товар, Склад, Ост, Стоим);
Ост = Регистр.УчетТовара.Остаток(Товар, Склад, "ОстаткиТовара");
Стоим = Регистр.УчетТовара.Остаток(Товар, Склад, "СтоимостьТовара");
КонецПроцедуры
// Пример 2
РегТовары = СоздатьОбъект("Регистр.Товары")
//получить остаток данного товара на данном складе
Колво = РегТовары.Остаток (ТекТовар, ТекСклад, "Количество");
//получить стоимость данного товара на данном складе
Стоимость = РегТовары.Остаток (ТекТовар, ТекСклад, "Стоимость");
Категория:
Регистры Запись движений в оборотный регистр Методы доступны только при проведении документа в предопределенной процедуре ОбработкаПроведения.
Метод Движение - Выполнить запись движения в оборотный регистр по параметрам.
Код 1C v 7.x
Регистр.Товары.Движение (ПоступившийТовар, ТекСклад, КолвоПоНакладной, СуммаПоНакладной)
Код 1C v 7.x
Процедура ОбработкаПроведения();
ВыбратьСтроки();
Пока ПолучитьСтроку() > 0 Цикл
Регистр.ОборотыТоваров.Движение(Товар, Склад, ОборотТовара);
КонецЦикла;
КонецПроцедуры
Метод ДвижениеВыполнить - Выполнить запись движения в оборотный регистр по атрибутам.
Код 1C v 7.x Процедура ОбработкаПроведения();
Регистр.ТовЗап.Склад = Склад;
ВыбратьСтроки();
Пока (ПолучитьСтроку() > 0) Цикл
Регистр.ТовЗап.Товар = Товар;
Регистр.ТовЗап.Оборот = Оборот;
Регистр.ТовЗап.ДвижениеВыполнить();
КонецЦикла;
КонецПроцедуры;
Примечание: Если сумма или количество в движении будет отрицательным, то это движение будет расходом, иначе приходом. Категория:
Регистры