Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
24 ноя 2024, 22:08

Не заполняется поле ТЧ формы.

Автор Sv_Graal, 21 янв 2013, 20:58

0 Пользователей и 1 гость просматривают эту тему.

Sv_Graal

Здравствуйте!
Пожалуйста, помогите найти ошибку. Сейчас пытаюсь разобраться с использованием точек останова и тому подобными штукенциями, без них, похоже сама ошибку не найду.

Вот такой код:

******************************************************************

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

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

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

   Запрос.УстановитьПараметр("Ссылка", Ссылка);
   Результат = Запрос.Выполнить().Выгрузить();
   
   Возврат Результат;
   
КонецФункции

******************************************************************

Его целью является получение данных из регистра СвободныеОстатки в табличную часть документа ЗаказКлиента.

Кнопку жму, никаких ошибок нет, но и никакого эффекта тоже  :angry:
Запрос работает сам по себе (проверяла в консоли), результаты выдает корректные.
А вот с обработкой запроса я, похоже, перемудрила (или же недодумала  :lol:)

Please, help!!! (Вспоминать Милу Йовович из фильма Пятый элемент, минута 35, смотреть в английском варианте!)

Заранее спасибо)

Sv_Graal

Подправила цикл в процедуре ПолучитьОстатки и кнопочка заработала! Ура :zebzdr:

***************************************************************************
   Для Каждого ТекСтрока Из ТаблицаТовары Цикл
      
      Отбор = Новый Структура();
      Отбор.Вставить("Номенклатура", ТекСтрока.Номенклатура);
      СтрокаПоНоменклатуре = Результат.НайтиСтроки(Отбор);
      ТекСтрока.СвободныйОстаток = СтрокаПоНоменклатуре[0].СвободныйОстаток;
      
   КонецЦикла;
***************************************************************************

Все равно всем спасибо!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск