Бухгалтерия переделанная V8. Необходимо реализовать партионный учет !
FIFO . .создал регистр накопления который обозвал , Партия1 ,
Измерения : Организация ,склад ,док-оприходывания ,номенклатура,
Ресурсы: количество -цена ,,
1.В документе приход естественно создал при проведении движения по нему !
2.Вопрос как реализовать выборку из этого регистра ( и движения по нему) при проведении расхода, запрос использовать или еще чо нить , может кто пример скинет !

Ресурсы: количество , сумма

Запрос остатков по регистру накопления

Пусть будет сумма , это не важно

(1)документ забыл

(4)+в измерения

док оприходывания в измерениях

конструктором запрос зафигачить ?

(0) открой типовую УТ 10.3, велокат давно сделан

Там наверно так все перевернуто , что хрен что поймешь !

может кто нить скинуть пример запроса ,

(10) Опиши сначала этот алгоритм без кода, обычными словами. А потом и сам поймешь.

>>док оприходывания в измерениях
шедеврально

а что ты предлагаешь ?

(12) не поверишь,
в типовых так и сделано

блин... задачка из Спеца... можно было бы и решить самому для разнообразия

(14) прям так и сделано? >>док оприходЫЫЫЫЫЫвания ???? може вы еще и пробЫЫЫваете???

(13) я предлагаю док оприходОвания. и учить русский.

Умнее есть мысли ?

(18) Можно построить партионный учет и без регистра. При списании ищешь поступление товара в документах.

(19 ) вот это шедевр.... просто супер

Без регистра будет медленнее на порядок ,

Да и удобнее на порядок .!

У кого нить есть пример запроса .1

// расчет стоимости МПЗ при списании методом FIFO
   
   ВыборкаЗапроса = Запасы.ПолучитьСтоимостьТоваров(ЭтотОбъект);
   
   Пока ВыборкаЗапроса.Следующий() Цикл
               
       Если  ?(ВыборкаЗапроса.Количество > ВыборкаЗапроса.КоличествоОстаток, Истина, Ложь) Тогда
           Сообщить("Не хватает партий"+ВыборкаЗапроса.Номенклатура + ". Необходимо "+ВыборкаЗапроса.Количество + ". В наличии "+ ВыборкаЗапроса.КоличествоОстаток);
           Отказ = Истина;
           Продолжить;
       КонецЕсли;
       
       // если хватает, то начинает перебирать
       ОстатокКСписанию = ВыборкаЗапроса.Количество;
       ВыборкаПартий = ВыборкаЗапроса.Выбрать();
       Пока ВыборкаПартий.Следующий() Цикл
           
           Если ОстатокКСписанию <= 0 Тогда
               Продолжить; // смысла нет дальше бегать. все списали
           КонецЕсли;
           
           Если ВыборкаПартий.КоличествоОстаток = 0 Тогда
               Продолжить;
               // продолжим. возможно из-за проведения задним числом сбилась последовательность,
               // и остатки есть по другим партиям
               // отгрузку клиенту из-за этого останавливать нельзя, а последовательность можно восстановить
           КонецЕсли;
           
           СписатьКоличество = Мин(ОстатокКСписанию, ВыборкаПартий.КоличествоОстаток);
           Если ОстатокКСписанию < ВыборкаПартий.КоличествоОстаток Тогда
               Стоимость = СписатьКоличество * ( ВыборкаПартий.СтоимостьОстаток / ВыборкаПартий.КоличествоОстаток );
           Иначе                
               Стоимость = ВыборкаПартий.СтоимостьОстаток;
           КонецЕсли;
           
           // регистр ОстаткиНоменклатуры Расход
           ДвиженияПартий = Движения.ПартииТоваровНаСкладах.Добавить();
           ДвиженияПартий.ВидДвижения    = ВидДвиженияНакопления.Расход;
           ДвиженияПартий.Период        = Дата;
           ДвиженияПартий.Регистратор    = Ссылка;
           ДвиженияПартий.Номенклатура = ВыборкаПартий.Номенклатура;
           ДвиженияПартий.ДокументОприходования = ВыборкаПартий.ДокументПоступления;
           ДвиженияПартий.Количество    = СписатьКоличество;
           ДвиженияПартий.Стоимость    = Стоимость;
           
           ОстатокКСписанию = ОстатокКСписанию - ВыборкаПартий.КоличествоОстаток;
       КонецЦикла;
   КонецЦикла;

Спасибо щаса гляну , думаю привинчу !

(24) классная наёбка

(26) в чем? что выборку не выложил?

(27) ясен пень
ТС не умеет строить запросы
сворачивать ТЧ
работать с моментом

(28) :) согласен. хотя стаж у ТС приличный... клавиатуру на Мисте 4 года протирает

(0) >>Бухгалтерия переделанная V8. Необходимо реализовать партионный учет !
А просто метод списание мпз в политике учета если изменить? Это самописка, или на базе типовой? Если типовой - то какой? 1.5, 1.6, 2.0 - это последние года наверное за 4. Там везде реализован партионный учет при соотв. настройке.

Документ типовой , но схема проведения реализована своя !

(31) понятно. Успехов! :)

ты код из УТ выдернул ?

(33) .. это я в 2005 году готовился к Спецу по Платформе в пустой конфигурации.  в типовых код навороченный, да и сейчас я уже не так написал бы, но для примера - держи. учись

