Laureus
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Small_green_yojik
Вот кусок со строкой 7453.
Если НадоПересчитывать = 1 Тогда
ИтоговыйКоэффициент = ?(Коэффициент = 0,1,Коэффициент) * ?(КоэффициентВалюты=0,1,КоэффициентВалюты);
Если РасчетОтЦены = 1 Тогда
Т.Цена = Окр(Т.Цена*ИтоговыйКоэффициент,2,1);
Сумма = Т.Сумма;
Т.Сумма = Окр(Т.Цена*Т.Количество,2,1);
Т.НДС = Окр(Окр(Т.НДС/Сумма,2,1)*Т.Сумма,2,1);
Т.НП = Окр(Окр(Т.НП/Сумма,2,1)*Т.Сумма,2,1);
Т.Всего = Т.Сумма+Т.НДС+Т.НП;
Иначе
Если СпособПересчета = 1 Тогда
Т.Цена = Окр(Т.Цена*ИтоговыйКоэффициент,2,1); Это строка 7453
Т.Сумма = Окр(Т.Сумма*ИтоговыйКоэффициент,2,1);
Т.НДС = Окр(Т.НДС*ИтоговыйКоэффициент,2,1);
Т.НП = Окр(Т.НП*ИтоговыйКоэффициент,2,1);
Т.Всего = Окр(Т.Всего*ИтоговыйКоэффициент,2,1);
ИначеЕсли СпособПересчета = 2 Тогда
Т.Сумма = Окр(Т.Сумма*ИтоговыйКоэффициент,2,1);
Т.НДС = Окр(Т.НДС*ИтоговыйКоэффициент,2,1);
Т.НП = Окр(Т.НП*ИтоговыйКоэффициент,2,1);
Т.Всего = Т.Сумма+Т.НДС+Т.НП;
Если ПустоеЗначение(Т.Количество) = 1 Тогда
Т.Цена = Т.Сумма;
Иначе
Т.Цена = Окр(Т.Сумма/Т.Количество,2,1);
КонецЕсли;
ИначеЕсли СпособПересчета = 3 Тогда
Т.Всего = Окр(Т.Всего*ИтоговыйКоэффициент,2,1);
Т.НДС = Окр(Т.НДС*ИтоговыйКоэффициент,2,1);
Т.НП = Окр(Т.НП*ИтоговыйКоэффициент,2,1);
Т.Сумма = Т.Всего - Т.НДС - Т.НП;
Если ПустоеЗначение(Т.Количество) = 1 Тогда
Т.Цена = Т.Сумма;
Иначе
Т.Цена = Окр(Т.Сумма/Т.Количество,2,1);
КонецЕсли;
ИначеЕсли СпособПересчета = 4 Тогда
Т.Всего = Окр(Т.Всего*ИтоговыйКоэффициент,2,1);
Т.Сумма = Окр(Т.Сумма*ИтоговыйКоэффициент,2,1);
Т.НП = Окр(Т.НП*ИтоговыйКоэффициент,2,1);
Т.НДС = Т.Всего - Т.Сумма - Т.НП;
Если ПустоеЗначение(Т.Количество) = 1 Тогда
Т.Цена = Т.Сумма;
Иначе
Т.Цена = Окр(Т.Сумма/Т.Количество,2,1);
КонецЕсли; |
Всего записей: 244 | Зарегистр. 07-03-2008 | Отправлено: 20:20 03-02-2012 | Исправлено: Laureus, 14:00 04-02-2012 |
|
Программы » 
Варезник » 
