F
fly-fire-fox
Здравсвуйте! Проблема собственно такая - создал регситр создал процедуру проведения по регистру :
Процедура ОбработкаПроведения()
//Проведение документа по регистру ВыданныеТМЦ
ТаблицаНоменклатуры = СоздатьОбъект("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть(ТаблицаНоменклатуры);
ТаблицаНоменклатуры.ВыбратьСтроки();
Пока ТаблицаНоменклатуры.ПолучитьСтроку() = 1 Цикл
//ЗаписьРегистра = СоздатьОбъект("Регистр.ВыданныеТМЦ");
Регистр.ВыданныеТМЦ.Сотрудник = Сотрудник;
Регистр.ВыданныеТМЦ.Выдавший = ПолученоОт;
Регистр.ВыданныеТМЦ.НаименованиеМЦ = ТаблицаНоменклатуры.Товар;
Регистр.ВыданныеТМЦ.Количество = ТаблицаНоменклатуры.Количество;
Регистр.ВыданныеТМЦ.Цена = ТаблицаНоменклатуры.Цена;
Регистр.ВыданныеТМЦ.Сумма = ТаблицаНоменклатуры.Сумма;
Регистр.ВыданныеТМЦ.Дата = ТаблицаНоменклатуры.ДатаВыдачи;
Регистр.ВыданныеТМЦ.ДвижениеВыполнить();
КонецЦикла;
//ЗаписьРегистра.ДвижениеВыполнить();
КонецПроцедуры
И создал отчет по этому регистру, но почему то отчет не выбирает данные из регистра или же он пустой.. Как можно посмотреть содержимое регистра, или же в чем у меня тут ошибка? Код выборки из регстра вот:
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса = "
|Наименование = Регистр.ВыданныеТМЦ.НаименованиеМЦ;
|Количество = Регистр.ВыданныеТМЦ.Количество;
|Цена = Регистр.ВыданныеТМЦ.Цена;
|Сумма = Регистр.ВыданныеТМЦ.Сумма;
|Сотрудник = Регистр.ВыданныеТМЦ.Сотрудник;
|Дата = Регистр.ВыданныеТМЦ.Дата;
|Группировка Сотрудник;
|//Условие(Сотрудник = ВыбСотрудник);
|";
Если Запрос.Выполнить(ТекстЗапроса) = 0 тогда
Сообщить("Хреновый запрос");
Возврат;
КонецЕсли;
Номер = 0;
Пока Запрос.Группировка(1) = 1 Цикл
Сообщить("Здесь я был");
Номер = Номер + 1;
Если Запрос.Сотрудник.ЭтоГруппа() = 1 Тогда
Сообщить("Здесь я был");
ПечатьОтчет.ВывестиСекицию("ТМЦ");
КонецЕсли;
КонецЦикла;
Процедура ОбработкаПроведения()
//Проведение документа по регистру ВыданныеТМЦ
ТаблицаНоменклатуры = СоздатьОбъект("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть(ТаблицаНоменклатуры);
ТаблицаНоменклатуры.ВыбратьСтроки();
Пока ТаблицаНоменклатуры.ПолучитьСтроку() = 1 Цикл
//ЗаписьРегистра = СоздатьОбъект("Регистр.ВыданныеТМЦ");
Регистр.ВыданныеТМЦ.Сотрудник = Сотрудник;
Регистр.ВыданныеТМЦ.Выдавший = ПолученоОт;
Регистр.ВыданныеТМЦ.НаименованиеМЦ = ТаблицаНоменклатуры.Товар;
Регистр.ВыданныеТМЦ.Количество = ТаблицаНоменклатуры.Количество;
Регистр.ВыданныеТМЦ.Цена = ТаблицаНоменклатуры.Цена;
Регистр.ВыданныеТМЦ.Сумма = ТаблицаНоменклатуры.Сумма;
Регистр.ВыданныеТМЦ.Дата = ТаблицаНоменклатуры.ДатаВыдачи;
Регистр.ВыданныеТМЦ.ДвижениеВыполнить();
КонецЦикла;
//ЗаписьРегистра.ДвижениеВыполнить();
КонецПроцедуры
И создал отчет по этому регистру, но почему то отчет не выбирает данные из регистра или же он пустой.. Как можно посмотреть содержимое регистра, или же в чем у меня тут ошибка? Код выборки из регстра вот:
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса = "
|Наименование = Регистр.ВыданныеТМЦ.НаименованиеМЦ;
|Количество = Регистр.ВыданныеТМЦ.Количество;
|Цена = Регистр.ВыданныеТМЦ.Цена;
|Сумма = Регистр.ВыданныеТМЦ.Сумма;
|Сотрудник = Регистр.ВыданныеТМЦ.Сотрудник;
|Дата = Регистр.ВыданныеТМЦ.Дата;
|Группировка Сотрудник;
|//Условие(Сотрудник = ВыбСотрудник);
|";
Если Запрос.Выполнить(ТекстЗапроса) = 0 тогда
Сообщить("Хреновый запрос");
Возврат;
КонецЕсли;
Номер = 0;
Пока Запрос.Группировка(1) = 1 Цикл
Сообщить("Здесь я был");
Номер = Номер + 1;
Если Запрос.Сотрудник.ЭтоГруппа() = 1 Тогда
Сообщить("Здесь я был");
ПечатьОтчет.ВывестиСекицию("ТМЦ");
КонецЕсли;
КонецЦикла;