Бюджетная конфигурация Закрытие сч.500
Показывать по
10
20
40
сообщений
- 1
- 2
10.01.2011
13:08
#12
"А если у нас так выглядит процедура,то что комментить?
Процедура СоставимСписокСчетов()
СписокСчетов=СоздатьОбъект("СписокЗначений");
Счет = СоздатьОбъект("Счет.ЕПСБУ" );
Счет.ВыбратьСчета();
Пока Счет.ПолучитьСчет()=1 Цикл
Если Счет.Забалансовый=1 Тогда
Продолжить;
КонецЕсли;
Если Счет.Уровень()=1 Тогда
Продолжить;
КонецЕсли;
Если Счет.Уровень()=3 Тогда
Продолжить;
КонецЕсли; Если Лев(Счет.Код,1)<>"5" Тогда
Продолжить;
КонецЕсли;
Если Счет.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;
СписокСчетов.ДобавитьЗначение(Счет.ТекущийСчет());
КонецЦикла;
КонецПроцедуры"
Процедура СоставимСписокСчетов()
СписокСчетов=СоздатьОбъект("СписокЗначений");
Счет = СоздатьОбъект("Счет.ЕПСБУ" );
Счет.ВыбратьСчета();
Пока Счет.ПолучитьСчет()=1 Цикл
Если Счет.Забалансовый=1 Тогда
Продолжить;
КонецЕсли;
Если Счет.Уровень()=1 Тогда
Продолжить;
КонецЕсли;
Если Счет.Уровень()=3 Тогда
Продолжить;
КонецЕсли; Если Лев(Счет.Код,1)<>"5" Тогда
Продолжить;
КонецЕсли;
Если Счет.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;
СписокСчетов.ДобавитьЗначение(Счет.ТекущийСчет());
КонецЦикла;
КонецПроцедуры"
- 1
- 2
Читают тему
(гостей: 1)