Проведение документа

[newprog]

Добрый день.
Задали такую задачку:
1. Есть Справочник.Реактивы
2. Документы.Анализы, в табличной части Реактивы и Количество (документ просто записывается, движения по остаткам не производит)
3. Документы.Расход, в табличной части - ДокументСсылка.Анализы и КолАнализы (производит движение по остаткам)

Сделал обработку проведения:

Код Выделить Развернуть


Процедура ОбработкаПроведения(Отказ, Режим)

Для Каждого ТекСтрокаТабДок Из ТабДок Цикл
   
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Анализы.Реактивы.(
| Реактивы,
| Количество
| )
|ИЗ
| Документ.Анализы КАК Анализы";

Результат = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Движения.ОстаткиРеактивов.Записывать = Истина;
Движение = Движения.ОстаткиРеактивов.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Количество = ТекСтрокаТабДок.КолАнализы * Выборка.Количество;
Движение.Реактивы = Выборка.Реактивы;
КонецЦикла;
    КонецЦикла;

КонецПроцедуры


Документ "проводится", ошибок не выдает, но и движения по остаткам не происходит.
1с Предприятие 8.2

[GRADUS]

Что конкретно там делает ТабДок и запрос?

[DmitriyF]

Добрый день.
Задали такую задачку:
1. Есть Справочник.Реактивы
2. Документы.Анализы, в табличной части Реактивы и Количество (документ просто записывается, движения по остаткам не производит)
3. Документы.Расход, в табличной части - ДокументСсылка.Анализы и КолАнализы (производит движение по остаткам)

Сделал обработку проведения:

Код Выделить Развернуть


Процедура ОбработкаПроведения(Отказ, Режим)

Для Каждого ТекСтрокаТабДок Из ТабДок Цикл
   
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Анализы.Реактивы.(
| Реактивы,
| Количество
| )
|ИЗ
| Документ.Анализы КАК Анализы";

Результат = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Движения.ОстаткиРеактивов.Записывать = Истина;
Движение = Движения.ОстаткиРеактивов.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Количество = ТекСтрокаТабДок.КолАнализы * Выборка.Количество;
Движение.Реактивы = Выборка.Реактивы;
КонецЦикла;
    КонецЦикла;

КонецПроцедуры


Документ "проводится", ошибок не выдает, но и движения по остаткам не происходит.
1с Предприятие 8.2

Для чего запрос если и так уже таблицу по циклу обходите? И естественно ищем ошибку в запросе.

[andryscha92]

в цикле использовать запрос - плохое правило. Выберите все нужные данные запросом и загрузите в регистр ОстаткиРеактивов.

[Snaky]

Добрый день.
Задали такую задачку:
1. Есть Справочник.Реактивы
2. Документы.Анализы, в табличной части Реактивы и Количество (документ просто записывается, движения по остаткам не производит)
3. Документы.Расход, в табличной части - ДокументСсылка.Анализы и КолАнализы (производит движение по остаткам)

Сделал обработку проведения:

Код Выделить Развернуть


Процедура ОбработкаПроведения(Отказ, Режим)

Для Каждого ТекСтрокаТабДок Из ТабДок Цикл
   
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Анализы.Реактивы.(
| Реактивы,
| Количество
| )
|ИЗ
| Документ.Анализы КАК Анализы";

Результат = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Движения.ОстаткиРеактивов.Записывать = Истина;
Движение = Движения.ОстаткиРеактивов.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Количество = ТекСтрокаТабДок.КолАнализы * Выборка.Количество;
Движение.Реактивы = Выборка.Реактивы;
КонецЦикла;
    КонецЦикла;

КонецПроцедуры


Документ "проводится", ошибок не выдает, но и движения по остаткам не происходит.
1с Предприятие 8.2

Запрос возвращает то что Вам нужно???

[wise]

ошибок не выдает

ВОТ ошибка: {Выборка.Количество}
ОТКУДА программа знает, что такое {"Выборка"} ??

