Программирование
18.07.2002
11:34
#1
Простенькая ситуация: Акт ввода в эквплуатацию ОС, выбор
внеоборотного актива из справочника - нужно показывать не
весь список справочника ВнОбАкт, а только не закрытые по 8.* счету
Если кто знает, то подскажите хотя бы на уровне идеи????
внеоборотного актива из справочника - нужно показывать не
весь список справочника ВнОбАкт, а только не закрытые по 8.* счету
Если кто знает, то подскажите хотя бы на уровне идеи????
18.07.2002
12:09
#2
"Я аналогичную задачу решал, чтобы в документе "Счет-фактура выданный" для импортного товара номер ГТД выбирался не из всего списка, а только для выбранного товара, причем товары с этим номером ГТД есть еще в наличии. Для этого в модуле формы списка "Для подбора" Справочника ГТД предопределенная процедура "ПриОткрытии() пишется следующим образом. Дарю, посмотрите, ваш случай совершенно такой же. Т.е. соль в "ИспользоватьСписокЭлементов(Список)", а этот список заполняется так, как вам надо.
Процедура ПриОткрытии() // Предопределенная процедура
БухИт = СоздатьОбъект("БухгалтерскиеИтоги");
СчГТД = СчетПоКоду("ГТД");
Список=СоздатьОбъект("СписокЗначений");
ЗаполнениеФормы(Форма.Параметр);
Буфер=СоздатьОбъект("Справочник.ГТД");
Буфер.ВыбратьЭлементы();
Пока Буфер.ПолучитьЭлемент()=1 Цикл
Остаток = 0;
Если (КонМесяца(КонтекстФормыДокумента.ДатаДок) <= КонецРассчитанногоПериодаБИ())
Тогда
Если Товар.Выбран() = 1 Тогда
Остаток = БухИт.СКД(СчГТД, "К",, Товар, Буфер.ТекущийЭлемент());
КонецЕсли;
КонецЕсли;
Если Остаток>0 Тогда
Список.ДобавитьЗначение(Буфер.ТекущийЭлемент());
КонецЕсли;
КонецЦикла;
ФлагОстаткиВКолонке = ВосстановитьЗначение("ФормаПодбораГТД_ФлагОстаткиВКолонке");
ПриВыбореПоказаОстатковВКолонке();
Форма.ИспользоватьСлой("Основной", 2);
ИспользоватьСписокЭлементов(Список);
КонецПроцедуры // ПриОткрытии
"
Процедура ПриОткрытии() // Предопределенная процедура
БухИт = СоздатьОбъект("БухгалтерскиеИтоги");
СчГТД = СчетПоКоду("ГТД");
Список=СоздатьОбъект("СписокЗначений");
ЗаполнениеФормы(Форма.Параметр);
Буфер=СоздатьОбъект("Справочник.ГТД");
Буфер.ВыбратьЭлементы();
Пока Буфер.ПолучитьЭлемент()=1 Цикл
Остаток = 0;
Если (КонМесяца(КонтекстФормыДокумента.ДатаДок) <= КонецРассчитанногоПериодаБИ())
Тогда
Если Товар.Выбран() = 1 Тогда
Остаток = БухИт.СКД(СчГТД, "К",, Товар, Буфер.ТекущийЭлемент());
КонецЕсли;
КонецЕсли;
Если Остаток>0 Тогда
Список.ДобавитьЗначение(Буфер.ТекущийЭлемент());
КонецЕсли;
КонецЦикла;
ФлагОстаткиВКолонке = ВосстановитьЗначение("ФормаПодбораГТД_ФлагОстаткиВКолонке");
ПриВыбореПоказаОстатковВКолонке();
Форма.ИспользоватьСлой("Основной", 2);
ИспользоватьСписокЭлементов(Список);
КонецПроцедуры // ПриОткрытии
"
документы, автоматическаянумерация, номера документов1C:Предприятие "Производство....." Перемещение материал-товар
Читают тему
(гостей: 1)