(33) открой бухгалтерию и посмотри как списывается при фифо товар. Там элементарнейший запрос, если чо :)

Сдал чтоли )?

че ли да.. в 2006 году.

текст запроса тогда кинь )

не не... хватит. думай сам

Лана )

конструкотром попробую

Я же инженер-системотехник )

(42) какой код специальности, инженер-системотехник? :)

http://chistov.spb.ru/publ/free_webinar/6-1-0-15

лови, инженер-системотехник

Функция ПолучитьСтоимостьТоваров(НашДокумент) Экспорт
   
   ВремяСреза = НашДокумент.МоментВремени();
   Товары = НашДокумент.Товары.Выгрузить();
   СписокТоваров = Товары.ВыгрузитьКолонку("Номенклатура");
   
   Запрос=новый Запрос;
   Запрос.Текст="
   |ВЫБРАТЬ    
   |    ВложенныйЗапрос.Номенклатура    КАК Номенклатура,
   |    ВложенныйЗапрос.Количество        КАК Количество,
   |    ЕстьNULL(ПартииТоваровНаСкладахОстатки.КоличествоОстаток,0)    КАК КоличествоОстаток,
   |    ЕстьNULL(ПартииТоваровНаСкладахОстатки.СтоимостьОстаток, 0)    КАК СтоимостьОстаток,
   |    ЕстьNULL(ПартииТоваровНаСкладахОстатки.ДокументОприходования,0) КАК ДокументПоступления
   |ИЗ
   |    (ВЫБРАТЬ
   |        РеализацияТоваровТовары.Номенклатура КАК Номенклатура,
   |        РеализацияТоваровТовары.Количество КАК Количество
   |    ИЗ
   |        Документ.РеализацияТоваров.Товары КАК РеализацияТоваровТовары
   |    ГДЕ
   |        РеализацияТоваровТовары.Ссылка = &Ссылка        
   |    
   |) КАК ВложенныйЗапрос
   |    
   |ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ПартииТоваровНаСкладах.Остатки(&ВремяСреза, Номенклатура В (&СписокНоменклатуры)) КАК ПартииТоваровНаСкладахОстатки
   |    ПО ВложенныйЗапрос.Номенклатура = ПартииТоваровНаСкладахОстатки.Номенклатура
   |    
   |ДЛЯ ИЗМЕНЕНИЯ
   |    РегистрНакопления.ПартииТоваровНаСкладах.Остатки
   |
   |УПОРЯДОЧИТЬ ПО
   |    Номенклатура,
   |    ПартииТоваровНаСкладахОстатки.ДокументОприходования
   |    
   |ИТОГИ
   |    МИНИМУМ(Количество),
   |    СУММА(КоличествоОстаток)
   |ПО
   |    Номенклатура
   |";

   запрос.УстановитьПараметр("ВремяСреза",            ВремяСреза);
   запрос.УстановитьПараметр("СписокНоменклатуры",    СписокТоваров);
   запрос.УстановитьПараметр("Ссылка",                НашДокумент.Ссылка);
   Выборка = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
   
   Возврат Выборка;
   
КонецФункции

2201

(46) на 2202 бы учился, почти 1сная специальность)

А чо там ? АСУ ?

Запрос = Новый Запрос;
   Запрос.Текст =
   "ВЫБРАТЬ
       |    Партии1Остатки.Номенклатура КАК Номенклатура,
       |    Партии1Остатки.СчетУчета,
       |    Партии1Остатки.Организация,
       |    Партии1Остатки.Склад,
       |    Партии1Остатки.ДокументОприходования,
       |    Партии1Остатки.КоличествоОстаток,
       |    Партии1Остатки.ЦенаОстаток
       |ИЗ
       |    РегистрНакопления.Партии1.Остатки( &Дата1)  КАК Партии1Остатки
       |ГДЕ
       |    Партии1Остатки.Номенклатура = &ВыбНомен
       |    И Партии1Остатки.Организация = &ВыбОрг
       |    И Партии1Остатки.Склад = &ВыбСклад

       |
       |СГРУППИРОВАТЬ ПО
       |    Партии1Остатки.Номенклатура,
       |    Партии1Остатки.СчетУчета,
       |    Партии1Остатки.Организация,
       |    Партии1Остатки.Склад,
       |    Партии1Остатки.ДокументОприходования,
       |    Партии1Остатки.КоличествоОстаток,
       |    Партии1Остатки.ЦенаОстаток
       |
       |УПОРЯДОЧИТЬ ПО
       |    Номенклатура
       |ИТОГИ ПО
       |    Номенклатура  " ;



   Запрос.УстановитьПараметр("ВыбНомен", ВыбНомен);
   Запрос.УстановитьПараметр("ВыбОрг", ВыбОрг);
   Запрос.УстановитьПараметр("Дата1", Дата1);
   Запрос.УстановитьПараметр("ВыбСклад", ВыбСклад);

   
   

   Результат = Запрос.Выполнить();

   ВыборкаНоменклатура = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
   
   

   Пока ВыборкаНоменклатура.Следующий() Цикл
       // Вставить обработку выборки ВыборкаНоменклатура

       ВыборкаДетальныеЗаписи = ВыборкаНоменклатура.Выбрать();

       Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
           // Вставить обработку выборки ВыборкаДетальныеЗаписи
           
             

           
           
       КонецЦикла;
   КонецЦикла;

Это выдал конструтор , сам запрос работает