[newprog]

Все оказалось проще:

Код Выделить Развернуть

&НаСервере
Процедура ОбработкаПроведения(Отказ, Режим)

Для Каждого ТекСтрокаТабДок Из ТабДок Цикл

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| АнализыРеактивы.Реактивы КАК Реактивы,
| АнализыРеактивы.Количество КАК Количество
|ИЗ
| Справочник.Анализы.ТабДок КАК АнализыРеактивы
            |ГДЕ ссылка = &Спр";                                   
Запрос.УстановитьПараметр("Спр", ТекСтрокаТабДок.Анализы);
Результат = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Движение = Движения.ОстаткиРеактивов.ДобавитьРасход();
Движение.Период = Дата;
Движение.Количество = ТекСтрокаТабДок.КолАнализы * ВыборкаДетальныеЗаписи.Количество;
Движение.Реактивы = ВыборкаДетальныеЗаписи.Реактивы;

КонецЦикла;

КонецЦикла;
   
КонецПроцедуры



Анализы сделал в виде справочника.

[GRADUS]

Все оказалось проще:

Код Выделить Развернуть

&НаСервере
Процедура ОбработкаПроведения(Отказ, Режим)

Для Каждого ТекСтрокаТабДок Из ТабДок Цикл

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| АнализыРеактивы.Реактивы КАК Реактивы,
| АнализыРеактивы.Количество КАК Количество
|ИЗ
| Справочник.Анализы.ТабДок КАК АнализыРеактивы
            |ГДЕ ссылка = &Спр";                                   
Запрос.УстановитьПараметр("Спр", ТекСтрокаТабДок.Анализы);
Результат = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Движение = Движения.ОстаткиРеактивов.ДобавитьРасход();
Движение.Период = Дата;
Движение.Количество = ТекСтрокаТабДок.КолАнализы * ВыборкаДетальныеЗаписи.Количество;
Движение.Реактивы = ВыборкаДетальныеЗаписи.Реактивы;

КонецЦикла;

КонецЦикла;
   
КонецПроцедуры



Анализы сделал в виде справочника.

Еще раз, для чего тебе запрос, что конкретно ты от него хочешь?
П.С. Запросы в циклах делать запрещено.

Добавлено: 06 июл 2014, 05:39

Короче, нет времени объяснять, пиши так:

Код Выделить Развернуть

&НаСервере
Процедура ОбработкаПроведения(Отказ, Режим)
           
    Для Каждого ТекСтрокаТабДок Из ТабДок Цикл
            Движение = Движения.ОстаткиРеактивов.ДобавитьРасход();
            Движение.Период = Дата;
            ЗаполнитьЗначениеСвойств(Движение,ТекСтрокаТабДок.Анализы);
    КонецЦикла;
       
КонецПроцедуры

Есть разница?

Добавлено: 06 июл 2014, 05:41

И откуда там взялась директива

Код Выделить Развернуть

&НаСервере ???

[newprog]

Короче, нет времени объяснять, пиши так:

Код Выделить Развернуть

&НаСервере
Процедура ОбработкаПроведения(Отказ, Режим)
           
    Для Каждого ТекСтрокаТабДок Из ТабДок Цикл
            Движение = Движения.ОстаткиРеактивов.ДобавитьРасход();
            Движение.Период = Дата;
            ЗаполнитьЗначениеСвойств(Движение,ТекСтрокаТабДок.Анализы);
    КонецЦикла;
       
КонецПроцедуры

Есть разница?

Есть, движение по остаткам реактивов не происходит.

И откуда там взялась директива

Код Выделить Развернуть

&НаСервере ???

А вот без этого тоже работает )

1С только начал изучать, поэтому многое делаю конструкторами и не до конца понимаю некоторые части кода.

П.С. запрос перебирает табличную часть Справочник.Анализы, которые указаны в Документы.Расход.

[GRADUS]

Есть, движение по остаткам реактивов не происходит.

Ахринеть как сложно "Количество" добавить ....