Имя: Пароль:
1C
 
Разделить сумму на кол-во позиций.
0 Spirit11
 
03.12.08
12:55
В документе поступление товаров нужно определенную сумму(наценка) раскидать на цену товара. Например, в таблице 10 позиций товаров уже с какой-то своей ценой и нужно эту сумму(наценки) разбить поровну на 10 и приплюсовать к цене. Как это проще всего написать? просветите :)
1 Нуф-Нуф
 
03.12.08
12:56
сделаю удаленно за 1500
2 Eugene_life
 
03.12.08
12:59
Представь, что ты делал бы это "ручками". Как бы ты действовал? Взял бы наценку, поделил на количество товаров, и прибавил бы эту "дельту" к каждой цене. Так и делай.
3 ДенисЧ
 
03.12.08
13:01
1480 рублей
4 Spirit11
 
03.12.08
13:03
ну я ручками представляю как это сделать...  а вот виде кода 1с, как то все сложнее...
5 Spirit11
 
03.12.08
13:03
спасибо. цену понял :)
6 ДенисЧ
 
03.12.08
13:03
(4) Опиши пошагово, как ты это сделал бы руками.
7 Spirit11
 
03.12.08
13:09
1. посчитал кол-во позиций товаров.
2. разделил бы сумму(наценку) на пункт 1
3. и прибавил к цене товара пункт 2
8 ДенисЧ
 
03.12.08
13:10
и так?
колчиество позиций = КолчиествоСтрок()
сумма = Итог("Сумма");
Прибавить цену = цикл по строкам и прибавление.
9 Иду
 
03.12.08
13:10
ВыгрузитьТабличнуюЧасть(ТЗ);
   Если ТЗ.Итог("СуммаСНДС")<>СуммаНадо Тогда
       Пока Окр(СуммаНадо,0)<>Окр(ТЗ.Итог("СуммаСНДС"),0) Цикл
           Разница=СуммаНадо-ТЗ.Итог("СуммаСНДС");
           ВсегоБыло=ТЗ.Итог("СуммаСНДС");
           Если Разница<1 Тогда
               Прервать;
           КонецЕсли;
           Если Разница>0 Тогда
               ТЗ.ВыбратьСтроки();
               Пока ТЗ.ПолучитьСтроку()=1 Цикл
                   ПроцентовТовара=ТЗ.СуммаСНДС*100/ВсегоБыло;
                   СкокаПодогнать=Разница/100*ПроцентовТовара;
                   ТЗ.СуммаСНДС=ТЗ.СуммаСНДС+СкокаПодогнать;
                   Если ТЗ.ЦенаСНДС>0 Тогда
                       ТЗ.Кво=Цел(ТЗ.СуммаСНДС/ТЗ.ЦенаСНДС);
                   Иначе
                       ТЗ.Кво=0;
                       ТЗ.СуммаСНДС=0;
                   КонецЕсли;
                   Состояние("Подгоняю "+ТЗ.НомерСтроки+"  из "+ТЗ.КоличествоСтрок());
               КонецЦикла;    
           КонецЕсли;
       КонецЦикла;
   КонецЕсли;
   ЗагрузитьТабличнуюЧасть(ТЗ);
10 Spirit11
 
03.12.08
13:12
ого! спасибо :)
11 hulio_ekb
 
03.12.08
13:19
Хм, это как минимум странно, когда такие вопросы задает участник форума с такими данными в личной карточке:
Дата регистрации:     22.09.2004     Стаж: 4 г. 3 мес.
12 Злой Бобр
 
03.12.08
13:23
(11) Если ником пользуется несколько человек - ничего странного. Хотя в принципе - да, мутнова-то это...
13 hhhh
 
03.12.08
13:26
(10) переходи на 8.1. Там эта функция реализована во всех типовых конфигурациях.
14 Нуф-Нуф
 
03.12.08
14:12
2000р
15 DenLaDen
 
03.12.08
14:38
А вобще теорема такая, что если имеется документ на сумму N, а требуется документ на сумму М, то достаточно каждую строку документа умножить на коэффициент, равный М/N. Доказывать надо?
16 Иду
 
03.12.08
15:04
(15) сумму то да, но вот с количествами=затыка будет однако. Если не весовой, а штучный. да и 9-й вариант до-копеечки не подбивает, на малострочках, если есть кво=1 тогда тупо последние копейки к нему и добавляю.
17 ildus
 
03.12.08
15:18
(0) смотри в типовой, там это реализовано
18 Spirit11
 
03.12.08
16:57
(11) Ничего странного, просто я не программист, а  больше  консультант. Спасибо за помощь.
19 ВторНик
 
03.12.08
17:09
образцовый топик! ;)
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс