N
navagdenie
Помогите пжлста совсем начинающему программисту...
В форме отчета необходимо вывести список значений (номера квитанций из документов) для отбора...Значения присваивает, но в форму не выводит...Мучаюсь вторую неделю...Помогите...
Вот код:
Процедура ЗагрузитьДок()
Если (ПустоеЗначение(НачДата2)=1) или (ПустоеЗначение(КонДата2)=1) тогда
Предупреждение("Выберите период!");
Возврат;
КонецЕсли;
СписокДок=СоздатьОбъект("СписокЗначений");
Документы=СоздатьОбъект("СписокЗначений");
Док = СоздатьОбъект("Документ.Заселение");
Док.ВыбратьДокументы(НачДата2, КонДата2);
Пока Док.ПолучитьДокумент()=1 цикл
ТекДок=Док.ТекущийДокумент();
ТекДок.ВыгрузитьТабличнуюЧасть(ТабДок);
ТабДок.ВыбратьСтроки();
Пока ТабДок.ПолучитьСтроку()=1 Цикл
НКвит=ТабДок.НомерКвитанции;
Документы.ДобавитьЗначение(НКвит);
КонецЦикла;
КонецЦикла;
Для н=1 по Документы.РазмерСписка() цикл
Значение=Документы.ПолучитьЗначение(н, НКвит);
Сообщить(Значение);
СписокДок.ДобавитьЗначение(Значение);
КонецЦикла;
СписокДок.Сортировать();
КонецПроцедуры
или:
В форме отчета необходимо вывести список значений (номера квитанций из документов) для отбора...Значения присваивает, но в форму не выводит...Мучаюсь вторую неделю...Помогите...
Вот код:
Процедура ЗагрузитьДок()
Если (ПустоеЗначение(НачДата2)=1) или (ПустоеЗначение(КонДата2)=1) тогда
Предупреждение("Выберите период!");
Возврат;
КонецЕсли;
СписокДок=СоздатьОбъект("СписокЗначений");
Документы=СоздатьОбъект("СписокЗначений");
Док = СоздатьОбъект("Документ.Заселение");
Док.ВыбратьДокументы(НачДата2, КонДата2);
Пока Док.ПолучитьДокумент()=1 цикл
ТекДок=Док.ТекущийДокумент();
ТекДок.ВыгрузитьТабличнуюЧасть(ТабДок);
ТабДок.ВыбратьСтроки();
Пока ТабДок.ПолучитьСтроку()=1 Цикл
НКвит=ТабДок.НомерКвитанции;
Документы.ДобавитьЗначение(НКвит);
КонецЦикла;
КонецЦикла;
Для н=1 по Документы.РазмерСписка() цикл
Значение=Документы.ПолучитьЗначение(н, НКвит);
Сообщить(Значение);
СписокДок.ДобавитьЗначение(Значение);
КонецЦикла;
СписокДок.Сортировать();
КонецПроцедуры
или:
Ссылка скрыта от гостей