Имя: Пароль:
1C
1С v8
Подбор по партиям в БП 3
0 егаис
 
20.02.15
08:26
Реализация материалов собственным компаниям по себестоимости
В штатном подборе цена подставляется последняя
Есть ли решение, чтобы подбор осуществлялся по партиям? Себестоимость партий разная, отсюда и требование.
1 егаис
 
20.02.15
08:38
пишу пока распределялку по кнопке, т.к. не нашел типового решения. Есть мысли?
2 Мимохожий Однако
 
20.02.15
09:03
Налоговой на вас нету ))
3 MSOliver
 
20.02.15
09:06
Продавать с наценкой надо, ну чтоб база для исчисления налога была... Хотя когда сроки годности горят...
4 MSOliver
 
20.02.15
09:08
Подбор цены по партиям - бред! Хотя в жизни такое видел:)
5 егаис
 
20.02.15
09:11
(3) про наценку я не писал, она есть, она не важна в сабже
это не бред
пришли саморезы:
партия 1 10 шт/500 р
партия 2 10 шт/600 р
партия 3 10 шт/700 р
Так вот и продать мы их должны не по последней цене, а с разбивкой по партиям
в реализации (наценка 10%):
саморез партия 1 10 / 550 р
саморез партия 2 10 / 660 р
саморез партия 3 10 / 770 р
6 MSOliver
 
20.02.15
09:13
Попробуй отпустить одной накладной все 30 шт )
7 егаис
 
20.02.15
09:14
(6) я понимаю про списание себестоимости!
вопрос в цене реализации для покупателя!
8 MSOliver
 
20.02.15
09:16
(7) Ну тады все просто... В накладной три строчки с саморезами и разной ценой :-)
9 егаис
 
20.02.15
09:16
(8) вот!!
этого я и добиваюсь
типового механизма подбора по партиям нет оказывается, сижу рожаю пока..
10 MSOliver
 
20.02.15
09:17
(9) Это бред! См (4) :-)
11 MSOliver
 
20.02.15
09:18
И соответственно типового механизма такого нету... Как ни странно...
12 Кай066
 
20.02.15
09:18
(10) В печатной форме всё равно сгруппирует
13 егаис
 
20.02.15
09:19
топорное решение

    ТаблицаТоваров = Объект.Товары.Выгрузить();
    
    ТаблицаТоваровСПартиями = Объект.Товары.Выгрузить();
    ТаблицаТоваровСПартиями.Очистить();
    
    Для Каждого Строка Из ТаблицаТоваров Цикл
        КоличествоКСписанию = Строка.Количество;
        
        Запрос = Новый Запрос;
        Запрос.Текст =
            "ВЫБРАТЬ
            |    ХозрасчетныйОстатки.Субконто3,
            |    СУММА(ХозрасчетныйОстатки.КоличествоОстаток) КАК КоличествоОстаток,
            |    СУММА(ХозрасчетныйОстатки.СуммаОстаток) КАК СуммаОстаток
            |ИЗ
            |    РегистрБухгалтерии.Хозрасчетный.Остатки(
            |            &НаДату,
            |            Счет = &СчетУчета,
            |            ,
            |            Субконто1 = &Номенклатура
            |                И Субконто2 = &Склад) КАК ХозрасчетныйОстатки
            |
            |СГРУППИРОВАТЬ ПО
            |    ХозрасчетныйОстатки.Субконто3";
        
        Запрос.УстановитьПараметр("НаДату", Объект.Дата);
        Запрос.УстановитьПараметр("Номенклатура", Строка.Номенклатура);
        Запрос.УстановитьПараметр("Склад", Объект.Склад);
        Запрос.УстановитьПараметр("СчетУчета", Строка.СчетУчета);
        
        РезультатЗапроса = Запрос.Выполнить();
        ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
        
        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
            
            Если КоличествоКСписанию = 0 Тогда
                Прервать;
            КонецЕсли;
            
            КоличествоСписываем = Мин(КоличествоКСписанию, ВыборкаДетальныеЗаписи.КоличествоОстаток);
            
            НоваяСтрока = ТаблицаТоваровСПартиями.Добавить();
            ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка);
            НоваяСтрока.Количество = КоличествоСписываем;
            НоваяСтрока.Сумма = ?(КоличествоСписываем = ВыборкаДетальныеЗаписи.КоличествоОстаток, ВыборкаДетальныеЗаписи.СуммаОстаток, ВыборкаДетальныеЗаписи.СуммаОстаток / ВыборкаДетальныеЗаписи.КоличествоОстаток * КоличествоСписываем);
            НоваяСтрока.Цена = НоваяСтрока.Сумма / НоваяСтрока.Количество;
            НоваяСтрока.ДокументОприходования = ВыборкаДетальныеЗаписи.Субконто3;
            
            КоличествоКСписанию = КоличествоКСписанию - КоличествоСписываем;
        КонецЦикла;
    КонецЦикла;
    Объект.Товары.Загрузить(ТаблицаТоваровСПартиями);
14 егаис
 
20.02.15
09:19
вешаете кнопку распределение на форму и вперде
15 MSOliver
 
20.02.15
09:19
Помянете название ветки на Пятницу!
16 егаис
 
20.02.15
09:20
(15) ты думаешь это пятнично? )
познай истину
17 MSOliver
 
20.02.15
09:23
(16) Дык... Взаиморасчеты то по среднему встали, хотца по партиям :-)
18 егаис
 
20.02.15
09:24
(17) с херов ли?
включи ФИФО и снова познай истину
19 MSOliver
 
20.02.15
09:24
Погоди, походу прогнал, Субконто3 - Партия?
20 егаис
 
20.02.15
09:25
(19) да
21 MSOliver
 
20.02.15
09:26
(20) Смутила Группировка не нужная...
22 MSOliver
 
20.02.15
09:28
(18) хз. Фифо тут или Лифо - это как сгруппирует :-)
23 MSOliver
 
20.02.15
09:33
Ну запрос в цикле, ну упорядочите пратии - будет Фифо. Ну ведь Вы хотите цену по Фифо!)
24 MSOliver
 
20.02.15
09:35
Телефонный звонок:
- Ало! А по чём у Вас саморезы?
- А у нас по Фифо! Нам всё по Фифо!
25 Кай066
 
20.02.15
09:37
(24)Сегодня маленькие по 3, но сегодня, а большие по 5, но вчера, но большие, но по 5 и вчера, а сегодня по 3, но маленькие
26 MSOliver
 
20.02.15
09:41
Тут в соседней ветке народ пытается из 3шт и суммой 10р. цену получить и за копейку рубятся.
AdBlock убивает бесплатный контент. 1Сергей