Есть код программы по автоматическому формированию счетов-фактур в программе 1С: бухгалтерия. В форму вводятся дата от и до и запускается процесс по формированию счетов. Необходимо нарисовать блок-схему этой программы, надеюсь кто-нибудь такое умеет делать, вроде это не сложно)
Автоматическое формирование счетов фактур на аванс
//*******************************************
Процедура Сформировать()
СчФ = СоздатьОбъект("Документ.СчетФактура");
СчФ.ИспользоватьЖурнал("СФ_Выданные",0);
Опер = СоздатьОбъект("Операция");
Опер.ВыбратьОперацииСПроводками(ДатаНачала,ДатаКон ца);
Пока Опер.ПолучитьПроводку() = 1 Цикл
ДокОсн = Опер.Документ;
Если ДокОсн.Вид() = "Выписка" Тогда
Если (Опер.Кредит.Счет = СчетПоКоду("62.2")) ИЛИ (Опер.Кредит.Счет = СчетПоКоду("62.5")) Тогда
Контрагент = Опер.Кредит.Контрагенты;
Договор = Опер.Кредит.Договоры;
Сумма = Опер.Сумма;
ПервичныйДокумент = СокРЛП(Опер.ПервичныйДокумент);
НомерСтрокиДокумента = Опер.НомерСтрокиДокумента();
ПлатежныйДокумент = ПервичныйДокумент;
ПозицияНомера = Найти(ПлатежныйДокумент,"№");
НП = СокрЛП(Сред(ПлатежныйДокумент,(ПозицияНомера + 1), СтрДлина(ПлатежныйДокумент) - ПозицияНомера));
ДП = Дата(Лев(ПлатежныйДокумент, (ПозицияНомера - 2)));
СчФ.Новый();
СчФ.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Ава нс;
СчФ.ДокументОснование = ДокОсн.ТекущийДокумент();
СчФ.ДатаДок = Опер.ДатаОперации;
СчФ.ВерсияОбъекта = Константа.НомерРелиза;
Нот = Найти(СокрЛП(Договор),"от");
Нот = Нот - 2;
СчФ.НомерДок = "А" + Лев(СокрЛП(Договор),Нот) + "/" + Формат(ДатаМесяц(Опер.ДатаОперации),"Ч(0)2");
СчФ.Договор = Договор;
СчФ.Контрагент = Контрагент;
СчФ.Грузополучатель = Контрагент;
СчФ.ВключатьВКнигуПродаж = 1;
СчФ.Аванс = 1;
СчФ.ВариантОтправки = 1;
СчФ.НомерПлатРасчДок = НП;
СчФ.ДатаПлатРасчДок = ДП;
СчФ.ДатаОплаты = Формат(ДП,"Д");
/***********************
СчФ.НоваяСтрока();
СчФ.НазначитьТип("Товар","Строка", 22);
СчФ.Товар = "Предварительная оплата";
СчФ.СтавкаНДС = глЗначениеПоУмолчанию("ОсновнаяСтавкаНДС");
СчФ.Цена = Сумма;
СчФ.Сумма = Сумма;
СчФ.Всего = Сумма;
СчФ.СтранаПроисхождения = "";
СчФ.ГТД = "";
СчФ.НДС = Окр(Сумма*18/118,2,1);
СчФ.Записать();
СчФ.Провести(0,"Программно");
КонецЕсли;
КонецЕсли;
ДП = '00.00.00';
НП = "";
КонецЦикла;
Сообщить("ВЫПОЛНЕНО");
КонецПроцедуры