- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
Если Сумма<=0 тогда
НС = Док.СуммыДолга.Добавить();
НС.ВидЗадолженности = Перечисления.ВидыЗадолженности.Кредиторская;
НС.ДоговорКонтрагента = ПолучитьДоговор(Клиент,Док.ВалютаДокумента);
НС.КурсВзаиморасчетов = Док.КурсДокумента;
НС.КратностьВзаиморасчетов=Док.КратностьДокумента;
НС.Сумма = -Сумма;
НС.СуммаРегл = НС.Сумма*НС.КурсВзаиморасчетов/НС.КратностьВзаиморасчетов;
НС.СчетУчетаАвансов = СчетКонтрагента;
НС.СчетУчетаРасчетов = СчетКонтрагента;
Иначе
НС = Док.СуммыДолга.Добавить();
НС.ВидЗадолженности = Перечисления.ВидыЗадолженности.Дебиторская;
НС.ДоговорКонтрагента = ПолучитьДоговор(Клиент,Док.ВалютаДокумента);
НС.КурсВзаиморасчетов = Док.КурсДокумента;
НС.КратностьВзаиморасчетов=Док.КратностьДокумента;
НС.Сумма = Сумма;
НС.СуммаРегл = НС.Сумма*НС.КурсВзаиморасчетов/НС.КратностьВзаиморасчетов;
НС.СчетУчетаАвансов = СчетКонтрагента;
НС.СчетУчетаРасчетов = СчетКонтрагента;
КонецЕсли;
Код исправный, но... любит один наш программер "чтоб побольше строк"... а если добавить дополнительные отступы ("для удобства прочтения"), то будет казаться, что программа невообразимо длинная и сложная
sysctl 30.01.2015 19:17 # −1
НС.СчетУчетаАвансов, НС.СчетУчетаРасчетов = СчетКонтрагента;
1Сколопендра++
НС.СчетУчета\Аванс|Расчет\ов = СчетКонтрагента;
Dummy00001 30.01.2015 20:58 # 0
то что ты здесь видишь, есть зародышь позиции неувольняемого консультанта. код уже начал делится.
еще пара копипаст. еще какие мелкие изменения тут и там. через пару месяцов и багов много и деятельности по их выщемлению нужно много. самое главное: с каждым разом, кода все больше.
alexinzaz 30.01.2015 22:16 # +2
dsfix 31.01.2015 00:26 # +1
alexinzaz 02.02.2015 01:00 # +4
doom2good 05.02.2015 15:10 # +1
guest 20.03.2015 17:28 # 0
HomoAlbus 12.11.2015 17:37 # 0
НС = Док.СуммыДолга.Добавить();
НС.ВидЗадолженности = Перечисления.ВидыЗадолженности.Кредиторс кая;
НС.ДоговорКонтрагента = ПолучитьДоговор(Клиент,Док.ВалютаДокумен та);
НС.КурсВзаиморасчетов = Док.КурсДокумента;
НС.КратностьВзаиморасчетов=Док.Кратность Документа;
НС.Сумма = Макс(Сумма, -Сумма);
НС.СуммаРегл = НС.Сумма*НС.КурсВзаиморасчетов/НС.КратностьВзаиморасчетов;
НС.СчетУчетаАвансов = СчетКонтрагента;
НС.СчетУчетаРасчетов = СчетКонтрагента;
grandatlant 27.01.2017 16:58 # 0