macromedia23
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Кто поможет разобраться с кодом???
Проблема в следующем в документы появилась новая колонка рядом с номенклатурой, под названием сертификаты. Эти сертификаты привязываются к номенклатуре при поступлении товаров и услуг, когда приходит новый товар, который раньше приходил, то сертификат автоматически в поле "Сертификатов" подставляется, но только вот без названия, в поле "Сертификатов". Вот код.
Код:
Сертификаты = ДоработкаБД.ПолучитьАктуальныйСертификатТовара(Дата, ДанныеСтроки.Номенклатура);
Если Сертификаты.Сертификат=Неопределено Тогда // в любом случае коректно если он один
ПолеСтатуса = ОформлениеСтроки.Ячейки.Сертификат;
ПолеСтатуса.ЦветФона = Новый Цвет(238, 200, 234);
ПолеСтатуса.Картинка = БиблиотекаКартинок.НапоминаниеРО;
ПолеСтатуса.ОтображатьКартинку = Истина;
КонецЕсли;
|
Код:
Функция ПолучитьАктуальныйСертификатТовара(ДатаЗапроса, Товар) Экспорт
Результат = Новый Структура("ТаблицаСертификатов, Сертификат, Код_ТН_ВЭД");
Если Товар = Неопределено Тогда
Возврат Результат;
КонецЕсли;
ЗапросСерт = Новый Запрос;
ЗапросСерт.УстановитьПараметр("Номенклатура",Товар);
ЗапросСерт.УстановитьПараметр("ДатаЗапроса",ДатаЗапроса);
ЗапросСерт.Текст =
"ВЫБРАТЬ
| Сертификат.Ссылка КАК Сертификат,
| Сертификат.Код_ТН_ВЭД КАК Код_ТН_ВЭД
|ИЗ
| РегистрСведений.Сертификаты.СрезПоследних(&ДатаЗапроса)
|ГДЕ
| Номенклатура = &Номенклатура";
ТаблицаСертификатов = ЗапросСерт.Выполнить().Выгрузить();
Результат.Вставить("ТаблицаСертификатов",ТаблицаСертификатов);
Если ТаблицаСертификатов.Количество() > 0 Тогда
СертификатПервый = ТаблицаСертификатов.Получить(0);
Сертификат = СертификатПервый.Сертификат;
Результат.Вставить("Сертификат",Сертификат);
Результат.Вставить("Код_ТН_ВЭД",Сертификат.Код_ТН_ВЭД);
КонецЕсли;
Возврат Результат;
КонецФункции
|
Если что-то не понятно, то могу более подробно объяснить. |
