Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Программирование

lvi15
читатель
офлайн
Дата регистрации: 18.07.2002
Сообщений: 20
Пост №1
 
18.07.2002 11:34

Простенькая ситуация: Акт ввода в эквплуатацию ОС, выбор <br><br>внеоборотного актива из справочника - нужно показывать не<br><br>весь список справочника ВнОбАкт, а только не закрытые по 8.* счету<br><br>Если кто знает, то подскажите хотя бы на уровне идеи????<br><br>

Шуляк Александр (Технический центр Сервер, Братск)
читатель
офлайн
Пост №2
 
18.07.2002 12:09

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

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Учет, налогообложение, автоматизация
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация