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